/[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.9 by camm, Mon Oct 14 05:24:43 2002 UTC revision 1.10 by camm, Tue Oct 15 14:51:51 2002 UTC
# Line 72  T24:; Line 72  T24:;
72          {register object V8;          {register object V8;
73          V8= car((V7));          V8= car((V7));
74          V6= (V8);}          V6= (V8);}
75          V9= symbol_function(VV[63]);          V9= symbol_function(VV[64]);
76          V10= (VFUN_NARGS=4,(*(LnkLI62))((V6),base[3],VV[4],V9));          V10= (VFUN_NARGS=4,(*(LnkLI63))((V6),base[3],VV[4],V9));
77          if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){          if(!(number_compare(small_fixnum(2),/* INLINE-ARGS */V10)<=0)){
78          goto T30;}          goto T30;}
79          base[5]= (V6);          base[5]= VV[5];
80          base[6]= base[3];          base[6]= VV[6];
81          vs_top=(vs_base=base+5)+2;          base[7]= (V6);
82          L5(base);          vs_top=(vs_base=base+5)+3;
83            (void) (*Lnk65)();
84          vs_top=sup;          vs_top=sup;
         V11= vs_base[0];  
         (void)((VFUN_NARGS=3,(*(LnkLI64))(VV[5],(V6),car(V11))));  
