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

Diff of /gcl/lsp/defstruct.c

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

revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.6 by camm, Mon Aug 5 20:36:08 2002 UTC
# Line 77  T11:; Line 77  T11:;
77  goto T13;  goto T13;
78  T13:;  T13:;
79          FEerror("The ECASE key value ~s is illegal.",1,V26);          FEerror("The ECASE key value ~s is illegal.",1,V26);
80          V24= symbol_value(VV[0]);}          goto T8;}
81  goto T8;  goto T8;
82  T8:;  T8:;
83          V27 = make_fixnum((long)length((V24)));          V27 = make_fixnum((long)length((V24)));
84          if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){          if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){
85          goto T17;}          goto T16;}
86          goto T16;          goto T15;
 goto T17;  
 T17:;  
         V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10));  
         (void)((VFUN_NARGS=2,(*(LnkLI110))((V24),/* INLINE-ARGS */V28)));  
87  goto T16;  goto T16;
88  T16:;  T16:;
89            V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10));
90            (void)((VFUN_NARGS=2,(*(LnkLI110))((V24),/* INLINE-ARGS */V28)));
91    goto T15;
92    T15:;
93          if(((V25))!=Cnil){          if(((V25))!=Cnil){
94          goto T19;}          goto T18;}
95          base[0]= (V23);          base[0]= (V23);
96          base[1]= VV[3];          base[1]= VV[3];
97          base[2]= VV[4];          base[2]= VV[4];
# Line 100  T16:; Line 100  T16:;
100          (void) (*Lnk111)();          (void) (*Lnk111)();
101          vs_top=sup;          vs_top=sup;
102          if((V17)!=Cnil){          if((V17)!=Cnil){
103          goto T19;}{object V29;          goto T18;}{object V29;
104          base[0]= (V23);          base[0]= (V23);
105          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
106          Lfboundp();          Lfboundp();
107          vs_top=sup;          vs_top=sup;
108          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
109          goto T29;}          goto T28;}
110          V29= Cnil;          V29= Cnil;
111          goto T28;          goto T27;
112  goto T29;  goto T28;
113  T29:;  T28:;
114          V30= aref1((V24),fixint((Vcs[10]->c.c_car)));          V30= aref1((V24),fixint((Vcs[10]->c.c_car)));
115          base[0]= (V23);          base[0]= (V23);
116          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 118  T29:; Line 118  T29:;
118          vs_top=sup;          vs_top=sup;
119          V31= vs_base[0];          V31= vs_base[0];
120          V29= ((/* INLINE-ARGS */V30)==(V31)?Ct:Cnil);          V29= ((/* INLINE-ARGS */V30)==(V31)?Ct:Cnil);
 goto T28;  
 T28:;  
         if(V29==Cnil)goto T27;  
         goto T19;  
121  goto T27;  goto T27;
122  T27:;}  T27:;
123            if(V29==Cnil)goto T26;
124            goto T18;
125    goto T26;
126    T26:;}
127          base[0]= (V23);{object V32;          base[0]= (V23);{object V32;
128          V32= aref1((V24),fixint((Vcs[10]->c.c_car)));          V32= aref1((V24),fixint((Vcs[10]->c.c_car)));
129          if(V32==Cnil)goto T36;          if(V32==Cnil)goto T35;
130          base[1]= V32;          base[1]= V32;
131          goto T35;          goto T34;
132  goto T36;  goto T35;
133  T36:;}  T35:;}
134          if(!(((V24))==(symbol_value(VV[0])))){          if(!(((V24))==(symbol_value(VV[0])))){
135          goto T40;}          goto T39;}
136          V33=          V33=
137          make_cclosure_new(LC16,Cnil,Vcs[10],Cdata);          make_cclosure_new(LC16,Cnil,Vcs[10],Cdata);
138          goto T38;          goto T37;
139  goto T40;  goto T39;
140  T40:;  T39:;
141          if(!(((V24))==(symbol_value(VV[1])))){          if(!(((V24))==(symbol_value(VV[1])))){
142          goto T43;}          goto T42;}
143          V33=          V33=
144          make_cclosure_new(LC17,Cnil,Vcs[10],Cdata);          make_cclosure_new(LC17,Cnil,Vcs[10],Cdata);
145          goto T38;          goto T37;
146  goto T43;  goto T42;
147  T43:;  T42:;
148          if(!(((V24))==(symbol_value(VV[2])))){          if(!(((V24))==(symbol_value(VV[2])))){
149          goto T46;}          goto T45;}
150          V33=          V33=
151          make_cclosure_new(LC18,Cnil,Vcs[10],Cdata);          make_cclosure_new(LC18,Cnil,Vcs[10],Cdata);
152          goto T38;          goto T37;
153  goto T46;  goto T45;
154  T46:;  T45:;
155          V33= Cnil;          V33= Cnil;
156  goto T38;  goto T37;
157  T38:;  T37:;
158          base[1]= aset1((V24),fixint((Vcs[10]->c.c_car)),V33);          base[1]= aset1((V24),fixint((Vcs[10]->c.c_car)),V33);
159  goto T35;  goto T34;
160  T35:;  T34:;
161          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
162          siLfset();          siLfset();
163          vs_top=sup;          vs_top=sup;
164  goto T19;  goto T18;
165  T19:;  T18:;
166          if(((V21))==Cnil){          if(((V21))==Cnil){
167          goto T50;}          goto T49;}
168          (void)(remprop((V23),VV[6]));          (void)(remprop((V23),VV[6]));
169          (void)(sputprop((V23),VV[7],Ct));          (void)(sputprop((V23),VV[7],Ct));
170          goto T48;          goto T47;
171  goto T50;  goto T49;
172  T50:;  T49:;
173          (void)(remprop((V23),VV[8]));          (void)(remprop((V23),VV[8]));
174          (void)(remprop((V23),VV[9]));          (void)(remprop((V23),VV[9]));
175          (void)(remprop((V23),VV[10]));          (void)(remprop((V23),VV[10]));
176          {object V34;          {object V34;
177          V34= get((V23),VV[6],Cnil);          V34= get((V23),VV[6],Cnil);
178          if(!(type_of((V34))==t_cons)){          if(!(type_of((V34))==t_cons)){
179          goto T58;}          goto T57;}
180          if(((V16))==Cnil){          if(((V16))==Cnil){
181          goto T58;}          goto T57;}
182          base[0]= (V16);          base[0]= (V16);
183          base[1]= car((V34));          base[1]= car((V34));
184          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
185          (void) (*Lnk112)();          (void) (*Lnk112)();
186          vs_top=sup;          vs_top=sup;
187          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
188          goto T58;}          goto T57;}
189          if(!(eql(cdr((V34)),(Vcs[10]->c.c_car)))){          if(!(eql(cdr((V34)),(Vcs[10]->c.c_car)))){
190          goto T58;}          goto T57;}
191          V25= Ct;          V25= Ct;
192          goto T48;          goto T47;
193  goto T58;  goto T57;
194  T58:;  T57:;
195          if(((V14))==Cnil){          if(((V14))==Cnil){
196          goto T71;}          goto T70;}
197          V35= (V14);          V35= (V14);
198          goto T69;          goto T68;
199  goto T71;  goto T70;
200  T71:;  T70:;
201          V35= (V12);          V35= (V12);
202  goto T69;  goto T68;
203  T69:;  T68:;
204          V36= make_cons(V35,(Vcs[10]->c.c_car));          V36= make_cons(V35,(Vcs[10]->c.c_car));
205          (void)(sputprop((V23),VV[6],/* INLINE-ARGS */V36));}          (void)(sputprop((V23),VV[6],/* INLINE-ARGS */V36));}
206  goto T48;  goto T47;
207  T48:;  T47:;
208          {object V37 = Cnil;          {object V37 = Cnil;
209          VMR1(V37)}}          VMR1(V37)}}
210          va_end(ap);          va_end(ap);
# Line 225  TTL:; Line 225  TTL:;
225          object V51= (V47);          object V51= (V47);
226          if(endp(V51)){          if(endp(V51)){
227          V48= Cnil;          V48= Cnil;
228          goto T73;}          goto T72;}
229          base[0]=V50=MMcons(Cnil,Cnil);          base[0]=V50=MMcons(Cnil,Cnil);
230  goto T74;  goto T73;
231  T74:;  T73:;
232          if(((V51->c.c_car))!=Cnil){          if(((V51->c.c_car))!=Cnil){
233          goto T77;}          goto T76;}
234          (V50->c.c_car)= Cnil;          (V50->c.c_car)= Cnil;
235          goto T75;          goto T74;
236  goto T77;  goto T76;
237  T77:;  T76:;
238          if((car((V51->c.c_car)))!=Cnil){          if((car((V51->c.c_car)))!=Cnil){
239          goto T80;}          goto T79;}
240          (V50->c.c_car)= list(2,VV[11],cadr((V51->c.c_car)));          (V50->c.c_car)= list(2,VV[11],cadr((V51->c.c_car)));
241          goto T75;          goto T74;
242  goto T80;  goto T79;
243  T80:;  T79:;
244          (V50->c.c_car)= car((V51->c.c_car));          (V50->c.c_car)= car((V51->c.c_car));
245  goto T75;  goto T74;
246  T75:;  T74:;
247          if(endp(V51=MMcdr(V51))){          if(endp(V51=MMcdr(V51))){
248          V48= base[0];          V48= base[0];
249          goto T73;}          goto T72;}
250          V50=MMcdr(V50)=MMcons(Cnil,Cnil);          V50=MMcdr(V50)=MMcons(Cnil,Cnil);
251          goto T74;}          goto T73;}
252  goto T73;  goto T72;
253  T73:;  T72:;
254          {object V53;          {object V53;
255          object V54= (V47);          object V54= (V47);
256          if(endp(V54)){          if(endp(V54)){
257          V49= Cnil;          V49= Cnil;
258          goto T82;}          goto T81;}
259          base[0]=V53=MMcons(Cnil,Cnil);          base[0]=V53=MMcons(Cnil,Cnil);
260  goto T83;  goto T82;
261  T83:;  T82:;
262          if(((V54->c.c_car))!=Cnil){          if(((V54->c.c_car))!=Cnil){
263          goto T86;}          goto T85;}
264          (V53->c.c_cdr)= Cnil;          (V53->c.c_cdr)= Cnil;
265          goto T84;          goto T83;
266  goto T86;  goto T85;
267  T86:;  T85:;
268          if((car((V54->c.c_car)))!=Cnil){          if((car((V54->c.c_car)))!=Cnil){
269          goto T89;}          goto T88;}
270          (V53->c.c_cdr)= Cnil;          (V53->c.c_cdr)= Cnil;
271          goto T84;          goto T83;
272  goto T89;  goto T88;
273  T89:;  T88:;
274          if((cadr((V54->c.c_car)))!=Cnil){          if((cadr((V54->c.c_car)))!=Cnil){
275          goto T92;}          goto T91;}
276          (V53->c.c_cdr)= make_cons(car((V54->c.c_car)),Cnil);          (V53->c.c_cdr)= make_cons(car((V54->c.c_car)),Cnil);
277          goto T84;          goto T83;
278  goto T92;  goto T91;
279  T92:;  T91:;
280          V56= list(2,car((V54->c.c_car)),cadr((V54->c.c_car)));          V56= list(2,car((V54->c.c_car)),cadr((V54->c.c_car)));
281          (V53->c.c_cdr)= make_cons(/* INLINE-ARGS */V56,Cnil);          (V53->c.c_cdr)= make_cons(/* INLINE-ARGS */V56,Cnil);
282  goto T84;  goto T83;
283  T84:;  T83:;
284          while(!endp(MMcdr(V53)))V53=MMcdr(V53);          while(!endp(MMcdr(V53)))V53=MMcdr(V53);
285          if(endp(V54=MMcdr(V54))){          if(endp(V54=MMcdr(V54))){
286          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
287          V49= base[0];          V49= base[0];
288            goto T81;}
289          goto T82;}          goto T82;}
290          goto T83;}  goto T81;
291  goto T82;  T81:;
 T82:;  
