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

Diff of /gcl/lsp/defpackage.c

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

revision 1.2 by camm, Sun Feb 3 18:44:07 2002 UTC revision 1.3 by mjthomas, Thu Apr 11 08:08:36 2002 UTC
# Line 7  init_defpackage(){do_init(VV);} Line 7  init_defpackage(){do_init(VV);}
7  static L1()  static 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_check;          vs_reserve(VM1);
11            check_arg(2);
12          vs_top=sup;          vs_top=sup;
13          {object V1=base[0]->c.c_cdr;          {object V1=base[0]->c.c_cdr;
14            if(endp(V1))invalid_macro_call();
15          base[2]= (V1->c.c_car);          base[2]= (V1->c.c_car);
16          V1=V1->c.c_cdr;          V1=V1->c.c_cdr;
17          base[3]= V1;}          base[3]= V1;}
18            {register object V2;
19            register object V3;
20            V2= Cnil;
21            V3= base[3];
22  T3:;  T3:;
23          vs_base=vs_top;          if(((V3))==Cnil){
24          (void) (*Lnk3)();          goto T6;}
25          vs_top=sup;          goto T5;
26          {register object x= (VV[3]->s.s_dbind),V2= VV[4];  T6:;
27          while(V2!=Cnil)          goto T4;
28          if(eql(x,V2->c.c_car)){  T5:;
29          goto T10;          {register object V4;
30          }else V2=V2->c.c_cdr;}          V4= car((V3));
31  T10:;          V2= (V4);}
32          base[4]= VV[6];          {register object x= car((V2)),V5= VV[0];
33          base[5]= VV[7];          while(!endp(V5))
34          base[6]= (VV[3]->s.s_dbind);          if(eql(x,V5->c.c_car)){
35            goto T11;
36            }else V5=V5->c.c_cdr;}
37            base[4]= VV[1];
38            base[5]= VV[2];
39            base[6]= (V2);
40          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
41          Lcerror();          Lcerror();
42          vs_top=sup;          vs_top=sup;
43    T11:;
44            V3= cdr((V3));
45          goto T3;          goto T3;
46    T4:;
47            goto T1;
48            goto T1;}
49    T1:;
50          base[4]=MMcons(Cnil,Cnil);          base[4]=MMcons(Cnil,Cnil);
51          (base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata);          (base[4]->c.c_car)=make_cclosure_new(LC3,Cnil,base[4],Cdata);
52  T18:;          {register object V6;
53          base[5]= (VV[3]->s.s_dbind);          register object V7;
54            V6= Cnil;
55            V7= VV[3];
56    T22:;
57            if(((V7))==Cnil){
58            goto T25;}
59            goto T24;
60    T25:;
61            goto T23;
62    T24:;
63            {register object V8;
64            V8= car((V7));
65            V6= (V8);}
66            V9= symbol_function(VV[63]);
67            V10= (VFUN_NARGS=4,(*(LnkLI62))((V6),base[3],VV[4],V9));
68            if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){
69            goto T30;}
70            base[5]= (V6);
71          base[6]= base[3];          base[6]= base[3];
72          base[7]= VV[10];          vs_top=(vs_base=base+5)+2;
         base[8]= (VV[85]->s.s_gfdef);  
         vs_top=(vs_base=base+5)+4;  
         (void) (*Lnk86)();  
         vs_top=sup;  
         V3= vs_base[0];  
         (void)(number_compare(small_fixnum(2),V3)<=0);  
         base[5]= VV[11];  
         base[6]= (VV[3]->s.s_dbind);  
         base[8]= (VV[3]->s.s_dbind);  
         base[9]= base[3];  
         vs_top=(vs_base=base+8)+2;  
