/[gcl]/gcl/cmpnew/cmpeval.c
ViewVC logotype

Diff of /gcl/cmpnew/cmpeval.c

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

revision 1.9 by camm, Sun Feb 9 22:35:14 2003 UTC revision 1.10 by camm, Wed Feb 26 22:21:35 2003 UTC
# Line 8  static object LI1(V3,V4) Line 8  static object LI1(V3,V4)
8    
9  register object V3;object V4;  register object V3;object V4;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11  goto TTL;          goto TTL;
12  TTL:;  TTL:;
13          V3= (*(LnkLI123))((V3));          V3= (*(LnkLI123))((V3));
14          (void)((*(LnkLI124))((V4),cadr((V3))));          (void)((*(LnkLI124))((V4),cadr((V3))));
# Line 22  static object LI2(V7) Line 22  static object LI2(V7)
22    
23  VOL object V7;  VOL object V7;
24  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
25  goto TTL;          goto TTL;
26  TTL:;  TTL:;
27          frs_push(FRS_CATCH,VV[0]);          frs_push(FRS_CATCH,VV[0]);
28          if(nlj_active)          if(nlj_active)
# Line 39  TTL:; Line 39  TTL:;
39          frs_pop();          frs_pop();
40          V7= V8;          V7= V8;
41          goto T5;          goto T5;
42  goto T11;          goto T11;
43  T11:;  T11:;
44          if(!(((V7))==(Ct))){          if(!(((V7))==(Ct))){
45          goto T14;}          goto T14;}
# Line 47  T11:; Line 47  T11:;
47          frs_pop();          frs_pop();
48          V7= V9;          V7= V9;
49          goto T5;          goto T5;
50  goto T14;          goto T14;
51  T14:;  T14:;
52          if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){          if(!((type_of((V7))==t_symbol&&((V7))->s.s_hpack==keyword_package))){
53          goto T17;}          goto T17;}
# Line 57  T14:; Line 57  T14:;
57          frs_pop();          frs_pop();
58          V7= V12;          V7= V12;
59          goto T5;          goto T5;
60  goto T17;          goto T17;
61  T17:;  T17:;
62          base[0]= (V7);          base[0]= (V7);
63          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 76  T17:; Line 76  T17:;
76          frs_pop();          frs_pop();
77          V7= V14;          V7= V14;
78          goto T5;          goto T5;
79  goto T25;          goto T25;
80  T25:;}  T25:;}
81          V15= (*(LnkLI128))((V13));          V15= (*(LnkLI128))((V13));
82          V16= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V15));          V16= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V15));
# Line 84  T25:;} Line 84  T25:;}
84          frs_pop();          frs_pop();
85          V7= V17;          V7= V17;
86          goto T5;}          goto T5;}
87  goto T20;          goto T20;
88  T20:;  T20:;
89          V18= (*(LnkLI132))((V7));          V18= (*(LnkLI132))((V7));
90          frs_pop();          frs_pop();
91          V7= V18;          V7= V18;
92          goto T5;          goto T5;
93  goto T8;          goto T8;
94  T8:;  T8:;
95          if(!(type_of((V7))==t_cons)){          if(!(type_of((V7))==t_cons)){
96          goto T28;}          goto T28;}
# Line 106  T8:; Line 106  T8:;
106          frs_pop();          frs_pop();
107          V7= vs_base[0];          V7= vs_base[0];
108          goto T5;          goto T5;
109  goto T32;          goto T32;
110  T32:;  T32:;
111          if(!(type_of((V19))==t_cons)){          if(!(type_of((V19))==t_cons)){
112          goto T37;}          goto T37;}
# Line 116  T32:; Line 116  T32:;
116          frs_pop();          frs_pop();
117          V7= V20;          V7= V20;
118          goto T5;          goto T5;
119  goto T37;          goto T37;
120  T37:;  T37:;
121          if(!(type_of((V19))==t_cons)){          if(!(type_of((V19))==t_cons)){
122          goto T42;}          goto T42;}
# Line 126  T37:; Line 126  T37:;
126          frs_pop();          frs_pop();
127          V7= V21;          V7= V21;
128          goto T5;          goto T5;
129  goto T42;          goto T42;
130  T42:;  T42:;
131          V22= (VFUN_NARGS=2,(*(LnkLI135))(VV[7],(V19)));          V22= (VFUN_NARGS=2,(*(LnkLI135))(VV[7],(V19)));
132          frs_pop();          frs_pop();
133          V7= V22;          V7= V22;
134          goto T5;}          goto T5;}
135  goto T28;          goto T28;
136  T28:;  T28:;
137          V23= (*(LnkLI130))((V7),Ct);          V23= (*(LnkLI130))((V7),Ct);
138          frs_pop();          frs_pop();
139          V7= V23;}          V7= V23;}
140  goto T5;          goto T5;
141  T5:;  T5:;
142          if(!(((V7))==(VV[8]))){          if(!(((V7))==(VV[8]))){
143          goto T47;}          goto T47;}
144          {object V24 = (*(LnkLI125))();          {object V24 = (*(LnkLI125))();
145          VMR2(V24)}          VMR2(V24)}
146  goto T47;          goto T47;
147  T47:;  T47:;
148          {object V25 = (V7);          {object V25 = (V7);
149          VMR2(V25)}          VMR2(V25)}
# Line 156  static object LI3(V27) Line 156  static object LI3(V27)
156    
157  object V27;  object V27;
158  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
159  goto TTL;          goto TTL;
160  TTL:;  TTL:;
161          V28= make_cons(VV[5],(V27));          V28= make_cons(VV[5],(V27));
162          {object V29 = (*(LnkLI130))(/* INLINE-ARGS */V28,Ct);          {object V29 = (*(LnkLI130))(/* INLINE-ARGS */V28,Ct);
# Line 170  static object LI4(V31) Line 170  static object LI4(V31)
170  object V31;  object V31;
171  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
172          bds_check;          bds_check;
173  goto TTL;          goto TTL;
174  TTL:;  TTL:;
175          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
176          base[1]= make_cons(VV[10],(V31));          base[1]= make_cons(VV[10],(V31));
# Line 191  TTL:; Line 191  TTL:;
191  static object LI5()  static object LI5()
192    
193  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
194  goto TTL;          goto TTL;
195  TTL:;  TTL:;
196          {object V34 = symbol_value(VV[11]);          {object V34 = symbol_value(VV[11]);
197          VMR5(V34)}          VMR5(V34)}
# Line 202  TTL:; Line 202  TTL:;
202  static object LI6()  static object LI6()
203    
204  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
205  goto TTL;          goto TTL;
206  TTL:;  TTL:;
207          {object V35 = symbol_value(VV[12]);          {object V35 = symbol_value(VV[12]);
208          VMR6(V35)}          VMR6(V35)}
# Line 218  static void L7() Line 218  static void L7()
218          check_arg(1);          check_arg(1);
219          V36=(base[0]);          V36=(base[0]);
220          vs_top=sup;          vs_top=sup;
221  goto TTL;          goto TTL;
222  TTL:;  TTL:;
223          {register long V37;          {register long V37;
224          V37= 0;          V37= 0;
# Line 226  TTL:; Line 226  TTL:;
226          register object V39;          register object V39;
227          V38= VV[13];          V38= VV[13];
228          V39= car((V38));          V39= car((V38));
229  goto T58;          goto T58;
230  T58:;  T58:;
231          if(!(endp_prop((V38)))){          if(!(endp_prop((V38)))){
232          goto T59;}          goto T59;}
233          goto T54;          goto T54;
234  goto T59;          goto T59;
235  T59:;  T59:;
236          {register object x= (V36),V40= (V39);          {register object x= (V36),V40= (V39);
237          while(!endp(V40))          while(!endp(V40))
# Line 239  T59:; Line 239  T59:;
239          goto T65;          goto T65;
240          }else V40=V40->c.c_cdr;          }else V40=V40->c.c_cdr;
241          goto T63;}          goto T63;}
242  goto T65;          goto T65;
243  T65:;  T65:;
244          base[2]= make_fixnum(V37);          base[2]= make_fixnum(V37);
245          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
246          return;          return;
247  goto T63;          goto T63;
248  T63:;  T63:;
249          V37= (long)(V37)+(1);          V37= (long)(V37)+(1);
250          V38= cdr((V38));          V38= cdr((V38));
251          V39= car((V38));          V39= car((V38));
252          goto T58;}          goto T58;}
253  goto T54;          goto T54;
254  T54:;  T54:;
255          base[1]= VV[14];          base[1]= VV[14];
256          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 293  static void L9() Line 293  static void L9()
293          check_arg(1);          check_arg(1);
294          V43=(base[0]);          V43=(base[0]);
295          vs_top=sup;          vs_top=sup;
296  goto TTL;          goto TTL;
297  TTL:;  TTL:;
298          {register object V44;          {register object V44;
299          V44= cddr((V43));          V44= cddr((V43));
# Line 302  TTL:; Line 302  TTL:;
302          if((symbol_value(VV[16]))==Cnil){          if((symbol_value(VV[16]))==Cnil){
303          goto T80;}          goto T80;}
304          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43))));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[17],(V43))));
305  goto T80;          goto T80;
306  T80:;  T80:;
307          {object V46;          {object V46;
308          if((car((V44)))==Cnil){          if((car((V44)))==Cnil){
309          goto T87;}          goto T87;}
310          base[2]= small_fixnum(2);          base[2]= small_fixnum(2);
311          goto T85;          goto T85;
312  goto T87;          goto T87;
313  T87:;  T87:;
314          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
315  goto T85;          goto T85;
316  T85:;  T85:;
317          if((cadr((V44)))==Cnil){          if((cadr((V44)))==Cnil){
318          goto T91;}          goto T91;}
319          base[3]= small_fixnum(1);          base[3]= small_fixnum(1);
320          goto T89;          goto T89;
321  goto T91;          goto T91;
322  T91:;  T91:;
323          base[3]= small_fixnum(0);          base[3]= small_fixnum(0);
324  goto T89;          goto T89;
325  T89:;  T89:;
326          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
327          Llogior();          Llogior();
# Line 331  T89:; Line 331  T89:;
331          if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43));          if(type_of(cdr(V43))!=t_cons)FEwrong_type_argument(Scons,cdr(V43));
332          (cdr(V43))->c.c_cdr = (V46);          (cdr(V43))->c.c_cdr = (V46);
333          (void)(cdr(V43));}          (void)(cdr(V43));}
334  goto T77;          goto T77;
335  T77:;  T77:;
336          base[1]= (V43);          base[1]= (V43);
337          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 350  static void L10() Line 350  static void L10()
350          V48=(base[0]);          V48=(base[0]);
351          V49=(base[1]);          V49=(base[1]);
352          vs_top=sup;          vs_top=sup;
353  goto TTL;          goto TTL;
354  TTL:;  TTL:;
355          {object V50;          {object V50;
356          V50= Cnil;          V50= Cnil;
# Line 365  TTL:; Line 365  TTL:;
365          object V52;          object V52;
366          V51= VV[20];          V51= VV[20];
367          V52= car((V51));          V52= car((V51));
368  goto T106;          goto T106;
369  T106:;  T106:;
370          if(!(endp_prop((V51)))){          if(!(endp_prop((V51)))){
371          goto T107;}          goto T107;}
372          base[3]= Cnil;          base[3]= Cnil;
373          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
374          return;          return;
375  goto T107;          goto T107;
376  T107:;  T107:;
377          {register object V53;          {register object V53;
378          register object V54;          register object V54;
379          V53= get((V48),(V52),Cnil);          V53= get((V48),(V52),Cnil);
380          V54= car((V53));          V54= car((V53));
381  goto T115;          goto T115;
382  T115:;  T115:;
383          if(!(endp_prop((V53)))){          if(!(endp_prop((V53)))){
384          goto T116;}          goto T116;}
385          goto T111;          goto T111;
386  goto T116;          goto T116;
387  T116:;  T116:;
388          base[5]= (V54);          base[5]= (V54);
389          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 402  T116:; Line 402  T116:;
402          register object V56;          register object V56;
403          V56= car((V54));          V56= car((V54));
404          V55= (V49);          V55= (V49);
405  goto T133;          goto T133;
406  T133:;  T133:;
407          if(((V55))!=Cnil){          if(((V55))!=Cnil){
408          goto T134;}          goto T134;}
409          goto T130;          goto T130;
410  goto T134;          goto T134;
411  T134:;  T134:;
412          if((car((V55)))==(car((V56)))){          if((car((V55)))==(car((V56)))){
413          goto T138;}          goto T138;}
414          if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){          if(((*(LnkLI140))(car((V56)),car((V55))))!=Cnil){
415          goto T138;}          goto T138;}
416          goto T122;          goto T122;
417  goto T138;          goto T138;
418  T138:;  T138:;
419          V55= cdr((V55));          V55= cdr((V55));
420          V56= cdr((V56));          V56= cdr((V56));
421          goto T133;}          goto T133;}
422  goto T130;          goto T130;
423  T130:;  T130:;
424          base[5]= cadr((V54));          base[5]= cadr((V54));
425          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
426          return;          return;
427  goto T122;          goto T122;
428  T122:;  T122:;
429          V53= cdr((V53));          V53= cdr((V53));
430          V54= car((V53));          V54= car((V53));
431          goto T115;}          goto T115;}
432  goto T111;          goto T111;
433  T111:;  T111:;
434          V51= cdr((V51));          V51= cdr((V51));
435          V52= car((V51));          V52= car((V51));
436          goto T106;}          goto T106;}
437  goto T96;          goto T96;
438  T96:;  T96:;
439          base[2]= Cnil;          base[2]= Cnil;
440          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 456  static void L11() Line 456  static void L11()
456          register object V59;          register object V59;
457          V58= base[2];          V58= base[2];
458          V59= car((V58));          V59= car((V58));
459  goto T162;          goto T162;
460  T162:;  T162:;
461          if(!(endp_prop((V58)))){          if(!(endp_prop((V58)))){
462          goto T163;}          goto T163;}
463          goto T158;          goto T158;
464  goto T163;          goto T163;
465  T163:;  T163:;
466          base[5]= base[3];          base[5]= base[3];
467          base[7]= small_fixnum(1);          base[7]= small_fixnum(1);
# Line 481  T163:; Line 481  T163:;
481          V58= cdr((V58));          V58= cdr((V58));
482          V59= car((V58));          V59= car((V58));
483          goto T162;}          goto T162;}
484  goto T158;          goto T158;
485  T158:;  T158:;
486          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
487          return;          return;
# Line 498  static void L12() Line 498  static void L12()
498          V60=(base[0]);          V60=(base[0]);
499          V61=(base[1]);          V61=(base[1]);
500          vs_top=sup;          vs_top=sup;
501  goto TTL;          goto TTL;
502  TTL:;  TTL:;
503          {object V62;          {object V62;
504          V62= Cnil;          V62= Cnil;
# Line 509  TTL:; Line 509  TTL:;
509          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
510          super_funcall_no_event((V62));          super_funcall_no_event((V62));
511          return;          return;
512  goto T181;          goto T181;
513  T181:;  T181:;
514          {object V63;          {object V63;
515          V62= get((V60),VV[22],Cnil);          V62= get((V60),VV[22],Cnil);
# Line 517  T181:; Line 517  T181:;
517          goto T186;}          goto T186;}
518          V63= Cnil;          V63= Cnil;
519          goto T185;          goto T185;
520  goto T186;          goto T186;
521  T186:;  T186:;
522          V63= (          V63= (
523          (type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)):          (type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)):
524          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));
525  goto T185;          goto T185;
526  T185:;  T185:;
527          if(((V63))==Cnil){          if(((V63))==Cnil){
528          goto T190;}          goto T190;}
529          base[2]= (V63);          base[2]= (V63);
530          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
531          return;          return;
532  goto T190;          goto T190;
533  T190:;  T190:;
534          V62= (*(LnkLI141))((V60));          V62= (*(LnkLI141))((V60));
535          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 545  T190:; Line 545  T190:;
545          if(((V66))==Cnil){          if(((V66))==Cnil){
546          goto T201;}          goto T201;}
547          (void)(structure_set((V64),VV[25],2,(V66)));}          (void)(structure_set((V64),VV[25],2,(V66)));}
548  goto T201;          goto T201;
549  T201:;  T201:;
550          {register object V67;          {register object V67;
551          V67= (*(LnkLI144))(caddr((V62)));          V67= (*(LnkLI144))(caddr((V62)));
# Line 557  T201:; Line 557  T201:;
557          object V70;          object V70;
558          V69= (V65);          V69= (V65);
559          V70= car((V69));          V70= car((V69));
560  goto T213;          goto T213;
561  T213:;  T213:;
562          if(!(endp_prop((V69)))){          if(!(endp_prop((V69)))){
563          goto T214;}          goto T214;}
564          goto T209;          goto T209;
565  goto T214;          goto T214;
566  T214:;  T214:;
567          if(!(endp_prop((V67)))){          if(!(endp_prop((V67)))){
568          goto T220;}          goto T220;}
569          V68= make_cons(V70,(V68));          V68= make_cons(V70,(V68));
570          goto T218;          goto T218;
571  goto T220;          goto T220;
572  T220:;  T220:;
573          {object V72;          {object V72;
574          V72= (*(LnkLI145))(car((V67)),(V70),car((V61)));          V72= (*(LnkLI145))(car((V67)),(V70),car((V61)));
# Line 579  T220:; Line 579  T220:;
579          {object V74;          {object V74;
580          V74= car((V61));          V74= car((V61));
581          V61= cdr((V61));}          V61= cdr((V61));}
582  goto T218;          goto T218;
583  T218:;  T218:;
584          V69= cdr((V69));          V69= cdr((V69));
585          V70= car((V69));          V70= car((V69));
586          goto T213;}          goto T213;}
587  goto T209;          goto T209;
588  T209:;  T209:;
589          V65= reverse((V68));}}          V65= reverse((V68));}}
590  goto T205;          goto T205;
591  T205:;  T205:;
592          base[4]= list(4,VV[23],(V64),cddr((V62)),(V65));          base[4]= list(4,VV[23],(V64),cddr((V62)),(V65));
593          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
594          return;}          return;}
595  goto T197;          goto T197;
596  T197:;  T197:;
597          V75= (*(LnkLI146))((V62),(V60),(V61));          V75= (*(LnkLI146))((V62),(V60),(V61));
598          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V75);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V75);
599          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
600          return;          return;
601  goto T193;          goto T193;
602  T193:;  T193:;
603          {object V76;          {object V76;
604          V62= get((V60),VV[26],Cnil);          V62= get((V60),VV[26],Cnil);
# Line 606  T193:; Line 606  T193:;
606          goto T240;}          goto T240;}
607          V76= Cnil;          V76= Cnil;
608          goto T239;          goto T239;
609  goto T240;          goto T240;
610  T240:;  T240:;
611          if(((*(LnkLI147))((V60)))!=Cnil){          if(((*(LnkLI147))((V60)))!=Cnil){
612          goto T243;}          goto T243;}
613          V76= Cnil;          V76= Cnil;
614          goto T239;          goto T239;
615  goto T243;          goto T243;
616  T243:;  T243:;
617          V76= (          V76= (
618          (type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)):          (type_of((V62)) == t_sfun ?(*(((V62))->sfn.sfn_self)):
619          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));          (fcall.fun=((V62)),fcall.argd=2,fcalln))((V60),(V61)));
620  goto T239;          goto T239;
621  T239:;  T239:;
622          if(((V76))==Cnil){          if(((V76))==Cnil){
623          goto T246;}          goto T246;}
624          base[2]= (V76);          base[2]= (V76);
625          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
626          return;          return;
627  goto T246;          goto T246;
628  T246:;  T246:;
629          V62= get((V60),VV[27],Cnil);          V62= get((V60),VV[27],Cnil);
630          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 635  T246:; Line 635  T246:;
635          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
636          super_funcall_no_event((V62));          super_funcall_no_event((V62));
637          return;          return;
638  goto T249;          goto T249;
639  T249:;  T249:;
640          V62= get((V60),VV[28],Cnil);          V62= get((V60),VV[28],Cnil);
641          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 654  T249:; Line 654  T249:;
654          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
655          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
656          return;          return;
657  goto T256;          goto T256;
658  T256:;  T256:;
659          {object V77;          {object V77;
660          base[2]= (V60);          base[2]= (V60);
# Line 670  T256:; Line 670  T256:;
670          if((V78)==(V79)){          if((V78)==(V79)){
671          goto T269;}          goto T269;}
672          goto T268;          goto T268;
673  goto T269;          goto T269;
674  T269:;  T269:;
675          base[2]= (V60);          base[2]= (V60);
676          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 680  T269:; Line 680  T269:;
680          if((V80)==Cnil){          if((V80)==Cnil){
681          goto T275;}          goto T275;}
682          goto T268;          goto T268;
683  goto T275;          goto T275;
684  T275:;  T275:;
685          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60))));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[30],(V60))));
686  goto T268;          goto T268;
687  T268:;  T268:;
688          if(symbol_value(VV[31])==Cnil){          if(symbol_value(VV[31])==Cnil){
689          goto T279;}          goto T279;}
690          (void)((*(LnkLI32))(VV[32],(V60)));          (void)((*(LnkLI32))(VV[32],(V60)));
691  goto T279;          goto T279;
692  T279:;  T279:;
693          V77= Cnil;          V77= Cnil;
694          if(((V77))==Cnil){          if(((V77))==Cnil){
# Line 696  T279:; Line 696  T279:;
696          base[2]= (V77);          base[2]= (V77);
697          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
698          return;          return;
699  goto T281;          goto T281;
700  T281:;  T281:;
701          base[2]= (V60);          base[2]= (V60);
702          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 709  T281:; Line 709  T281:;
709          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V81);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V81);
710          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
711          return;          return;
712  goto T284;          goto T284;
713  T284:;  T284:;
714          V62= get((V60),VV[33],Cnil);          V62= get((V60),VV[33],Cnil);
715          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 723  T284:; Line 723  T284:;
723          base[2]= (*(LnkLI123))(V82);          base[2]= (*(LnkLI123))(V82);
724          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
725          return;          return;
726  goto T289;          goto T289;
727  T289:;  T289:;
728          V62= get((V60),VV[36],Cnil);          V62= get((V60),VV[36],Cnil);
729          if(((V62))==Cnil){          if(((V62))==Cnil){
# Line 744  T289:; Line 744  T289:;
744          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V85);
745          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
746          return;          return;
747  goto T308;          goto T308;
748  T308:;  T308:;
749          if((V84!= VV[113]))goto T309;          if((V84!= VV[113]))goto T309;
750          V86= list(3,VV[38],cdr((V62)),car((V61)));          V86= list(3,VV[38],cdr((V62)),car((V61)));
751          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V86);          base[2]= (*(LnkLI123))(/* INLINE-ARGS */V86);
752          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
753          return;          return;
754  goto T309;          goto T309;
755  T309:;  T309:;
756          base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62)));          base[2]= (*(LnkLI149))(car((V61)),car((V62)),cdr((V62)));
757          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
758          return;}          return;}
759  goto T295;          goto T295;
760  T295:;  T295:;
761          if(!(((V60))==(VV[5]))){          if(!(((V60))==(VV[5]))){
762          goto T311;}          goto T311;}
763          base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39]));          base[2]= (VFUN_NARGS=1,(*(LnkLI135))(VV[39]));
764          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
765          return;          return;
766  goto T311;          goto T311;
767  T311:;  T311:;
768          {object V87;          {object V87;
769          object V88;          object V88;
# Line 778  T311:; Line 778  T311:;
778          goto T321;}          goto T321;}
779          V90= Cnil;          V90= Cnil;
780          goto T316;          goto T316;
781  goto T321;          goto T321;
782  T321:;  T321:;
783          (void)(structure_set((V87),VV[25],2,(V90)));}          (void)(structure_set((V87),VV[25],2,(V90)));}
784  goto T316;          goto T316;
785  T316:;  T316:;
786          {register object V91;          {register object V91;
787          V91= (*(LnkLI151))((V60));          V91= (*(LnkLI151))((V60));
# Line 793  T316:; Line 793  T316:;
793          V92= (V88);          V92= (V88);
794          V93= Cnil;          V93= Cnil;
795          V94= (V61);          V94= (V61);
796  goto T329;          goto T329;
797  T329:;  T329:;
798          if(!(endp_prop((V92)))){          if(!(endp_prop((V92)))){
799          goto T330;}          goto T330;}
800          V88= reverse((V93));          V88= reverse((V93));
801          goto T324;          goto T324;
802  goto T330;          goto T330;
803  T330:;  T330:;
804          if(!(endp_prop((V91)))){          if(!(endp_prop((V91)))){
805          goto T337;}          goto T337;}
# Line 807  T330:; Line 807  T330:;
807          V95= car((V92));          V95= car((V92));
808          V93= make_cons((V95),(V93));          V93= make_cons((V95),(V93));
809          goto T335;}          goto T335;}
810  goto T337;          goto T337;
811  T337:;  T337:;
812          {object V96;          {object V96;
813          V96= (*(LnkLI145))(car((V91)),car((V92)),car((V94)));          V96= (*(LnkLI145))(car((V91)),car((V92)),car((V94)));
# Line 815  T337:; Line 815  T337:;
815          {object V97;          {object V97;
816          V97= car((V91));          V97= car((V91));
817          V91= cdr((V91));}          V91= cdr((V91));}
818  goto T335;          goto T335;
819  T335:;  T335:;
820          V92= cdr((V92));          V92= cdr((V92));
821          V94= cdr((V94));          V94= cdr((V94));
822          goto T329;}}          goto T329;}}
823  goto T324;          goto T324;
824  T324:;  T324:;
825          {register object V98;          {register object V98;
826          V98= get((V60),VV[42],Cnil);          V98= get((V60),VV[42],Cnil);
# Line 830  T324:; Line 830  T324:;
830          object V100;          object V100;
831          V99= (V88);          V99= (V88);
832          V100= (V61);          V100= (V61);
833  goto T356;          goto T356;
834  T356:;  T356:;
835          if(endp_prop((V98))){          if(endp_prop((V98))){
836          goto T358;}          goto T358;}
837          if(!(endp_prop((V99)))){          if(!(endp_prop((V99)))){
838          goto T357;}          goto T357;}
839  goto T358;          goto T358;
840  T358:;  T358:;
841          goto T351;          goto T351;
842  goto T357;          goto T357;
843  T357:;  T357:;
844          (void)((*(LnkLI152))(car((V98)),car((V99)),car((V100))));          (void)((*(LnkLI152))(car((V98)),car((V99)),car((V100))));
845          {object V101;          {object V101;
# Line 848  T357:; Line 848  T357:;
848          V99= cdr((V99));          V99= cdr((V99));
849          V100= cdr((V100));          V100= cdr((V100));
850          goto T356;}}          goto T356;}}
851  goto T351;          goto T351;
852  T351:;  T351:;
853          {object V102= (V60);          {object V102= (V60);
854          if((V102!= VV[153]))goto T373;          if((V102!= VV[153]))goto T373;
# Line 859  T351:; Line 859  T351:;
859          V103= VV[44];          V103= VV[44];
860          if((VV[44])!=Cnil){          if((VV[44])!=Cnil){
861          goto T375;}          goto T375;}
862  goto T376;          goto T376;
863  T376:;  T376:;
864          if(!(type_of((V103))==t_cons)){          if(!(type_of((V103))==t_cons)){
865          goto T372;}          goto T372;}
# Line 867  T376:; Line 867  T376:;
867          goto T383;}          goto T383;}
868          if(!((car((V103)))==(VV[46]))){          if(!((car((V103)))==(VV[46]))){
869          goto T372;}          goto T372;}
870  goto T383;          goto T383;
871  T383:;  T383:;
872          V103= cadr((V103));          V103= cadr((V103));
873          if(((V103))==Cnil){          if(((V103))==Cnil){
874          goto T372;}          goto T372;}
875  goto T375;          goto T375;
876  T375:;  T375:;
877          V104= structure_ref((V87),VV[25],2);          V104= structure_ref((V87),VV[25],2);
878          V103= (*(LnkLI154))(/* INLINE-ARGS */V104,(V103));          V103= (*(LnkLI154))(/* INLINE-ARGS */V104,(V103));
# Line 880  T375:; Line 880  T375:;
880          goto T391;}          goto T391;}
881          V105= make_cons((V60),(V61));          V105= make_cons((V60),(V61));
882          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V105)));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[47],/* INLINE-ARGS */V105)));
883  goto T391;          goto T391;
884  T391:;  T391:;
885          (void)(structure_set((V87),VV[25],2,(V103)));          (void)(structure_set((V87),VV[25],2,(V103)));
886          goto T372;}          goto T372;}
887  goto T373;          goto T373;
888  T373:;  T373:;
889          if((V102!= VV[155]))goto T394;          if((V102!= VV[155]))goto T394;
890          {object V106;          {object V106;
# Line 894  T373:; Line 894  T373:;
894          V106= VV[44];          V106= VV[44];
895          if((VV[44])!=Cnil){          if((VV[44])!=Cnil){
896          goto T396;}          goto T396;}
897  goto T397;          goto T397;
898  T397:;  T397:;
899          if(!(type_of((V106))==t_cons)){          if(!(type_of((V106))==t_cons)){
900          goto T372;}          goto T372;}
# Line 902  T397:; Line 902  T397:;
902          goto T404;}          goto T404;}
903          if(!((car((V106)))==(VV[46]))){          if(!((car((V106)))==(VV[46]))){
904          goto T372;}          goto T372;}
905  goto T404;          goto T404;
906  T404:;  T404:;
907          V106= cadr((V106));          V106= cadr((V106));
908          if(((V106))==Cnil){          if(((V106))==Cnil){
909          goto T372;}          goto T372;}
910  goto T396;          goto T396;
911  T396:;  T396:;
912          V107= structure_ref((V87),VV[25],2);          V107= structure_ref((V87),VV[25],2);
913          base[4]= (V88);          base[4]= (V88);
# Line 922  T396:; Line 922  T396:;
922          goto T414;}          goto T414;}
923          V111= make_cons((V60),(V61));          V111= make_cons((V60),(V61));
924          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V111)));          (void)((VFUN_NARGS=2,(*(LnkLI138))(VV[48],/* INLINE-ARGS */V111)));
925  goto T414;          goto T414;
926  T414:;  T414:;
927          (void)(structure_set((V87),VV[25],2,(V106)));          (void)(structure_set((V87),VV[25],2,(V106)));
928          base[4]= (V88);          base[4]= (V88);
# Line 932  T414:; Line 932  T414:;
932          V112= vs_base[0];          V112= vs_base[0];
933          (void)(structure_set(cadar(V112),VV[25],2,(V106)));          (void)(structure_set(cadar(V112),VV[25],2,(V106)));
934          goto T372;}          goto T372;}
935  goto T394;          goto T394;
936  T394:;}  T394:;}
937  goto T372;          goto T372;
938  T372:;  T372:;
939          {object V113;          {object V113;
940          base[4]= (V60);          base[4]= (V60);
# Line 944  T372:; Line 944  T372:;
944          base[5]= Cnil;          base[5]= Cnil;
945          goto T423;}          goto T423;}
946          base[6]=V114=MMcons(Cnil,Cnil);          base[6]=V114=MMcons(Cnil,Cnil);
947  goto T424;          goto T424;
948  T424:;  T424:;
949          (V114->c.c_car)= structure_ref(cadr((V115->c.c_car)),VV[25],2);          (V114->c.c_car)= structure_ref(cadr((V115->c.c_car)),VV[25],2);
950          V115=MMcdr(V115);          V115=MMcdr(V115);
# Line 953  T424:; Line 953  T424:;
953          goto T423;}          goto T423;}
954          V114=MMcdr(V114)=MMcons(Cnil,Cnil);          V114=MMcdr(V114)=MMcons(Cnil,Cnil);
955          goto T424;}          goto T424;}
956  goto T423;          goto T423;
957  T423:;  T423:;
958          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
959          (void) (*Lnk156)();          (void) (*Lnk156)();
# Line 964  T423:; Line 964  T423:;
964          V117= structure_ref((V87),VV[25],2);          V117= structure_ref((V87),VV[25],2);
965          V113= (*(LnkLI154))((V113),/* INLINE-ARGS */V117);          V113= (*(LnkLI154))((V113),/* INLINE-ARGS */V117);
966          (void)(structure_set((V87),VV[25],2,(V113)));}          (void)(structure_set((V87),VV[25],2,(V113)));}
967  goto T420;          goto T420;
968  T420:;  T420:;
969          base[4]= list(4,VV[49],(V87),(V60),(V88));          base[4]= list(4,VV[49],(V87),(V60),(V88));
970          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 977  static object LI13(V119) Line 977  static object LI13(V119)
977    
978  object V119;  object V119;
979  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
980  goto TTL;          goto TTL;
981  TTL:;  TTL:;
982          {register object V120;          {register object V120;
983          register object V121;          register object V121;
# Line 985  TTL:; Line 985  TTL:;
985          V121= Cnil;          V121= Cnil;
986          {register object V122;          {register object V122;
987          V122= (V119);          V122= (V119);
988  goto T433;          goto T433;
989  T433:;  T433:;
990          if(((V122))!=Cnil){          if(((V122))!=Cnil){
991          goto T434;}          goto T434;}
992          {object V123 = (V120);          {object V123 = (V120);
993          VMR13(V123)}          VMR13(V123)}
994  goto T434;          goto T434;
995  T434:;  T434:;
996          base[0]= car((V122));          base[0]= car((V122));
997          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1013  type_of((V121))==t_complex){ Line 1013  type_of((V121))==t_complex){
1013          goto T439;}          goto T439;}
1014          if(!(type_of((V121))==t_character)){          if(!(type_of((V121))==t_character)){
1015          goto T438;}          goto T438;}
1016  goto T439;          goto T439;
1017  T439:;  T439:;
1018          V120= Ct;          V120= Ct;
1019          {register object V124;          {register object V124;
# Line 1022  T439:; Line 1022  T439:;
1022          V125= (V121);          V125= (V121);
1023          if(type_of((V124))!=t_cons)FEwrong_type_argument(Scons,(V124));          if(type_of((V124))!=t_cons)FEwrong_type_argument(Scons,(V124));
1024          ((V124))->c.c_car = (V125);}          ((V124))->c.c_car = (V125);}
1025  goto T438;          goto T438;
1026  T438:;  T438:;
1027          V122= cdr((V122));          V122= cdr((V122));
1028          goto T433;}}          goto T433;}}
# Line 1035  static object LI14(V128,V129) Line 1035  static object LI14(V128,V129)
1035    
1036  register object V128;object V129;  register object V128;object V129;
1037  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1038  goto TTL;          goto TTL;
1039  TTL:;  TTL:;
1040          {object V130;          {object V130;
1041          V130= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));          V130= (VFUN_NARGS=2,(*(LnkLI127))(VV[24],Ct));
# Line 1058  static void L15() Line 1058  static void L15()
1058          check_arg(1);          check_arg(1);
1059          V132=(base[0]);          V132=(base[0]);
1060          vs_top=sup;          vs_top=sup;
1061  goto TTL;          goto TTL;
1062  TTL:;  TTL:;
1063          if(!((car((V132)))==(VV[49]))){          if(!((car((V132)))==(VV[49]))){
1064          goto T463;}          goto T463;}
# Line 1068  TTL:; Line 1068  TTL:;
1068          base[1]= (*(LnkLI158))(/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,Cnil,/* INLINE-ARGS */V135);          base[1]= (*(LnkLI158))(/* INLINE-ARGS */V133,/* INLINE-ARGS */V134,Cnil,/* INLINE-ARGS */V135);
1069          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1070          return;          return;
1071  goto T463;          goto T463;
1072  T463:;  T463:;
1073          if((car((V132)))==(VV[51])){          if((car((V132)))==(VV[51])){
1074          goto T465;}          goto T465;}
1075          if(!((car((V132)))==(VV[52]))){          if(!((car((V132)))==(VV[52]))){
1076          goto T466;}          goto T466;}
1077  goto T465;          goto T465;
1078  T465:;  T465:;
1079          base[1]= (*(LnkLI159))(cadr((V132)));          base[1]= (*(LnkLI159))(cadr((V132)));
1080          bds_bind(VV[53],base[1]);          bds_bind(VV[53],base[1]);
# Line 1088  T465:; Line 1088  T465:;
1088          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
1089          bds_unwind1;          bds_unwind1;
1090          return;          return;
1091  goto T466;          goto T466;
1092  T466:;  T466:;
1093          {register object V137;          {register object V137;
1094          V137= get(car((V132)),VV[54],Cnil);          V137= get(car((V132)),VV[54],Cnil);
# Line 1103  T466:; Line 1103  T466:;
1103          vs_base=base+2;}          vs_base=base+2;}
1104          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
1105          return;          return;
1106  goto T475;          goto T475;
1107  T475:;  T475:;
1108          V137= get(car((V132)),VV[55],Cnil);          V137= get(car((V132)),VV[55],Cnil);
1109          if(((V137))==Cnil){          if(((V137))==Cnil){
# Line 1112  T475:; Line 1112  T475:;
1112          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1113          super_funcall_no_event((V137));          super_funcall_no_event((V137));
1114          return;          return;
1115  goto T480;          goto T480;
1116  T480:;  T480:;
1117          base[1]= (*(LnkLI160))();          base[1]= (*(LnkLI160))();
1118          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1126  static object LI16(V142,V143,V144) Line 1126  static object LI16(V142,V143,V144)
1126  object V142;object V143;object V144;  object V142;object V143;object V144;
1127  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1128          bds_check;          bds_check;
1129  goto TTL;          goto TTL;
1130  TTL:;  TTL:;
1131          {object V145;          {object V145;
1132          object V146;          object V146;
# Line 1156  static object LI17(V151) Line 1156  static object LI17(V151)
1156  object V151;  object V151;
1157  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1158          bds_check;          bds_check;
1159  goto TTL;          goto TTL;
1160  TTL:;  TTL:;
1161          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));
1162          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));
# Line 1167  TTL:; Line 1167  TTL:;
1167          vs_top=sup;          vs_top=sup;
1168          if((cdr((VV[59]->s.s_dbind)))==Cnil){          if((cdr((VV[59]->s.s_dbind)))==Cnil){
1169          goto T500;}          goto T500;}
1170          princ_str("\ngoto T",VV[62]);          princ_str("\n   goto T",VV[62]);
1171          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
1172          princ_char(59,VV[62]);          princ_char(59,VV[62]);
1173          princ_str("\nT",VV[62]);          princ_str("\nT",VV[62]);
# Line 1177  TTL:; Line 1177  TTL:;
1177          bds_unwind1;          bds_unwind1;
1178          bds_unwind1;          bds_unwind1;
1179          VMR17(V152)}          VMR17(V152)}
1180  goto T500;          goto T500;
1181  T500:;  T500:;
1182          {object V153 = Cnil;          {object V153 = Cnil;
1183          bds_unwind1;          bds_unwind1;
# Line 1193  static object LI18(V156,V157) Line 1193  static object LI18(V156,V157)
1193  object V156;object V157;  object V156;object V157;
1194  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1195          bds_check;          bds_check;
1196  goto TTL;          goto TTL;
1197  TTL:;  TTL:;
1198          bds_bind(VV[63],small_fixnum(0));          bds_bind(VV[63],small_fixnum(0));
1199          bds_bind(VV[64],small_fixnum(0));          bds_bind(VV[64],small_fixnum(0));
# Line 1225  TTL:; Line 1225  TTL:;
1225          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));          (void)((*(LnkLI165))((VV[67]->s.s_dbind)));
1226          princ_str(");",VV[62]);          princ_str(");",VV[62]);
1227          goto T534;          goto T534;
1228  goto T536;          goto T536;
1229  T536:;  T536:;
1230          princ_str("\n   vs_check;",VV[62]);          princ_str("\n   vs_check;",VV[62]);
1231  goto T534;          goto T534;
1232  T534:;  T534:;
1233          princ_str("\n   ",VV[62]);          princ_str("\n   ",VV[62]);
1234          (void)((*(LnkLI166))());          (void)((*(LnkLI166))());
# Line 1256  static object LI19(V165,V166) Line 1256  static object LI19(V165,V166)
1256  object V165;object V166;  object V165;object V166;
1257  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1258          bds_check;          bds_check;
1259  goto TTL;          goto TTL;
1260  TTL:;  TTL:;
1261          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));
1262          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));          bds_bind(VV[59],make_cons(symbol_value(VV[60]),Cnil));
# Line 1264  TTL:; Line 1264  TTL:;
1264          (void)((*(LnkLI167))((V165),(V166)));          (void)((*(LnkLI167))((V165),(V166)));
1265          if((cdr((VV[59]->s.s_dbind)))==Cnil){          if((cdr((VV[59]->s.s_dbind)))==Cnil){
1266          goto T555;}          goto T555;}
1267          princ_str("\ngoto T",VV[62]);          princ_str("\n   goto T",VV[62]);
1268          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
1269          princ_char(59,VV[62]);          princ_char(59,VV[62]);
1270          princ_str("\nT",VV[62]);          princ_str("\nT",VV[62]);
# Line 1274  TTL:; Line 1274  TTL:;
1274          bds_unwind1;          bds_unwind1;
1275          bds_unwind1;          bds_unwind1;
1276          VMR19(V167)}          VMR19(V167)}
1277  goto T555;          goto T555;
1278  T555:;  T555:;
1279          {object V168 = Cnil;          {object V168 = Cnil;
1280          bds_unwind1;          bds_unwind1;
# Line 1289  static object LI20(V170) Line 1289  static object LI20(V170)
1289    
1290  register object V170;  register object V170;
1291  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1292  goto TTL;          goto TTL;
1293  TTL:;  TTL:;
1294          {register object V171;          {register object V171;
1295          V171= Cnil;          V171= Cnil;
# Line 1297  TTL:; Line 1297  TTL:;
1297          goto T566;}          goto T566;}
1298          {object V172 = (*(LnkLI125))();          {object V172 = (*(LnkLI125))();
1299          VMR20(V172)}          VMR20(V172)}
1300  goto T566;          goto T566;
1301  T566:;  T566:;
1302          if(!(endp_prop(cdr((V170))))){          if(!(endp_prop(cdr((V170))))){
1303          goto T569;}          goto T569;}
1304          {object V173 = (*(LnkLI123))(car((V170)));          {object V173 = (*(LnkLI123))(car((V170)));
1305          VMR20(V173)}          VMR20(V173)}
1306  goto T569;          goto T569;
1307  T569:;  T569:;
1308          {register object V174;          {register object V174;
1309          V174= (VFUN_NARGS=0,(*(LnkLI127))());          V174= (VFUN_NARGS=0,(*(LnkLI127))());
# Line 1311  T569:; Line 1311  T569:;
1311          register object V176;          register object V176;
1312          V175= (V170);          V175= (V170);
1313          V176= car((V175));          V176= car((V175));
1314  goto T576;          goto T576;
1315  T576:;  T576:;
1316          if(!(endp_prop((V175)))){          if(!(endp_prop((V175)))){
1317          goto T577;}          goto T577;}
1318          goto T572;          goto T572;
1319  goto T577;          goto T577;
1320  T577:;  T577:;
1321          V176= (*(LnkLI123))((V176));          V176= (*(LnkLI123))((V176));
1322          {register object V177;          {register object V177;
# Line 1326  T577:; Line 1326  T577:;
1326          V175= cdr((V175));          V175= cdr((V175));
1327          V176= car((V175));          V176= car((V175));
1328          goto T576;}          goto T576;}
1329  goto T572;          goto T572;
1330  T572:;  T572:;
1331          V178= structure_ref(cadar((V171)),VV[25],2);          V178= structure_ref(cadar((V171)),VV[25],2);
1332          (void)(structure_set((V174),VV[25],2,/* INLINE-ARGS */V178));          (void)(structure_set((V174),VV[25],2,/* INLINE-ARGS */V178));
# Line 1341  static object LI21(V182,V183) Line 1341  static object LI21(V182,V183)
1341    
1342  register object V182;object V183;  register object V182;object V183;
1343  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1344  goto TTL;          goto TTL;
1345  TTL:;  TTL:;
1346          V182= (*(LnkLI168))((V182));          V182= (*(LnkLI168))((V182));
1347          (void)((*(LnkLI124))((V183),cadr((V182))));          (void)((*(LnkLI124))((V183),cadr((V182))));
# Line 1360  static void L22() Line 1360  static void L22()
1360          check_arg(1);          check_arg(1);
1361          V185=(base[0]);          V185=(base[0]);
1362          vs_top=sup;          vs_top=sup;
1363  goto TTL;          goto TTL;
1364  TTL:;  TTL:;
1365          {register object V186;          {register object V186;
1366          V186= (V185);          V186= (V185);
1367  goto T597;          goto T597;
1368  T597:;  T597:;
1369          if(!(endp_prop(cdr((V186))))){          if(!(endp_prop(cdr((V186))))){
1370          goto T598;}          goto T598;}
# Line 1372  T597:; Line 1372  T597:;
1372          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1373          (void) (*Lnk164)();          (void) (*Lnk164)();
1374          return;          return;
1375  goto T598;          goto T598;
1376  T598:;  T598:;
1377          bds_bind(VV[72],VV[73]);          bds_bind(VV[72],VV[73]);
1378          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));          setq(VV[60],number_plus(symbol_value(VV[60]),small_fixnum(1)));
# Line 1387  T598:; Line 1387  T598:;
1387          bds_unwind1;          bds_unwind1;
1388          bds_unwind1;          bds_unwind1;
1389          goto T603;}          goto T603;}
1390          princ_str("\ngoto T",VV[62]);          princ_str("\n   goto T",VV[62]);
1391          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));          (void)((*(LnkLI165))(car((VV[59]->s.s_dbind))));
1392          princ_char(59,VV[62]);          princ_char(59,VV[62]);
1393          princ_str("\nT",VV[62]);          princ_str("\nT",VV[62]);
# Line 1396  T598:; Line 1396  T598:;
1396          bds_unwind1;          bds_unwind1;
1397          bds_unwind1;          bds_unwind1;
1398          bds_unwind1;          bds_unwind1;
1399  goto T603;          goto T603;
1400  T603:;  T603:;
1401          V186= cdr((V186));          V186= cdr((V186));
1402          goto T597;}          goto T597;}
# Line 1408  static object LI23(V189,V190) Line 1408  static object LI23(V189,V190)
1408    
1409  object V189;object V190;  object V189;object V190;
1410  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1411  goto TTL;          goto TTL;
1412  TTL:;  TTL:;
1413          {object V191;          {object V191;
1414          object V192= (V189);          object V192= (V189);
# Line 1416  TTL:; Line 1416  TTL:;
1416          {object V193 = Cnil;          {object V193 = Cnil;
1417          VMR23(V193)}}          VMR23(V193)}}
1418          base[0]=V191=MMcons(Cnil,Cnil);          base[0]=V191=MMcons(Cnil,Cnil);
1419  goto T621;          goto T621;
1420  T621:;  T621:;
1421          (V191->c.c_car)= (*(LnkLI169))((V192->c.c_car),(V190));          (V191->c.c_car)= (*(LnkLI169))((V192->c.c_car),(V190));
1422          V192=MMcdr(V192);          V192=MMcdr(V192);
# Line 1434  static object LI24(V197) Line 1434  static object LI24(V197)
1434    
1435  register object V197;  register object V197;
1436  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1437  goto TTL;          goto TTL;
1438  TTL:;  TTL:;
1439          if((symbol_value(VV[69]))!=Cnil){          if((symbol_value(VV[69]))!=Cnil){
1440          goto T624;}          goto T624;}
# Line 1460  TTL:; Line 1460  TTL:;
1460          goto T624;}          goto T624;}
1461          {object V198 = (*(LnkLI149))(car((V197)),cadadr((V197)),caddr((V197)));          {object V198 = (*(LnkLI149))(car((V197)),cadadr((V197)),caddr((V197)));
1462          VMR24(V198)}          VMR24(V198)}
1463  goto T624;          goto T624;
1464  T624:;  T624:;
1465          {object V199;          {object V199;
1466          V199= (VFUN_NARGS=0,(*(LnkLI127))());          V199= (VFUN_NARGS=0,(*(LnkLI127))());
# Line 1474  static object LI25(V204,V205,V206) Line 1474  static object LI25(V204,V205,V206)
1474    
1475  object V204;object V205;object V206;  object V204;object V205;object V206;
1476  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1477  goto TTL;          goto TTL;
1478  TTL:;  TTL:;
1479          {object V207;          {object V207;
1480          V207= (VFUN_NARGS=0,(*(LnkLI127))());          V207= (VFUN_NARGS=0,(*(LnkLI127))());
# Line 1483  TTL:; Line 1483  TTL:;
1483          V208= list(4,VV[74],(V204),list(2,VV[35],(V205)),(V206));          V208= list(4,VV[74],(V204),list(2,VV[35],(V205)),(V206));
1484          {object V209 = (*(LnkLI123))(/* INLINE-ARGS */V208);          {object V209 = (*(LnkLI123))(/* INLINE-ARGS */V208);
1485          VMR25(V209)}          VMR25(V209)}
1486  goto T649;          goto T649;
1487  T649:;  T649:;
1488          {object V210;          {object V210;
1489          object V211;          object V211;
# Line 1506  static object LI26(V220,V221) Line 1506  static object LI26(V220,V221)
1506    
1507  object V220;object V221;  object V220;object V221;
1508  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1509  goto TTL;          goto TTL;
1510  TTL:;  TTL:;
1511          {object V222;          {object V222;
1512          V222= cdr((V220));          V222= cdr((V220));
# Line 1528  TTL:; Line 1528  TTL:;
1528          if(!(eql((V225),small_fixnum(0)))){          if(!(eql((V225),small_fixnum(0)))){
1529          goto T665;}          goto T665;}
1530          goto T662;          goto T662;
1531  goto T665;          goto T665;
1532  T665:;  T665:;
1533          base[5]= VV[79];          base[5]= VV[79];
1534          base[6]= (V226);          base[6]= (V226);
1535          vs_top=(vs_base=base+5)+2;          vs_top=(vs_base=base+5)+2;
1536          Lerror();          Lerror();
1537          vs_top=sup;          vs_top=sup;
1538  goto T662;          goto T662;
1539  T662:;  T662:;
1540          V230= car((V220));          V230= car((V220));
1541          V231= (*(LnkLI170))((V226));          V231= (*(LnkLI170))((V226));
# Line 1548  T662:; Line 1548  T662:;
1548          V237= (*(LnkLI170))((V221));          V237= (*(LnkLI170))((V221));
1549          {object V238 = (*(LnkLI173))(/* INLINE-ARGS */V236,/* INLINE-ARGS */V237);          {object V238 = (*(LnkLI173))(/* INLINE-ARGS */V236,/* INLINE-ARGS */V237);
1550          VMR26(V238)}}          VMR26(V238)}}
1551  goto T658;          goto T658;
1552  T658:;  T658:;
1553          {object V239 = (*(LnkLI175))();          {object V239 = (*(LnkLI175))();
1554          VMR26(V239)}}}          VMR26(V239)}}}
# Line 1562  static object LI27(V244,V245,V246,V247) Line 1562  static object LI27(V244,V245,V246,V247)
1562  object V244;object V245;object V246;object V247;  object V244;object V245;object V246;object V247;
1563  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
1564          bds_check;          bds_check;
1565  goto TTL;          goto TTL;
1566  TTL:;  TTL:;
1567          bds_bind(VV[63],symbol_value(VV[63]));          bds_bind(VV[63],symbol_value(VV[63]));
1568          bds_bind(VV[56],small_fixnum(0));          bds_bind(VV[56],small_fixnum(0));
# Line 1592  static object LI28(V263,V264,V265,V266) Line 1592  static object LI28(V263,V264,V265,V266)
1592    
1593  object V263;object V264;object V265;object V266;  object V263;object V264;object V265;object V266;
1594  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1595  goto TTL;          goto TTL;
1596  TTL:;  TTL:;
1597          {object V267;          {object V267;
1598          object V268;          object V268;
# Line 1602  TTL:; Line 1602  TTL:;
1602          goto T677;}          goto T677;}
1603          {object V269 = (*(LnkLI175))();          {object V269 = (*(LnkLI175))();
1604          VMR28(V269)}          VMR28(V269)}
1605  goto T677;          goto T677;
1606  T677:;  T677:;
1607          princ_str("STREF(",VV[62]);{object V270;          princ_str("STREF(",VV[62]);{object V270;
1608          V270= symbol_value(VV[75]);          V270= symbol_value(VV[75]);
# Line 1627  static object LI29(V277) Line 1627  static object LI29(V277)
1627    
1628  register object V277;  register object V277;
1629  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1630  goto TTL;          goto TTL;
1631  TTL:;  TTL:;
1632          {register object V278;          {register object V278;
1633          V278= (VFUN_NARGS=0,(*(LnkLI127))());          V278= (VFUN_NARGS=0,(*(LnkLI127))());
# Line 1668  TTL:; Line 1668  TTL:;
1668          V284= get(cadadr((V277)),VV[76],Cnil);          V284= get(cadadr((V277)),VV[76],Cnil);
1669          {object V285 = list(7,VV[84],(V278),(V279),/* INLINE-ARGS */V282,/* INLINE-ARGS */V283,(V280),V284);          {object V285 = list(7,VV[84],(V278),(V279),/* INLINE-ARGS */V282,/* INLINE-ARGS */V283,(V280),V284);
1670          VMR29(V285)}}          VMR29(V285)}}
1671  goto T688;          goto T688;
1672  T688:;  T688:;
1673          {object V286 = list(4,VV[49],(V278),VV[85],(*(LnkLI142))((V277),(V278)));          {object V286 = list(4,VV[49],(V278),VV[85],(*(LnkLI142))((V277),(V278)));
1674          VMR29(V286)}}          VMR29(V286)}}
# Line 1682  static object LI30(V292,V293,V294,V295,V Line 1682  static object LI30(V292,V293,V294,V295,V
1682  object V292;object V293;object V294;object V295;object V296;  object V292;object V293;object V294;object V295;object V296;
1683  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1684          bds_check;          bds_check;
1685  goto TTL;          goto TTL;
1686  TTL:;  TTL:;
1687          {object V297;          {object V297;
1688          V297= Cnil;          V297= Cnil;
# Line 1708  TTL:; Line 1708  TTL:;
1708          goto T730;}          goto T730;}
1709          V308= VV[87];          V308= VV[87];
1710          goto T728;          goto T728;
1711  goto T730;          goto T730;
1712  T730:;  T730:;
1713          V308= list(3,Ct,(V301),Ct);          V308= list(3,Ct,(V301),Ct);
1714  goto T728;          goto T728;
1715  T728:;  T728:;
1716          V297= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V307,V308));          V297= (VFUN_NARGS=2,(*(LnkLI174))(/* INLINE-ARGS */V307,V308));
1717          V302= car((V297));          V302= car((V297));
# Line 1719  T728:; Line 1719  T728:;
1719          if((symbol_value(VV[69]))==Cnil){          if((symbol_value(VV[69]))==Cnil){
1720          goto T736;}          goto T736;}
1721          (void)((*(LnkLI175))());          (void)((*(LnkLI175))());
1722  goto T736;          goto T736;
1723  T736:;  T736:;
1724          princ_str("\n   STSET(",VV[62]);          princ_str("\n   STSET(",VV[62]);
1725          V309= (*(LnkLI176))((V299));          V309= (*(LnkLI176))((V299));
# Line 1748  static object LI31(V316,V317) Line 1748  static object LI31(V316,V317)
1748    
1749  register object V316;object V317;  register object V316;object V317;
1750  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1751  goto TTL;          goto TTL;
1752  TTL:;  TTL:;
1753          if(!(((V316))==(Cnil))){          if(!(((V316))==(Cnil))){
1754          goto T751;}          goto T751;}
1755          {object V318 = (*(LnkLI125))();          {object V318 = (*(LnkLI125))();
1756          VMR31(V318)}          VMR31(V318)}
1757  goto T751;          goto T751;
1758  T751:;  T751:;
1759          if(!(((V316))==(Ct))){          if(!(((V316))==(Ct))){
1760          goto T754;}          goto T754;}
1761          {object V319 = (*(LnkLI126))();          {object V319 = (*(LnkLI126))();
1762          VMR31(V319)}          VMR31(V319)}
1763  goto T754;          goto T754;
1764  T754:;  T754:;
1765          if(!(type_of((V316))==t_fixnum)){          if(!(type_of((V316))==t_fixnum)){
1766          goto T757;}          goto T757;}
# Line 1770  T754:; Line 1770  T754:;
1770          goto T760;}          goto T760;}
1771          V321= Cnil;          V321= Cnil;
1772          goto T759;          goto T759;
1773  goto T760;          goto T760;
1774  T760:;  T760:;
1775          V321= (*(LnkLI129))((V316));          V321= (*(LnkLI129))((V316));
1776  goto T759;          goto T759;
1777  T759:;  T759:;
1778          {object V323 = list(3,VV[1],/* INLINE-ARGS */V320,list(3,VV[90],V321,(V316)));          {object V323 = list(3,VV[1],/* INLINE-ARGS */V320,list(3,VV[90],V321,(V316)));
1779          VMR31(V323)}          VMR31(V323)}
1780  goto T757;          goto T757;
1781  T757:;  T757:;
1782          if(!(type_of((V316))==t_character)){          if(!(type_of((V316))==t_character)){
1783          goto T763;}          goto T763;}
# Line 1790  T757:; Line 1790  T757:;
1790          V326= vs_base[0];          V326= vs_base[0];
1791          {object V327 = list(3,VV[1],/* INLINE-ARGS */V324,list(3,VV[92],/* INLINE-ARGS */V325,V326));          {object V327 = list(3,VV[1],/* INLINE-ARGS */V324,list(3,VV[92],/* INLINE-ARGS */V325,V326));
1792          VMR31(V327)}          VMR31(V327)}
1793  goto T763;          goto T763;
1794  T763:;  T763:;
1795          if(!(type_of((V316))==t_longfloat)){          if(!(type_of((V316))==t_longfloat)){
1796          goto T768;}          goto T768;}
# Line 1805  T763:; Line 1805  T763:;
1805          goto T774;          goto T774;
1806          }else V331=V331->c.c_cdr;          }else V331=V331->c.c_cdr;
1807          V330= Cnil;}          V330= Cnil;}
1808  goto T774;          goto T774;
1809  T774:;  T774:;
1810          V328= cadr(V330);          V328= cadr(V330);
1811          if(((V328))!=Cnil){          if(((V328))!=Cnil){
# Line 1828  T774:; Line 1828  T774:;
1828          V334= list(4,VV[5],VV[19],V333,VV[95]);          V334= list(4,VV[5],VV[19],V333,VV[95]);
1829          if(((*(LnkLI123))(/* INLINE-ARGS */V334))!=Cnil){          if(((*(LnkLI123))(/* INLINE-ARGS */V334))!=Cnil){
1830          goto T775;}          goto T775;}
1831  goto T776;          goto T776;
1832  T776:;  T776:;
1833          V335 = make_longfloat((double)(4.94065645841246540e-324)*(double)(1.0000000e+20));          V335 = make_longfloat((double)(4.94065645841246540e-324)*(double)(1.0000000e+20));
1834          if(!(number_compare((V329),V335)<0)){          if(!(number_compare((V329),V335)<0)){
# Line 1842  T776:; Line 1842  T776:;
1842          V337= list(4,VV[5],VV[19],V336,VV[98]);          V337= list(4,VV[5],VV[19],V336,VV[98]);
1843          if(((*(LnkLI123))(/* INLINE-ARGS */V337))==Cnil){          if(((*(LnkLI123))(/* INLINE-ARGS */V337))==Cnil){
1844          goto T770;}          goto T770;}
1845  goto T775;          goto T775;
1846  T775:;  T775:;
1847          {object V338;          {object V338;
1848          V328= symbol_value(VV[99]);          V328= symbol_value(VV[99]);
1849          V338= list(2,(V316),(V328));          V338= list(2,(V316),(V328));
1850          setq(VV[93],make_cons((V338),symbol_value(VV[93])));}          setq(VV[93],make_cons((V338),symbol_value(VV[93])));}
1851  goto T770;          goto T770;
1852  T770:;  T770:;
1853          V339= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100]));          V339= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],VV[100]));
1854          if((V328)!=Cnil){          if((V328)!=Cnil){
1855          V340= (V328);          V340= (V328);
1856          goto T796;}          goto T796;}
1857          V340= (*(LnkLI129))((V316));          V340= (*(LnkLI129))((V316));
1858  goto T796;          goto T796;
1859  T796:;  T796:;
1860          {object V341 = list(3,VV[1],/* INLINE-ARGS */V339,list(3,VV[101],V340,(V316)));          {object V341 = list(3,VV[1],/* INLINE-ARGS */V339,list(3,VV[101],V340,(V316)));
1861          VMR31(V341)}}          VMR31(V341)}}
1862  goto T768;          goto T768;
1863  T768:;  T768:;
1864          if(!(type_of((V316))==t_shortfloat)){          if(!(type_of((V316))==t_shortfloat)){
1865          goto T798;}          goto T798;}
# Line 1867  T768:; Line 1867  T768:;
1867          V343= (*(LnkLI129))((V316));          V343= (*(LnkLI129))((V316));
1868          {object V344 = list(3,VV[1],/* INLINE-ARGS */V342,list(3,VV[103],/* INLINE-ARGS */V343,(V316)));          {object V344 = list(3,VV[1],/* INLINE-ARGS */V342,list(3,VV[103],/* INLINE-ARGS */V343,(V316)));
1869          VMR31(V344)}          VMR31(V344)}
1870  goto T798;          goto T798;
1871  T798:;  T798:;
1872          if(((V317))==Cnil){          if(((V317))==Cnil){
1873          goto T801;}          goto T801;}
# Line 1875  T798:; Line 1875  T798:;
1875          V346= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V345));          V346= (VFUN_NARGS=2,(*(LnkLI127))(VV[2],/* INLINE-ARGS */V345));
1876          {object V347 = list(3,VV[1],/* INLINE-ARGS */V346,list(2,VV[3],(*(LnkLI129))((V316))));          {object V347 = list(3,VV[1],/* INLINE-ARGS */V346,list(2,VV[3],(*(LnkLI129))((V316))));
1877          VMR31(V347)}          VMR31(V347)}
1878  goto T801;          goto T801;
1879  T801:;  T801:;
1880          {object V348 = Cnil;          {object V348 = Cnil;
1881          VMR31(V348)}          VMR31(V348)}
# Line 1912  static object LI33(V355) Line 1912  static object LI33(V355)
1912    
1913  object V355;  object V355;
1914  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1915  goto TTL;          goto TTL;
1916  TTL:;  TTL:;
1917          {object V356 = remprop((V355),VV[33]);          {object V356 = remprop((V355),VV[33]);
1918          VMR33(V356)}          VMR33(V356)}
# Line 1942  static void L34() Line 1942  static void L34()
1942          register object V360;          register object V360;
1943          V359= base[3];          V359= base[3];
1944          V360= car((V359));          V360= car((V359));
1945  goto T807;          goto T807;
1946  T807:;  T807:;
1947          if(!(endp_prop((V359)))){          if(!(endp_prop((V359)))){
1948          goto T808;}          goto T808;}
1949          goto T803;          goto T803;
1950  goto T808;          goto T808;
1951  T808:;  T808:;
1952          if(!(type_of((V360))==t_symbol)){          if(!(type_of((V360))==t_symbol)){
1953          goto T814;}          goto T814;}
# Line 1964  T808:; Line 1964  T808:;
1964          if(V363==Cnil)goto T819;          if(V363==Cnil)goto T819;
1965          V362= V363;          V362= V363;
1966          goto T818;          goto T818;
1967  goto T819;          goto T819;
1968  T819:;}  T819:;}
1969          base[8]= VV[110];          base[8]= VV[110];
1970          base[10]= VV[111];          base[10]= VV[111];
# Line 1976  T819:;} Line 1976  T819:;}
1976          Lgentemp();          Lgentemp();
1977          vs_top=sup;          vs_top=sup;
1978          V362= vs_base[0];          V362= vs_base[0];
1979  goto T818;          goto T818;
1980  T818:;  T818:;
1981          V358= make_cons((V362),(V358));          V358= make_cons((V362),(V358));
1982          goto T812;}          goto T812;}
1983  goto T814;          goto T814;
1984  T814:;  T814:;
1985          base[7]= VV[112];          base[7]= VV[112];
1986          base[8]= (V360);          base[8]= (V360);
# Line 1988  T814:; Line 1988  T814:;
1988          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
1989          Lerror();          Lerror();
1990          vs_top=sup;          vs_top=sup;
1991  goto T812;          goto T812;
1992  T812:;  T812:;
1993          V359= cdr((V359));          V359= cdr((V359));
1994          V360= car((V359));          V360= car((V359));
1995          goto T807;}          goto T807;}
1996  goto T803;          goto T803;
1997  T803:;  T803:;
1998          {object V365;          {object V365;
1999          {object V367;          {object V367;
# Line 2003  T803:; Line 2003  T803:;
2003          V366= Cnil;          V366= Cnil;
2004          goto T837;}          goto T837;}
2005          base[6]=V367=MMcons(Cnil,Cnil);          base[6]=V367=MMcons(Cnil,Cnil);
2006  goto T838;          goto T838;
2007  T838:;  T838:;
2008          (V367->c.c_car)= list(3,VV[113],list(2,VV[35],(V368->c.c_car)),(V369->c.c_car));          (V367->c.c_car)= list(3,VV[113],list(2,VV[35],(V368->c.c_car)),(V369->c.c_car));
2009          V368=MMcdr(V368);          V368=MMcdr(V368);
# Line 2013  T838:; Line 2013  T838:;
2013          goto T837;}          goto T837;}
2014          V367=MMcdr(V367)=MMcons(Cnil,Cnil);          V367=MMcdr(V367)=MMcons(Cnil,Cnil);
2015          goto T838;}          goto T838;}
2016  goto T837;          goto T837;
2017  T837:;  T837:;
2018          V365= make_cons(VV[113],V366);          V365= make_cons(VV[113],V366);
2019          V372= listA(4,VV[114],base[2],base[3],base[4]);          V372= listA(4,VV[114],base[2],base[3],base[4]);
# Line 2028  static object LI35(V374) Line 2028  static object LI35(V374)
2028    
2029  object V374;  object V374;
2030  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2031  goto TTL;          goto TTL;
2032  TTL:;  TTL:;
2033          {object V375;          {object V375;
2034          V375= Cnil;{object V376;          V375= Cnil;{object V376;
# Line 2036  TTL:; Line 2036  TTL:;
2036          goto T844;}          goto T844;}
2037          V376= Cnil;          V376= Cnil;
2038          goto T843;          goto T843;
2039  goto T844;          goto T844;
2040  T844:;  T844:;
2041          V375= get((V374),VV[76],Cnil);          V375= get((V374),VV[76],Cnil);
2042          V376= (V375);          V376= (V375);
2043  goto T843;          goto T843;
2044  T843:;  T843:;
2045          if(V376==Cnil)goto T842;          if(V376==Cnil)goto T842;
2046          goto T841;          goto T841;
2047  goto T842;          goto T842;
2048  T842:;}  T842:;}
2049          base[0]= VV[118];          base[0]= VV[118];
2050          base[1]= (V374);          base[1]= (V374);
2051          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2052          Lerror();          Lerror();
2053          vs_top=sup;          vs_top=sup;
2054  goto T841;          goto T841;
2055  T841:;  T841:;
2056          {object V377 = (V375);          {object V377 = (V375);
2057          VMR35(V377)}}          VMR35(V377)}}
# Line 2064  static object LI36(V379) Line 2064  static object LI36(V379)
2064    
2065  object V379;  object V379;
2066  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
2067  goto TTL;          goto TTL;
2068  TTL:;{object V380;  TTL:;{object V380;
2069          V380= get((V379),VV[119],Cnil);          V380= get((V379),VV[119],Cnil);
2070          if(V380==Cnil)goto T849;          if(V380==Cnil)goto T849;
2071          {object V381 = V380;          {object V381 = V380;
2072          VMR36(V381)}          VMR36(V381)}
2073  goto T849;          goto T849;
2074  T849:;}  T849:;}
2075          V382= list(3,VV[5],VV[119],list(2,VV[35],(V379)));          V382= list(3,VV[5],VV[119],list(2,VV[35],(V379)));
2076          {object V383 = sputprop((V379),VV[120],/* INLINE-ARGS */V382);          {object V383 = sputprop((V379),VV[120],/* INLINE-ARGS */V382);
# Line 2083  static object LI37(V386,V387) Line 2083  static object LI37(V386,V387)
2083    
2084  object V386;object V387;  object V386;object V387;
2085  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
2086  goto TTL;          goto TTL;
2087  TTL:;  TTL:;
2088          {object V388;          {object V388;
2089          V388= Cnil;          V388= Cnil;
# Line 2096  TTL:; Line 2096  TTL:;
2096          V390= list(3,VV[122],/* INLINE-ARGS */V389,list(2,VV[35],(V388)));          V390= list(3,VV[122],/* INLINE-ARGS */V389,list(2,VV[35],(V388)));
2097          {object V391 = (*(LnkLI123))(/* INLINE-ARGS */V390);          {object V391 = (*(LnkLI123))(/* INLINE-ARGS */V390);
2098          VMR37(V391)}          VMR37(V391)}
2099  goto T853;          goto T853;
2100  T853:;  T853:;
2101          {object V392 = Cnil;          {object V392 = Cnil;
2102          VMR37(V392)}}          VMR37(V392)}}

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

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