292          if(!(type_of((V44))==t_cons)){          if(!(type_of((V44))==t_cons)){
293          goto T96;}          goto T95;}
294          {register object V57;          {register object V57;
295          register object V58;          register object V58;
296          register object V59;          register object V59;
297          V57= cadr((V44));          V57= cadr((V44));
298          V58= Cnil;          V58= Cnil;
299          V59= Cnil;          V59= Cnil;
300  goto T101;  goto T100;
301  T101:;  T100:;
302          if(!(endp((V57)))){          if(!(endp((V57)))){
303          goto T102;}          goto T101;}
304          base[0]= make_cons(VV[12],(V58));          base[0]= make_cons(VV[12],(V58));
305          {object V60;          {object V60;
306          object V61= (V49);          object V61= (V49);
307          if(endp(V61)){          if(endp(V61)){
308          base[1]= Cnil;          base[1]= Cnil;
309          goto T107;}          goto T106;}
310          base[2]=V60=MMcons(Cnil,Cnil);          base[2]=V60=MMcons(Cnil,Cnil);
311  goto T108;  goto T107;
312  T108:;  T107:;
313          if(!(type_of((V61->c.c_car))!=t_cons)){          if(!(type_of((V61->c.c_car))!=t_cons)){
314          goto T115;}          goto T114;}
315          V64= (V61->c.c_car);          V64= (V61->c.c_car);
316          goto T113;          goto T112;
317  goto T115;  goto T114;
318  T115:;  T114:;
319          V64= car((V61->c.c_car));          V64= car((V61->c.c_car));
320  goto T113;  goto T112;
321  T113:;  T112:;
322          {register object x= V64,V63= (V59);          {register object x= V64,V63= (V59);
323          while(!endp(V63))          while(!endp(V63))
324          if(eql(x,V63->c.c_car)){          if(eql(x,V63->c.c_car)){
325          goto T112;          goto T111;
326          }else V63=V63->c.c_cdr;          }else V63=V63->c.c_cdr;
327          goto T111;}          goto T110;}
 goto T112;  
 T112:;  
         (V60->c.c_cdr)= Cnil;  
         goto T109;  
328  goto T111;  goto T111;
329  T111:;  T111:;
330            (V60->c.c_cdr)= Cnil;
331            goto T108;
332    goto T110;
333    T110:;
334          (V60->c.c_cdr)= make_cons((V61->c.c_car),Cnil);          (V60->c.c_cdr)= make_cons((V61->c.c_car),Cnil);
335  goto T109;  goto T108;
336  T109:;  T108:;
337          while(!endp(MMcdr(V60)))V60=MMcdr(V60);          while(!endp(MMcdr(V60)))V60=MMcdr(V60);
338          if(endp(V61=MMcdr(V61))){          if(endp(V61=MMcdr(V61))){
339          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
340          base[1]= base[2];          base[1]= base[2];
341            goto T106;}
342          goto T107;}          goto T107;}
343          goto T108;}  goto T106;
344  goto T107;  T106:;
 T107:;  
345          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
346          Lreconc();          Lreconc();
347          vs_top=sup;          vs_top=sup;
348          V49= vs_base[0];          V49= vs_base[0];
349          goto T98;          goto T97;
350  goto T102;  goto T101;
351  T102:;  T101:;
352          {register object x= car((V57)),V65= VV[13];          {register object x= car((V57)),V65= VV[13];
353          while(!endp(V65))          while(!endp(V65))
354          if(eql(x,V65->c.c_car)){          if(eql(x,V65->c.c_car)){
355          goto T120;          goto T119;
356          }else V65=V65->c.c_cdr;          }else V65=V65->c.c_cdr;
357          goto T118;}          goto T117;}
358    goto T119;
359    T119:;
360            if(!((car((V57)))==(VV[14]))){
361            goto T120;}
362            goto T117;
363  goto T120;  goto T120;
364  T120:;  T120:;
         if(!((car((V57)))==(VV[14]))){  
         goto T121;}  
         goto T118;  
 goto T121;  
 T121:;  
365          V57= make_cons(VV[14],(V57));          V57= make_cons(VV[14],(V57));
366  goto T118;  goto T117;
367  T118:;  T117:;
368          if(!((car((V57)))==(VV[14]))){          if(!((car((V57)))==(VV[14]))){
369          goto T126;}          goto T125;}
370          V58= make_cons(VV[14],(V58));          V58= make_cons(VV[14],(V58));
371          {register object V66;          {register object V66;
372          object V67;          object V67;
# Line 374  T118:; Line 374  T118:;
374          V66= cdr((V57));          V66= cdr((V57));
375          V67= Cnil;          V67= Cnil;
376          V68= Cnil;          V68= Cnil;
377  goto T133;  goto T132;
378  T133:;  T132:;
379          if(!(endp((V66)))){          if(!(endp((V66)))){
380          goto T134;}          goto T133;}
381          base[0]= make_cons(VV[12],(V58));          base[0]= make_cons(VV[12],(V58));
382          {object V69;          {object V69;
383          object V70= (V49);          object V70= (V49);
384          if(endp(V70)){          if(endp(V70)){
385          base[1]= Cnil;          base[1]= Cnil;
386          goto T140;}          goto T139;}
387          base[2]=V69=MMcons(Cnil,Cnil);          base[2]=V69=MMcons(Cnil,Cnil);
388  goto T141;  goto T140;
389  T141:;  T140:;
390          if(!(type_of((V70->c.c_car))!=t_cons)){          if(!(type_of((V70->c.c_car))!=t_cons)){
391          goto T148;}          goto T147;}
392          V73= (V70->c.c_car);          V73= (V70->c.c_car);
393          goto T146;          goto T145;
394  goto T148;  goto T147;
395  T148:;  T147:;
396          V73= car((V70->c.c_car));          V73= car((V70->c.c_car));
397  goto T146;  goto T145;
398  T146:;  T145:;
399          {register object x= V73,V72= (V59);          {register object x= V73,V72= (V59);
400          while(!endp(V72))          while(!endp(V72))
401          if(eql(x,V72->c.c_car)){          if(eql(x,V72->c.c_car)){
402          goto T145;          goto T144;
403          }else V72=V72->c.c_cdr;          }else V72=V72->c.c_cdr;
404          goto T144;}          goto T143;}
 goto T145;  
 T145:;  
         (V69->c.c_cdr)= Cnil;  
         goto T142;  
405  goto T144;  goto T144;
406  T144:;  T144:;
407            (V69->c.c_cdr)= Cnil;
408            goto T141;
409    goto T143;
410    T143:;
411          (V69->c.c_cdr)= make_cons((V70->c.c_car),Cnil);          (V69->c.c_cdr)= make_cons((V70->c.c_car),Cnil);
412  goto T142;  goto T141;
413  T142:;  T141:;
414          while(!endp(MMcdr(V69)))V69=MMcdr(V69);          while(!endp(MMcdr(V69)))V69=MMcdr(V69);
415          if(endp(V70=MMcdr(V70))){          if(endp(V70=MMcdr(V70))){
416          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
417          base[1]= base[2];          base[1]= base[2];
418            goto T139;}
419          goto T140;}          goto T140;}
420          goto T141;}  goto T139;
421  goto T140;  T139:;
 T140:;  
422          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
423          Lreconc();          Lreconc();
424          vs_top=sup;          vs_top=sup;
425          V49= vs_base[0];          V49= vs_base[0];
426          goto T130;          goto T129;
427  goto T134;  goto T133;
428  T134:;  T133:;
429          {register object x= car((V66)),V74= VV[13];          {register object x= car((V66)),V74= VV[13];
430          while(!endp(V74))          while(!endp(V74))
431          if(eql(x,V74->c.c_car)){          if(eql(x,V74->c.c_car)){
432          goto T153;          goto T152;
433          }else V74=V74->c.c_cdr;          }else V74=V74->c.c_cdr;
434          goto T151;}          goto T150;}
435  goto T153;  goto T152;
436  T153:;  T152:;
437          if(!((car((V66)))==(VV[15]))){          if(!((car((V66)))==(VV[15]))){
438          goto T154;}          goto T153;}
439          V58= make_cons(VV[15],(V58));          V58= make_cons(VV[15],(V58));
440          V66= cdr((V66));          V66= cdr((V66));
441          if(endp((V66))){          if(endp((V66))){
         goto T162;}  
         if(type_of(car((V66)))==t_symbol){  
442          goto T161;}          goto T161;}
443  goto T162;          if(type_of(car((V66)))==t_symbol){
444  T162:;          goto T160;}
         (void)((*(LnkLI113))());  
445  goto T161;  goto T161;
446  T161:;  T161:;
447            (void)((*(LnkLI113))());
448    goto T160;
449    T160:;
450          V59= make_cons(car((V66)),(V59));          V59= make_cons(car((V66)),(V59));
451          V58= make_cons(car((V66)),(V58));          V58= make_cons(car((V66)),(V58));
452          V66= cdr((V66));          V66= cdr((V66));
453          if(!(endp((V66)))){          if(!(endp((V66)))){
454          goto T154;}          goto T153;}
455          base[0]= make_cons(VV[12],(V58));          base[0]= make_cons(VV[12],(V58));
456          {object V75;          {object V75;
457          object V76= (V49);          object V76= (V49);
458          if(endp(V76)){          if(endp(V76)){
459          base[1]= Cnil;          base[1]= Cnil;
460          goto T177;}          goto T176;}
461          base[2]=V75=MMcons(Cnil,Cnil);          base[2]=V75=MMcons(Cnil,Cnil);
462  goto T178;  goto T177;
463  T178:;  T177:;
464          if(!(type_of((V76->c.c_car))!=t_cons)){          if(!(type_of((V76->c.c_car))!=t_cons)){
465          goto T185;}          goto T184;}
466          V79= (V76->c.c_car);          V79= (V76->c.c_car);
467          goto T183;          goto T182;
468  goto T185;  goto T184;
469  T185:;  T184:;
470          V79= car((V76->c.c_car));          V79= car((V76->c.c_car));
471  goto T183;  goto T182;
472  T183:;  T182:;
473          {register object x= V79,V78= (V59);          {register object x= V79,V78= (V59);
474          while(!endp(V78))          while(!endp(V78))
475          if(eql(x,V78->c.c_car)){          if(eql(x,V78->c.c_car)){
476          goto T182;          goto T181;
477          }else V78=V78->c.c_cdr;          }else V78=V78->c.c_cdr;
478          goto T181;}          goto T180;}
 goto T182;  
 T182:;  
         (V75->c.c_cdr)= Cnil;  
         goto T179;  
479  goto T181;  goto T181;
480  T181:;  T181:;
481            (V75->c.c_cdr)= Cnil;
482            goto T178;
483    goto T180;
484    T180:;
485          (V75->c.c_cdr)= make_cons((V76->c.c_car),Cnil);          (V75->c.c_cdr)= make_cons((V76->c.c_car),Cnil);
486  goto T179;  goto T178;
487  T179:;  T178:;
488          while(!endp(MMcdr(V75)))V75=MMcdr(V75);          while(!endp(MMcdr(V75)))V75=MMcdr(V75);
489          if(endp(V76=MMcdr(V76))){          if(endp(V76=MMcdr(V76))){
490          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
491          base[1]= base[2];          base[1]= base[2];
492            goto T176;}
493          goto T177;}          goto T177;}
494          goto T178;}  goto T176;
495  goto T177;  T176:;
 T177:;  
496          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
497          Lreconc();          Lreconc();
498          vs_top=sup;          vs_top=sup;
499          V49= vs_base[0];          V49= vs_base[0];
500          goto T130;          goto T129;
501  goto T154;  goto T153;
502  T154:;  T153:;
503          if((car((V66)))==(VV[12])){          if((car((V66)))==(VV[12])){
504          goto T187;}          goto T186;}
505          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
506  goto T187;  goto T186;
507  T187:;  T186:;
508          V58= make_cons(VV[12],(V58));          V58= make_cons(VV[12],(V58));
509          {register object V80;          {register object V80;
510          V80= cdr((V66));          V80= cdr((V66));
511    goto T194;
512    T194:;
513            if(!(endp((V80)))){
514            goto T195;}
515            goto T191;
516  goto T195;  goto T195;
517  T195:;  T195:;
         if(!(endp((V80)))){  
         goto T196;}  
         goto T192;  
 goto T196;  
 T196:;  
518          V58= make_cons(car((V80)),(V58));          V58= make_cons(car((V80)),(V58));
519          if(!(type_of(car((V80)))!=t_cons)){          if(!(type_of(car((V80)))!=t_cons)){
520          goto T204;}          goto T203;}
521          if(!(type_of(car((V80)))==t_symbol)){          if(!(type_of(car((V80)))==t_symbol)){
522          goto T204;}          goto T203;}
523          V59= make_cons(car((V80)),(V59));          V59= make_cons(car((V80)),(V59));
524          goto T202;          goto T201;
525  goto T204;  goto T203;
526  T204:;  T203:;
527          if(!(type_of(caar((V80)))==t_symbol)){          if(!(type_of(caar((V80)))==t_symbol)){
         goto T210;}  
         if(endp(cdar((V80)))){  
528          goto T209;}          goto T209;}
529            if(endp(cdar((V80)))){
530            goto T208;}
531          if(!(endp(cddar((V80))))){          if(!(endp(cddar((V80))))){
532          goto T210;}          goto T209;}
533    goto T208;
534    T208:;
535            V59= make_cons(caar((V80)),(V59));
536            goto T201;
537  goto T209;  goto T209;
538  T209:;  T209:;
         V59= make_cons(caar((V80)),(V59));  
         goto T202;  
 goto T210;  
 T210:;  
539          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
540  goto T202;  goto T201;
541  T202:;  T201:;
542          V80= cdr((V80));          V80= cdr((V80));
543          goto T195;}          goto T194;}
544  goto T192;  goto T191;
545  T192:;  T191:;
546          base[0]= (V58);          base[0]= (V58);
547          {object V81;          {object V81;
548          object V82= (V49);          object V82= (V49);
549          if(endp(V82)){          if(endp(V82)){
550          base[1]= Cnil;          base[1]= Cnil;
551          goto T223;}          goto T222;}
552          base[2]=V81=MMcons(Cnil,Cnil);          base[2]=V81=MMcons(Cnil,Cnil);
553  goto T224;  goto T223;
554  T224:;  T223:;
555          if(!(type_of((V82->c.c_car))!=t_cons)){          if(!(type_of((V82->c.c_car))!=t_cons)){
556          goto T231;}          goto T230;}
557          V85= (V82->c.c_car);          V85= (V82->c.c_car);
558          goto T229;          goto T228;
559  goto T231;  goto T230;
560  T231:;  T230:;
561          V85= car((V82->c.c_car));          V85= car((V82->c.c_car));
562  goto T229;  goto T228;
563  T229:;  T228:;
564          {register object x= V85,V84= (V59);          {register object x= V85,V84= (V59);
565          while(!endp(V84))          while(!endp(V84))
566          if(eql(x,V84->c.c_car)){          if(eql(x,V84->c.c_car)){
567          goto T228;          goto T227;
568          }else V84=V84->c.c_cdr;          }else V84=V84->c.c_cdr;
569          goto T227;}          goto T226;}
 goto T228;  
 T228:;  
         (V81->c.c_cdr)= Cnil;  
         goto T225;  
570  goto T227;  goto T227;
571  T227:;  T227:;
572            (V81->c.c_cdr)= Cnil;
573            goto T224;
574    goto T226;
575    T226:;
576          (V81->c.c_cdr)= make_cons((V82->c.c_car),Cnil);          (V81->c.c_cdr)= make_cons((V82->c.c_car),Cnil);
577  goto T225;  goto T224;
578  T225:;  T224:;
579          while(!endp(MMcdr(V81)))V81=MMcdr(V81);          while(!endp(MMcdr(V81)))V81=MMcdr(V81);
580          if(endp(V82=MMcdr(V82))){          if(endp(V82=MMcdr(V82))){
581          base[2]=base[2]->c.c_cdr;          base[2]=base[2]->c.c_cdr;
582          base[1]= base[2];          base[1]= base[2];
583            goto T222;}
584          goto T223;}          goto T223;}
585          goto T224;}  goto T222;
586  goto T223;  T222:;
 T223:;  
587          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
588          Lreconc();          Lreconc();
589          vs_top=sup;          vs_top=sup;
590          V49= vs_base[0];          V49= vs_base[0];
591          goto T130;          goto T129;
592  goto T151;  goto T150;
593  T151:;  T150:;
594          if(!(type_of(car((V66)))!=t_cons)){          if(!(type_of(car((V66)))!=t_cons)){
595          goto T239;}          goto T238;}
596          V67= car((V66));          V67= car((V66));
597          goto T237;          goto T236;
598  goto T239;  goto T238;
599  T239:;  T238:;
600          if(!(endp(cdar((V66))))){          if(!(endp(cdar((V66))))){
601          goto T244;}          goto T243;}
602          V67= caar((V66));          V67= caar((V66));
603          goto T237;          goto T236;
604  goto T244;  goto T243;
605  T244:;  T243:;
606          goto T235;          goto T234;
607  goto T237;  goto T236;
608  T237:;  T236:;
609          base[0]= (V67);          base[0]= (V67);
610          base[1]= (V49);          base[1]= (V49);
611          base[2]= VV[16];          base[2]= VV[16];
# Line 615  T237:; Line 615  T237:;
615          vs_top=sup;          vs_top=sup;
616          V68= vs_base[0];          V68= vs_base[0];
617          if(((V68))==Cnil){          if(((V68))==Cnil){
618          goto T235;}          goto T234;}
619          V58= make_cons(car((V68)),(V58));          V58= make_cons(car((V68)),(V58));
620          goto T233;          goto T232;
621  goto T235;  goto T234;
622  T235:;  T234:;
623          V58= make_cons(car((V66)),(V58));          V58= make_cons(car((V66)),(V58));
624  goto T233;  goto T232;
625  T233:;  T232:;
626          if(!(type_of(car((V66)))!=t_cons)){          if(!(type_of(car((V66)))!=t_cons)){
627          goto T258;}          goto T257;}
628          if(type_of(car((V66)))==t_symbol){          if(type_of(car((V66)))==t_symbol){
629          goto T260;}          goto T259;}
630          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
631  goto T260;  goto T259;
632  T260:;  T259:;
633          V59= make_cons(car((V66)),(V59));          V59= make_cons(car((V66)),(V59));
634          goto T256;          goto T255;
635  goto T258;  goto T257;
636  T258:;  T257:;
637          if(type_of(caar((V66)))==t_symbol){          if(type_of(caar((V66)))==t_symbol){
638          goto T265;}          goto T264;}
639          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
640          goto T256;          goto T255;
641  goto T265;  goto T264;
642  T265:;  T264:;
643          if(endp(cdar((V66)))){          if(endp(cdar((V66)))){
644          goto T267;}          goto T266;}
645          if(!(endp(cddar((V66))))){          if(!(endp(cddar((V66))))){
646          goto T268;}          goto T267;}
647    goto T266;
648    T266:;
649            V59= make_cons(caar((V66)),(V59));
650            goto T255;
651  goto T267;  goto T267;
652  T267:;  T267:;
         V59= make_cons(caar((V66)),(V59));  
         goto T256;  
 goto T268;  
 T268:;  
653          if(type_of(caddar((V66)))==t_symbol){          if(type_of(caddar((V66)))==t_symbol){
654          goto T274;}          goto T273;}
655          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
656          goto T256;          goto T255;
657  goto T274;  goto T273;
658  T274:;  T273:;
659          if(endp(cdddar((V66)))){          if(endp(cdddar((V66)))){
660          goto T277;}          goto T276;}
661          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
662          goto T256;          goto T255;
663  goto T277;  goto T276;
664  T277:;  T276:;
665          V59= make_cons(caar((V66)),(V59));          V59= make_cons(caar((V66)),(V59));
666          V59= make_cons(caddar((V66)),(V59));          V59= make_cons(caddar((V66)),(V59));
667  goto T256;  goto T255;
668  T256:;  T255:;
669          V66= cdr((V66));          V66= cdr((V66));
670          goto T133;}          goto T132;}
671  goto T130;  goto T129;
672  T130:;  T129:;
673          goto T98;          goto T97;
674  goto T126;  goto T125;
675  T126:;  T125:;
676          if(type_of(car((V57)))==t_symbol){          if(type_of(car((V57)))==t_symbol){
677          goto T285;}          goto T284;}
678          (void)((*(LnkLI113))());          (void)((*(LnkLI113))());
679  goto T285;  goto T284;
680  T285:;  T284:;
681          V58= make_cons(car((V57)),(V58));          V58= make_cons(car((V57)),(V58));
682          V59= make_cons(car((V57)),(V59));          V59= make_cons(car((V57)),(V59));
683          V57= cdr((V57));          V57= cdr((V57));
684          goto T101;}          goto T100;}
685  goto T98;  goto T97;
686  T98:;  T97:;
687          V44= car((V44));          V44= car((V44));
688          goto T94;          goto T93;
689  goto T96;  goto T95;
690  T96:;  T95:;
691          V49= make_cons(VV[17],(V49));          V49= make_cons(VV[17],(V49));
692  goto T94;  goto T93;
693  T94:;  T93:;
694          if(((V45))!=Cnil){          if(((V45))!=Cnil){
695          goto T297;}          goto T296;}
696          {object V86 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48)));          {object V86 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48)));
697          VMR2(V86)}          VMR2(V86)}
698  goto T297;  goto T296;
699  T297:;  T296:;
700          if(((V45))==(VV[19])){          if(((V45))==(VV[19])){
701          goto T299;}          goto T298;}
702          if(!(type_of((V45))==t_cons)){          if(!(type_of((V45))==t_cons)){
703          goto T300;}          goto T299;}
704          if(!((car((V45)))==(VV[19]))){          if(!((car((V45)))==(VV[19]))){
705          goto T300;}          goto T299;}
706  goto T299;  goto T298;
707  T299:;  T298:;
708          {object V87 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48)));          {object V87 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48)));
709          VMR2(V87)}          VMR2(V87)}
710  goto T300;  goto T299;
711  T300:;  T299:;
712          if(!(((V45))==(VV[20]))){          if(!(((V45))==(VV[20]))){
713          goto T307;}          goto T306;}
714          {object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48)));          {object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48)));
715          VMR2(V88)}          VMR2(V88)}
716  goto T307;  goto T306;
717  T307:;  T306:;
718          {object V89;          {object V89;
719          base[0]= VV[21];          base[0]= VV[21];
720          base[1]= (V45);          base[1]= (V45);
# Line 723  T307:; Line 723  T307:;
723          vs_top=sup;          vs_top=sup;
724          V89= vs_base[0];          V89= vs_base[0];
725          if(((V89))==Cnil){          if(((V89))==Cnil){
726          goto T313;}          goto T312;}
727          {object V90 = (V89);          {object V90 = (V89);
728          VMR2(V90)}          VMR2(V90)}
729  goto T313;  goto T312;
730  T313:;  T312:;
731          {object V91 = Cnil;          {object V91 = Cnil;
732          VMR2(V91)}}}          VMR2(V91)}}}
733          base[0]=base[0];          base[0]=base[0];
# Line 760  TTL:; Line 760  TTL:;
760          {object V103;          {object V103;
761          V103= (((V100))==Cnil?Ct:Cnil);          V103= (((V100))==Cnil?Ct:Cnil);
762          if(((V103))==Cnil){          if(((V103))==Cnil){
763          goto T318;}          goto T317;}
764          {object V104 = (V103);          {object V104 = (V103);
765          VMR4(V104)}          VMR4(V104)}
766  goto T318;  goto T317;
767  T318:;  T317:;
768          if(((V100))==(VV[19])){          if(((V100))==(VV[19])){
769          goto T320;}          goto T319;}
770          if(!(type_of((V100))==t_cons)){          if(!(type_of((V100))==t_cons)){
771          goto T321;}          goto T320;}
772          if(!((car((V100)))==(VV[19]))){          if(!((car((V100)))==(VV[19]))){
773          goto T321;}          goto T320;}
774  goto T320;  goto T319;
775  T320:;  T319:;
776          if(((V101))!=Cnil){          if(((V101))!=Cnil){
777          goto T327;}          goto T326;}
778          base[0]= VV[23];          base[0]= VV[23];
779          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
780          Lerror();          Lerror();
781          vs_top=sup;          vs_top=sup;
782  goto T327;  goto T326;
783  T327:;  T326:;
784          V105= list(3,VV[27],VV[28],(V102));          V105= list(3,VV[27],VV[28],(V102));
785          V106= list(3,VV[30],VV[31],(V102));          V106= list(3,VV[30],VV[31],(V102));
786          {object V107 = list(4,VV[3],(V99),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V105,list(3,VV[29],/* INLINE-ARGS */V106,list(2,VV[11],(V98)))));          {object V107 = list(4,VV[3],(V99),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V105,list(3,VV[29],/* INLINE-ARGS */V106,list(2,VV[11],(V98)))));
787          VMR4(V107)}          VMR4(V107)}
788  goto T321;  goto T320;
789  T321:;  T320:;
790          if(!(((V100))==(VV[20]))){          if(!(((V100))==(VV[20]))){
791          goto T332;}          goto T331;}
792          if(((V101))!=Cnil){          if(((V101))!=Cnil){
793          goto T334;}          goto T333;}
794          base[0]= VV[32];          base[0]= VV[32];
795          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
796          Lerror();          Lerror();
797          vs_top=sup;          vs_top=sup;
798  goto T334;  goto T333;
799  T334:;  T333:;
800          if(!(number_compare((V102),small_fixnum(0))==0)){          if(!(number_compare((V102),small_fixnum(0))==0)){
801          goto T339;}          goto T338;}
802          {object V108 = list(4,VV[3],(V99),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V98)))));          {object V108 = list(4,VV[3],(V99),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V98)))));
803          VMR4(V108)}          VMR4(V108)}
804  goto T339;  goto T338;
805  T339:;  T338:;
806          V109= list(3,VV[38],(V102),VV[39]);          V109= list(3,VV[38],(V102),VV[39]);
807          base[0]= cdr(symbol_value(VV[40]));          base[0]= cdr(symbol_value(VV[40]));
808          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 815  T339:; Line 815  T339:;
815          V114= list(2,VV[41],list(3,VV[25],/* INLINE-ARGS */V112,list(3,VV[29],/* INLINE-ARGS */V113,list(2,VV[11],(V98)))));          V114= list(2,VV[41],list(3,VV[25],/* INLINE-ARGS */V112,list(3,VV[29],/* INLINE-ARGS */V113,list(2,VV[11],(V98)))));
816          {object V115 = list(4,VV[3],(V99),VV[36],list(5,VV[37],/* INLINE-ARGS */V111,/* INLINE-ARGS */V114,VV[44],list(3,VV[45],make_cons(VV[42],Cnil),VV[46])));          {object V115 = list(4,VV[3],(V99),VV[36],list(5,VV[37],/* INLINE-ARGS */V111,/* INLINE-ARGS */V114,VV[44],list(3,VV[45],make_cons(VV[42],Cnil),VV[46])));
817          VMR4(V115)}          VMR4(V115)}
818  goto T332;  goto T331;
819  T332:;  T331:;
820          {object V116;          {object V116;
821          base[0]= VV[47];          base[0]= VV[47];
822          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 824  T332:; Line 824  T332:;
824          vs_top=sup;          vs_top=sup;
825          V116= vs_base[0];          V116= vs_base[0];
826          if(((V116))==Cnil){          if(((V116))==Cnil){
827          goto T346;}          goto T345;}
828          {object V117 = (V116);          {object V117 = (V116);
829          VMR4(V117)}          VMR4(V117)}
830  goto T346;  goto T345;
831  T346:;  T345:;
832          {object V118 = Cnil;          {object V118 = Cnil;
833          VMR4(V118)}}}          VMR4(V118)}}}
834          base[0]=base[0];          base[0]=base[0];
# Line 851  TTL:; Line 851  TTL:;
851          V125= Cnil;          V125= Cnil;
852          V126= Cnil;          V126= Cnil;
853          if(!(type_of((V121))!=t_cons)){          if(!(type_of((V121))!=t_cons)){
854          goto T350;}          goto T349;}
855          V123= (V121);          V123= (V121);
856          goto T348;          goto T347;
857  goto T350;  goto T349;
858  T350:;  T349:;
859          if(!(endp(cdr((V121))))){          if(!(endp(cdr((V121))))){
860          goto T354;}          goto T353;}
861          V123= car((V121));          V123= car((V121));
862          goto T348;          goto T347;
863  goto T354;  goto T353;
864  T354:;  T353:;
865          V123= car((V121));          V123= car((V121));
866          V124= cadr((V121));          V124= cadr((V121));
867          {register object V127;          {register object V127;
# Line 870  T354:; Line 870  T354:;
870          V127= cddr((V121));          V127= cddr((V121));
871          V128= Cnil;          V128= Cnil;
872          V129= Cnil;          V129= Cnil;
873    goto T362;
874    T362:;
875            if(!(endp((V127)))){
876            goto T363;}
877            goto T347;
878  goto T363;  goto T363;
879  T363:;  T363:;
         if(!(endp((V127)))){  
         goto T364;}  
         goto T348;  
 goto T364;  
 T364:;  
880          V128= car((V127));          V128= car((V127));
881          if(!(endp(cdr((V127))))){          if(!(endp(cdr((V127))))){
882          goto T370;}          goto T369;}
883          base[0]= VV[48];          base[0]= VV[48];
884          base[1]= (V127);          base[1]= (V127);
885          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
886          Lerror();          Lerror();
887          vs_top=sup;          vs_top=sup;
888  goto T370;  goto T369;
889  T370:;  T369:;
890          V129= cadr((V127));          V129= cadr((V127));
891          {object V130= (V128);          {object V130= (V128);
892          if((V130!= VV[77]))goto T378;          if((V130!= VV[77]))goto T377;
893          V125= (V129);          V125= (V129);
894          goto T377;          goto T376;
895  goto T378;  goto T377;
896  T378:;  T377:;
897          if((V130!= VV[116]))goto T380;          if((V130!= VV[116]))goto T379;
898          V126= (V129);          V126= (V129);
899          goto T377;          goto T376;
900  goto T380;  goto T379;
901  T380:;  T379:;
902          base[0]= VV[49];          base[0]= VV[49];
903          base[1]= (V127);          base[1]= (V127);
904          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
905          Lerror();          Lerror();
906          vs_top=sup;}          vs_top=sup;}
907  goto T377;  goto T376;
908  T377:;  T376:;
909          V127= cddr((V127));          V127= cddr((V127));
910          goto T363;}          goto T362;}
911  goto T348;  goto T347;
912  T348:;  T347:;
913          {object V131 = list(5,(V123),(V124),(V125),(V126),(V122));          {object V131 = list(5,(V123),(V124),(V125),(V126),(V122));
914          VMR5(V131)}}          VMR5(V131)}}
915          base[0]=base[0];          base[0]=base[0];
# Line 924  object V134;register object V135; Line 924  object V134;register object V135;
924  goto TTL;  goto TTL;
925  TTL:;  TTL:;
926          if(((V135))!=Cnil){          if(((V135))!=Cnil){
927          goto T388;}          goto T387;}
928          {object V136 = Cnil;          {object V136 = Cnil;
929          VMR6(V136)}          VMR6(V136)}
930  goto T388;  goto T387;
931  T388:;  T387:;
932          {register object V137;          {register object V137;
933          base[0]= caar((V135));          base[0]= caar((V135));
934          base[1]= (V134);          base[1]= (V134);
# Line 939  T388:; Line 939  T388:;
939          vs_top=sup;          vs_top=sup;
940          V137= vs_base[0];          V137= vs_base[0];
941          if(((V137))==Cnil){          if(((V137))==Cnil){
942          goto T396;}          goto T395;}
943          if((cadddr(car((V137))))!=Cnil){          if((cadddr(car((V137))))!=Cnil){
944          goto T398;}          goto T397;}
945          if((cadddr(car((V135))))==Cnil){          if((cadddr(car((V135))))==Cnil){
946          goto T398;}          goto T397;}
947          base[0]= VV[50];          base[0]= VV[50];
948          base[1]= (V137);          base[1]= (V137);
949          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
950          Lerror();          Lerror();
951          vs_top=sup;          vs_top=sup;
952  goto T398;  goto T397;
953  T398:;  T397:;
954          {object V138;          {object V138;
955          object V139;          object V139;
956          V138= car((V137));          V138= car((V137));
# Line 959  T398:; Line 959  T398:;
959          (cddr((V138)))->c.c_car = (V139);          (cddr((V138)))->c.c_car = (V139);
960          (void)(cddr((V138)));}{object V141;          (void)(cddr((V138)));}{object V141;
961          V141= caddr(car((V137)));          V141= caddr(car((V137)));
962          if(V141==Cnil)goto T413;          if(V141==Cnil)goto T412;
963          V140= V141;          V140= V141;
964          goto T412;          goto T411;
 goto T413;  
 T413:;}  
         V140= Ct;  
965  goto T412;  goto T412;
966  T412:;  T412:;}
967            V140= Ct;
968    goto T411;
969    T411:;
970          V142= (*(LnkLI118))(V140);{object V144;          V142= (*(LnkLI118))(V140);{object V144;
971          V144= caddr(car((V135)));          V144= caddr(car((V135)));
972          if(V144==Cnil)goto T416;          if(V144==Cnil)goto T415;
973          V143= V144;          V143= V144;
974          goto T415;          goto T414;
 goto T416;  
 T416:;}  
         V143= Ct;  
975  goto T415;  goto T415;
976  T415:;  T415:;}
977            V143= Ct;
978    goto T414;
979    T414:;
980          V145= (*(LnkLI118))(V143);          V145= (*(LnkLI118))(V143);
981          if(equal(/* INLINE-ARGS */V142,/* INLINE-ARGS */V145)){          if(equal(/* INLINE-ARGS */V142,/* INLINE-ARGS */V145)){
982          goto T409;}          goto T408;}
983          base[0]= VV[51];          base[0]= VV[51];
984          base[1]= car((V137));          base[1]= car((V137));
985          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
986          Lerror();          Lerror();
987          vs_top=sup;          vs_top=sup;
988  goto T409;  goto T408;
989  T409:;  T408:;
990          V146= list(5,caar((V137)),cadar((V137)),caddar((V137)),cadddr(car((V137))),car(cddddr(car((V135)))));          V146= list(5,caar((V137)),cadar((V137)),caddar((V137)),cadddr(car((V137))),car(cddddr(car((V135)))));
991          V147= (*(LnkLI119))((V134),cdr((V135)));          V147= (*(LnkLI119))((V134),cdr((V135)));
992          {object V148 = make_cons(/* INLINE-ARGS */V146,/* INLINE-ARGS */V147);          {object V148 = make_cons(/* INLINE-ARGS */V146,/* INLINE-ARGS */V147);
993          VMR6(V148)}          VMR6(V148)}
994  goto T396;  goto T395;
995  T396:;  T395:;
996          V149= car((V135));          V149= car((V135));
997          V150= (*(LnkLI119))((V134),cdr((V135)));          V150= (*(LnkLI119))((V134),cdr((V135)));
998          {object V151 = make_cons(/* INLINE-ARGS */V149,/* INLINE-ARGS */V150);          {object V151 = make_cons(/* INLINE-ARGS */V149,/* INLINE-ARGS */V150);
# Line 1013  TTL:; Line 1013  TTL:;
1013          {register object V159;          {register object V159;
1014          V159= (VFUN_NARGS=5,(*(LnkLI120))((V155),VV[52],VV[53],VV[54],Ct));          V159= (VFUN_NARGS=5,(*(LnkLI120))((V155),VV[52],VV[53],VV[54],Ct));
1015          if(((V156))==Cnil){          if(((V156))==Cnil){
1016          goto T422;}          goto T421;}
1017          {object V160;          {object V160;
1018          object V161;          object V161;
1019          V160= get((V156),VV[55],Cnil);          V160= get((V156),VV[55],Cnil);
1020          V161= Cnil;          V161= Cnil;
1021          if((V160)!=Cnil){          if((V160)!=Cnil){
1022          goto T426;}          goto T425;}
1023          base[0]= VV[56];          base[0]= VV[56];
1024          base[1]= (V156);          base[1]= (V156);
1025          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1026          Lerror();          Lerror();
1027          vs_top=sup;          vs_top=sup;
1028  goto T426;  goto T425;
1029  T426:;  T425:;
1030          V161= structure_ref((V160),VV[55],2);          V161= structure_ref((V160),VV[55],2);
1031          {object V162;          {object V162;
1032          register object V163;          register object V163;
1033          V164 = make_fixnum((long)length((V161)));          V164 = make_fixnum((long)length((V161)));
1034          V162= (number_compare((V155),V164)<=0?((V155)):V164);          V162= (number_compare((V155),V164)<=0?((V155)):V164);
1035          V163= small_fixnum(0);          V163= small_fixnum(0);
1036    goto T433;
1037    T433:;
1038            if(!(number_compare((V163),(V162))>=0)){
1039            goto T434;}
1040            goto T421;
1041  goto T434;  goto T434;
1042  T434:;  T434:;
         if(!(number_compare((V163),(V162))>=0)){  
         goto T435;}  
         goto T422;  
 goto T435;  
 T435:;  
1043          V165= aref1((V161),fixint((V163)));          V165= aref1((V161),fixint((V163)));
1044          (void)(aset1((V159),fixint((V163)),/* INLINE-ARGS */V165));          (void)(aset1((V159),fixint((V163)),/* INLINE-ARGS */V165));
1045          V163= one_plus((V163));          V163= one_plus((V163));
1046          goto T434;}}          goto T433;}}
1047  goto T422;  goto T421;
1048  T422:;  T421:;
1049          {register object V166;          {register object V166;
1050          register object V167;          register object V167;
1051          V166= (V157);          V166= (V157);
1052          V167= car((V166));          V167= car((V166));
1053    goto T446;
1054    T446:;
1055            if(!(endp((V166)))){
1056            goto T447;}
1057            goto T442;
1058  goto T447;  goto T447;
1059  T447:;  T447:;
         if(!(endp((V166)))){  
         goto T448;}  
         goto T443;  
 goto T448;  
 T448:;  
1060          V158= car(cddddr((V167)));          V158= car(cddddr((V167)));
1061          {register object V168;          {register object V168;
1062          V168= caddr((V167));          V168= caddr((V167));
# Line 1066  T448:; Line 1066  T448:;
1066          vs_top=sup;          vs_top=sup;
1067          V169= vs_base[0];          V169= vs_base[0];
1068          if(!(number_compare(V169,symbol_value(VV[57]))<=0)){          if(!(number_compare(V169,symbol_value(VV[57]))<=0)){
1069          goto T454;}          goto T453;}
1070          base[1]= (V168);          base[1]= (V168);
1071          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1072          (void) (*Lnk122)();          (void) (*Lnk122)();
1073          vs_top=sup;          vs_top=sup;
1074          V170= vs_base[0];          V170= vs_base[0];
1075          (void)(aset1((V159),fixint((V158)),V170));}          (void)(aset1((V159),fixint((V158)),V170));}
1076  goto T454;  goto T453;
1077  T454:;  T453:;
1078          V166= cdr((V166));          V166= cdr((V166));
1079          V167= car((V166));          V167= car((V166));
1080          goto T447;}          goto T446;}
1081  goto T443;  goto T442;
1082  T443:;  T442:;
1083          V171 = make_fixnum((long)length(symbol_value(VV[58])));          V171 = make_fixnum((long)length(symbol_value(VV[58])));
1084          if(!(number_compare((V155),V171)<0)){          if(!(number_compare((V155),V171)<0)){
1085          goto T468;}          goto T467;}
1086          {register object V173;          {register object V173;
1087          V173= small_fixnum(0);          V173= small_fixnum(0);
1088    goto T472;
1089    T472:;
1090            if(!(number_compare((V173),V155)>=0)){
1091            goto T473;}
1092            goto T469;
1093  goto T473;  goto T473;
1094  T473:;  T473:;
         if(!(number_compare((V173),V155)>=0)){  
         goto T474;}  
         goto T470;  
 goto T474;  
 T474:;  
1095          {long V174= fix(aref1((V159),fixint((V173))));          {long V174= fix(aref1((V159),fixint((V173))));
1096          if((/* INLINE-ARGS */V174)==(0)){          if((/* INLINE-ARGS */V174)==(0)){
1097          goto T478;}}          goto T477;}}
1098          {object V175 = (V159);          {object V175 = (V159);
1099          VMR7(V175)}          VMR7(V175)}
1100  goto T478;  goto T477;
1101  T478:;  T477:;
1102          V173= one_plus((V173));          V173= one_plus((V173));
1103          goto T473;}          goto T472;}
1104  goto T470;  goto T469;
1105  T470:;  T469:;
1106          {object V176 = symbol_value(VV[58]);          {object V176 = symbol_value(VV[58]);
1107          VMR7(V176)}          VMR7(V176)}
1108  goto T468;  goto T467;
1109  T468:;  T467:;
1110          {object V177 = (V159);          {object V177 = (V159);
1111          VMR7(V177)}}}          VMR7(V177)}}}
1112          base[0]=base[0];          base[0]=base[0];
# Line 1148  TTL:; Line 1148  TTL:;
1148          register object V193;          register object V193;
1149          V192= (V188);          V192= (V188);
1150          V193= car((V192));          V193= car((V192));
1151    goto T495;
1152    T495:;
1153            if(!(endp((V192)))){
1154            goto T496;}
1155            goto T491;
1156  goto T496;  goto T496;
1157  T496:;  T496:;
         if(!(endp((V192)))){  
         goto T497;}  
         goto T492;  
 goto T497;  
 T497:;  
1158          if(((V193))==Cnil){          if(((V193))==Cnil){
1159          goto T501;}          goto T500;}
1160          if((car((V193)))==Cnil){          if((car((V193)))==Cnil){
1161          goto T501;}          goto T500;}
1162          V189= (*(LnkLI117))(caddr((V193)));          V189= (*(LnkLI117))(caddr((V193)));
1163          if(type_of(cddr(V193))!=t_cons)FEwrong_type_argument(Scons,cddr(V193));          if(type_of(cddr(V193))!=t_cons)FEwrong_type_argument(Scons,cddr(V193));
1164          (cddr(V193))->c.c_car = V189;          (cddr(V193))->c.c_car = V189;
# Line 1171  T497:; Line 1171  T497:;
1171          (void) (*Lnk123)();          (void) (*Lnk123)();
1172          vs_top=sup;          vs_top=sup;
1173          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1174          goto T510;}          goto T509;}
1175          if(!(type_of((V196))==t_symbol)){          if(!(type_of((V196))==t_symbol)){
1176          goto T516;}          goto T515;}
1177          base[1]= (V196);          base[1]= (V196);
1178          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1179          Lconstantp();          Lconstantp();
1180          vs_top=sup;          vs_top=sup;
1181          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1182          goto T516;}          goto T515;}
1183          base[1]= (V196);          base[1]= (V196);
1184          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1185          Lsymbol_value();          Lsymbol_value();
1186          vs_top=sup;          vs_top=sup;
1187          V196= vs_base[0];          V196= vs_base[0];
1188  goto T516;  goto T515;
1189  T516:;  T515:;
1190          base[1]= (V196);          base[1]= (V196);
1191          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1192          Lconstantp();          Lconstantp();
1193          vs_top=sup;          vs_top=sup;
1194          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1195          goto T524;}          goto T523;}
1196          goto T510;          goto T509;
1197  goto T524;  goto T523;
1198  T524:;  T523:;
1199          {object V198;          {object V198;
1200          V198= (*(LnkLI124))((V196),(V189));          V198= (*(LnkLI124))((V196),(V189));
1201          if(type_of(cdr(V193))!=t_cons)FEwrong_type_argument(Scons,cdr(V193));          if(type_of(cdr(V193))!=t_cons)FEwrong_type_argument(Scons,cdr(V193));
1202          (cdr(V193))->c.c_car = (V198);          (cdr(V193))->c.c_car = (V198);
1203          (void)(cdr(V193));}}          (void)(cdr(V193));}}
1204  goto T510;  goto T509;
1205  T510:;  T509:;
1206          {register object x= (V189),V199= VV[60];          {register object x= (V189),V199= VV[60];
1207          while(!endp(V199))          while(!endp(V199))
1208          if(x==(V199->c.c_car)){          if(x==(V199->c.c_car)){
1209          goto T530;          goto T529;
1210          }else V199=V199->c.c_cdr;          }else V199=V199->c.c_cdr;
1211          goto T501;}          goto T500;}
1212  goto T530;  goto T529;
1213  T530:;  T529:;
1214          V190= Ct;          V190= Ct;
1215  goto T501;  goto T500;
1216  T501:;  T500:;
1217          V192= cdr((V192));          V192= cdr((V192));
1218          V193= car((V192));          V193= car((V192));
1219          goto T496;}          goto T495;}
1220  goto T492;  goto T491;
1221  T492:;  T491:;
1222          {object V200;          {object V200;
1223          if(((V190))==Cnil){          if(((V190))==Cnil){
1224          goto T538;}          goto T537;}
1225          V200= Cnil;          V200= Cnil;
1226          goto T537;          goto T536;
1227  goto T538;  goto T537;
1228  T538:;  T537:;
1229          V201 = make_fixnum((long)length(symbol_value(VV[59])));          V201 = make_fixnum((long)length(symbol_value(VV[59])));
1230          if(number_compare((V186),V201)<0){          if(number_compare((V186),V201)<0){
1231          goto T540;}          goto T539;}
1232          V200= Cnil;          V200= Cnil;
1233          goto T537;          goto T536;
1234  goto T540;  goto T539;
1235  T540:;{object V202;  T539:;{object V202;
1236          V202= symbol_value(VV[59]);          V202= symbol_value(VV[59]);
1237          base[0]= Ct;          base[0]= Ct;
1238          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1240  T540:;{object V202; Line 1240  T540:;{object V202;
1240          vs_top=sup;          vs_top=sup;
1241          V203= vs_base[0];          V203= vs_base[0];
1242          V200= list(3,V202,number_times((V186),V203),Cnil);}          V200= list(3,V202,number_times((V186),V203),Cnil);}
1243  goto T537;  goto T536;
1244  T537:;  T536:;
1245          if(((V200))==Cnil){          if(((V200))==Cnil){
1246          goto T545;}          goto T544;}
1247          {object V204 = (V200);          {object V204 = (V200);
1248          VMR9(V204)}          VMR9(V204)}
1249  goto T545;  goto T544;
1250  T545:;  T544:;
1251          {object V205;          {object V205;
1252          register long V206;          register long V206;
1253          long V207;          long V207;
# Line 1264  T545:; Line 1264  T545:;
1264          register object V212;          register object V212;
1265          V211= (V188);          V211= (V188);
1266          V212= car((V211));          V212= car((V211));
1267    goto T555;
1268    T555:;
1269            if(!(endp((V211)))){
1270            goto T556;}
1271            goto T551;
1272  goto T556;  goto T556;
1273  T556:;  T556:;
         if(!(endp((V211)))){  
         goto T557;}  
         goto T552;  
 goto T557;  
 T557:;  
1274          V209= caddr((V212));          V209= caddr((V212));
1275          base[1]= (V209);          base[1]= (V209);
1276          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1279  T557:; Line 1279  T557:;
1279          V208= fix(vs_base[0]);          V208= fix(vs_base[0]);
1280          V213 = make_fixnum(V208);          V213 = make_fixnum(V208);
1281          if(number_compare(V213,symbol_value(VV[57]))<=0){          if(number_compare(V213,symbol_value(VV[57]))<=0){
1282          goto T566;}          goto T565;}
1283          V209= Ct;          V209= Ct;
1284          if(type_of(cddr(V212))!=t_cons)FEwrong_type_argument(Scons,cddr(V212));          if(type_of(cddr(V212))!=t_cons)FEwrong_type_argument(Scons,cddr(V212));
1285          (cddr(V212))->c.c_car = Ct;          (cddr(V212))->c.c_car = Ct;
1286          (void)(cddr(V212));          (void)(cddr(V212));
1287          V208= fix(symbol_value(VV[57]));          V208= fix(symbol_value(VV[57]));
1288          V212= nconc((V212),VV[62]);          V212= nconc((V212),VV[62]);
1289  goto T566;  goto T565;
1290  T566:;  T565:;
1291          V210= (long)(*(LnkLI126))(V206,V208);          V210= (long)(*(LnkLI126))(V206,V208);
1292          if(!((V206)==(V210))){          if(!((V206)==(V210))){
1293          goto T579;}          goto T578;}
1294          goto T578;          goto T577;
 goto T579;  
 T579:;  
         V191= Ct;  
1295  goto T578;  goto T578;
1296  T578:;  T578:;
1297            V191= Ct;
1298    goto T577;
1299    T577:;
1300          V206= V210;          V206= V210;
1301          V216 = make_fixnum(V206);          V216 = make_fixnum(V206);
1302          (void)(aset1((V205),V207,V216));          (void)(aset1((V205),V207,V216));
# Line 1310  T578:; Line 1310  T578:;
1310          V207= (long)(V207)+(1);          V207= (long)(V207)+(1);
1311          V211= cdr((V211));          V211= cdr((V211));
1312          V212= car((V211));          V212= car((V211));
1313          goto T556;}          goto T555;}
1314  goto T552;  goto T551;
1315  T552:;  T551:;
1316          base[0]= Ct;          base[0]= Ct;
1317          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1318          (void) (*Lnk125)();          (void) (*Lnk125)();
# Line 1361  static object LI10(V233,V232,V231,V230,V Line 1361  static object LI10(V233,V232,V231,V230,V
1361          V243= V223;          V243= V223;
1362          V244= V222;          V244= V222;
1363          narg = narg - 12;          narg = narg - 12;
1364          if (narg <= 0) goto T598;          if (narg <= 0) goto T597;
1365          else {          else {
1366          V245= va_arg(ap,object);}          V245= va_arg(ap,object);}
1367          if (--narg <= 0) goto T599;          if (--narg <= 0) goto T598;
1368          else {          else {
1369          V246= va_arg(ap,object);}          V246= va_arg(ap,object);}
1370          --narg; goto T600;          --narg; goto T599;
1371    goto T597;
1372    T597:;
1373            V245= Cnil;
1374  goto T598;  goto T598;
1375  T598:;  T598:;
1376          V245= Cnil;          V246= Cnil;
1377  goto T599;  goto T599;
1378  T599:;  T599:;
         V246= Cnil;  
 goto T600;  
 T600:;  
1379          {object V247;          {object V247;
1380          object V248;          object V248;
1381          V247= Cnil;          V247= Cnil;
1382          V248= Cnil;          V248= Cnil;
1383          if(type_of((V235))==t_cons){          if(type_of((V235))==t_cons){
1384          goto T606;}          goto T605;}
1385          goto T605;          goto T604;
 goto T606;  
 T606:;  
         if((car((V235)))==(VV[19])){  
         goto T608;}  
         goto T605;  
 goto T608;  
 T608:;  
         V235= VV[19];  
1386  goto T605;  goto T605;
1387  T605:;  T605:;
1388            if((car((V235)))==(VV[19])){
1389            goto T607;}
1390            goto T604;
1391    goto T607;
1392    T607:;
1393            V235= VV[19];
1394    goto T604;
1395    T604:;
1396          V248= make_fixnum((long)length((V237)));          V248= make_fixnum((long)length((V237)));
1397          {register object V249;          {register object V249;
1398          register object V250;          register object V250;
1399          V249= (V237);          V249= (V237);
1400          V250= car((V249));          V250= car((V249));
1401    goto T616;
1402    T616:;
1403            if(!(endp((V249)))){
1404            goto T617;}
1405            goto T612;
1406  goto T617;  goto T617;
1407  T617:;  T617:;
         if(!(endp((V249)))){  
         goto T618;}  
         goto T613;  
 goto T618;  
 T618:;  
1408          if((V250)==Cnil){          if((V250)==Cnil){
1409          goto T622;}          goto T621;}
1410          if((car((V250)))!=Cnil){          if((car((V250)))!=Cnil){
1411          goto T623;}          goto T622;}
1412          goto T622;          goto T621;
1413  goto T623;  goto T622;
1414  T623:;  T622:;
1415          base[1]= (Vcs[0]->c.c_car);          base[1]= (Vcs[0]->c.c_car);
1416          base[2]= (V234);          base[2]= (V234);
1417          base[3]= (V235);          base[3]= (V235);
# Line 1426  T623:; Line 1426  T623:;
1426          vs_base=base+1;}          vs_base=base+1;}
1427          (void) (*Lnk127)();          (void) (*Lnk127)();
1428          vs_top=sup;          vs_top=sup;
1429  goto T622;  goto T621;
1430  T622:;  T621:;
1431          V249= cdr((V249));          V249= cdr((V249));
1432          V250= car((V249));          V250= car((V249));
1433          goto T617;}          goto T616;}
1434  goto T613;  goto T612;
1435  T613:;  T612:;
1436          if(((V238))==Cnil){          if(((V238))==Cnil){
1437          goto T637;}          goto T636;}
1438          if(((V246))!=Cnil){          if(((V246))!=Cnil){
1439          goto T637;}          goto T636;}
1440          base[0]= (V238);          base[0]= (V238);
1441          {object V252= (V235);          {object V252= (V235);
1442          if((V252!= Cnil))goto T644;          if((V252!= Cnil))goto T643;
1443          base[1]= symbol_function(VV[128]);          base[1]= symbol_function(VV[128]);
1444          goto T643;          goto T642;
1445    goto T643;
1446    T643:;
1447            if((V252!= VV[20]))goto T644;
1448            base[1]= symbol_function(VV[129]);
1449            goto T642;
1450  goto T644;  goto T644;
1451  T644:;  T644:;
1452          if((V252!= VV[20]))goto T645;          if((V252!= VV[19]))goto T645;
1453          base[1]= symbol_function(VV[129]);          base[1]= symbol_function(VV[130]);
1454          goto T643;          goto T642;
1455  goto T645;  goto T645;
1456  T645:;  T645:;
         if((V252!= VV[19]))goto T646;  
         base[1]= symbol_function(VV[130]);  
         goto T643;  
 goto T646;  
 T646:;  
1457          FEerror("The ECASE key value ~s is illegal.",1,V252);          FEerror("The ECASE key value ~s is illegal.",1,V252);
1458          base[1]= symbol_function(VV[128]);}          base[1]= Cnil;
1459  goto T643;          goto T642;}
1460  T643:;  goto T642;
1461    T642:;
1462          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1463          siLfset();          siLfset();
1464          vs_top=sup;          vs_top=sup;
1465  goto T637;  goto T636;
1466  T637:;  T636:;
1467          if(((V235))!=Cnil){          if(((V235))!=Cnil){
1468          goto T649;}          goto T648;}
1469          if(!(((Vcs[0]->c.c_car))==(VV[55]))){          if(!(((Vcs[0]->c.c_car))==(VV[55]))){
1470          goto T649;}          goto T648;}
1471          base[1]= Ct;          base[1]= Ct;
1472          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1473          (void) (*Lnk125)();          (void) (*Lnk125)();
# Line 1482  T637:; Line 1483  T637:;
1483          (void) (*Lnk132)();          (void) (*Lnk132)();
1484          vs_top=sup;          vs_top=sup;
1485          V247= vs_base[0];          V247= vs_base[0];
1486          goto T647;          goto T646;
1487  goto T649;  goto T648;
1488  T649:;  T648:;
1489          {object V255;          {object V255;
1490          object V256;          object V256;
1491          object V257;          object V257;
1492          object V258;          object V258;
1493          if((V240)==Cnil){          if((V240)==Cnil){
1494          V258= Cnil;          V258= Cnil;
1495          goto T661;}          goto T660;}
1496          V258= get((V240),VV[55],Cnil);          V258= get((V240),VV[55],Cnil);
1497  goto T661;  goto T660;
1498  T661:;  T660:;
1499          V255= Cnil;          V255= Cnil;
1500          V256= small_fixnum(0);          V256= small_fixnum(0);
1501          V257= Cnil;          V257= Cnil;
1502          if(((V258))==Cnil){          if(((V258))==Cnil){
1503          goto T662;}          goto T661;}
1504          if((structure_ref((V258),VV[55],11))==Cnil){          if((structure_ref((V258),VV[55],11))==Cnil){
1505          goto T665;}          goto T664;}
1506          if((structure_ref((V258),VV[55],3))==Cnil){          if((structure_ref((V258),VV[55],3))==Cnil){
1507          goto T666;}          goto T665;}
1508          {object V259;          {object V259;
1509          V259= get((Vcs[0]->c.c_car),VV[55],Cnil);          V259= get((Vcs[0]->c.c_car),VV[55],Cnil);
1510          if((V259)==Cnil){          if((V259)==Cnil){
1511          goto T671;}          goto T670;}
1512          V260= structure_ref((V259),VV[55],4);          V260= structure_ref((V259),VV[55],4);
1513          if((/* INLINE-ARGS */V260)==((V258))){          if((/* INLINE-ARGS */V260)==((V258))){
1514          goto T665;}}          goto T664;}}
1515  goto T671;  goto T670;
1516  T671:;  T670:;
 goto T666;  
 T666:;  
         (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[64],(V240))));  
1517  goto T665;  goto T665;
1518  T665:;  T665:;
1519            (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[64],(V240))));
1520    goto T664;
1521    T664:;
1522          {object V262;          {object V262;
1523          base[1]= (Vcs[0]->c.c_car);          base[1]= (Vcs[0]->c.c_car);
1524          base[2]= structure_ref(V258,VV[55],3);          base[2]= structure_ref(V258,VV[55],3);
# Line 1526  T665:; Line 1527  T665:;
1527          vs_top=sup;          vs_top=sup;
1528          V262= vs_base[0];          V262= vs_base[0];
1529          (void)(structure_set(V258,VV[55],3,(V262)));}          (void)(structure_set(V258,VV[55],3,(V262)));}
1530  goto T662;  goto T661;
1531  T662:;  T661:;
1532          if(((V235))!=Cnil){          if(((V235))!=Cnil){
1533          goto T676;}          goto T675;}
1534          V255= (*(LnkLI134))((V248),(V240),(V237));          V255= (*(LnkLI134))((V248),(V240),(V237));
1535          V256= cadr((V255));          V256= cadr((V255));
1536          V257= caddr((V255));          V257= caddr((V255));
1537          V255= car((V255));          V255= car((V255));
1538  goto T676;  goto T675;
1539  T676:;  T675:;
1540          if(((V235))==Cnil){          if(((V235))==Cnil){
1541          goto T688;}          goto T687;}
1542          V263= Cnil;          V263= Cnil;
1543          goto T687;          goto T686;
 goto T688;  
 T688:;  
         V263= (*(LnkLI131))((V248),(V240),(V237));  
1544  goto T687;  goto T687;
1545  T687:;  T687:;
1546            V263= (*(LnkLI131))((V248),(V240),(V237));
1547    goto T686;
1548    T686:;
1549          V247= (VFUN_NARGS=32,(*(LnkLI135))(VV[65],(Vcs[0]->c.c_car),VV[66],(V248),VV[67],V263,VV[68],(V255),VV[69],(V256),VV[70],(V257),VV[71],(V239),VV[72],(V258),VV[73],(V241),VV[74],(V237),VV[75],(V242),VV[76],(V243),VV[77],(V235),VV[78],(V236),VV[79],(V245),VV[80],(V234)));}          V247= (VFUN_NARGS=32,(*(LnkLI135))(VV[65],(Vcs[0]->c.c_car),VV[66],(V248),VV[67],V263,VV[68],(V255),VV[69],(V256),VV[70],(V257),VV[71],(V239),VV[72],(V258),VV[73],(V241),VV[74],(V237),VV[75],(V242),VV[76],(V243),VV[77],(V235),VV[78],(V236),VV[79],(V245),VV[80],(V234)));}
1550  goto T647;  goto T646;
1551  T647:;  T646:;
1552          {object V264;          {object V264;
1553          V264= get((Vcs[0]->c.c_car),VV[55],Cnil);          V264= get((Vcs[0]->c.c_car),VV[55],Cnil);
1554          if(!(((Vcs[0]->c.c_car))==(VV[55]))){          if(!(((Vcs[0]->c.c_car))==(VV[55]))){
1555          goto T694;}          goto T693;}
1556          if(((V264))==Cnil){          if(((V264))==Cnil){
1557          goto T696;}          goto T695;}
1558          (void)((VFUN_NARGS=1,(*(LnkLI133))(VV[81])));          (void)((VFUN_NARGS=1,(*(LnkLI133))(VV[81])));
1559  goto T696;  goto T695;
1560  T696:;  T695:;
1561          if((V264)!=Cnil){          if((V264)!=Cnil){
1562          goto T692;}          goto T691;}
1563          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));
1564          goto T692;          goto T691;
1565  goto T694;  goto T693;
1566  T694:;  T693:;
1567          if(((V264))==Cnil){          if(((V264))==Cnil){
1568          goto T700;}          goto T699;}
1569          (void)((*(LnkLI136))((V264),(V247),(Vcs[0]->c.c_car)));          (void)((*(LnkLI136))((V264),(V247),(Vcs[0]->c.c_car)));
1570          goto T692;          goto T691;
1571  goto T700;  goto T699;
1572  T700:;  T699:;
1573          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));          (void)(sputprop((Vcs[0]->c.c_car),VV[55],(V247)));
1574  goto T692;  goto T691;
1575  T692:;  T691:;
1576          if(((V245))==Cnil){          if(((V245))==Cnil){
1577          goto T702;}          goto T701;}
1578          (void)(sputprop((Vcs[0]->c.c_car),VV[82],(V245)));          (void)(sputprop((Vcs[0]->c.c_car),VV[82],(V245)));
1579  goto T702;  goto T701;
1580  T702:;  T701:;
1581          if(((V235))!=Cnil){          if(((V235))!=Cnil){
1582          goto T690;}          goto T689;}
1583          if(((V244))==Cnil){          if(((V244))==Cnil){
1584          goto T690;}          goto T689;}
1585          base[0]= (V244);          base[0]= (V244);
1586          base[1]= VV[3];          base[1]= VV[3];
1587          base[2]= VV[83];          base[2]= VV[83];
# Line 1589  T702:; Line 1590  T702:;
1590          (void) (*Lnk111)();          (void) (*Lnk111)();
1591          vs_top=sup;          vs_top=sup;
1592          if((V246)!=Cnil){          if((V246)!=Cnil){
1593          goto T714;}          goto T713;}
1594          base[0]= (V244);          base[0]= (V244);
1595          base[1]=          base[1]=
1596          make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);          make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);
1597          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1598          siLfset();          siLfset();
1599          vs_top=sup;          vs_top=sup;
1600  goto T714;  goto T713;
1601  T714:;  T713:;
1602          (void)(sputprop((V244),VV[84],VV[85]));          (void)(sputprop((V244),VV[84],VV[85]));
1603          (void)(sputprop((V244),VV[86],(Vcs[0]->c.c_car)));}          (void)(sputprop((V244),VV[86],(Vcs[0]->c.c_car)));}
1604  goto T690;  goto T689;
1605  T690:;  T689:;
1606          {object V265 = Cnil;          {object V265 = Cnil;
1607          VMR10(V265)}}          VMR10(V265)}}
1608          va_end(ap);          va_end(ap);
# Line 1658  static void L11() Line 1659  static void L11()
1659          V283= Cnil;          V283= Cnil;
1660          V284= Cnil;          V284= Cnil;
1661          if(!(type_of(base[2])==t_cons)){          if(!(type_of(base[2])==t_cons)){
1662          goto T718;}          goto T717;}
1663          V268= cdr(base[2]);          V268= cdr(base[2]);
1664          base[2]= car(base[2]);          base[2]= car(base[2]);
1665  goto T718;  goto T717;
1666  T718:;  T717:;
1667          base[4]= coerce_to_string(base[2]);          base[4]= coerce_to_string(base[2]);
1668          base[5]= VV[87];          base[5]= VV[87];
1669          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 1705  T718:; Line 1706  T718:;
1706          V285= (V268);          V285= (V268);
1707          V286= Cnil;          V286= Cnil;
1708          V287= Cnil;          V287= Cnil;
1709    goto T744;
1710    T744:;
1711            if(!(endp((V285)))){
1712            goto T745;}
1713            goto T742;
1714  goto T745;  goto T745;
1715  T745:;  T745:;
         if(!(endp((V285)))){  
         goto T746;}  
         goto T743;  
 goto T746;  
 T746:;  