73          L5(base);          L5(base);
74          vs_top=sup;          vs_top=sup;
75          V4= vs_base[0];          V11= vs_base[0];
76          base[7]= CMPcar(V4);          (void)((VFUN_NARGS=3,(*(LnkLI64))(VV[5],(V6),car(V11))));
77          vs_top=(vs_base=base+5)+3;  T30:;
78          (void) (*Lnk87)();          V7= cdr((V7));
79          vs_top=sup;          goto T22;
80          goto T18;  T23:;
81            goto T20;
82            goto T20;}
83    T20:;
84          base[2]= coerce_to_string(base[2]);          base[2]= coerce_to_string(base[2]);
85          {object V5;          {object V12;
         object V6;  
         object V7;  
         register object V8;  
         register object V9;  
         register object V10;  
         register object V11;  
         register object V12;  
86          object V13;          object V13;
87          base[6]= VV[12];          object V14;
88            object V15;
89            register object V16;
90            object V17;
91            object V18;
92            object V19;
93            object V20;
94            base[6]= VV[6];
95          base[7]= base[3];          base[7]= base[3];
96          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
97          L5(base);          L5(base);
98          vs_top=sup;          vs_top=sup;
99          V16= vs_base[0];          V23= vs_base[0];
100          {object V14;          {object V21;
101          object V15= V16;          object V22= V23;
102          if(V15==Cnil){          if(endp(V22)){
103          V5= Cnil;          V12= Cnil;
         goto T41;}  
         base[5]=V14=MMcons(Cnil,Cnil);  
 T42:;  
         (V14->c.c_car)= coerce_to_string((V15->c.c_car));  
         if((V15=MMcdr(V15))==Cnil){  
         V5= base[5];  
         goto T41;}  
         V14=MMcdr(V14)=MMcons(Cnil,Cnil);  
104          goto T42;}          goto T42;}
105  T41:;          base[5]=V21=MMcons(Cnil,Cnil);
106          base[5]= VV[13];  T43:;
107            (V21->c.c_car)= coerce_to_string((V22->c.c_car));
108            if(endp(V22=MMcdr(V22))){
109            V12= base[5];
110            goto T42;}
111            V21=MMcdr(V21)=MMcons(Cnil,Cnil);
112            goto T43;}
113    T42:;
114            base[5]= VV[7];
115          base[6]= base[3];          base[6]= base[3];
116          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
117          L5(base);          L5(base);
118          vs_top=sup;          vs_top=sup;
119          V17= vs_base[0];          V24= vs_base[0];
120          V6= CMPcar(V17);          V13= car(V24);
121          base[5]= VV[14];          base[5]= VV[8];
122          base[6]= base[3];          base[6]= base[3];
123          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
124          L5(base);          L5(base);
125          vs_top=sup;          vs_top=sup;
126          V18= vs_base[0];          V25= vs_base[0];
127          V7= CMPcar(V18);          V14= car(V25);
128          base[6]= VV[15];          base[6]= VV[9];
129          base[7]= base[3];          base[7]= base[3];
130          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
131          L5(base);          L5(base);
132          vs_top=sup;          vs_top=sup;
133          V21= vs_base[0];          V28= vs_base[0];
134          {object V19;          {object V26;
135          object V20= V21;          object V27= V28;
136          if(V20==Cnil){          if(endp(V27)){
137          V8= Cnil;          V15= Cnil;
         goto T55;}  
         base[5]=V19=MMcons(Cnil,Cnil);  
 T56:;  
         (V19->c.c_car)= coerce_to_string((V20->c.c_car));  
         if((V20=MMcdr(V20))==Cnil){  
         V8= base[5];  
         goto T55;}  
         V19=MMcdr(V19)=MMcons(Cnil,Cnil);  
138          goto T56;}          goto T56;}
139  T55:;          base[5]=V26=MMcons(Cnil,Cnil);
140          base[6]= VV[16];  T57:;
141            (V26->c.c_car)= coerce_to_string((V27->c.c_car));
142            if(endp(V27=MMcdr(V27))){
143            V15= base[5];
144            goto T56;}
145            V26=MMcdr(V26)=MMcons(Cnil,Cnil);
146            goto T57;}
147    T56:;
148            base[6]= VV[10];
149          base[7]= base[3];          base[7]= base[3];
150          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
151          L5(base);          L5(base);
152          vs_top=sup;          vs_top=sup;
153          V24= vs_base[0];          V31= vs_base[0];
154          {object V22;          {object V29;
155          object V23= V24;          object V30= V31;
156          if(V23==Cnil){          if(endp(V30)){
157          V9= Cnil;          V16= Cnil;
         goto T61;}  
         base[5]=V22=MMcons(Cnil,Cnil);  
 T62:;  
         (V22->c.c_car)= coerce_to_string((V23->c.c_car));  
         if((V23=MMcdr(V23))==Cnil){  
         V9= base[5];  
         goto T61;}  
         V22=MMcdr(V22)=MMcons(Cnil,Cnil);  
158          goto T62;}          goto T62;}
159  T61:;          base[5]=V29=MMcons(Cnil,Cnil);
160          base[6]= VV[17];  T63:;
161            (V29->c.c_car)= coerce_to_string((V30->c.c_car));
162            if(endp(V30=MMcdr(V30))){
163            V16= base[5];
164            goto T62;}
165            V29=MMcdr(V29)=MMcons(Cnil,Cnil);
166            goto T63;}
167    T62:;
168            base[6]= VV[11];
169          base[7]= base[3];          base[7]= base[3];
170          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
171          L5(base);          L5(base);
172          vs_top=sup;          vs_top=sup;
173          V27= vs_base[0];          V34= vs_base[0];
174          {object V25;          {object V32;
175          object V26= V27;          object V33= V34;
176          if(V26==Cnil){          if(endp(V33)){
177          V10= Cnil;          V17= Cnil;
178          goto T67;}          goto T68;}
179          base[5]=V25=MMcons(Cnil,Cnil);          base[5]=V32=MMcons(Cnil,Cnil);
180  T68:;  T69:;
181          (V25->c.c_car)= coerce_to_string((V26->c.c_car));          (V32->c.c_car)= coerce_to_string((V33->c.c_car));
182          if((V26=MMcdr(V26))==Cnil){          if(endp(V33=MMcdr(V33))){
183          V10= base[5];          V17= base[5];
         goto T67;}  
         V25=MMcdr(V25)=MMcons(Cnil,Cnil);  
184          goto T68;}          goto T68;}
185  T67:;          V32=MMcdr(V32)=MMcons(Cnil,Cnil);
186  T75:;          goto T69;}
187          base[5]= VV[19];  T68:;
188            {register object V35;
189            register object V36;
190            base[5]= VV[12];
191          base[6]= base[3];          base[6]= base[3];
192          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
193          L4(base);          L4(base);
194          vs_top=sup;          vs_top=sup;
195          V28= coerce_to_string(CMPcar((VV[18]->s.s_dbind)));          V36= vs_base[0];
196          {object V30;          V35= Cnil;
197          object V31= CMPcdr((VV[18]->s.s_dbind));          {register object V37;
198          if(V31==Cnil){          register object V38;
199          V29= Cnil;          register object V39;
200          goto T84;}          V37= Cnil;
201          base[5]=V30=MMcons(Cnil,Cnil);          V38= Cnil;
202  T85:;          V39= Cnil;
203          (V30->c.c_car)= coerce_to_string((V31->c.c_car));  T79:;
204          if((V31=MMcdr(V31))==Cnil){          if(((V36))==Cnil){
205          V29= base[5];          goto T82;}
206          goto T84;}          goto T81;
207          V30=MMcdr(V30)=MMcons(Cnil,Cnil);  T82:;
208          goto T85;}          goto T80;
209  T84:;  T81:;
210          (void)(make_cons(/* INLINE-ARGS */V28,V29));          {register object V40;
211          goto T75;          V40= car((V36));
212            V35= (V40);}
213            V41= coerce_to_string(car((V35)));
214            {object V43;
215            object V44= cdr((V35));
216            if(endp(V44)){
217            V42= Cnil;
218            goto T89;}
219            base[5]=V43=MMcons(Cnil,Cnil);
220  T90:;  T90:;
221          base[5]= VV[21];          (V43->c.c_car)= coerce_to_string((V44->c.c_car));
222            if(endp(V44=MMcdr(V44))){
223            V42= base[5];
224            goto T89;}
225            V43=MMcdr(V43)=MMcons(Cnil,Cnil);
226            goto T90;}
227    T89:;
228            V39= make_cons(/* INLINE-ARGS */V41,V42);
229            if(((V38))==Cnil){
230            goto T94;}
231            {register object V45;
232            register object V46;
233            V45= (V38);
234            V38= make_cons((V39),Cnil);
235            V46= (V38);
236            if(type_of((V45))!=t_cons)FEwrong_type_argument(Scons,(V45));
237            ((V45))->c.c_cdr = (V46);
238            goto T92;}
239    T94:;
240            V38= make_cons((V39),Cnil);
241            V37= (V38);
242    T92:;
243            V36= cdr((V36));
244            goto T79;
245    T80:;
246            V18= (V37);
247            goto T74;
248            V18= Cnil;
249            goto T74;
250            V18= Cnil;
251            goto T74;}}
252    T74:;
253            {register object V47;
254            register object V48;
255            base[5]= VV[13];
256          base[6]= base[3];          base[6]= base[3];
257          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
258          L4(base);          L4(base);
259          vs_top=sup;          vs_top=sup;
260          V32= coerce_to_string(CMPcar((VV[18]->s.s_dbind)));          V48= vs_base[0];
261          {object V34;          V47= Cnil;
262          object V35= CMPcdr((VV[18]->s.s_dbind));          {register object V49;
263          if(V35==Cnil){          register object V50;
264          V33= Cnil;          register object V51;
265          goto T99;}          V49= Cnil;
266          base[5]=V34=MMcons(Cnil,Cnil);          V50= Cnil;
267  T100:;          V51= Cnil;
268          (V34->c.c_car)= coerce_to_string((V35->c.c_car));  T111:;
269          if((V35=MMcdr(V35))==Cnil){          if(((V48))==Cnil){
270          V33= base[5];          goto T114;}
271          goto T99;}          goto T113;
272          V34=MMcdr(V34)=MMcons(Cnil,Cnil);  T114:;
273          goto T100;}          goto T112;
274  T99:;  T113:;
275          (void)(make_cons(/* INLINE-ARGS */V32,V33));          {register object V52;
276          goto T90;          V52= car((V48));
277          base[6]= VV[22];          V47= (V52);}
278            V53= coerce_to_string(car((V47)));
279            {object V55;
280            object V56= cdr((V47));
281            if(endp(V56)){
282            V54= Cnil;
283            goto T121;}
284            base[5]=V55=MMcons(Cnil,Cnil);
285    T122:;
286            (V55->c.c_car)= coerce_to_string((V56->c.c_car));
287            if(endp(V56=MMcdr(V56))){
288            V54= base[5];
289            goto T121;}
290            V55=MMcdr(V55)=MMcons(Cnil,Cnil);
291            goto T122;}
292    T121:;
293            V51= make_cons(/* INLINE-ARGS */V53,V54);
294            if(((V50))==Cnil){
295            goto T126;}
296            {register object V57;
297            register object V58;
298            V57= (V50);
299            V50= make_cons((V51),Cnil);
300            V58= (V50);
301            if(type_of((V57))!=t_cons)FEwrong_type_argument(Scons,(V57));
302            ((V57))->c.c_cdr = (V58);
303            goto T124;}
304    T126:;
305            V50= make_cons((V51),Cnil);
306            V49= (V50);
307    T124:;
308            V48= cdr((V48));
309            goto T111;
310    T112:;
311            V19= (V49);
312            goto T106;
313            V19= Cnil;
314            goto T106;
315            V19= Cnil;
316            goto T106;}}
317    T106:;
318            base[6]= VV[14];
319          base[7]= base[3];          base[7]= base[3];
320          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
321          L5(base);          L5(base);
322          vs_top=sup;          vs_top=sup;
323          V38= vs_base[0];          V61= vs_base[0];
324          {object V36;          {object V59;
325          object V37= V38;          object V60= V61;
326          if(V37==Cnil){          if(endp(V60)){
327          V13= Cnil;          V20= Cnil;
328          goto T103;}          goto T138;}
329          base[5]=V36=MMcons(Cnil,Cnil);          base[5]=V59=MMcons(Cnil,Cnil);
330  T104:;  T139:;
331          (V36->c.c_car)= coerce_to_string((V37->c.c_car));          (V59->c.c_car)= coerce_to_string((V60->c.c_car));
332          if((V37=MMcdr(V37))==Cnil){          if(endp(V60=MMcdr(V60))){
333          V13= base[5];          V20= base[5];
334          goto T103;}          goto T138;}
335          V36=MMcdr(V36)=MMcons(Cnil,Cnil);          V59=MMcdr(V59)=MMcons(Cnil,Cnil);
336          goto T104;}          goto T139;}
337  T103:;  T138:;
338  T112:;          {register object V62;
339          base[5]= (V8);          register object V63;
340          base[6]= (V9);          base[5]= (V15);
341  T122:;          base[6]= (V16);
342          (void)(CMPcdr((VV[18]->s.s_dbind)));          {register object V64;
343          goto T122;          register object V65;
344  T132:;          V64= Cnil;
345          (void)(CMPcdr((VV[18]->s.s_dbind)));          V65= (V18);
346          goto T132;          {register object V66;
347            register object V67;
348            register object V68;
349            V66= Cnil;
350            V67= Cnil;
351            V68= Cnil;
352    T151:;
353            if(((V65))==Cnil){
354            goto T154;}
355            goto T153;
356    T154:;
357            goto T152;
358    T153:;
359            {register object V69;
360            V69= car((V65));
361            V64= (V69);}
362            base[8]= cdr((V64));
363            vs_top=(vs_base=base+8)+1;
364            Lcopy_list();
365            vs_top=sup;
366            V68= vs_base[0];
367            if(((V67))==Cnil){
368            goto T164;}
369            {register object V70;
370            register object V71;
371            V70= (V67);
372            V71= (V68);
373            if(type_of((V70))!=t_cons)FEwrong_type_argument(Scons,(V70));
374            ((V70))->c.c_cdr = (V71);
375            if(((V71))!=Cnil){
376            goto T166;}}
377            goto T162;
378    T166:;
379            base[8]= cdr((V67));
380            vs_top=(vs_base=base+8)+1;
381            Llast();
382            vs_top=sup;
383            V67= vs_base[0];
384            goto T162;
385    T164:;
386            V66= (V68);
387            base[8]= (V66);
388            vs_top=(vs_base=base+8)+1;
389            Llast();
390            vs_top=sup;
391            V67= vs_base[0];
392    T162:;
393            V65= cdr((V65));
394            goto T151;
395    T152:;
396            base[7]= (V66);
397            goto T149;
398            base[7]= Cnil;
399            goto T149;
400            base[7]= Cnil;
401            goto T149;}}
402    T149:;
403            {register object V72;
404            register object V73;
405            V72= Cnil;
406            V73= (V19);
407            {register object V74;
408            register object V75;
409            register object V76;
410            V74= Cnil;
411            V75= Cnil;
412            V76= Cnil;
413    T182:;
414            if(((V73))==Cnil){
415            goto T185;}
416            goto T184;
417    T185:;
418            goto T183;
419    T184:;
420            {register object V77;
421            V77= car((V73));
422            V72= (V77);}
423            base[9]= cdr((V72));
424            vs_top=(vs_base=base+9)+1;
425            Lcopy_list();
426            vs_top=sup;
427            V76= vs_base[0];
428            if(((V75))==Cnil){
429            goto T195;}
430            {register object V78;
431            register object V79;
432            V78= (V75);
433            V79= (V76);
434            if(type_of((V78))!=t_cons)FEwrong_type_argument(Scons,(V78));
435            ((V78))->c.c_cdr = (V79);
436            if(((V79))!=Cnil){
437            goto T197;}}
438            goto T193;
439    T197:;
440            base[9]= cdr((V75));
441            vs_top=(vs_base=base+9)+1;
442            Llast();
443            vs_top=sup;
444            V75= vs_base[0];
445            goto T193;
446    T195:;
447            V74= (V76);
448            base[9]= (V74);
449            vs_top=(vs_base=base+9)+1;
450            Llast();
451            vs_top=sup;
452            V75= vs_base[0];
453    T193:;
454            V73= cdr((V73));
455            goto T182;
456    T183:;
457            base[8]= (V74);
458            goto T180;
459            base[8]= Cnil;
460            goto T180;
461            base[8]= Cnil;
462            goto T180;}}
463    T180:;
464          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
465          L2(base);          L2(base);
466          vs_top=sup;          vs_top=sup;
467          base[5]= VV[25];          V63= vs_base[0];
468          base[6]= CMPcar((VV[23]->s.s_dbind));          V62= Cnil;
469  T145:;  T212:;
470          (void)(CMPcdr((VV[23]->s.s_dbind)));          if(((V63))==Cnil){
471          {object V39= (VV[26]->s.s_dbind);          goto T215;}
472          if(!eql(V39,VV[27]))goto T152;          goto T214;
473          goto T146;  T215:;
474  T152:;          goto T213;
475          if(!eql(V39,VV[28]))goto T153;  T214:;
476          goto T146;          {register object V80;
477  T153:;          V80= car((V63));
478          if(!eql(V39,VV[29]))goto T154;          V62= (V80);}
479          goto T146;          base[5]= VV[15];
480  T154:;          base[6]= car((V62));
481          if(!eql(V39,VV[30]))goto T155;          {register object V81;
482          goto T146;          register object V82;
483  T155:;}          V82= cdr((V62));
484  T146:;          V81= Cnil;
485          goto T145;          {register object V83;
486            register object V84;
487            register object V85;
488            V83= Cnil;
489            V84= Cnil;
490            V85= Cnil;
491    T226:;
492            if(((V82))==Cnil){
493            goto T229;}
494            goto T228;
495    T229:;
496            goto T227;
497    T228:;
498            {register object V86;
499            V86= car((V82));
500            V81= (V86);}
501            {object V87= (V81);
502            if(!eql(V87,VV[16]))goto T236;
503            V85= VV[9];
504            goto T235;
505    T236:;
506            if(!eql(V87,VV[17]))goto T237;
507            V85= VV[10];
508            goto T235;
509    T237:;
510            if(!eql(V87,VV[18]))goto T238;
511            V85= VV[12];
512            goto T235;
513    T238:;
514            if(!eql(V87,VV[19]))goto T239;
515            V85= VV[13];
516            goto T235;
517    T239:;
518            V85= Cnil;}
519    T235:;
520            if(((V84))==Cnil){
521            goto T242;}
522            {register object V88;
523            register object V89;
524            V88= (V84);
525            V84= make_cons((V85),Cnil);
526            V89= (V84);
527            if(type_of((V88))!=t_cons)FEwrong_type_argument(Scons,(V88));
528            ((V88))->c.c_cdr = (V89);
529            goto T240;}
530    T242:;
531            V84= make_cons((V85),Cnil);
532            V83= (V84);
533    T240:;
534            V82= cdr((V82));
535            goto T226;
536    T227:;
537            base[7]= (V83);
538            goto T223;
539            base[7]= Cnil;
540            goto T223;
541            base[7]= Cnil;
542            goto T223;}}
543    T223:;
544          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
545          Lerror();          Lerror();
546          vs_top=sup;          vs_top=sup;
547          goto T112;          V63= cdr((V63));
548  T159:;          goto T212;
549          base[5]= (V10);  T213:;
550          base[6]= (V9);          goto T145;
551            goto T145;}
552    T145:;
553            {register object V90;
554            register object V91;
555            base[5]= (V17);
556            base[6]= (V16);
557          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
558          L2(base);          L2(base);
559          vs_top=sup;          vs_top=sup;
560          base[5]= VV[31];          V91= vs_base[0];
561          base[6]= CMPcar((VV[23]->s.s_dbind));          V90= Cnil;
562  T172:;  T261:;
563          (void)(CMPcdr((VV[23]->s.s_dbind)));          if(((V91))==Cnil){
564          {object V40= (VV[26]->s.s_dbind);          goto T264;}
565          if(!eql(V40,VV[27]))goto T179;          goto T263;
566          goto T173;  T264:;
567  T179:;          goto T262;
568          if(!eql(V40,VV[28]))goto T180;  T263:;
569          goto T173;          {register object V92;
570  T180:;}          V92= car((V91));
571  T173:;          V90= (V92);}
572          goto T172;          base[5]= VV[20];
573            base[6]= car((V90));
574            {register object V93;
575            register object V94;
576            V94= cdr((V90));
577            V93= Cnil;
578            {register object V95;
579            register object V96;
580            register object V97;
581            V95= Cnil;
582            V96= Cnil;
583            V97= Cnil;
584    T275:;
585            if(((V94))==Cnil){
586            goto T278;}
587            goto T277;
588    T278:;
589            goto T276;
590    T277:;
591            {register object V98;
592            V98= car((V94));
593            V93= (V98);}
594            {object V99= (V93);
595            if(!eql(V99,VV[16]))goto T285;
596            V97= VV[11];
597            goto T284;
598    T285:;
599            if(!eql(V99,VV[17]))goto T286;
600            V97= VV[10];
601            goto T284;
602    T286:;
603            V97= Cnil;}
604    T284:;
605            if(((V96))==Cnil){
606            goto T289;}
607            {register object V100;
608            register object V101;
609            V100= (V96);
610            V96= make_cons((V97),Cnil);
611            V101= (V96);
612            if(type_of((V100))!=t_cons)FEwrong_type_argument(Scons,(V100));
613            ((V100))->c.c_cdr = (V101);
614            goto T287;}
615    T289:;
616            V96= make_cons((V97),Cnil);
617            V95= (V96);
618    T287:;
619            V94= cdr((V94));
620            goto T275;
621    T276:;
622            base[7]= (V95);
623            goto T272;
624            base[7]= Cnil;
625            goto T272;
626            base[7]= Cnil;
627            goto T272;}}
628    T272:;
629          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
630          Lerror();          Lerror();
631          vs_top=sup;          vs_top=sup;
632          goto T159;          V91= cdr((V91));
633          V41= list(2,VV[46],base[2]);          goto T261;
634          V42= list(3,VV[48],base[2],base[2]);  T262:;
635          if(((V5))==Cnil){          goto T144;
636          goto T185;}          goto T144;}
637          V44= list(4,VV[48],base[2],base[2],list(2,VV[49],(V5)));  T144:;
638          V43= make_cons(/* INLINE-ARGS */V44,Cnil);          V102= list(2,VV[26],base[2]);
639          goto T183;          V103= list(3,VV[28],base[2],base[2]);
640  T185:;          if(((V12))==Cnil){
641          V43= Cnil;          goto T306;}
642  T183:;          V105= list(4,VV[28],base[2],base[2],list(2,VV[29],(V12)));
643          base[5]= VV[50];          V104= make_cons(/* INLINE-ARGS */V105,Cnil);
644            goto T304;
645    T306:;
646            V104= Cnil;
647    T304:;
648            base[5]= VV[30];
649          base[6]= base[3];          base[6]= base[3];
650          base[7]= VV[10];          base[7]= VV[4];
651          base[8]= (VV[85]->s.s_gfdef);          base[8]= symbol_function(VV[63]);
652          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
653          Lmember();          Lmember();
654          vs_top=sup;          vs_top=sup;
655          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
656          goto T189;}          goto T310;}
657          V46= list(3,VV[51],list(2,VV[52],list(2,VV[46],base[2])),base[2]);          V107= list(3,VV[31],list(2,VV[32],list(2,VV[26],base[2])),base[2]);
658          V45= make_cons(/* INLINE-ARGS */V46,Cnil);          V106= make_cons(/* INLINE-ARGS */V107,Cnil);
659          goto T187;          goto T308;
660  T189:;  T310:;
661          V45= Cnil;          V106= Cnil;
662  T187:;  T308:;
663          V47= listA(3,VV[47],/* INLINE-ARGS */V42,append(V43,V45));          V108= listA(3,VV[27],/* INLINE-ARGS */V103,append(V104,V106));
664          V48= list(2,VV[49],(V5));          V109= list(2,VV[29],(V12));
665          if(((V7))==Cnil){          if(((V14))==Cnil){
666          goto T197;}          goto T318;}
667          V49= Cnil;          V110= Cnil;
668          goto T195;          goto T316;
669  T197:;  T318:;
670          V49= Cnil;          V110= Cnil;
671  T195:;  T316:;
672          V50= list(4,VV[45],/* INLINE-ARGS */V41,/* INLINE-ARGS */V47,listA(7,VV[53],base[2],VV[54],VV[55],VV[56],/* INLINE-ARGS */V48,V49));          V111= list(4,VV[25],/* INLINE-ARGS */V102,/* INLINE-ARGS */V108,listA(7,VV[33],base[2],VV[34],VV[35],VV[36],/* INLINE-ARGS */V109,V110));
673          if(((V6))==Cnil){          if(((V13))==Cnil){
674          goto T201;}          goto T322;}
675          base[5]= base[2];          base[5]= base[2];
676          base[6]= VV[59];          base[6]= VV[39];
677          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
678          Lintern();          Lintern();
679          vs_top=sup;          vs_top=sup;
680          V52= vs_base[0];          V113= vs_base[0];
681          V53= list(3,VV[57],list(3,VV[58],list(2,VV[49],V52),VV[60]),(V6));          V114= list(3,VV[37],list(3,VV[38],list(2,VV[29],V113),VV[40]),(V13));
682          V51= make_cons(/* INLINE-ARGS */V53,Cnil);          V112= make_cons(/* INLINE-ARGS */V114,Cnil);
683          goto T199;          goto T320;
684  T201:;  T322:;
685          V51= Cnil;          V112= Cnil;
686  T199:;  T320:;
687          V54= list(2,VV[62],list(2,VV[46],base[2]));          V115= list(2,VV[42],list(2,VV[26],base[2]));
688          V55= make_cons(/* INLINE-ARGS */V54,Cnil);          V116= make_cons(/* INLINE-ARGS */V115,Cnil);
689          if(((V8))==Cnil){          if(((V15))==Cnil){
690          goto T209;}          goto T330;}
691          V57= list(2,VV[63],list(3,VV[64],VV[65],list(2,VV[49],(V8))));          V118= list(2,VV[43],list(3,VV[44],VV[45],list(2,VV[29],(V15))));
692          base[5]= make_cons(/* INLINE-ARGS */V57,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V118,Cnil);
693          goto T207;          goto T328;
694  T209:;  T330:;
695          base[5]= Cnil;          base[5]= Cnil;
696  T207:;  T328:;
697          if(((V11))==Cnil){          if(((V18))==Cnil){
698          goto T213;}          goto T334;}
699          {object V58;          {object V119;
700          object V59= (V11);          object V120= (V18);
701          if(V59==Cnil){          if(endp(V120)){
702          base[6]= Cnil;          base[6]= Cnil;
703          goto T211;}          goto T332;}
704          base[7]=V58=MMcons(Cnil,Cnil);          base[7]=V119=MMcons(Cnil,Cnil);
705  T215:;  T336:;
706          V61= list(2,VV[67],list(3,VV[68],VV[69],list(3,VV[70],VV[71],CMPcar((V59->c.c_car)))));          V122= list(2,VV[47],list(3,VV[48],VV[49],list(3,VV[50],VV[51],car((V120->c.c_car)))));
707          (V58->c.c_car)= list(2,VV[66],list(3,VV[64],/* INLINE-ARGS */V61,list(2,VV[49],CMPcdr((V59->c.c_car)))));          (V119->c.c_car)= list(2,VV[46],list(3,VV[44],/* INLINE-ARGS */V122,list(2,VV[29],cdr((V120->c.c_car)))));
708          if((V59=MMcdr(V59))==Cnil){          if(endp(V120=MMcdr(V120))){
709          base[6]= base[7];          base[6]= base[7];
710          goto T211;}          goto T332;}
711          V58=MMcdr(V58)=MMcons(Cnil,Cnil);          V119=MMcdr(V119)=MMcons(Cnil,Cnil);
712          goto T215;}          goto T336;}
713  T213:;  T334:;
714          base[6]= Cnil;          base[6]= Cnil;
715  T211:;{object V63;  T332:;{object V124;
716          base[9]= VV[50];          base[9]= VV[30];
717          base[10]= base[3];          base[10]= base[3];
718          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
719          L5(base);          L5(base);
720          vs_top=sup;          vs_top=sup;
721          V66= vs_base[0];          V127= vs_base[0];
722          {object V64;          {object V125;
723          object V65= V66;          object V126= V127;
724          if(V65==Cnil){          if(endp(V126)){
725          V63= Cnil;          V124= Cnil;
726          goto T220;}          goto T341;}
727          base[8]=V64=MMcons(Cnil,Cnil);          base[8]=V125=MMcons(Cnil,Cnil);
728  T221:;  T342:;
729          (V64->c.c_car)= coerce_to_string((V65->c.c_car));          (V125->c.c_car)= coerce_to_string((V126->c.c_car));
730          if((V65=MMcdr(V65))==Cnil){          if(endp(V126=MMcdr(V126))){
731          V63= base[8];          V124= base[8];
732          goto T220;}          goto T341;}
733          V64=MMcdr(V64)=MMcons(Cnil,Cnil);          V125=MMcdr(V125)=MMcons(Cnil,Cnil);
734          goto T221;}          goto T342;}
735  T220:;  T341:;
736          if(V63==Cnil)goto T219;          if(V124==Cnil)goto T340;
737          V62= V63;          V123= V124;
738          goto T218;          goto T339;
739  T219:;}  T340:;}
740          V62= VV[73];          V123= VV[53];
741  T218:;  T339:;
742          V67= list(2,VV[72],list(2,VV[49],V62));          V128= list(2,VV[52],list(2,VV[29],V123));
743          if(((V12))==Cnil){          if(((V19))==Cnil){
744          goto T229;}          goto T350;}
745          {object V69;          {object V130;
746          object V70= (V12);          object V131= (V19);
747          if(V70==Cnil){          if(endp(V131)){
748          base[8]= Cnil;          base[8]= Cnil;
749          goto T227;}          goto T348;}
750          base[9]=V69=MMcons(Cnil,Cnil);          base[9]=V130=MMcons(Cnil,Cnil);
751  T231:;  T352:;
752          V72= list(2,VV[67],list(3,VV[68],VV[75],list(3,VV[70],VV[71],CMPcar((V70->c.c_car)))));          V133= list(2,VV[47],list(3,VV[48],VV[55],list(3,VV[50],VV[51],car((V131->c.c_car)))));
753          (V69->c.c_car)= list(2,VV[74],list(3,VV[64],/* INLINE-ARGS */V72,list(2,VV[49],CMPcdr((V70->c.c_car)))));          (V130->c.c_car)= list(2,VV[54],list(3,VV[44],/* INLINE-ARGS */V133,list(2,VV[29],cdr((V131->c.c_car)))));
754          if((V70=MMcdr(V70))==Cnil){          if(endp(V131=MMcdr(V131))){
755          base[8]= base[9];          base[8]= base[9];
756          goto T227;}          goto T348;}
757          V69=MMcdr(V69)=MMcons(Cnil,Cnil);          V130=MMcdr(V130)=MMcons(Cnil,Cnil);
758          goto T231;}          goto T352;}
759  T229:;  T350:;
760          base[8]= Cnil;          base[8]= Cnil;
761  T227:;  T348:;
762          if(((V9))==Cnil){          if(((V16))==Cnil){
763          goto T235;}          goto T356;}
764          V73= list(3,VV[64],VV[76],list(2,VV[49],(V9)));          V134= list(3,VV[44],VV[56],list(2,VV[29],(V16)));
765          base[9]= make_cons(/* INLINE-ARGS */V73,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V134,Cnil);
766          goto T233;          goto T354;
767  T235:;  T356:;
768          base[9]= Cnil;          base[9]= Cnil;
769  T233:;  T354:;
770          if(((V10))==Cnil){          if(((V17))==Cnil){
771          goto T239;}          goto T360;}
772          V74= list(2,VV[77],list(3,VV[64],VV[78],list(2,VV[49],(V10))));          V135= list(2,VV[57],list(3,VV[44],VV[58],list(2,VV[29],(V17))));
773          base[10]= make_cons(/* INLINE-ARGS */V74,Cnil);          base[10]= make_cons(/* INLINE-ARGS */V135,Cnil);
774          goto T237;          goto T358;
775  T239:;  T360:;
776          base[10]= Cnil;          base[10]= Cnil;
777  T237:;  T358:;
778          if(((V13))==Cnil){          if(((V20))==Cnil){
779          goto T243;}          goto T364;}
780          V75= list(3,VV[79],list(2,VV[80],list(2,VV[49],(V13))),VV[81]);          V136= list(3,VV[59],list(2,VV[60],list(2,VV[29],(V20))),VV[61]);
781          base[11]= make_cons(/* INLINE-ARGS */V75,Cnil);          base[11]= make_cons(/* INLINE-ARGS */V136,Cnil);
782          goto T241;          goto T362;
783  T243:;  T364:;
784          base[11]= Cnil;          base[11]= Cnil;
785  T241:;  T362:;
786          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
787          Lappend();          Lappend();
788          vs_top=sup;          vs_top=sup;
789          V68= vs_base[0];          V129= vs_base[0];
790          base[7]= make_cons(/* INLINE-ARGS */V67,V68);          base[7]= make_cons(/* INLINE-ARGS */V128,V129);
791          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
792          Lappend();          Lappend();
793          vs_top=sup;          vs_top=sup;
794          V56= vs_base[0];          V117= vs_base[0];
795          V76= listA(3,VV[61],/* INLINE-ARGS */V55,V56);          V137= listA(3,VV[41],/* INLINE-ARGS */V116,V117);
796          V77= list(2,/* INLINE-ARGS */V76,list(2,VV[46],base[2]));          V138= list(2,/* INLINE-ARGS */V137,list(2,VV[26],base[2]));
797          base[5]= listA(4,VV[43],VV[44],/* INLINE-ARGS */V50,append(V51,/* INLINE-ARGS */V77));          base[5]= listA(4,VV[23],VV[24],/* INLINE-ARGS */V111,append(V112,/* INLINE-ARGS */V138));
798          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
799          return;}          return;}
800  }  }
# Line 452  static L2(base0) Line 804  static L2(base0)
804  register object *base0;  register object *base0;
805  {       register object *base=vs_base;  {       register object *base=vs_base;
806          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
807          vs_check;          vs_reserve(VM2);
808          {object V78;          {object V139;
809          vs_top[0]=Cnil;          vs_top[0]=Cnil;
810          {object *p=vs_top;          {object *p=vs_top;
811           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
812          V78=(base[0]);          V139=(base[0]);
813          vs_top=sup;          vs_top=sup;
814          {object V79;          {object V140;
815          V79= Cnil;          V140= Cnil;
816  T247:;          {object V141;
817          (void)(CMPcdr((V78)));          object V142;
818  T263:;          V141= Cnil;
819          base[1]= (VV[36]->s.s_dbind);          V142= (V139);
820          base[2]= (V79);          {object V143;
821          base[3]= VV[10];          V143= cdr((V139));
822          base[4]= (VV[85]->s.s_gfdef);          {register int V144;
823          base[5]= VV[40];          V144= 1;
824          base[6]= (VV[88]->s.s_gfdef);  T370:;
825          vs_top=(vs_base=base+1)+6;          if(((V143))==Cnil){
826          (void) (*Lnk89)();          goto T373;}
827          vs_top=sup;          goto T372;
828          {register object x= (VV[34]->s.s_dbind),V80= (VV[38]->s.s_dbind);  T373:;
829          while(V80!=Cnil)          goto T371;
830          if(eql(x,V80->c.c_car)){  T372:;
831          goto T280;          if(((V142))==Cnil){
832          }else V80=V80->c.c_cdr;}          goto T376;}
833  T280:;          goto T375;
834  T283:;  T376:;
835          (void)(one_plus((VV[34]->s.s_dbind)));          goto T371;
836          base[1]= (VV[36]->s.s_dbind);  T375:;
837          base[2]= (VV[41]->s.s_dbind);          {object V145;
838          base[3]= VV[40];          V145= car((V142));
839          base[4]= (VV[88]->s.s_gfdef);          V141= (V145);}
840            {register object V146;
841            register object V147;
842            V146= Cnil;
843            V147= (V141);
844            {register object V148;
845            V148= Cnil;
846    T383:;
847            if(((V147))==Cnil){
848            goto T386;}
849            goto T385;
850    T386:;
851            goto T384;
852    T385:;
853            {object V149;
854            V149= car((V147));
855            V146= (V149);}
856            {object V150;
857            V151= symbol_function(VV[63]);
858            V152= symbol_function(VV[66]);
859            V150= (VFUN_NARGS=6,(*(LnkLI65))((V146),(V140),VV[4],V151,VV[21],V152));
860            V148= (V150);}
861            V154 = make_fixnum(V144);
862            {register object x= V154,V153= (V148);
863            while(!endp(V153))
864            if(eql(x,V153->c.c_car)){
865            goto T396;
866            }else V153=V153->c.c_cdr;}
867            {object V155;
868            register object V156;
869            V155= Cnil;
870            V156= (V143);
871            {register int V157;
872            {object V158;
873            V159 = make_fixnum(V144);
874            V158= one_plus(V159);{object V160;
875            V160= (type_of((V158))==t_fixnum?Ct:Cnil);
876            if(V160==Cnil)goto T402;
877            goto T401;
878    T402:;}
879            (void)((*(LnkLI67))());
880    T401:;
881            V157= fix((V158));}
882    T405:;
883            if(((V156))==Cnil){
884            goto T408;}
885            goto T407;
886    T408:;
887            goto T406;
888    T407:;
889            {object V161;
890            V161= car((V156));
891            V155= (V161);}
892            base[1]= (V146);
893            base[2]= (V155);
894            base[3]= VV[21];
895            base[4]= symbol_function(VV[66]);
896          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
897          Lmember();          Lmember();
898          vs_top=sup;          vs_top=sup;
899          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
900          goto T284;}          goto T413;}
901          if(((VV[38]->s.s_dbind))==Cnil){          if(((V148))==Cnil){
902          goto T301;}{object V81;          goto T421;}
903          V81= (VV[38]->s.s_dbind);          V162 = make_fixnum(V157);
904          V82= make_cons((VV[42]->s.s_dbind),Cnil);          V163= make_cons(V162,Cnil);
905          (void)(nconc(V81,/* INLINE-ARGS */V82));          (void)(nconc((V148),/* INLINE-ARGS */V163));
906          goto T284;}          goto T413;
907  T301:;  T421:;
908          V83= list(3,(VV[36]->s.s_dbind),(VV[34]->s.s_dbind),(VV[42]->s.s_dbind));          V164 = make_fixnum(V144);
909          V79= make_cons(/* INLINE-ARGS */V83,(V79));          V165 = make_fixnum(V157);
910          (VV[38]->s.s_dbind)= CMPcar((V79));          V166= list(3,(V146),V164,V165);
911  T284:;          V140= make_cons(/* INLINE-ARGS */V166,(V140));
912          goto T283;          V148= car((V140));
913          goto T263;  T413:;
914          goto T247;          V156= cdr((V156));
915          base[1]= (V79);          if(!((V157)<(2147483646))){
916            goto T428;}
917            goto T427;
918    T428:;
919            (void)((*(LnkLI67))());
920    T427:;
921            V157= (V157)+(1);
922            goto T405;
923    T406:;
924            goto T396;
925            goto T396;}}
926    T396:;
927            V147= cdr((V147));
928            goto T383;
929    T384:;
930            goto T381;
931            goto T381;}}
932    T381:;
933            V142= cdr((V142));
934            V143= cdr((V143));
935            if(!((V144)<(2147483646))){
936            goto T441;}
937            goto T440;
938    T441:;
939            (void)((*(LnkLI67))());
940    T440:;
941            V144= (V144)+(1);
942            goto T370;
943    T371:;
944            goto T366;
945            goto T366;}}}
946    T366:;
947            base[1]= (V140);
948          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
949          return;}          return;}
950          }          }
# Line 515  static LC3(base0) Line 955  static LC3(base0)
955  register object *base0;  register object *base0;
956  {       register object *base=vs_base;  {       register object *base=vs_base;
957          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
958          vs_check;          vs_reserve(VM3);
959          {object V84;          {object V167;
960          object V85;          object V168;
961          V84=(base[0]);          check_arg(2);
962          V85=(base[1]);          V167=(base[0]);
963          vs_top=sup;          V168=(base[1]);
964          if(!(type_of((V85))==t_cons)){          vs_top=sup;
965          goto T309;}          if(!(type_of((V168))==t_cons)){
966          base[2]= (equal(CMPcar((V85)),(V84))?Ct:Cnil);          goto T447;}
967            base[2]= (equal(car((V168)),(V167))?Ct:Cnil);
968          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
969          return;          return;
970  T309:;  T447:;
971          base[2]= Cnil;          base[2]= Cnil;
972          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
973          return;          return;
# Line 538  static L5(base0) Line 979  static L5(base0)
979  register object *base0;  register object *base0;
980  {       register object *base=vs_base;  {       register object *base=vs_base;
981          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
982          vs_check;          vs_reserve(VM4);
983          {register object V86;          {object V169;
984          object V87;          object V170;
985          V86=(base[0]);          check_arg(2);
986          V87=(base[1]);          V169=(base[0]);
987            V170=(base[1]);
988          vs_top=sup;          vs_top=sup;
989  TTL:;  TTL:;
990  T312:;          {register object V171;
991          base[2]= (V86);          V171= Cnil;
992          base[3]= (V87);          {object V172;
993          base[4]= VV[40];          register object V173;
994            register object V174;
995            V172= Cnil;
996            V173= Cnil;
997            V174= Cnil;
998            {object V175;
999            base[2]= (V169);
1000            base[3]= (V170);
1001            base[4]= VV[21];
1002          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1003          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1004          Lmember();          Lmember();
1005          vs_top=sup;          vs_top=sup;
1006          base[2]= (V86);          V175= vs_base[0];
1007          base[3]= CMPcdr((VV[82]->s.s_dbind));          V171= (V175);}
1008          base[4]= VV[40];  T450:;
1009            if(((V171))==Cnil){
1010            goto T459;}
1011            goto T458;
1012    T459:;
1013            goto T451;
1014    T458:;
1015            if(((V171))==Cnil){
1016            goto T461;}
1017            base[2]= cdr(car((V171)));
1018            vs_top=(vs_base=base+2)+1;
1019            Lcopy_list();
1020            vs_top=sup;
1021            V174= vs_base[0];
1022            if(((V173))==Cnil){
1023            goto T468;}
1024            {register object V176;
1025            register object V177;
1026            V176= (V173);
1027            V177= (V174);
1028            if(type_of((V176))!=t_cons)FEwrong_type_argument(Scons,(V176));
1029            ((V176))->c.c_cdr = (V177);
1030            if(((V177))!=Cnil){
1031            goto T470;}}
1032            goto T461;
1033    T470:;
1034            base[2]= cdr((V173));
1035            vs_top=(vs_base=base+2)+1;
1036            Llast();
1037            vs_top=sup;
1038            V173= vs_base[0];
1039            goto T461;
1040    T468:;
1041            V172= (V174);
1042            base[2]= (V172);
1043            vs_top=(vs_base=base+2)+1;
1044            Llast();
1045            vs_top=sup;
1046            V173= vs_base[0];
1047    T461:;
1048            {register object V178;
1049            base[2]= (V169);
1050            base[3]= cdr((V171));
1051            base[4]= VV[21];
1052          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1053          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1054          Lmember();          Lmember();
1055          vs_top=sup;          vs_top=sup;
1056          (void)(((VV[82]->s.s_dbind))==Cnil);          V178= vs_base[0];
1057          (void)(CMPcdr(CMPcar((VV[82]->s.s_dbind))));          V171= (V178);}
1058          goto T312;          goto T450;
1059    T451:;
1060            base[2]= (V172);
1061            vs_top=(vs_base=base+2)+1;
1062            return;
1063            base[2]= Cnil;
1064            vs_top=(vs_base=base+2)+1;
1065            return;
1066            base[2]= Cnil;
1067            vs_top=(vs_base=base+2)+1;
1068            return;}}
1069          }          }
1070  }  }
1071  /*      local function OPTION-VALUES-LIST       */  /*      local function OPTION-VALUES-LIST       */
# Line 571  static L4(base0) Line 1074  static L4(base0)
1074  register object *base0;  register object *base0;
1075  {       register object *base=vs_base;  {       register object *base=vs_base;
1076          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
1077          vs_check;          vs_reserve(VM5);
1078          {register object V88;          {object V179;
1079          object V89;          object V180;
1080          V88=(base[0]);          check_arg(2);
1081          V89=(base[1]);          V179=(base[0]);
1082            V180=(base[1]);
1083          vs_top=sup;          vs_top=sup;
1084  TTL:;  TTL:;
1085  T335:;          {register object V181;
1086          base[2]= (V88);          V181= Cnil;
1087          base[3]= (V89);          {object V182;
1088          base[4]= VV[40];          register object V183;
1089            register object V184;
1090            V182= Cnil;
1091            V183= Cnil;
1092            V184= Cnil;
1093            {object V185;
1094            base[2]= (V179);
1095            base[3]= (V180);
1096            base[4]= VV[21];
1097          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1098          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1099          Lmember();          Lmember();
1100          vs_top=sup;          vs_top=sup;
1101          base[2]= (V88);          V185= vs_base[0];
1102          base[3]= CMPcdr((VV[82]->s.s_dbind));          V181= (V185);}
1103          base[4]= VV[40];  T490:;
1104            if(((V181))==Cnil){
1105            goto T499;}
1106            goto T498;
1107    T499:;
1108            goto T491;
1109    T498:;
1110            if(((V181))==Cnil){
1111            goto T501;}
1112            V184= cdr(car((V181)));
1113            if(((V183))==Cnil){
1114            goto T507;}
1115            {register object V186;
1116            register object V187;
1117            V186= (V183);
1118            V183= make_cons((V184),Cnil);
1119            V187= (V183);
1120            if(type_of((V186))!=t_cons)FEwrong_type_argument(Scons,(V186));
1121            ((V186))->c.c_cdr = (V187);
1122            goto T501;}
1123    T507:;
1124            V183= make_cons((V184),Cnil);
1125            V182= (V183);
1126    T501:;
1127            {register object V188;
1128            base[2]= (V179);
1129            base[3]= cdr((V181));
1130            base[4]= VV[21];
1131          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1132          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1133          Lmember();          Lmember();
1134          vs_top=sup;          vs_top=sup;
1135          (void)(((VV[82]->s.s_dbind))==Cnil);          V188= vs_base[0];
1136          (void)(CMPcdr(CMPcar((VV[82]->s.s_dbind))));          V181= (V188);}
1137          goto T335;          goto T490;
1138    T491:;
1139            base[2]= (V182);
1140            vs_top=(vs_base=base+2)+1;
1141            return;
1142            base[2]= Cnil;
1143            vs_top=(vs_base=base+2)+1;
1144            return;
1145            base[2]= Cnil;
1146            vs_top=(vs_base=base+2)+1;
1147            return;}}
1148          }          }
1149  }  }
1150  static LnkT89(){ call_or_link(VV[89],&Lnk89);} /* FIND */  static object  LnkTLI67(){return call_proc0(VV[67],&LnkLI67);} /* TYPE-ERROR */
1151  static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* WARN */  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[65],&LnkLI65,ap);} /* FIND */
1152  static LnkT86(){ call_or_link(VV[86],&Lnk86);} /* COUNT */  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],&LnkLI64,ap);} /* WARN */
1153  static LnkT3(){ call_or_link(VV[3],&Lnk3);} /* OPTION */  static object  LnkTLI62(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[62],&LnkLI62,ap);} /* COUNT */
1154    
1155    #ifdef SYSTEM_SPECIAL_INIT
1156    SYSTEM_SPECIAL_INIT
1157    #endif
1158    

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

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