85  goto T30;  goto T30;
86  T30:;  T30:;
87          V7= cdr((V7));          V7= cdr((V7));
# Line 94  T23:; Line 93  T23:;
93  goto T20;  goto T20;
94  T20:;  T20:;
95          base[2]= coerce_to_string(base[2]);          base[2]= coerce_to_string(base[2]);
96          {object V12;          {object V11;
97            object V12;
98          object V13;          object V13;
99          object V14;          object V14;
100          object V15;          register object V15;
101          register object V16;          object V16;
102          object V17;          object V17;
103          object V18;          object V18;
104          object V19;          object V19;
105          object V20;          base[6]= VV[7];
         base[6]= VV[6];  
106          base[7]= base[3];          base[7]= base[3];
107          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
108          L5(base);          L5(base);
109          vs_top=sup;          vs_top=sup;
110          V23= vs_base[0];          V22= vs_base[0];
111          {object V21;          {object V20;
112          object V22= V23;          object V21= V22;
113          if(endp(V22)){          if(endp(V21)){
114          V12= Cnil;          V11= Cnil;
115          goto T42;}          goto T42;}
116          base[5]=V21=MMcons(Cnil,Cnil);          base[5]=V20=MMcons(Cnil,Cnil);
117  goto T43;  goto T43;
118  T43:;  T43:;
119          (V21->c.c_car)= coerce_to_string((V22->c.c_car));          (V20->c.c_car)= coerce_to_string((V21->c.c_car));
120          V22=MMcdr(V22);          V21=MMcdr(V21);
121          if(endp(V22)){          if(endp(V21)){
122          V12= base[5];          V11= base[5];
123          goto T42;}          goto T42;}
124          V21=MMcdr(V21)=MMcons(Cnil,Cnil);          V20=MMcdr(V20)=MMcons(Cnil,Cnil);
125          goto T43;}          goto T43;}
126  goto T42;  goto T42;
127  T42:;  T42:;
128          base[5]= VV[7];          base[5]= VV[8];
129          base[6]= base[3];          base[6]= base[3];
130          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
131          L5(base);          L5(base);
132          vs_top=sup;          vs_top=sup;
133          V24= vs_base[0];          V23= vs_base[0];
134          V13= car(V24);          V12= car(V23);
135          base[5]= VV[8];          base[5]= VV[9];
136          base[6]= base[3];          base[6]= base[3];
137          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
138          L5(base);          L5(base);
139          vs_top=sup;          vs_top=sup;
140          V25= vs_base[0];          V24= vs_base[0];
141          V14= car(V25);          V13= car(V24);
142          base[6]= VV[9];          base[6]= VV[10];
143          base[7]= base[3];          base[7]= base[3];
144          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
145          L5(base);          L5(base);
146          vs_top=sup;          vs_top=sup;
147          V28= vs_base[0];          V27= vs_base[0];
148          {object V26;          {object V25;
149          object V27= V28;          object V26= V27;
150          if(endp(V27)){          if(endp(V26)){
151          V15= Cnil;          V14= Cnil;
152          goto T56;}          goto T56;}
153          base[5]=V26=MMcons(Cnil,Cnil);          base[5]=V25=MMcons(Cnil,Cnil);
154  goto T57;  goto T57;
155  T57:;  T57:;
156          (V26->c.c_car)= coerce_to_string((V27->c.c_car));          (V25->c.c_car)= coerce_to_string((V26->c.c_car));
157          V27=MMcdr(V27);          V26=MMcdr(V26);
158          if(endp(V27)){          if(endp(V26)){
159          V15= base[5];          V14= base[5];
160          goto T56;}          goto T56;}
161          V26=MMcdr(V26)=MMcons(Cnil,Cnil);          V25=MMcdr(V25)=MMcons(Cnil,Cnil);
162          goto T57;}          goto T57;}
163  goto T56;  goto T56;
164  T56:;  T56:;
165          base[6]= VV[10];          base[6]= VV[11];
166          base[7]= base[3];          base[7]= base[3];
167          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
168          L5(base);          L5(base);
169          vs_top=sup;          vs_top=sup;
170          V31= vs_base[0];          V30= vs_base[0];
171          {object V29;          {object V28;
172          object V30= V31;          object V29= V30;
173          if(endp(V30)){          if(endp(V29)){
174          V16= Cnil;          V15= Cnil;
175          goto T62;}          goto T62;}
176          base[5]=V29=MMcons(Cnil,Cnil);          base[5]=V28=MMcons(Cnil,Cnil);
177  goto T63;  goto T63;
178  T63:;  T63:;
179          (V29->c.c_car)= coerce_to_string((V30->c.c_car));          (V28->c.c_car)= coerce_to_string((V29->c.c_car));
180          V30=MMcdr(V30);          V29=MMcdr(V29);
181          if(endp(V30)){          if(endp(V29)){
182          V16= base[5];          V15= base[5];
183          goto T62;}          goto T62;}
184          V29=MMcdr(V29)=MMcons(Cnil,Cnil);          V28=MMcdr(V28)=MMcons(Cnil,Cnil);
185          goto T63;}          goto T63;}
186  goto T62;  goto T62;
187  T62:;  T62:;
188          base[6]= VV[11];          base[6]= VV[12];
189          base[7]= base[3];          base[7]= base[3];
190          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
191          L5(base);          L5(base);
192          vs_top=sup;          vs_top=sup;
193          V34= vs_base[0];          V33= vs_base[0];
194          {object V32;          {object V31;
195          object V33= V34;          object V32= V33;
196          if(endp(V33)){          if(endp(V32)){
197          V17= Cnil;          V16= Cnil;
198          goto T68;}          goto T68;}
199          base[5]=V32=MMcons(Cnil,Cnil);          base[5]=V31=MMcons(Cnil,Cnil);
200  goto T69;  goto T69;
201  T69:;  T69:;
202          (V32->c.c_car)= coerce_to_string((V33->c.c_car));          (V31->c.c_car)= coerce_to_string((V32->c.c_car));
203          V33=MMcdr(V33);          V32=MMcdr(V32);
204          if(endp(V33)){          if(endp(V32)){
205          V17= base[5];          V16= base[5];
206          goto T68;}          goto T68;}
207          V32=MMcdr(V32)=MMcons(Cnil,Cnil);          V31=MMcdr(V31)=MMcons(Cnil,Cnil);
208          goto T69;}          goto T69;}
209  goto T68;  goto T68;
210  T68:;  T68:;
211          {register object V35;          {register object V34;
212          register object V36;          register object V35;
213          base[5]= VV[12];          base[5]= VV[13];
214          base[6]= base[3];          base[6]= base[3];
215          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
216          L4(base);          L4(base);
217          vs_top=sup;          vs_top=sup;
218          V36= vs_base[0];          V35= vs_base[0];
219          V35= Cnil;          V34= Cnil;
220          {register object V37;          {register object V36;
221            register object V37;
222          register object V38;          register object V38;
223          register object V39;          V36= Cnil;
224          V37= Cnil;          V37= Cnil;
225          V38= Cnil;          V38= Cnil;
         V39= Cnil;  
226  goto T79;  goto T79;
227  T79:;  T79:;
228          if(((V36))==Cnil){          if(((V35))==Cnil){
229          goto T82;}          goto T82;}
230          goto T81;          goto T81;
231  goto T82;  goto T82;
# Line 234  T82:; Line 233  T82:;
233          goto T80;          goto T80;
234  goto T81;  goto T81;
235  T81:;  T81:;
236          {register object V40;          {register object V39;
237          V40= car((V36));          V39= car((V35));
238          V35= (V40);}          V34= (V39);}
239          V41= coerce_to_string(car((V35)));          V40= coerce_to_string(car((V34)));
240          {object V43;          {object V42;
241          object V44= cdr((V35));          object V43= cdr((V34));
242          if(endp(V44)){          if(endp(V43)){
243          V42= Cnil;          V41= Cnil;
244          goto T89;}          goto T89;}
245          base[5]=V43=MMcons(Cnil,Cnil);          base[5]=V42=MMcons(Cnil,Cnil);
246  goto T90;  goto T90;
247  T90:;  T90:;
248          (V43->c.c_car)= coerce_to_string((V44->c.c_car));          (V42->c.c_car)= coerce_to_string((V43->c.c_car));
249          V44=MMcdr(V44);          V43=MMcdr(V43);
250          if(endp(V44)){          if(endp(V43)){
251          V42= base[5];          V41= base[5];
252          goto T89;}          goto T89;}
253          V43=MMcdr(V43)=MMcons(Cnil,Cnil);          V42=MMcdr(V42)=MMcons(Cnil,Cnil);
254          goto T90;}          goto T90;}
255  goto T89;  goto T89;
256  T89:;  T89:;
257          V39= make_cons(/* INLINE-ARGS */V41,V42);          V38= make_cons(/* INLINE-ARGS */V40,V41);
258          if(((V38))==Cnil){          if(((V37))==Cnil){
259          goto T94;}          goto T94;}
260          {register object V45;          {register object V44;
261          register object V46;          register object V45;
262          V45= (V38);          V44= (V37);
263          V38= make_cons((V39),Cnil);          V37= make_cons((V38),Cnil);
264          V46= (V38);          V45= (V37);
265          if(type_of((V45))!=t_cons)FEwrong_type_argument(Scons,(V45));          if(type_of((V44))!=t_cons)FEwrong_type_argument(Scons,(V44));
266          ((V45))->c.c_cdr = (V46);          ((V44))->c.c_cdr = (V45);
267          goto T92;}          goto T92;}
268  goto T94;  goto T94;
269  T94:;  T94:;
270          V38= make_cons((V39),Cnil);          V37= make_cons((V38),Cnil);
271          V37= (V38);          V36= (V37);
272  goto T92;  goto T92;
273  T92:;  T92:;
274          V36= cdr((V36));          V35= cdr((V35));
275          goto T79;          goto T79;
276  goto T80;  goto T80;
277  T80:;  T80:;
278          V18= (V37);          V17= (V36);
279          goto T74;          goto T74;
280          V18= Cnil;          V17= Cnil;
281          goto T74;          goto T74;
282          V18= Cnil;          V17= Cnil;
283          goto T74;}}          goto T74;}}
284  goto T74;  goto T74;
285  T74:;  T74:;
286          {register object V47;          {register object V46;
287          register object V48;          register object V47;
288          base[5]= VV[13];          base[5]= VV[14];
289          base[6]= base[3];          base[6]= base[3];
290          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
291          L4(base);          L4(base);
292          vs_top=sup;          vs_top=sup;
293          V48= vs_base[0];          V47= vs_base[0];
294          V47= Cnil;          V46= Cnil;
295          {register object V49;          {register object V48;
296            register object V49;
297          register object V50;          register object V50;
298          register object V51;          V48= Cnil;
299          V49= Cnil;          V49= Cnil;
300          V50= Cnil;          V50= Cnil;
         V51= Cnil;  
301  goto T111;  goto T111;
302  T111:;  T111:;
303          if(((V48))==Cnil){          if(((V47))==Cnil){
304          goto T114;}          goto T114;}
305          goto T113;          goto T113;
306  goto T114;  goto T114;
# Line 309  T114:; Line 308  T114:;
308          goto T112;          goto T112;
309  goto T113;  goto T113;
310  T113:;  T113:;
311          {register object V52;          {register object V51;
312          V52= car((V48));          V51= car((V47));
313          V47= (V52);}          V46= (V51);}
314          V53= coerce_to_string(car((V47)));          V52= coerce_to_string(car((V46)));
315          {object V55;          {object V54;
316          object V56= cdr((V47));          object V55= cdr((V46));
317          if(endp(V56)){          if(endp(V55)){
318          V54= Cnil;          V53= Cnil;
319          goto T121;}          goto T121;}
320          base[5]=V55=MMcons(Cnil,Cnil);          base[5]=V54=MMcons(Cnil,Cnil);
321  goto T122;  goto T122;
322  T122:;  T122:;
323          (V55->c.c_car)= coerce_to_string((V56->c.c_car));          (V54->c.c_car)= coerce_to_string((V55->c.c_car));
324          V56=MMcdr(V56);          V55=MMcdr(V55);
325          if(endp(V56)){          if(endp(V55)){
326          V54= base[5];          V53= base[5];
327          goto T121;}          goto T121;}
328          V55=MMcdr(V55)=MMcons(Cnil,Cnil);          V54=MMcdr(V54)=MMcons(Cnil,Cnil);
329          goto T122;}          goto T122;}
330  goto T121;  goto T121;
331  T121:;  T121:;
332          V51= make_cons(/* INLINE-ARGS */V53,V54);          V50= make_cons(/* INLINE-ARGS */V52,V53);
333          if(((V50))==Cnil){          if(((V49))==Cnil){
334          goto T126;}          goto T126;}
335          {register object V57;          {register object V56;
336          register object V58;          register object V57;
337          V57= (V50);          V56= (V49);
338          V50= make_cons((V51),Cnil);          V49= make_cons((V50),Cnil);
339          V58= (V50);          V57= (V49);
340          if(type_of((V57))!=t_cons)FEwrong_type_argument(Scons,(V57));          if(type_of((V56))!=t_cons)FEwrong_type_argument(Scons,(V56));
341          ((V57))->c.c_cdr = (V58);          ((V56))->c.c_cdr = (V57);
342          goto T124;}          goto T124;}
343  goto T126;  goto T126;
344  T126:;  T126:;
345          V50= make_cons((V51),Cnil);          V49= make_cons((V50),Cnil);
346          V49= (V50);          V48= (V49);
347  goto T124;  goto T124;
348  T124:;  T124:;
349          V48= cdr((V48));          V47= cdr((V47));
350          goto T111;          goto T111;
351  goto T112;  goto T112;
352  T112:;  T112:;
353          V19= (V49);          V18= (V48);
354          goto T106;          goto T106;
355          V19= Cnil;          V18= Cnil;
356          goto T106;          goto T106;
357          V19= Cnil;          V18= Cnil;
358          goto T106;}}          goto T106;}}
359  goto T106;  goto T106;
360  T106:;  T106:;
361          base[6]= VV[14];          base[6]= VV[15];
362          base[7]= base[3];          base[7]= base[3];
363          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
364          L5(base);          L5(base);
365          vs_top=sup;          vs_top=sup;
366          V61= vs_base[0];          V60= vs_base[0];
367          {object V59;          {object V58;
368          object V60= V61;          object V59= V60;
369          if(endp(V60)){          if(endp(V59)){
370          V20= Cnil;          V19= Cnil;
371          goto T138;}          goto T138;}
372          base[5]=V59=MMcons(Cnil,Cnil);          base[5]=V58=MMcons(Cnil,Cnil);
373  goto T139;  goto T139;
374  T139:;  T139:;
375          (V59->c.c_car)= coerce_to_string((V60->c.c_car));          (V58->c.c_car)= coerce_to_string((V59->c.c_car));
376          V60=MMcdr(V60);          V59=MMcdr(V59);
377          if(endp(V60)){          if(endp(V59)){
378          V20= base[5];          V19= base[5];
379          goto T138;}          goto T138;}
380          V59=MMcdr(V59)=MMcons(Cnil,Cnil);          V58=MMcdr(V58)=MMcons(Cnil,Cnil);
381          goto T139;}          goto T139;}
382  goto T138;  goto T138;
383  T138:;  T138:;
384          {register object V62;          {register object V61;
385          register object V63;          register object V62;
386          base[5]= (V15);          base[5]= (V14);
387          base[6]= (V16);          base[6]= (V15);
388          {register object V64;          {register object V63;
389          register object V65;          register object V64;
390          V64= Cnil;          V63= Cnil;
391          V65= (V18);          V64= (V17);
392          {register object V66;          {register object V65;
393            register object V66;
394          register object V67;          register object V67;
395          register object V68;          V65= Cnil;
396          V66= Cnil;          V66= Cnil;
397          V67= Cnil;          V67= Cnil;
         V68= Cnil;  
398  goto T151;  goto T151;
399  T151:;  T151:;
400          if(((V65))==Cnil){          if(((V64))==Cnil){
401          goto T154;}          goto T154;}
402          goto T153;          goto T153;
403  goto T154;  goto T154;
# Line 406  T154:; Line 405  T154:;
405          goto T152;          goto T152;
406  goto T153;  goto T153;
407  T153:;  T153:;
408          {register object V69;          {register object V68;
409          V69= car((V65));          V68= car((V64));
410          V64= (V69);}          V63= (V68);}
411          base[8]= cdr((V64));          base[8]= cdr((V63));
412          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
413          Lcopy_list();          Lcopy_list();
414          vs_top=sup;          vs_top=sup;
415          V68= vs_base[0];          V67= vs_base[0];
416          if(((V67))==Cnil){          if(((V66))==Cnil){
417          goto T164;}          goto T164;}
418          {register object V70;          {register object V69;
419          register object V71;          register object V70;
420            V69= (V66);
421          V70= (V67);          V70= (V67);
422          V71= (V68);          if(type_of((V69))!=t_cons)FEwrong_type_argument(Scons,(V69));
423          if(type_of((V70))!=t_cons)FEwrong_type_argument(Scons,(V70));          ((V69))->c.c_cdr = (V70);
424          ((V70))->c.c_cdr = (V71);          if(((V70))!=Cnil){
         if(((V71))!=Cnil){  
425          goto T166;}}          goto T166;}}
426          goto T162;          goto T162;
427  goto T166;  goto T166;
428  T166:;  T166:;
429          base[8]= cdr((V67));          base[8]= cdr((V66));
430          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
431          Llast();          Llast();
432          vs_top=sup;          vs_top=sup;
433          V67= vs_base[0];          V66= vs_base[0];
434          goto T162;          goto T162;
435  goto T164;  goto T164;
436  T164:;  T164:;
437          V66= (V68);          V65= (V67);
438          base[8]= (V66);          base[8]= (V65);
439          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
440          Llast();          Llast();
441          vs_top=sup;          vs_top=sup;
442          V67= vs_base[0];          V66= vs_base[0];
443  goto T162;  goto T162;
444  T162:;  T162:;
445          V65= cdr((V65));          V64= cdr((V64));
446          goto T151;          goto T151;
447  goto T152;  goto T152;
448  T152:;  T152:;
449          base[7]= (V66);          base[7]= (V65);
450          goto T149;          goto T149;
451          base[7]= Cnil;          base[7]= Cnil;
452          goto T149;          goto T149;
# Line 455  T152:; Line 454  T152:;
454          goto T149;}}          goto T149;}}
455  goto T149;  goto T149;
456  T149:;  T149:;
457          {register object V72;          {register object V71;
458          register object V73;          register object V72;
459          V72= Cnil;          V71= Cnil;
460          V73= (V19);          V72= (V18);
461          {register object V74;          {register object V73;
462            register object V74;
463          register object V75;          register object V75;
464          register object V76;          V73= Cnil;
465          V74= Cnil;          V74= Cnil;
466          V75= Cnil;          V75= Cnil;
         V76= Cnil;  
467  goto T182;  goto T182;
468  T182:;  T182:;
469          if(((V73))==Cnil){          if(((V72))==Cnil){
470          goto T185;}          goto T185;}
471          goto T184;          goto T184;
472  goto T185;  goto T185;
# Line 475  T185:; Line 474  T185:;
474          goto T183;          goto T183;
475  goto T184;  goto T184;
476  T184:;  T184:;
477          {register object V77;          {register object V76;
478          V77= car((V73));          V76= car((V72));
479          V72= (V77);}          V71= (V76);}
480          base[9]= cdr((V72));          base[9]= cdr((V71));
481          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
482          Lcopy_list();          Lcopy_list();
483          vs_top=sup;          vs_top=sup;
484          V76= vs_base[0];          V75= vs_base[0];
485          if(((V75))==Cnil){          if(((V74))==Cnil){
486          goto T195;}          goto T195;}
487          {register object V78;          {register object V77;
488          register object V79;          register object V78;
489            V77= (V74);
490          V78= (V75);          V78= (V75);
491          V79= (V76);          if(type_of((V77))!=t_cons)FEwrong_type_argument(Scons,(V77));
492          if(type_of((V78))!=t_cons)FEwrong_type_argument(Scons,(V78));          ((V77))->c.c_cdr = (V78);
493          ((V78))->c.c_cdr = (V79);          if(((V78))!=Cnil){
         if(((V79))!=Cnil){  
494          goto T197;}}          goto T197;}}
495          goto T193;          goto T193;
496  goto T197;  goto T197;
497  T197:;  T197:;
498          base[9]= cdr((V75));          base[9]= cdr((V74));
499          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
500          Llast();          Llast();
501          vs_top=sup;          vs_top=sup;
502          V75= vs_base[0];          V74= vs_base[0];
503          goto T193;          goto T193;
504  goto T195;  goto T195;
505  T195:;  T195:;
506          V74= (V76);          V73= (V75);
507          base[9]= (V74);          base[9]= (V73);
508          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
509          Llast();          Llast();
510          vs_top=sup;          vs_top=sup;
511          V75= vs_base[0];          V74= vs_base[0];
512  goto T193;  goto T193;
513  T193:;  T193:;
514          V73= cdr((V73));          V72= cdr((V72));
515          goto T182;          goto T182;
516  goto T183;  goto T183;
517  T183:;  T183:;
518          base[8]= (V74);          base[8]= (V73);
519          goto T180;          goto T180;
520          base[8]= Cnil;          base[8]= Cnil;
521          goto T180;          goto T180;
# Line 527  T180:; Line 526  T180:;
526          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
527          L2(base);          L2(base);
528          vs_top=sup;          vs_top=sup;
529          V63= vs_base[0];          V62= vs_base[0];
530          V62= Cnil;          V61= Cnil;
531  goto T212;  goto T212;
532  T212:;  T212:;
533          if(((V63))==Cnil){          if(((V62))==Cnil){
534          goto T215;}          goto T215;}
535          goto T214;          goto T214;
536  goto T215;  goto T215;
# Line 539  T215:; Line 538  T215:;
538          goto T213;          goto T213;
539  goto T214;  goto T214;
540  T214:;  T214:;
541            {register object V79;
542            V79= car((V62));
543            V61= (V79);}
544            base[5]= VV[5];
545            base[6]= VV[16];
546            base[7]= car((V61));
547          {register object V80;          {register object V80;
548          V80= car((V63));          register object V81;
549          V62= (V80);}          V81= cdr((V61));
550          base[5]= VV[15];          V80= Cnil;
551          base[6]= car((V62));          {register object V82;
552          {register object V81;          register object V83;
         register object V82;  
         V82= cdr((V62));  
         V81= Cnil;  
         {register object V83;  
553          register object V84;          register object V84;
554          register object V85;          V82= Cnil;
555          V83= Cnil;          V83= Cnil;
556          V84= Cnil;          V84= Cnil;
557          V85= Cnil;  goto T227;
558  goto T226;  T227:;
559  T226:;          if(((V81))==Cnil){
560          if(((V82))==Cnil){          goto T230;}
561          goto T229;}          goto T229;
562    goto T230;
563    T230:;
564          goto T228;          goto T228;
565  goto T229;  goto T229;
566  T229:;  T229:;
567          goto T227;          {register object V85;
568  goto T228;          V85= car((V81));
569  T228:;          V80= (V85);}
570          {register object V86;          {object V86= (V80);
571          V86= car((V82));          if(!eql(V86,VV[17]))goto T237;
572          V81= (V86);}          V84= VV[10];
573          {object V87= (V81);          goto T236;
         if(!eql(V87,VV[16]))goto T236;  
         V85= VV[9];  
         goto T235;  
 goto T236;  
 T236:;  
         if(!eql(V87,VV[17]))goto T237;  
         V85= VV[10];  
         goto T235;  
574  goto T237;  goto T237;
575  T237:;  T237:;
576          if(!eql(V87,VV[18]))goto T238;          if(!eql(V86,VV[18]))goto T238;
577          V85= VV[12];          V84= VV[11];
578          goto T235;          goto T236;
579  goto T238;  goto T238;
580  T238:;  T238:;
581          if(!eql(V87,VV[19]))goto T239;          if(!eql(V86,VV[19]))goto T239;
582          V85= VV[13];          V84= VV[13];
583          goto T235;          goto T236;
584  goto T239;  goto T239;
585  T239:;  T239:;
586          V85= Cnil;}          if(!eql(V86,VV[20]))goto T240;
587  goto T235;          V84= VV[14];
588  T235:;          goto T236;
         if(((V84))==Cnil){  
         goto T242;}  
         {register object V88;  
         register object V89;  
         V88= (V84);  
         V84= make_cons((V85),Cnil);  
         V89= (V84);  
         if(type_of((V88))!=t_cons)FEwrong_type_argument(Scons,(V88));  
         ((V88))->c.c_cdr = (V89);  
         goto T240;}  
 goto T242;  
 T242:;  
         V84= make_cons((V85),Cnil);  
         V83= (V84);  
589  goto T240;  goto T240;
590  T240:;  T240:;
591          V82= cdr((V82));          V84= Cnil;}
592          goto T226;  goto T236;
593  goto T227;  T236:;
594  T227:;          if(((V83))==Cnil){
595          base[7]= (V83);          goto T243;}
596          goto T223;          {register object V87;
597          base[7]= Cnil;          register object V88;
598          goto T223;          V87= (V83);
599          base[7]= Cnil;          V83= make_cons((V84),Cnil);
600          goto T223;}}          V88= (V83);
601  goto T223;          if(type_of((V87))!=t_cons)FEwrong_type_argument(Scons,(V87));
602  T223:;          ((V87))->c.c_cdr = (V88);
603          vs_top=(vs_base=base+5)+3;          goto T241;}
604          Lerror();  goto T243;
605    T243:;
606            V83= make_cons((V84),Cnil);
607            V82= (V83);
608    goto T241;
609    T241:;
610            V81= cdr((V81));
611            goto T227;
612    goto T228;
613    T228:;
614            base[8]= (V82);
615            goto T224;
616            base[8]= Cnil;
617            goto T224;
618            base[8]= Cnil;
619            goto T224;}}
620    goto T224;
621    T224:;
622            vs_top=(vs_base=base+5)+4;
623            (void) (*Lnk65)();
624          vs_top=sup;          vs_top=sup;
625          V63= cdr((V63));          V62= cdr((V62));
626          goto T212;          goto T212;
627  goto T213;  goto T213;
628  T213:;  T213:;
# Line 630  T213:; Line 630  T213:;
630          goto T145;}          goto T145;}
631  goto T145;  goto T145;
632  T145:;  T145:;
633          {register object V90;          {register object V89;
634          register object V91;          register object V90;
635          base[5]= (V17);          base[5]= (V16);
636          base[6]= (V16);          base[6]= (V15);
637          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
638          L2(base);          L2(base);
639          vs_top=sup;          vs_top=sup;
640          V91= vs_base[0];          V90= vs_base[0];
641          V90= Cnil;          V89= Cnil;
642  goto T261;  goto T262;
643  T261:;  T262:;
644          if(((V91))==Cnil){          if(((V90))==Cnil){
645          goto T264;}          goto T265;}
646            goto T264;
647    goto T265;
648    T265:;
649          goto T263;          goto T263;
650  goto T264;  goto T264;
651  T264:;  T264:;
652          goto T262;          {register object V91;
653  goto T263;          V91= car((V90));
654  T263:;          V89= (V91);}
655            base[5]= VV[5];
656            base[6]= VV[21];
657            base[7]= car((V89));
658          {register object V92;          {register object V92;
659          V92= car((V91));          register object V93;
660          V90= (V92);}          V93= cdr((V89));
661          base[5]= VV[20];          V92= Cnil;
662          base[6]= car((V90));          {register object V94;
663          {register object V93;          register object V95;
         register object V94;  
         V94= cdr((V90));  
         V93= Cnil;  
         {register object V95;  
664          register object V96;          register object V96;
665          register object V97;          V94= Cnil;
666          V95= Cnil;          V95= Cnil;
667          V96= Cnil;          V96= Cnil;
         V97= Cnil;  
 goto T275;  
 T275:;  
         if(((V94))==Cnil){  
         goto T278;}  
         goto T277;  
 goto T278;  
 T278:;  
         goto T276;  
668  goto T277;  goto T277;
669  T277:;  T277:;
670          {register object V98;          if(((V93))==Cnil){
671          V98= car((V94));          goto T280;}
672          V93= (V98);}          goto T279;
673          {object V99= (V93);  goto T280;
674          if(!eql(V99,VV[16]))goto T285;  T280:;
675          V97= VV[11];          goto T278;
676          goto T284;  goto T279;
677  goto T285;  T279:;
678  T285:;          {register object V97;
679          if(!eql(V99,VV[17]))goto T286;          V97= car((V93));
680          V97= VV[10];          V92= (V97);}
681          goto T284;          {object V98= (V92);
682            if(!eql(V98,VV[17]))goto T287;
683            V96= VV[12];
684            goto T286;
685    goto T287;
686    T287:;
687            if(!eql(V98,VV[18]))goto T288;
688            V96= VV[11];
689            goto T286;
690    goto T288;
691    T288:;
692            V96= Cnil;}
693  goto T286;  goto T286;
694  T286:;  T286:;
695          V97= Cnil;}          if(((V95))==Cnil){
696  goto T284;          goto T291;}
697  T284:;          {register object V99;
698          if(((V96))==Cnil){          register object V100;
699            V99= (V95);
700            V95= make_cons((V96),Cnil);
701            V100= (V95);
702            if(type_of((V99))!=t_cons)FEwrong_type_argument(Scons,(V99));
703            ((V99))->c.c_cdr = (V100);
704          goto T289;}          goto T289;}
705          {register object V100;  goto T291;
706          register object V101;  T291:;
707          V100= (V96);          V95= make_cons((V96),Cnil);
708          V96= make_cons((V97),Cnil);          V94= (V95);
         V101= (V96);  
         if(type_of((V100))!=t_cons)FEwrong_type_argument(Scons,(V100));  
         ((V100))->c.c_cdr = (V101);  
         goto T287;}  
709  goto T289;  goto T289;
710  T289:;  T289:;
711          V96= make_cons((V97),Cnil);          V93= cdr((V93));
712          V95= (V96);          goto T277;
713  goto T287;  goto T278;
714  T287:;  T278:;
715          V94= cdr((V94));          base[8]= (V94);
716          goto T275;          goto T274;
717  goto T276;          base[8]= Cnil;
718  T276:;          goto T274;
719          base[7]= (V95);          base[8]= Cnil;
720          goto T272;          goto T274;}}
721          base[7]= Cnil;  goto T274;
722          goto T272;  T274:;
723          base[7]= Cnil;          vs_top=(vs_base=base+5)+4;
724          goto T272;}}          (void) (*Lnk65)();
 goto T272;  
 T272:;  
         vs_top=(vs_base=base+5)+3;  
         Lerror();  
725          vs_top=sup;          vs_top=sup;
726          V91= cdr((V91));          V90= cdr((V90));
727          goto T261;          goto T262;
728  goto T262;  goto T263;
729  T262:;  T263:;
730          goto T144;          goto T144;
731          goto T144;}          goto T144;}
732  goto T144;  goto T144;
733  T144:;  T144:;
734          V102= list(2,VV[26],base[2]);          V101= list(2,VV[27],base[2]);
735          V103= list(3,VV[28],base[2],base[2]);          V102= list(3,VV[29],base[2],base[2]);
736          if(((V12))==Cnil){          if(((V11))==Cnil){
737          goto T306;}          goto T308;}
738          V105= list(4,VV[28],base[2],base[2],list(2,VV[29],(V12)));          V104= list(4,VV[29],base[2],base[2],list(2,VV[30],(V11)));
739          V104= make_cons(/* INLINE-ARGS */V105,Cnil);          V103= make_cons(/* INLINE-ARGS */V104,Cnil);
740          goto T304;          goto T306;
741    goto T308;
742    T308:;
743            V103= Cnil;
744  goto T306;  goto T306;
745  T306:;  T306:;
746          V104= Cnil;          base[5]= VV[31];
 goto T304;  
 T304:;  
         base[5]= VV[30];  
747          base[6]= base[3];          base[6]= base[3];
748          base[7]= VV[4];          base[7]= VV[4];
749          base[8]= symbol_function(VV[63]);          base[8]= symbol_function(VV[64]);
750          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
751          Lmember();          Lmember();
752          vs_top=sup;          vs_top=sup;
753          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
754          goto T310;}          goto T312;}
755          V107= list(3,VV[31],list(2,VV[32],list(2,VV[26],base[2])),base[2]);          V106= list(3,VV[32],list(2,VV[33],list(2,VV[27],base[2])),base[2]);
756          V106= make_cons(/* INLINE-ARGS */V107,Cnil);          V105= make_cons(/* INLINE-ARGS */V106,Cnil);
757          goto T308;          goto T310;
758    goto T312;
759    T312:;
760            V105= Cnil;
761  goto T310;  goto T310;
762  T310:;  T310:;
763          V106= Cnil;          V107= listA(3,VV[28],/* INLINE-ARGS */V102,append(V103,V105));
764  goto T308;          V108= list(2,VV[30],(V11));
765  T308:;          if(((V13))==Cnil){
766          V108= listA(3,VV[27],/* INLINE-ARGS */V103,append(V104,V106));          goto T320;}
767          V109= list(2,VV[29],(V12));          V109= Cnil;
768          if(((V14))==Cnil){          goto T318;
769          goto T318;}  goto T320;
770          V110= Cnil;  T320:;
771          goto T316;          V109= Cnil;
772  goto T318;  goto T318;
773  T318:;  T318:;
774          V110= Cnil;          V110= list(4,VV[26],/* INLINE-ARGS */V101,/* INLINE-ARGS */V107,listA(7,VV[34],base[2],VV[35],VV[36],VV[37],/* INLINE-ARGS */V108,V109));
 goto T316;  
 T316:;  
         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));  
         if(((V13))==Cnil){  
         goto T322;}  
775          base[5]= base[2];          base[5]= base[2];
776          base[6]= VV[39];          base[6]= VV[40];
777          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
778          Lintern();          Lintern();
779          vs_top=sup;          vs_top=sup;
780          V113= vs_base[0];          V111= vs_base[0];
781          V114= list(3,VV[37],list(3,VV[38],list(2,VV[29],V113),VV[40]),(V13));          V112= list(3,VV[38],list(3,VV[39],list(2,VV[30],V111),VV[41]),(V12));
782          V112= make_cons(/* INLINE-ARGS */V114,Cnil);          V113= make_cons(/* INLINE-ARGS */V112,Cnil);
783          goto T320;          V114= list(2,VV[43],list(2,VV[27],base[2]));
784  goto T322;          V115= make_cons(/* INLINE-ARGS */V114,Cnil);
785  T322:;          if(((V14))==Cnil){
786          V112= Cnil;          goto T328;}
787  goto T320;          V117= list(2,VV[44],list(3,VV[45],VV[46],list(2,VV[30],(V14))));
788  T320:;          base[5]= make_cons(/* INLINE-ARGS */V117,Cnil);
789          V115= list(2,VV[42],list(2,VV[26],base[2]));          goto T326;
         V116= make_cons(/* INLINE-ARGS */V115,Cnil);  
         if(((V15))==Cnil){  
         goto T330;}  
         V118= list(2,VV[43],list(3,VV[44],VV[45],list(2,VV[29],(V15))));  
         base[5]= make_cons(/* INLINE-ARGS */V118,Cnil);  
         goto T328;  
 goto T330;  
 T330:;  
         base[5]= Cnil;  
790  goto T328;  goto T328;
791  T328:;  T328:;
792          if(((V18))==Cnil){          base[5]= Cnil;
793          goto T334;}  goto T326;
794          {object V119;  T326:;
795          object V120= (V18);          if(((V17))==Cnil){
         if(endp(V120)){  
         base[6]= Cnil;  
         goto T332;}  
         base[7]=V119=MMcons(Cnil,Cnil);  
 goto T336;  
 T336:;  
         V122= list(2,VV[47],list(3,VV[48],VV[49],list(3,VV[50],VV[51],car((V120->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)))));  
         V120=MMcdr(V120);  
         if(endp(V120)){  
         base[6]= base[7];  
796          goto T332;}          goto T332;}
797          V119=MMcdr(V119)=MMcons(Cnil,Cnil);          {object V118;
798          goto T336;}          object V119= (V17);
799            if(endp(V119)){
800            base[6]= Cnil;
801            goto T330;}
802            base[7]=V118=MMcons(Cnil,Cnil);
803  goto T334;  goto T334;
804  T334:;  T334:;
805          base[6]= Cnil;          V121= list(2,VV[48],list(3,VV[49],VV[50],list(3,VV[51],VV[52],car((V119->c.c_car)))));
806            (V118->c.c_car)= list(2,VV[47],list(3,VV[45],/* INLINE-ARGS */V121,list(2,VV[30],cdr((V119->c.c_car)))));
807            V119=MMcdr(V119);
808            if(endp(V119)){
809            base[6]= base[7];
810            goto T330;}
811            V118=MMcdr(V118)=MMcons(Cnil,Cnil);
812            goto T334;}
813  goto T332;  goto T332;
814  T332:;  T332:;
815          base[8]= VV[30];          base[6]= Cnil;
816    goto T330;
817    T330:;
818            base[8]= VV[31];
819          base[9]= base[3];          base[9]= base[3];
820          base[10]= VV[21];          base[10]= VV[22];
821          base[11]= (base[4]->c.c_car);          base[11]= (base[4]->c.c_car);
822          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
823          Lmember();          Lmember();
824          vs_top=sup;          vs_top=sup;
825          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
826          goto T341;}          goto T339;}
827          base[9]= VV[30];          base[9]= VV[31];
828          base[10]= base[3];          base[10]= base[3];
829          vs_top=(vs_base=base+9)+2;          vs_top=(vs_base=base+9)+2;
830          L5(base);          L5(base);
831          vs_top=sup;          vs_top=sup;
832          V126= vs_base[0];          V125= vs_base[0];
833          {object V124;          {object V123;
834          object V125= V126;          object V124= V125;
835          if(endp(V125)){          if(endp(V124)){
836          V123= Cnil;          V122= Cnil;
837          goto T339;}          goto T337;}
838          base[8]=V124=MMcons(Cnil,Cnil);          base[8]=V123=MMcons(Cnil,Cnil);
839  goto T347;  goto T345;
840  T347:;  T345:;
841          (V124->c.c_car)= coerce_to_string((V125->c.c_car));          (V123->c.c_car)= coerce_to_string((V124->c.c_car));
842          V125=MMcdr(V125);          V124=MMcdr(V124);
843          if(endp(V125)){          if(endp(V124)){
844          V123= base[8];          V122= base[8];
845          goto T339;}          goto T337;}
846          V124=MMcdr(V124)=MMcons(Cnil,Cnil);          V123=MMcdr(V123)=MMcons(Cnil,Cnil);
847          goto T347;}          goto T345;}
 goto T341;  
 T341:;  
         V123= VV[53];  