1716          if(!(type_of(car((V285)))==t_cons)){          if(!(type_of(car((V285)))==t_cons)){
1717          goto T752;}          goto T751;}
1718          if(endp(cdar((V285)))){          if(endp(cdar((V285)))){
1719          goto T752;}          goto T751;}
1720          V286= caar((V285));          V286= caar((V285));
1721          V287= cadar((V285));          V287= cadar((V285));
1722          {object V288= (V286);          {object V288= (V286);
1723          if((V288!= VV[80]))goto T760;          if((V288!= VV[80]))goto T759;
1724          if(((V287))!=Cnil){          if(((V287))!=Cnil){
1725          goto T762;}          goto T761;}
1726          V269= VV[91];          V269= VV[91];
1727          goto T750;          goto T749;
1728  goto T762;  goto T761;
1729  T762:;  T761:;
1730          V269= (V287);          V269= (V287);
1731          goto T750;          goto T749;
1732  goto T760;  goto T759;
1733  T760:;  T759:;
1734          if((V288!= VV[137]))goto T766;          if((V288!= VV[137]))goto T765;
1735          if(((V287))!=Cnil){          if(((V287))!=Cnil){
1736          goto T768;}          goto T767;}
1737          V272= Ct;          V272= Ct;
1738          goto T750;          goto T749;
1739  goto T768;  goto T767;
1740  T768:;  T767:;
1741          if(!(endp(cddar((V285))))){          if(!(endp(cddar((V285))))){
1742          goto T772;}          goto T771;}
1743          V270= make_cons((V287),(V270));          V270= make_cons((V287),(V270));
1744          goto T750;          goto T749;
1745  goto T772;  goto T771;
1746  T772:;  T771:;
1747          V270= make_cons(cdar((V285)),(V270));          V270= make_cons(cdar((V285)),(V270));
1748          goto T750;          goto T749;
1749  goto T766;  goto T765;
1750  T766:;  T765:;
1751          if((V288!= VV[138]))goto T776;          if((V288!= VV[138]))goto T775;
1752          V273= (V287);          V273= (V287);
1753          goto T750;          goto T749;
1754  goto T776;  goto T775;
1755  T776:;  T775:;
1756          if((V288!= VV[54]))goto T778;          if((V288!= VV[54]))goto T777;
1757          V284= (V287);          V284= (V287);
1758          goto T750;          goto T749;
1759  goto T778;  goto T777;
1760  T778:;  T777:;
1761          if((V288!= VV[139]))goto T780;          if((V288!= VV[139]))goto T779;
1762          V274= (V287);          V274= (V287);
1763          V275= Ct;          V275= Ct;
1764          goto T750;          goto T749;
1765  goto T780;  goto T779;
1766  T780:;  T779:;
1767          if((V288!= VV[140]))goto T784;          if((V288!= VV[140]))goto T783;
1768          V276= cdar((V285));          V276= cdar((V285));
1769          if((get((V287),VV[55],Cnil))!=Cnil){          if((get((V287),VV[55],Cnil))!=Cnil){
1770          goto T750;}          goto T749;}
1771          base[4]= VV[92];          base[4]= VV[92];
1772          base[5]= (V287);          base[5]= (V287);
1773          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1774          Lerror();          Lerror();
1775          vs_top=sup;          vs_top=sup;
1776          goto T750;          goto T749;
1777  goto T784;  goto T783;
1778  T784:;  T783:;
1779          if((V288!= VV[73]))goto T791;          if((V288!= VV[73]))goto T790;
1780          if(type_of((V287))==t_cons){          if(type_of((V287))==t_cons){
1781          goto T793;}          goto T792;}
1782          goto T792;          goto T791;
 goto T793;  
 T793:;  
         if((car((V287)))==(VV[93])){  
         goto T795;}  
         goto T792;  
 goto T795;  
 T795:;  
         V287= cadr((V287));  
1783  goto T792;  goto T792;
1784  T792:;  T792:;
1785          V277= (V287);          if((car((V287)))==(VV[93])){
1786          goto T750;          goto T794;}
1787            goto T791;
1788    goto T794;
1789    T794:;
1790            V287= cadr((V287));
1791  goto T791;  goto T791;
1792  T791:;  T791:;
1793          if((V288!= VV[77]))goto T799;          V277= (V287);
1794            goto T749;
1795    goto T790;
1796    T790:;
1797            if((V288!= VV[77]))goto T798;
1798          V278= (V287);          V278= (V287);
1799          goto T750;          goto T749;
1800  goto T799;  goto T798;
1801  T799:;  T798:;
1802          if((V288!= VV[141]))goto T801;          if((V288!= VV[141]))goto T800;
1803          V280= (V287);          V280= (V287);
1804          goto T750;          goto T749;
1805  goto T801;  goto T800;
1806  T801:;  T800:;
1807          base[4]= VV[94];          base[4]= VV[94];
1808          base[5]= (V286);          base[5]= (V286);
1809          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1810          Lerror();          Lerror();
1811          vs_top=sup;          vs_top=sup;
1812          goto T750;}          goto T749;}
1813  goto T752;  goto T751;
1814  T752:;  T751:;
1815          if(!(type_of(car((V285)))==t_cons)){          if(!(type_of(car((V285)))==t_cons)){
1816          goto T807;}          goto T806;}
1817          V286= caar((V285));          V286= caar((V285));
1818          goto T805;          goto T804;
1819  goto T807;  goto T806;
1820  T807:;  T806:;
1821          V286= car((V285));          V286= car((V285));
1822  goto T805;  goto T804;
1823  T805:;  T804:;
1824          {object V289= (V286);          {object V289= (V286);
1825          if((V289!= VV[137]))goto T811;          if((V289!= VV[137]))goto T810;
1826          V270= make_cons((V271),(V270));          V270= make_cons((V271),(V270));
1827          goto T750;          goto T749;
1828  goto T811;  goto T810;
1829  T811:;  T810:;
1830          if((V289!= VV[80])          if((V289!= VV[80])
1831          && (V289!= VV[138])          && (V289!= VV[138])
1832          && (V289!= VV[139])          && (V289!= VV[139])
1833          && (V289!= VV[73]))goto T813;          && (V289!= VV[73]))goto T812;
1834          goto T750;          goto T749;
1835    goto T812;
1836    T812:;
1837            if((V289!= VV[78]))goto T813;
1838            V279= Ct;
1839            goto T749;
1840  goto T813;  goto T813;
1841  T813:;  T813:;
         if((V289!= VV[78]))goto T814;  
         V279= Ct;  
         goto T750;  
 goto T814;  
 T814:;  
1842          base[4]= VV[95];          base[4]= VV[95];
1843          base[5]= (V286);          base[5]= (V286);
1844          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1845          Lerror();          Lerror();
1846          vs_top=sup;}          vs_top=sup;}
1847  goto T750;  goto T749;
1848  T750:;  T749:;
1849          V285= cdr((V285));          V285= cdr((V285));
1850          goto T745;}          goto T744;}
1851  goto T743;  goto T742;
1852  T743:;  T742:;
1853          base[4]= coerce_to_string((V269));          base[4]= coerce_to_string((V269));
1854          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1855          Lintern();          Lintern();
1856          vs_top=sup;          vs_top=sup;
1857          V269= vs_base[0];          V269= vs_base[0];
1858          if((V276)==Cnil){          if((V276)==Cnil){
1859          goto T824;}          goto T823;}
1860          if(((V277))==Cnil){          if(((V277))==Cnil){
1861          goto T825;}          goto T824;}
1862          goto T824;          goto T823;
 goto T825;  
 T825:;  
         V290= get(car((V276)),VV[55],Cnil);  
         V277= structure_ref(V290,VV[55],6);  
1863  goto T824;  goto T824;
1864  T824:;  T824:;
1865            V290= get(car((V276)),VV[55],Cnil);
1866            V277= structure_ref(V290,VV[55],6);
1867    goto T823;
1868    T823:;
1869          if(endp((V267))){          if(endp((V267))){
1870          goto T829;}          goto T828;}
1871          if(!(type_of(car((V267)))==t_string)){          if(!(type_of(car((V267)))==t_string)){
1872          goto T829;}          goto T828;}
1873          V283= car((V267));          V283= car((V267));
1874          V267= cdr((V267));          V267= cdr((V267));
1875  goto T829;  goto T828;
1876  T829:;  T828:;
1877          if(((V276))==Cnil){          if(((V276))==Cnil){
1878          goto T837;}          goto T836;}
1879          V291= get(car((V276)),VV[55],Cnil);          V291= get(car((V276)),VV[55],Cnil);
1880          V292= structure_ref(V291,VV[55],16);          V292= structure_ref(V291,VV[55],16);
1881          if(equal((V278),/* INLINE-ARGS */V292)){          if(equal((V278),/* INLINE-ARGS */V292)){
1882          goto T837;}          goto T836;}
1883          base[4]= VV[96];          base[4]= VV[96];
1884          base[5]= car((V276));          base[5]= car((V276));
1885          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1886          Lerror();          Lerror();
1887          vs_top=sup;          vs_top=sup;
1888  goto T837;  goto T836;
1889  T837:;  T836:;
1890          if(((V276))!=Cnil){          if(((V276))!=Cnil){
1891          goto T847;}          goto T846;}
1892          V281= small_fixnum(0);          V281= small_fixnum(0);
1893          goto T845;          goto T844;
1894  goto T847;  goto T846;
1895  T847:;  T846:;
1896          V293= get(car((V276)),VV[55],Cnil);          V293= get(car((V276)),VV[55],Cnil);
1897          V281= structure_ref(V293,VV[55],14);          V281= structure_ref(V293,VV[55],14);
1898  goto T845;  goto T844;
1899  T845:;  T844:;
1900          if(((V278))==Cnil){          if(((V278))==Cnil){
1901          goto T852;}          goto T851;}
1902          if(((V280))==Cnil){          if(((V280))==Cnil){
1903          goto T852;}          goto T851;}
1904          V281= number_plus((V281),(V280));          V281= number_plus((V281),(V280));
1905  goto T852;  goto T851;
1906  T852:;  T851:;
1907          if(((V278))==Cnil){          if(((V278))==Cnil){
1908          goto T858;}          goto T857;}
1909          if(((V279))==Cnil){          if(((V279))==Cnil){
1910          goto T858;}          goto T857;}
1911          V282= (V281);          V282= (V281);
1912          V281= one_plus((V281));          V281= one_plus((V281));
1913  goto T858;  goto T857;
1914  T858:;  T857:;
1915          {register object V294;          {register object V294;
1916          register object V295;          register object V295;
1917          V294= (V267);          V294= (V267);
1918          V295= Cnil;          V295= Cnil;
1919  goto T868;  goto T867;
1920  T868:;  T867:;
1921          if(!(endp((V294)))){          if(!(endp((V294)))){
1922          goto T869;}          goto T868;}
1923          V267= nreverse((V295));          V267= nreverse((V295));
1924          goto T866;          goto T865;
1925  goto T869;  goto T868;
1926  T869:;  T868:;
1927          V296= (*(LnkLI142))(car((V294)),(V281));          V296= (*(LnkLI142))(car((V294)),(V281));
1928          V295= make_cons(/* INLINE-ARGS */V296,(V295));          V295= make_cons(/* INLINE-ARGS */V296,(V295));
1929          V281= one_plus((V281));          V281= one_plus((V281));
1930          V294= cdr((V294));          V294= cdr((V294));
1931          goto T868;}          goto T867;}
1932  goto T866;  goto T865;
1933  T866:;  T865:;
1934          if(((V278))==Cnil){          if(((V278))==Cnil){
1935          goto T881;}          goto T880;}
1936          if(((V279))==Cnil){          if(((V279))==Cnil){
1937          goto T881;}          goto T880;}
1938          V297= list(2,Cnil,base[2]);          V297= list(2,Cnil,base[2]);
1939          V267= make_cons(/* INLINE-ARGS */V297,(V267));          V267= make_cons(/* INLINE-ARGS */V297,(V267));
1940  goto T881;  goto T880;
1941  T881:;  T880:;
1942          if(((V278))==Cnil){          if(((V278))==Cnil){
1943          goto T887;}          goto T886;}
1944          if(((V280))==Cnil){          if(((V280))==Cnil){
1945          goto T887;}          goto T886;}
1946          base[4]= (V280);          base[4]= (V280);
1947          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1948          Lmake_list();          Lmake_list();
1949          vs_top=sup;          vs_top=sup;
1950          V298= vs_base[0];          V298= vs_base[0];
1951          V267= append(V298,(V267));          V267= append(V298,(V267));
1952  goto T887;  goto T886;
1953  T887:;  T886:;
1954          {object V299;          {object V299;
1955          V299= (((V276))==Cnil?Ct:Cnil);          V299= (((V276))==Cnil?Ct:Cnil);
1956          if(((V299))==Cnil){          if(((V299))==Cnil){
1957          goto T898;}          goto T897;}
1958          goto T895;          goto T894;
1959  goto T898;  goto T897;
1960  T898:;  T897:;
1961          if(!(endp(cdr((V276))))){          if(!(endp(cdr((V276))))){
1962          goto T901;}          goto T900;}
1963          V300= get(car((V276)),VV[55],Cnil);          V300= get(car((V276)),VV[55],Cnil);
1964          V301= structure_ref(V300,VV[55],7);          V301= structure_ref(V300,VV[55],7);
1965          V267= append(/* INLINE-ARGS */V301,(V267));          V267= append(/* INLINE-ARGS */V301,(V267));
1966          goto T895;          goto T894;
1967  goto T901;  goto T900;
1968  T901:;  T900:;
1969          {object V303;          {object V303;
1970          object V304= cdr((V276));          object V304= cdr((V276));
1971          if(endp(V304)){          if(endp(V304)){
1972          V302= Cnil;          V302= Cnil;
1973          goto T906;}          goto T905;}
1974          base[4]=V303=MMcons(Cnil,Cnil);          base[4]=V303=MMcons(Cnil,Cnil);
1975  goto T907;  goto T906;
1976  T907:;  T906:;
1977          (V303->c.c_car)= (*(LnkLI142))((V304->c.c_car),small_fixnum(0));          (V303->c.c_car)= (*(LnkLI142))((V304->c.c_car),small_fixnum(0));
1978          if(endp(V304=MMcdr(V304))){          if(endp(V304=MMcdr(V304))){
1979          V302= base[4];          V302= base[4];
1980          goto T906;}          goto T905;}
1981          V303=MMcdr(V303)=MMcons(Cnil,Cnil);          V303=MMcdr(V303)=MMcons(Cnil,Cnil);
1982          goto T907;}          goto T906;}
1983  goto T906;  goto T905;
1984  T906:;  T905:;
1985          V306= get(car((V276)),VV[55],Cnil);          V306= get(car((V276)),VV[55],Cnil);
1986          V307= structure_ref(V306,VV[55],7);          V307= structure_ref(V306,VV[55],7);
1987          V308= (*(LnkLI119))(V302,/* INLINE-ARGS */V307);          V308= (*(LnkLI119))(V302,/* INLINE-ARGS */V307);
1988          V267= append(/* INLINE-ARGS */V308,(V267));}          V267= append(/* INLINE-ARGS */V308,(V267));}
1989  goto T895;  goto T894;
1990  T895:;  T894:;
1991          if(((V272))==Cnil){          if(((V272))==Cnil){
1992          goto T912;}          goto T911;}
1993          if(((V270))==Cnil){          if(((V270))==Cnil){
1994          goto T910;}          goto T909;}
1995          base[4]= VV[97];          base[4]= VV[97];
1996          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1997          Lerror();          Lerror();
1998          vs_top=sup;          vs_top=sup;
1999          goto T910;          goto T909;
2000  goto T912;  goto T911;
2001  T912:;  T911:;
2002          if(((V270))!=Cnil){          if(((V270))!=Cnil){
2003          goto T910;}          goto T909;}
2004          V270= make_cons((V271),Cnil);          V270= make_cons((V271),Cnil);
2005  goto T910;  goto T909;
2006  T910:;{object V309;  T909:;{object V309;
2007          {object V312;          {object V312;
2008          object V313= (V270);          object V313= (V270);
2009          if(endp(V313)){          if(endp(V313)){
2010          V311= Cnil;          V311= Cnil;
2011          goto T923;}          goto T922;}
2012          base[4]=V312=MMcons(Cnil,Cnil);          base[4]=V312=MMcons(Cnil,Cnil);
2013  goto T924;  goto T923;
2014  T924:;  T923:;
2015          base[5]= (V313->c.c_car);          base[5]= (V313->c.c_car);
2016          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2017          Lsymbolp();          Lsymbolp();
# Line 2018  T924:; Line 2019  T924:;
2019          (V312->c.c_car)= vs_base[0];          (V312->c.c_car)= vs_base[0];
2020          if(endp(V313=MMcdr(V313))){          if(endp(V313=MMcdr(V313))){
2021          V311= base[4];          V311= base[4];
2022          goto T923;}          goto T922;}
2023          V312=MMcdr(V312)=MMcons(Cnil,Cnil);          V312=MMcdr(V312)=MMcons(Cnil,Cnil);
2024          goto T924;}          goto T923;}
2025  goto T923;  goto T922;
2026  T923:;  T922:;
2027          {register object x= Ct,V310= V311;          {register object x= Ct,V310= V311;
2028          while(!endp(V310))          while(!endp(V310))
2029          if(eql(x,V310->c.c_car)){          if(eql(x,V310->c.c_car)){
2030          V309= V310;          V309= V310;
2031          goto T922;          goto T921;
2032          }else V310=V310->c.c_cdr;          }else V310=V310->c.c_cdr;
2033          V309= Cnil;}          V309= Cnil;}
 goto T922;  
 T922:;  
         if(V309==Cnil)goto T921;  
         goto T920;  
2034  goto T921;  goto T921;
2035  T921:;}  T921:;
2036            if(V309==Cnil)goto T920;
2037            goto T919;
2038    goto T920;
2039    T920:;}
2040          base[5]= VV[98];          base[5]= VV[98];
2041          base[6]= (V271);          base[6]= (V271);
2042          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
# Line 2047  T921:;} Line 2048  T921:;}
2048          vs_top=sup;          vs_top=sup;
2049          V314= vs_base[0];          V314= vs_base[0];
2050          V270= make_cons(V314,(V270));          V270= make_cons(V314,(V270));
2051  goto T920;  goto T919;
2052  T920:;  T919:;
2053          if(((V278))==Cnil){          if(((V278))==Cnil){
2054          goto T932;}          goto T931;}
2055          if(((V279))!=Cnil){          if(((V279))!=Cnil){
2056          goto T932;}          goto T931;}
2057          if(((V275))==Cnil){          if(((V275))==Cnil){
2058          goto T937;}          goto T936;}
2059          base[4]= VV[99];          base[4]= VV[99];
2060          base[5]= (V274);          base[5]= (V274);
2061          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2062          Lerror();          Lerror();
2063          vs_top=sup;          vs_top=sup;
2064  goto T937;  goto T936;
2065  T937:;  T936:;
2066          V274= Cnil;          V274= Cnil;
2067  goto T932;  goto T931;
2068  T932:;  T931:;
2069          if(((V276))==Cnil){          if(((V276))==Cnil){
2070          goto T943;}          goto T942;}
2071          V276= car((V276));          V276= car((V276));
2072  goto T943;  goto T942;
2073  T943:;  T942:;
2074          if(((V277))==Cnil){          if(((V277))==Cnil){
2075          goto T947;}          goto T946;}
2076          if(((V278))==Cnil){          if(((V278))==Cnil){
2077          goto T947;}          goto T946;}
2078          base[4]= VV[100];          base[4]= VV[100];
2079          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2080          Lerror();          Lerror();
2081          vs_top=sup;          vs_top=sup;
2082  goto T947;  goto T946;
2083  T947:;  T946:;
2084          base[4]= VV[102];          base[4]= VV[102];
2085          base[5]= list(2,VV[11],base[2]);          base[5]= list(2,VV[11],base[2]);
2086          base[6]= list(2,VV[11],(V269));          base[6]= list(2,VV[11],(V269));
# Line 2102  T947:; Line 2103  T947:;
2103          object V318= (V270);          object V318= (V270);
2104          if(endp(V318)){          if(endp(V318)){
2105          base[4]= Cnil;          base[4]= Cnil;
2106          goto T969;}          goto T968;}
2107          base[5]=V317=MMcons(Cnil,Cnil);          base[5]=V317=MMcons(Cnil,Cnil);
2108  goto T970;  goto T969;
2109  T970:;  T969:;
2110          (V317->c.c_car)= (*(LnkLI143))(base[2],(V318->c.c_car),(V278),(V279),(V267));          (V317->c.c_car)= (*(LnkLI143))(base[2],(V318->c.c_car),(V278),(V279),(V267));
2111          if(endp(V318=MMcdr(V318))){          if(endp(V318=MMcdr(V318))){
2112          base[4]= base[5];          base[4]= base[5];
2113          goto T969;}          goto T968;}
2114          V317=MMcdr(V317)=MMcons(Cnil,Cnil);          V317=MMcdr(V317)=MMcons(Cnil,Cnil);
2115          goto T970;}          goto T969;}
2116  goto T969;  goto T968;
2117  T969:;  T968:;
2118          if(((V278))==Cnil){          if(((V278))==Cnil){
2119          goto T974;}          goto T973;}
2120          if(((V274))==Cnil){          if(((V274))==Cnil){
2121          goto T974;}          goto T973;}
2122          V320= (*(LnkLI144))(base[2],(V274),(V278),(V279),(V282));          V320= (*(LnkLI144))(base[2],(V274),(V278),(V279),(V282));
2123          base[5]= make_cons(/* INLINE-ARGS */V320,Cnil);          base[5]= make_cons(/* INLINE-ARGS */V320,Cnil);
2124          goto T972;          goto T971;
2125  goto T974;  goto T973;
2126  T974:;  T973:;
2127          base[5]= Cnil;          base[5]= Cnil;
2128  goto T972;  goto T971;
2129  T972:;  T971:;
2130          V321= list(2,VV[11],base[2]);          V321= list(2,VV[11],base[2]);
2131          base[6]= make_cons(/* INLINE-ARGS */V321,Cnil);          base[6]= make_cons(/* INLINE-ARGS */V321,Cnil);
2132          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
# Line 2221  register object V344;register object V34 Line 2222  register object V344;register object V34
2222  goto TTL;  goto TTL;
2223  TTL:;  TTL:;
2224          if((structure_ref((V344),VV[55],3))==Cnil){          if((structure_ref((V344),VV[55],3))==Cnil){
2225          goto T998;}          goto T997;}
2226          V347= structure_ref((V344),VV[55],3);          V347= structure_ref((V344),VV[55],3);
2227          (void)(structure_set((V345),VV[55],3,/* INLINE-ARGS */V347));          (void)(structure_set((V345),VV[55],3,/* INLINE-ARGS */V347));
2228  goto T998;  goto T997;
2229  T998:;  T997:;
2230          if((structure_ref((V344),VV[55],11))==Cnil){          if((structure_ref((V344),VV[55],11))==Cnil){
2231          goto T1001;}          goto T1000;}
2232          (void)(structure_set((V345),VV[55],11,Ct));          (void)(structure_set((V345),VV[55],11,Ct));
2233  goto T1001;  goto T1000;
2234  T1001:;  T1000:;
2235          if(equalp((V345),(V344))){          if(equalp((V345),(V344))){
2236          goto T1005;}          goto T1004;}
2237          (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[103],(V346))));          (void)((VFUN_NARGS=2,(*(LnkLI133))(VV[103],(V346))));
2238          {object V348 = sputprop((V346),VV[55],(V345));          {object V348 = sputprop((V346),VV[55],(V345));
2239          VMR13(V348)}          VMR13(V348)}
2240  goto T1005;  goto T1004;
2241  T1005:;  T1004:;
2242          {object V349 = Cnil;          {object V349 = Cnil;
2243          VMR13(V349)}          VMR13(V349)}
2244          return Cnil;          return Cnil;
# Line 2252  goto TTL; Line 2253  goto TTL;
2253  TTL:;  TTL:;
2254          {object V352;          {object V352;
2255          if(type_of((V351))==t_symbol){          if(type_of((V351))==t_symbol){
2256          goto T1009;}          goto T1008;}
2257          V352= Cnil;          V352= Cnil;
2258          goto T1008;          goto T1007;
 goto T1009;  
 T1009:;  
         V352= get((V351),VV[55],Cnil);  
2259  goto T1008;  goto T1008;
2260  T1008:;  T1008:;
2261            V352= get((V351),VV[55],Cnil);
2262    goto T1007;
2263    T1007:;
2264          if(((V352))==Cnil){          if(((V352))==Cnil){
2265          goto T1012;}          goto T1011;}
2266          {object V353 = structure_set((V352),VV[55],11,Ct);          {object V353 = structure_set((V352),VV[55],11,Ct);
2267          VMR14(V353)}          VMR14(V353)}
2268  goto T1012;  goto T1011;
2269  T1012:;  T1011:;
2270          {object V354 = Cnil;          {object V354 = Cnil;
2271          VMR14(V354)}}          VMR14(V354)}}
2272          return Cnil;          return Cnil;
# Line 2287  static void L15() Line 2288  static void L15()
2288  goto TTL;  goto TTL;
2289  TTL:;  TTL:;
2290          if(((V357))==Cnil){          if(((V357))==Cnil){
2291          goto T1014;}          goto T1013;}
2292          if((symbol_value(VV[104]))!=Cnil){          if((symbol_value(VV[104]))!=Cnil){
2293          goto T1014;}          goto T1013;}
2294          base[3]= VV[105];          base[3]= VV[105];
2295          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2296          Lerror();          Lerror();
2297          vs_top=sup;          vs_top=sup;
2298  goto T1014;  goto T1013;
2299  T1014:;  T1013:;
2300          {register object V358;          {register object V358;
2301          register object V359;          register object V359;
2302          {object V360;          {object V360;
# Line 2308  T1014:; Line 2309  T1014:;
2309          vs_top=sup;          vs_top=sup;
2310          V360= vs_base[0];          V360= vs_base[0];
2311          if((symbol_value(VV[104]))==Cnil){          if((symbol_value(VV[104]))==Cnil){
2312          goto T1026;}          goto T1025;}
2313          base[5]= Cnil;          base[5]= Cnil;
2314          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2315          return;          return;
2316  goto T1026;  goto T1025;
2317  T1026:;  T1025:;
2318          V358= (V360);}{object V361;          V358= (V360);}{object V361;
2319          V361= get(car((V358)),VV[55],Cnil);          V361= get(car((V358)),VV[55],Cnil);
2320          if(V361==Cnil)goto T1030;          if(V361==Cnil)goto T1029;
2321          V359= V361;          V359= V361;
2322          goto T1029;          goto T1028;
2323  goto T1030;  goto T1029;
2324  T1030:;}  T1029:;}
2325          base[5]= VV[106];          base[5]= VV[106];
2326          base[6]= car((V358));          base[6]= car((V358));
2327          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2328          Lerror();          Lerror();
2329          vs_top=sup;          vs_top=sup;
2330          V359= vs_base[0];          V359= vs_base[0];
2331  goto T1029;  goto T1028;
2332  T1029:;  T1028:;
2333          {register object V362;          {register object V362;
2334          V362= cdr((V358));          V362= cdr((V358));
2335  goto T1036;  goto T1035;
2336  T1036:;  T1035:;
2337          if(!(endp((V362)))){          if(!(endp((V362)))){
2338          goto T1037;}          goto T1036;}
2339          {register object V363;          {register object V363;
2340          V363= structure_ref((V359),VV[55],13);          V363= structure_ref((V359),VV[55],13);
2341  goto T1042;  goto T1041;
2342  T1042:;  T1041:;
2343          if(!(endp((V363)))){          if(!(endp((V363)))){
2344          goto T1043;}          goto T1042;}
2345          base[5]= VV[107];          base[5]= VV[107];
2346          base[6]= car((V358));          base[6]= car((V358));
2347          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
2348          Lerror();          Lerror();
2349          return;          return;
2350  goto T1043;  goto T1042;
2351  T1043:;  T1042:;
2352          if(!(type_of(car((V363)))==t_symbol)){          if(!(type_of(car((V363)))==t_symbol)){
2353          goto T1049;}          goto T1048;}
2354          base[5]= car((V363));          base[5]= car((V363));
2355          {object V364;          {object V364;
2356          V364= cdr((V358));          V364= cdr((V358));
# Line 2359  T1043:; Line 2360  T1043:;
2360          vs_base=base+6;}          vs_base=base+6;}
2361          super_funcall_no_event(base[5]);          super_funcall_no_event(base[5]);
2362          return;          return;
2363  goto T1049;  goto T1048;
2364  T1049:;  T1048:;
2365          V363= cdr((V363));          V363= cdr((V363));
2366          goto T1042;}          goto T1041;}
2367  goto T1037;  goto T1036;
2368  T1037:;  T1036:;
2369          base[5]= coerce_to_string(car((V362)));          base[5]= coerce_to_string(car((V362)));
2370          base[6]= VV[108];          base[6]= VV[108];
2371          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
# Line 2374  T1037:; Line 2375  T1037:;
2375          if(type_of((V362))!=t_cons)FEwrong_type_argument(Scons,(V362));          if(type_of((V362))!=t_cons)FEwrong_type_argument(Scons,(V362));
2376          ((V362))->c.c_car = V365;          ((V362))->c.c_car = V365;
2377          V362= cddr((V362));          V362= cddr((V362));
2378          goto T1036;}}          goto T1035;}}
2379          }          }
2380  }  }
2381  /*      local function CLOSURE  */  /*      local function CLOSURE  */
# Line 2407  register object *base0; Line 2408  register object *base0;
2408          V367=(base[0]);          V367=(base[0]);
2409          vs_top=sup;          vs_top=sup;
2410          if(!(type_of((V367))==t_cons)){          if(!(type_of((V367))==t_cons)){
2411          goto T1068;}          goto T1067;}
2412          base[1]= car((V367));          base[1]= car((V367));
2413          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2414          return;          return;
2415  goto T1068;  goto T1067;
2416  T1068:;  T1067:;
2417          base[1]= Cnil;          base[1]= Cnil;
2418          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2419          return;          return;
# Line 2464  register object *base0; Line 2465  register object *base0;
2465          V370=(base[0]);          V370=(base[0]);
2466          vs_top=sup;          vs_top=sup;
2467          if(!(type_of((V370))==t_structure)){          if(!(type_of((V370))==t_structure)){
2468          goto T1073;}          goto T1072;}
2469          goto T1072;          goto T1071;
2470  goto T1073;  goto T1072;
2471  T1073:;  T1072:;
2472          base[1]= VV[5];          base[1]= VV[5];
2473          base[2]= (V370);          base[2]= (V370);
2474          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2475          Lerror();          Lerror();
2476          vs_top=sup;          vs_top=sup;
2477  goto T1072;  goto T1071;
2478  T1072:;  T1071:;
2479          base[1]= (V370);          base[1]= (V370);
2480          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
2481          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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