848  goto T339;  goto T339;
849  T339:;  T339:;
850          V127= list(2,VV[52],list(2,VV[29],V123));          V122= VV[54];
851          if(((V19))==Cnil){  goto T337;
852          goto T355;}  T337:;
853          {object V129;          V126= list(2,VV[53],list(2,VV[30],V122));
854          object V130= (V19);          if(((V18))==Cnil){
         if(endp(V130)){  
         base[8]= Cnil;  
         goto T353;}  
         base[9]=V129=MMcons(Cnil,Cnil);  
 goto T357;  
 T357:;  
         V132= list(2,VV[47],list(3,VV[48],VV[55],list(3,VV[50],VV[51],car((V130->c.c_car)))));  
         (V129->c.c_car)= list(2,VV[54],list(3,VV[44],/* INLINE-ARGS */V132,list(2,VV[29],cdr((V130->c.c_car)))));  
         V130=MMcdr(V130);  
         if(endp(V130)){  
         base[8]= base[9];  
855          goto T353;}          goto T353;}
856          V129=MMcdr(V129)=MMcons(Cnil,Cnil);          {object V128;
857          goto T357;}          object V129= (V18);
858            if(endp(V129)){
859            base[8]= Cnil;
860            goto T351;}
861            base[9]=V128=MMcons(Cnil,Cnil);
862  goto T355;  goto T355;
863  T355:;  T355:;
864          base[8]= Cnil;          V131= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[51],VV[52],car((V129->c.c_car)))));
865            (V128->c.c_car)= list(2,VV[55],list(3,VV[45],/* INLINE-ARGS */V131,list(2,VV[30],cdr((V129->c.c_car)))));
866            V129=MMcdr(V129);
867            if(endp(V129)){
868            base[8]= base[9];
869            goto T351;}
870            V128=MMcdr(V128)=MMcons(Cnil,Cnil);
871            goto T355;}
872  goto T353;  goto T353;
873  T353:;  T353:;
874          if(((V16))==Cnil){          base[8]= Cnil;
875          goto T361;}  goto T351;
876          V133= list(3,VV[44],VV[56],list(2,VV[29],(V16)));  T351:;
877          base[9]= make_cons(/* INLINE-ARGS */V133,Cnil);          if(((V15))==Cnil){
878          goto T359;          goto T359;}
879  goto T361;          V132= list(3,VV[45],VV[57],list(2,VV[30],(V15)));
880  T361:;          base[9]= make_cons(/* INLINE-ARGS */V132,Cnil);
881          base[9]= Cnil;          goto T357;
882  goto T359;  goto T359;
883  T359:;  T359:;
884          if(((V17))==Cnil){          base[9]= Cnil;
885          goto T365;}  goto T357;
886          V134= list(2,VV[57],list(3,VV[44],VV[58],list(2,VV[29],(V17))));  T357:;
887          base[10]= make_cons(/* INLINE-ARGS */V134,Cnil);          if(((V16))==Cnil){
888          goto T363;          goto T363;}
889  goto T365;          V133= list(2,VV[58],list(3,VV[45],VV[59],list(2,VV[30],(V16))));
890  T365:;          base[10]= make_cons(/* INLINE-ARGS */V133,Cnil);
891          base[10]= Cnil;          goto T361;
892  goto T363;  goto T363;
893  T363:;  T363:;
894          if(((V20))==Cnil){          base[10]= Cnil;
895          goto T369;}  goto T361;
896          V135= list(3,VV[59],list(2,VV[60],list(2,VV[29],(V20))),VV[61]);  T361:;
897          base[11]= make_cons(/* INLINE-ARGS */V135,Cnil);          if(((V19))==Cnil){
898          goto T367;          goto T367;}
899  goto T369;          V134= list(3,VV[60],list(2,VV[61],list(2,VV[30],(V19))),VV[62]);
900  T369:;          base[11]= make_cons(/* INLINE-ARGS */V134,Cnil);
901          base[11]= Cnil;          goto T365;
902  goto T367;  goto T367;
903  T367:;  T367:;
904            base[11]= Cnil;
905    goto T365;
906    T365:;
907          vs_top=(vs_base=base+8)+4;          vs_top=(vs_base=base+8)+4;
908          Lappend();          Lappend();
909          vs_top=sup;          vs_top=sup;
910          V128= vs_base[0];          V127= vs_base[0];
911          base[7]= make_cons(/* INLINE-ARGS */V127,V128);          base[7]= make_cons(/* INLINE-ARGS */V126,V127);
912          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
913          Lappend();          Lappend();
914          vs_top=sup;          vs_top=sup;
915          V117= vs_base[0];          V116= vs_base[0];
916          V136= listA(3,VV[41],/* INLINE-ARGS */V116,V117);          V135= listA(3,VV[42],/* INLINE-ARGS */V115,V116);
917          V137= list(2,/* INLINE-ARGS */V136,list(2,VV[26],base[2]));          V136= list(2,/* INLINE-ARGS */V135,list(2,VV[27],base[2]));
918          base[5]= listA(4,VV[23],VV[24],/* INLINE-ARGS */V111,append(V112,/* INLINE-ARGS */V137));          base[5]= listA(4,VV[24],VV[25],/* INLINE-ARGS */V110,append(/* INLINE-ARGS */V113,/* INLINE-ARGS */V136));
919          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
920          return;}          return;}
921  }  }
# Line 933  register object *base0; Line 926  register object *base0;
926  {       register object *base=vs_base;  {       register object *base=vs_base;
927          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
928          vs_reserve(VM2);          vs_reserve(VM2);
929          {object V138;          {object V137;
930          vs_top[0]=Cnil;          vs_top[0]=Cnil;
931          {object *p=vs_top;          {object *p=vs_top;
932           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
933          V138=(base[0]);          V137=(base[0]);
934          vs_top=sup;          vs_top=sup;
935            {object V138;
936            V138= Cnil;
937          {object V139;          {object V139;
938            object V140;
939          V139= Cnil;          V139= Cnil;
940          {object V140;          V140= (V137);
941          object V141;          {object V141;
942          V140= Cnil;          V141= cdr((V137));
943          V141= (V138);          {register long V142;
944          {object V142;          V142= 1;
945          V142= cdr((V138));  goto T373;
946          {register long V143;  T373:;
947          V143= 1;          if(((V141))==Cnil){
948            goto T376;}
949            goto T375;
950    goto T376;
951    T376:;
952            goto T374;
953  goto T375;  goto T375;
954  T375:;  T375:;
955          if(((V142))==Cnil){          if(((V140))==Cnil){
956          goto T378;}          goto T379;}
957          goto T377;          goto T378;
958    goto T379;
959    T379:;
960            goto T374;
961  goto T378;  goto T378;
962  T378:;  T378:;
963          goto T376;          {object V143;
964  goto T377;          V143= car((V140));
965  T377:;          V139= (V143);}
966          if(((V141))==Cnil){          {register object V144;
967          goto T381;}          register object V145;
968          goto T380;          V144= Cnil;
969  goto T381;          V145= (V139);
970  T381:;          {register object V146;
971          goto T376;          V146= Cnil;
972  goto T380;  goto T386;
973  T380:;  T386:;
974          {object V144;          if(((V145))==Cnil){
975          V144= car((V141));          goto T389;}
976          V140= (V144);}          goto T388;
977          {register object V145;  goto T389;
978          register object V146;  T389:;
979          V145= Cnil;          goto T387;
         V146= (V140);  
         {register object V147;  
         V147= Cnil;  
980  goto T388;  goto T388;
981  T388:;  T388:;
982          if(((V146))==Cnil){          {object V147;
983          goto T391;}          V147= car((V145));
984          goto T390;          V144= (V147);}
 goto T391;  
 T391:;  
         goto T389;  
 goto T390;  
 T390:;  
985          {object V148;          {object V148;
986          V148= car((V146));          V149= symbol_function(VV[64]);
987          V145= (V148);}          V150= symbol_function(VV[67]);
988          {object V149;          V148= (VFUN_NARGS=6,(*(LnkLI66))((V144),(V138),VV[4],V149,VV[22],V150));
989          V150= symbol_function(VV[63]);          V146= (V148);}
990          V151= symbol_function(VV[66]);          V152 = make_fixnum(V142);
991          V149= (VFUN_NARGS=6,(*(LnkLI65))((V145),(V139),VV[4],V150,VV[21],V151));          {register object x= V152,V151= (V146);
992          V147= (V149);}          while(!endp(V151))
993          V153 = make_fixnum(V143);          if(eql(x,V151->c.c_car)){
994          {register object x= V153,V152= (V147);          goto T399;
995          while(!endp(V152))          }else V151=V151->c.c_cdr;}
996          if(eql(x,V152->c.c_car)){          {object V153;
997          goto T401;          register object V154;
998          }else V152=V152->c.c_cdr;}          V153= Cnil;
999          {object V154;          V154= (V141);
1000          register object V155;          {register long V155;
1001          V154= Cnil;          {object V156;
1002          V155= (V142);          V157 = make_fixnum(V142);
1003          {register long V156;          V156= one_plus(V157);{object V158;
1004          {object V157;          V158= (type_of((V156))==t_fixnum?Ct:Cnil);
1005          V158 = make_fixnum(V143);          if(V158==Cnil)goto T405;
1006          V157= one_plus(V158);{object V159;          goto T404;
1007          V159= (type_of((V157))==t_fixnum?Ct:Cnil);  goto T405;
1008          if(V159==Cnil)goto T407;  T405:;}
1009          goto T406;          (void)((*(LnkLI68))());
1010  goto T407;  goto T404;
1011  T407:;}  T404:;
1012          (void)((*(LnkLI67))());          V155= fix((V156));}
1013  goto T406;  goto T408;
1014  T406:;  T408:;
1015          V156= fix((V157));}          if(((V154))==Cnil){
1016            goto T411;}
1017            goto T410;
1018    goto T411;
1019    T411:;
1020            goto T409;
1021  goto T410;  goto T410;
1022  T410:;  T410:;
1023          if(((V155))==Cnil){          {object V159;
1024          goto T413;}          V159= car((V154));
1025          goto T412;          V153= (V159);}
1026  goto T413;          base[1]= (V144);
1027  T413:;          base[2]= (V153);
1028          goto T411;          base[3]= VV[22];
1029  goto T412;          base[4]= symbol_function(VV[67]);
 T412:;  
         {object V160;  
         V160= car((V155));  
         V154= (V160);}  
         base[1]= (V145);  
         base[2]= (V154);  
         base[3]= VV[21];  
         base[4]= symbol_function(VV[66]);  
1030          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
1031          Lmember();          Lmember();
1032          vs_top=sup;          vs_top=sup;
1033          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1034          goto T418;}          goto T416;}
1035          if(((V147))==Cnil){          if(((V146))==Cnil){
1036          goto T426;}          goto T424;}
1037          V161 = make_fixnum(V156);          V160 = make_fixnum(V155);
1038          V162= make_cons(V161,Cnil);          V161= make_cons(V160,Cnil);
1039          (void)(nconc((V147),/* INLINE-ARGS */V162));          (void)(nconc((V146),/* INLINE-ARGS */V161));
1040          goto T418;          goto T416;
1041  goto T426;  goto T424;
1042  T426:;  T424:;
1043          {object V164;          {object V163;
1044          V165 = make_fixnum(V143);          V164 = make_fixnum(V142);
1045          V166 = make_fixnum(V156);          V165 = make_fixnum(V155);
1046          V164= list(3,(V145),V165,V166);          V163= list(3,(V144),V164,V165);
1047          V139= make_cons((V164),(V139));          V138= make_cons((V163),(V138));
1048          V163= (V139);}          V162= (V138);}
1049          V147= car(V163);          V146= car(V162);
1050  goto T418;  goto T416;
1051  T418:;  T416:;
1052          V155= cdr((V155));          V154= cdr((V154));
1053          if(!((V156)<(2147483646))){          if(!((V155)<(2147483646))){
1054          goto T435;}          goto T433;}
1055          goto T434;          goto T432;
1056  goto T435;  goto T433;
1057  T435:;  T433:;
1058          (void)((*(LnkLI67))());          (void)((*(LnkLI68))());
1059  goto T434;  goto T432;
1060  T434:;  T432:;
1061          V156= (long)(V156)+(1);          V155= (long)(V155)+(1);
1062          goto T410;          goto T408;
1063  goto T411;  goto T409;
1064  T411:;  T409:;
1065          goto T401;          goto T399;
1066          goto T401;}}          goto T399;}}
1067  goto T401;  goto T399;
1068  T401:;  T399:;
1069          V146= cdr((V146));          V145= cdr((V145));
         goto T388;  
 goto T389;  
 T389:;  
1070          goto T386;          goto T386;
1071          goto T386;}}  goto T387;
1072  goto T386;  T387:;
1073  T386:;          goto T384;
1074            goto T384;}}
1075    goto T384;
1076    T384:;
1077            V140= cdr((V140));
1078          V141= cdr((V141));          V141= cdr((V141));
1079          V142= cdr((V142));          if(!((V142)<(2147483646))){
1080          if(!((V143)<(2147483646))){          goto T446;}
1081          goto T448;}          goto T445;
1082          goto T447;  goto T446;
1083  goto T448;  T446:;
1084  T448:;          (void)((*(LnkLI68))());
1085          (void)((*(LnkLI67))());  goto T445;
1086  goto T447;  T445:;
1087  T447:;          V142= (long)(V142)+(1);
1088          V143= (long)(V143)+(1);          goto T373;
1089          goto T375;  goto T374;
1090  goto T376;  T374:;
1091  T376:;          goto T369;
1092          goto T371;          goto T369;}}}
1093          goto T371;}}}  goto T369;
1094  goto T371;  T369:;
1095  T371:;          base[1]= (V138);
         base[1]= (V139);  
1096          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1097          return;}          return;}
1098          }          }
# Line 1111  register object *base0; Line 1104  register object *base0;
1104  {       register object *base=vs_base;  {       register object *base=vs_base;
1105          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
1106          vs_reserve(VM3);          vs_reserve(VM3);
1107          {object V167;          {object V166;
1108          object V168;          object V167;
1109          check_arg(2);          check_arg(2);
1110          V167=(base[0]);          V166=(base[0]);
1111          V168=(base[1]);          V167=(base[1]);
1112          vs_top=sup;          vs_top=sup;
1113          if(!(type_of((V168))==t_cons)){          if(!(type_of((V167))==t_cons)){
1114          goto T454;}          goto T452;}
1115          base[2]= (equal(car((V168)),(V167))?Ct:Cnil);          base[2]= (equal(car((V167)),(V166))?Ct:Cnil);
1116          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1117          return;          return;
1118  goto T454;  goto T452;
1119  T454:;  T452:;
1120          base[2]= Cnil;          base[2]= Cnil;
1121          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1122          return;          return;
# Line 1136  register object *base0; Line 1129  register object *base0;
1129  {       register object *base=vs_base;  {       register object *base=vs_base;
1130          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
1131          vs_reserve(VM4);          vs_reserve(VM4);
1132          {object V169;          {object V168;
1133          object V170;          object V169;
1134          check_arg(2);          check_arg(2);
1135          V169=(base[0]);          V168=(base[0]);
1136          V170=(base[1]);          V169=(base[1]);
1137          vs_top=sup;          vs_top=sup;
1138  goto TTL;  goto TTL;
1139  TTL:;  TTL:;
1140          {register object V171;          {register object V170;
1141          V171= Cnil;          V170= Cnil;
1142          {object V172;          {object V171;
1143            register object V172;
1144          register object V173;          register object V173;
1145          register object V174;          V171= Cnil;
1146          V172= Cnil;          V172= Cnil;
1147          V173= Cnil;          V173= Cnil;
1148          V174= Cnil;          {object V174;
1149          {object V175;          base[2]= (V168);
1150          base[2]= (V169);          base[3]= (V169);
1151          base[3]= (V170);          base[4]= VV[22];
         base[4]= VV[21];  
1152          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1153          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1154          Lmember();          Lmember();
1155          vs_top=sup;          vs_top=sup;
1156          V175= vs_base[0];          V174= vs_base[0];
1157          V171= (V175);}          V170= (V174);}
1158  goto T457;  goto T455;
1159  T457:;  T455:;
1160          if(((V171))==Cnil){          if(((V170))==Cnil){
1161            goto T464;}
1162            goto T463;
1163    goto T464;
1164    T464:;
1165            goto T456;
1166    goto T463;
1167    T463:;
1168            if(((V170))==Cnil){
1169          goto T466;}          goto T466;}
1170          goto T465;          base[2]= cdr(car((V170)));
 goto T466;  
 T466:;  
         goto T458;  
 goto T465;  
 T465:;  
         if(((V171))==Cnil){  
         goto T468;}  
         base[2]= cdr(car((V171)));  
1171          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1172          Lcopy_list();          Lcopy_list();
1173          vs_top=sup;          vs_top=sup;
1174          V174= vs_base[0];          V173= vs_base[0];
1175          if(((V173))==Cnil){          if(((V172))==Cnil){
1176          goto T475;}          goto T473;}
1177          {register object V176;          {register object V175;
1178          register object V177;          register object V176;
1179            V175= (V172);
1180          V176= (V173);          V176= (V173);
1181          V177= (V174);          if(type_of((V175))!=t_cons)FEwrong_type_argument(Scons,(V175));
1182          if(type_of((V176))!=t_cons)FEwrong_type_argument(Scons,(V176));          ((V175))->c.c_cdr = (V176);
1183          ((V176))->c.c_cdr = (V177);          if(((V176))!=Cnil){
1184          if(((V177))!=Cnil){          goto T475;}}
1185          goto T477;}}          goto T466;
1186          goto T468;  goto T475;
1187  goto T477;  T475:;
1188  T477:;          base[2]= cdr((V172));
         base[2]= cdr((V173));  
1189          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1190          Llast();          Llast();
1191          vs_top=sup;          vs_top=sup;
1192          V173= vs_base[0];          V172= vs_base[0];
1193          goto T468;          goto T466;
1194  goto T475;  goto T473;
1195  T475:;  T473:;
1196          V172= (V174);          V171= (V173);
1197          base[2]= (V172);          base[2]= (V171);
1198          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1199          Llast();          Llast();
1200          vs_top=sup;          vs_top=sup;
1201          V173= vs_base[0];          V172= vs_base[0];
1202  goto T468;  goto T466;
1203  T468:;  T466:;
1204          {register object V178;          {register object V177;
1205          base[2]= (V169);          base[2]= (V168);
1206          base[3]= cdr((V171));          base[3]= cdr((V170));
1207          base[4]= VV[21];          base[4]= VV[22];
1208          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1209          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1210          Lmember();          Lmember();
1211          vs_top=sup;          vs_top=sup;
1212          V178= vs_base[0];          V177= vs_base[0];
1213          V171= (V178);}          V170= (V177);}
1214          goto T457;          goto T455;
1215  goto T458;  goto T456;
1216  T458:;  T456:;
1217          base[2]= (V172);          base[2]= (V171);
1218          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1219          return;          return;
1220          base[2]= Cnil;          base[2]= Cnil;
# Line 1239  register object *base0; Line 1232  register object *base0;
1232  {       register object *base=vs_base;  {       register object *base=vs_base;
1233          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
1234          vs_reserve(VM5);          vs_reserve(VM5);
1235          {object V179;          {object V178;
1236          object V180;          object V179;
1237          check_arg(2);          check_arg(2);
1238          V179=(base[0]);          V178=(base[0]);
1239          V180=(base[1]);          V179=(base[1]);
1240          vs_top=sup;          vs_top=sup;
1241  goto TTL;  goto TTL;
1242  TTL:;  TTL:;
1243          {register object V181;          {register object V180;
1244          V181= Cnil;          V180= Cnil;
1245          {object V182;          {object V181;
1246            register object V182;
1247          register object V183;          register object V183;
1248          register object V184;          V181= Cnil;
1249          V182= Cnil;          V182= Cnil;
1250          V183= Cnil;          V183= Cnil;
1251          V184= Cnil;          {object V184;
1252          {object V185;          base[2]= (V178);
1253          base[2]= (V179);          base[3]= (V179);
1254          base[3]= (V180);          base[4]= VV[22];
         base[4]= VV[21];  
1255          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1256          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1257          Lmember();          Lmember();
1258          vs_top=sup;          vs_top=sup;
1259          V185= vs_base[0];          V184= vs_base[0];
1260          V181= (V185);}          V180= (V184);}
1261  goto T497;  goto T495;
1262  T497:;  T495:;
1263          if(((V181))==Cnil){          if(((V180))==Cnil){
1264            goto T504;}
1265            goto T503;
1266    goto T504;
1267    T504:;
1268            goto T496;
1269    goto T503;
1270    T503:;
1271            if(((V180))==Cnil){
1272            goto T506;}
1273            V183= cdr(car((V180)));
1274            if(((V182))==Cnil){
1275            goto T512;}
1276            {register object V185;
1277            register object V186;
1278            V185= (V182);
1279            V182= make_cons((V183),Cnil);
1280            V186= (V182);
1281            if(type_of((V185))!=t_cons)FEwrong_type_argument(Scons,(V185));
1282            ((V185))->c.c_cdr = (V186);
1283          goto T506;}          goto T506;}
1284          goto T505;  goto T512;
1285    T512:;
1286            V182= make_cons((V183),Cnil);
1287            V181= (V182);
1288  goto T506;  goto T506;
1289  T506:;  T506:;
1290          goto T498;          {register object V187;
1291  goto T505;          base[2]= (V178);
1292  T505:;          base[3]= cdr((V180));
1293          if(((V181))==Cnil){          base[4]= VV[22];
         goto T508;}  
         V184= cdr(car((V181)));  
         if(((V183))==Cnil){  
         goto T514;}  
         {register object V186;  
         register object V187;  
         V186= (V183);  
         V183= make_cons((V184),Cnil);  
         V187= (V183);  
         if(type_of((V186))!=t_cons)FEwrong_type_argument(Scons,(V186));  
         ((V186))->c.c_cdr = (V187);  
         goto T508;}  
 goto T514;  
 T514:;  
         V183= make_cons((V184),Cnil);  
         V182= (V183);  
 goto T508;  
 T508:;  
         {register object V188;  
         base[2]= (V179);  
         base[3]= cdr((V181));  
         base[4]= VV[21];  
1294          base[5]= (base0[4]->c.c_car);          base[5]= (base0[4]->c.c_car);
1295          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1296          Lmember();          Lmember();
1297          vs_top=sup;          vs_top=sup;
1298          V188= vs_base[0];          V187= vs_base[0];
1299          V181= (V188);}          V180= (V187);}
1300          goto T497;          goto T495;
1301  goto T498;  goto T496;
1302  T498:;  T496:;
1303          base[2]= (V182);          base[2]= (V181);
1304          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1305          return;          return;
1306          base[2]= Cnil;          base[2]= Cnil;
# Line 1318  T498:; Line 1311  T498:;
1311          return;}}          return;}}
1312          }          }
1313  }  }
1314  static object  LnkTLI67(){return call_proc0(VV[67],(void **)&LnkLI67);} /* TYPE-ERROR */  static object  LnkTLI68(){return call_proc0(VV[68],(void **)&LnkLI68);} /* TYPE-ERROR */
1315  static object  LnkTLI65(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[65],(void **)&LnkLI65,ap);va_end(ap);return V1;} /* FIND */  static object  LnkTLI66(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[66],(void **)&LnkLI66,ap);va_end(ap);return V1;} /* FIND */
1316  static object  LnkTLI64(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[64],(void **)&LnkLI64,ap);va_end(ap);return V1;} /* WARN */  static void LnkT65(){ call_or_link(VV[65],(void **)&Lnk65);} /* SPECIFIC-ERROR */
1317  static object  LnkTLI62(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[62],(void **)&LnkLI62,ap);va_end(ap);return V1;} /* COUNT */  static object  LnkTLI63(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[63],(void **)&LnkLI63,ap);va_end(ap);return V1;} /* COUNT */
1318    
1319  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1320  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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