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

Diff of /gcl/lsp/loop.c

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

revision 1.13 by camm, Wed Feb 26 22:21:36 2003 UTC revision 1.14 by camm, Thu Feb 27 00:07:48 2003 UTC
# Line 31  static void L2() Line 31  static void L2()
31          V2=(base[0]);          V2=(base[0]);
32          vs_top=sup;          vs_top=sup;
33          goto T2;          goto T2;
34  goto T1;          goto T1;
35  T1:;  T1:;
36          V2= VV[1];          V2= VV[1];
37  goto T2;          goto T2;
38  T2:;  T2:;
39          if((symbol_value(VV[2]))==Cnil){          if((symbol_value(VV[2]))==Cnil){
40          goto T5;}          goto T5;}
# Line 42  T2:; Line 42  T2:;
42          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
43          Lgentemp();          Lgentemp();
44          return;          return;
45  goto T5;          goto T5;
46  T5:;  T5:;
47          vs_base=vs_top;          vs_base=vs_top;
48          Lgensym();          Lgensym();
# Line 141  static void L6() Line 141  static void L6()
141          goto T14;}          goto T14;}
142          V12= list(2,base[4],Cnil);          V12= list(2,base[4],Cnil);
143          V11= make_cons(/* INLINE-ARGS */V12,Cnil);          V11= make_cons(/* INLINE-ARGS */V12,Cnil);
144  goto T14;          goto T14;
145  T14:;  T14:;
146          V13= list(2,base[2],VV[4]);          V13= list(2,base[2],VV[4]);
147          base[6]= listA(3,VV[3],listA(3,/* INLINE-ARGS */V13,list(2,base[3],base[2]),(V11)),base[5]);          base[6]= listA(3,VV[3],listA(3,/* INLINE-ARGS */V13,list(2,base[3],base[2]),(V11)),base[5]);
# Line 191  static void L7() Line 191  static void L7()
191          V18 = make_fixnum((long)length(cdr(base[5])));          V18 = make_fixnum((long)length(cdr(base[5])));
192          V17= one_minus(V18);          V17= one_minus(V18);
193          goto T20;          goto T20;
194  goto T24;          goto T24;
195  T24:;  T24:;
196          {register object x= car(base[5]),V19= VV[6];          {register object x= car(base[5]),V19= VV[6];
197          while(!endp(V19))          while(!endp(V19))
# Line 199  T24:; Line 199  T24:;
199          goto T28;          goto T28;
200          }else V19=V19->c.c_cdr;          }else V19=V19->c.c_cdr;
201          goto T20;}          goto T20;}
202  goto T28;          goto T28;
203  T28:;  T28:;
204          if((cddr(base[5]))==Cnil){          if((cddr(base[5]))==Cnil){
205          goto T20;}          goto T20;}
# Line 214  T28:; Line 214  T28:;
214          goto T32;          goto T32;
215          }else V20=V20->c.c_cdr;          }else V20=V20->c.c_cdr;
216          goto T20;}          goto T20;}
217  goto T32;          goto T32;
218  T32:;  T32:;
219          V22 = make_fixnum((long)length(cdr(base[5])));          V22 = make_fixnum((long)length(cdr(base[5])));
220          V17= number_minus(V22,small_fixnum(2));          V17= number_minus(V22,small_fixnum(2));
221  goto T20;          goto T20;
222  T20:;  T20:;
223          {object V23;          {object V23;
224          if(((V17))!=Cnil){          if(((V17))!=Cnil){
# Line 226  T20:; Line 226  T20:;
226          V24= list(3,VV[9],list(2,VV[10],base[3]),base[5]);          V24= list(3,VV[9],list(2,VV[10],base[3]),base[5]);
227          V23= list(3,VV[8],/* INLINE-ARGS */V24,list(3,VV[11],base[3],list(2,VV[12],list(2,VV[10],base[3]))));          V23= list(3,VV[8],/* INLINE-ARGS */V24,list(3,VV[11],base[3],list(2,VV[12],list(2,VV[10],base[3]))));
228          goto T36;          goto T36;
229  goto T38;          goto T38;
230  T38:;  T38:;
231          if(!(number_compare((V17),small_fixnum(0))<0)){          if(!(number_compare((V17),small_fixnum(0))<0)){
232          goto T41;}          goto T41;}
233          base[6]= Cnil;          base[6]= Cnil;
234          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
235          return;          return;
236  goto T41;          goto T41;
237  T41:;  T41:;
238          if(!(number_compare((V17),small_fixnum(0))==0)){          if(!(number_compare((V17),small_fixnum(0))==0)){
239          goto T44;}          goto T44;}
240          V23= list(3,VV[13],base[3],list(3,VV[11],base[3],base[5]));          V23= list(3,VV[13],base[3],list(3,VV[11],base[3],base[5]));
241          goto T36;          goto T36;
242  goto T44;          goto T44;
243  T44:;  T44:;
244          base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]);          base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]);
245          base[7]= (V17);          base[7]= (V17);
# Line 248  T44:; Line 248  T44:;
248          vs_top=sup;          vs_top=sup;
249          V25= vs_base[0];          V25= vs_base[0];
250          V23= list(3,VV[11],base[3],V25);          V23= list(3,VV[11],base[3],V25);
251  goto T36;          goto T36;
252  T36:;  T36:;
253          if((base[4])==Cnil){          if((base[4])==Cnil){
254          goto T49;}          goto T49;}
255          V23= list(3,VV[14],(V23),list(3,VV[11],base[4],list(2,VV[10],base[2])));          V23= list(3,VV[14],(V23),list(3,VV[11],base[4],list(2,VV[10],base[2])));
256  goto T49;          goto T49;
257  T49:;  T49:;
258          base[6]= (V23);          base[6]= (V23);
259          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 355  TTL:; Line 355  TTL:;
355          goto T76;}          goto T76;}
356          base[9]= Cnil;          base[9]= Cnil;
357          goto T75;          goto T75;
358  goto T76;          goto T76;
359  T76:;  T76:;
360          base[10]= VV[26];          base[10]= VV[26];
361          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
362          (void) (*Lnk327)();          (void) (*Lnk327)();
363          vs_top=sup;          vs_top=sup;
364          base[9]= vs_base[0];          base[9]= vs_base[0];
365  goto T75;          goto T75;
366  T75:;  T75:;
367          base[10]= VV[27];          base[10]= VV[27];
368          base[11]= Cnil;          base[11]= Cnil;
# Line 406  TTL:; Line 406  TTL:;
406          vs_top=sup;          vs_top=sup;
407          V43= vs_base[0];          V43= vs_base[0];
408          (void)(structure_set((V38),VV[18],3,V43));          (void)(structure_set((V38),VV[18],3,V43));
409  goto T87;          goto T87;
410  T87:;  T87:;
411          base[2]= (V37);          base[2]= (V37);
412          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 453  static void L13() Line 453  static void L13()
453          base[4]= listA(4,VV[29],/* INLINE-ARGS */V55,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]);          base[4]= listA(4,VV[29],/* INLINE-ARGS */V55,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]);
454          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
455          return;          return;
456  goto T103;          goto T103;
457  T103:;  T103:;
458          if(!(((V46))==(VV[32]))){          if(!(((V46))==(VV[32]))){
459          goto T107;}          goto T107;}
460          V56= car((V47));          V56= car((V47));
461          goto T105;          goto T105;
462  goto T107;          goto T107;
463  T107:;  T107:;
464          V56= cadr((V47));          V56= cadr((V47));
465  goto T105;          goto T105;
466  T105:;  T105:;
467          V57= list(2,(V48),V56);          V57= list(2,(V48),V56);
468          V58= list(2,/* INLINE-ARGS */V57,list(2,(V49),(V45)));          V58= list(2,/* INLINE-ARGS */V57,list(2,(V49),(V45)));
# Line 502  static void L14() Line 502  static void L14()
502          if((V65!= VV[32]))goto T117;          if((V65!= VV[32]))goto T117;
503          V64= VV[33];          V64= VV[33];
504          goto T116;          goto T116;
505  goto T117;          goto T117;
506  T117:;  T117:;
507          if((V65!= VV[330]))goto T118;          if((V65!= VV[330]))goto T118;
508          V64= VV[34];          V64= VV[34];
509          goto T116;          goto T116;
510  goto T118;          goto T118;
511  T118:;  T118:;
512          FEerror("The ECASE key value ~s is illegal.",1,V65);          FEerror("The ECASE key value ~s is illegal.",1,V65);
513          V64= Cnil;          V64= Cnil;
514          goto T116;}          goto T116;}
515  goto T116;          goto T116;
516  T116:;  T116:;
517          base[11]= list(3,V64,(V61),(V60));          base[11]= list(3,V64,(V61),(V60));
518          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
# Line 524  T116:; Line 524  T116:;
524          goto T121;}          goto T121;}
525          V67= list(3,VV[35],list(2,VV[36],(V62)),(V63));          V67= list(3,VV[35],list(2,VV[36],(V62)),(V63));
526          goto T119;          goto T119;
527  goto T121;          goto T121;
528  T121:;  T121:;
529          V67= (V63);          V67= (V63);
530  goto T119;          goto T119;
531  T119:;  T119:;
532          if((V62)==Cnil){          if((V62)==Cnil){
533          V68= Cnil;          V68= Cnil;
534          goto T123;}          goto T123;}
535          V68= list(2,(V62),Ct);          V68= list(2,(V62),Ct);
536  goto T123;          goto T123;
537  T123:;  T123:;
538          V69= list(2,(V60),(V61));          V69= list(2,(V60),(V61));
539          V70= append(V68,/* INLINE-ARGS */V69);          V70= append(V68,/* INLINE-ARGS */V69);
# Line 560  TTL:; Line 560  TTL:;
560          base[2]= Cnil;          base[2]= Cnil;
561          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
562          return;          return;
563  goto T124;          goto T124;
564  T124:;  T124:;
565          base[2]= (V71);          base[2]= (V71);
566          base[3]= (V72);          base[3]= (V72);
# Line 588  TTL:; Line 588  TTL:;
588          base[2]= Cnil;          base[2]= Cnil;
589          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
590          return;          return;
591  goto T128;          goto T128;
592  T128:;  T128:;
593          base[2]= (V73);          base[2]= (V73);
594          base[3]= (V74);          base[3]= (V74);
# Line 618  TTL:; Line 618  TTL:;
618          base[2]= Cnil;          base[2]= Cnil;
619          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
620          return;          return;
621  goto T134;          goto T134;
622  T134:;  T134:;
623          base[2]= (V75);          base[2]= (V75);
624          base[3]= (V76);          base[3]= (V76);
# Line 648  TTL:; Line 648  TTL:;
648          base[2]= Cnil;          base[2]= Cnil;
649          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
650          return;          return;
651  goto T140;          goto T140;
652  T140:;  T140:;
653          base[3]= symbol_name((V77));          base[3]= symbol_name((V77));
654          base[4]= (V78);          base[4]= (V78);
# Line 743  TTL:; Line 743  TTL:;
743          if((V92!= Cnil))goto T155;          if((V92!= Cnil))goto T155;
744          V91= VV[40];          V91= VV[40];
745          goto T154;          goto T154;
746  goto T155;          goto T155;
747  T155:;  T155:;
748          if((V92!= Ct))goto T156;          if((V92!= Ct))goto T156;
749          V91= VV[41];          V91= VV[41];
750          goto T154;          goto T154;
751  goto T156;          goto T156;
752  T156:;  T156:;
753          if((V92!= VV[307]))goto T157;          if((V92!= VV[307]))goto T157;
754          V91= VV[42];          V91= VV[42];
755          goto T154;          goto T154;
756  goto T157;          goto T157;
757  T157:;  T157:;
758          V91= structure_ref((V88),VV[39],6);}          V91= structure_ref((V88),VV[39],6);}
759  goto T154;          goto T154;
760  T154:;  T154:;
761          base[3]= (V89);          base[3]= (V89);
762          base[4]= VV[43];          base[4]= VV[43];
# Line 796  static void L22() Line 796  static void L22()
796          V100=(base[6]);          V100=(base[6]);
797          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
798          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
799  goto T165;          goto T165;
800  T165:;  T165:;
801          base[16]= (V100);          base[16]= (V100);
802          base[17]= VV[46];          base[17]= VV[46];
# Line 808  T165:; Line 808  T165:;
808          bds_unwind1;          bds_unwind1;
809          bds_unwind1;          bds_unwind1;
810          goto T163;          goto T163;
811  goto T166;          goto T166;
812  T166:;  T166:;
813          base[16]= VV[47];          base[16]= VV[47];
814          base[17]= VV[48];          base[17]= VV[48];
# Line 838  T166:; Line 838  T166:;
838          Lformat();          Lformat();
839          vs_top=sup;          vs_top=sup;
840          goto T165;          goto T165;
841  goto T163;          goto T163;
842  T163:;  T163:;
843          base[14]= VV[53];          base[14]= VV[53];
844          base[16]= (V94);          base[16]= (V94);
# Line 883  T163:; Line 883  T163:;
883          goto T217;}          goto T217;}
884          base[33]= small_fixnum(10);          base[33]= small_fixnum(10);
885          goto T215;          goto T215;
886  goto T217;          goto T217;
887  T217:;  T217:;
888          base[33]= (V101);          base[33]= (V101);
889  goto T215;          goto T215;
890  T215:;  T215:;
891          base[34]= VV[20];          base[34]= VV[20];
892          base[35]= symbol_function(VV[334]);          base[35]= symbol_function(VV[334]);
# Line 898  T215:; Line 898  T215:;
898          register object V104;          register object V104;
899          V103= (V99);          V103= (V99);
900          V104= car((V103));          V104= car((V103));
901  goto T225;          goto T225;
902  T225:;  T225:;
903          if(!(endp_prop((V103)))){          if(!(endp_prop((V103)))){
904          goto T226;}          goto T226;}
905          goto T221;          goto T221;
906  goto T226;          goto T226;
907  T226:;  T226:;
908          if(!(type_of((V104))!=t_cons)){          if(!(type_of((V104))!=t_cons)){
909          goto T232;}          goto T232;}
# Line 914  T226:; Line 914  T226:;
914          siLhash_set();          siLhash_set();
915          vs_top=sup;          vs_top=sup;
916          goto T230;          goto T230;
917  goto T232;          goto T232;
918  T232:;  T232:;
919          {object V108;          {object V108;
920          object V110;          object V110;
# Line 926  T232:; Line 926  T232:;
926          vs_top=(vs_base=base+35)+3;          vs_top=(vs_base=base+35)+3;
927          siLhash_set();          siLhash_set();
928          vs_top=sup;}          vs_top=sup;}
929  goto T230;          goto T230;
930  T230:;  T230:;
931          V103= cdr((V103));          V103= cdr((V103));
932          V104= car((V103));          V104= car((V103));
933          goto T225;}          goto T225;}
934  goto T221;          goto T221;
935  T221:;  T221:;
936          base[29]= (V102);}          base[29]= (V102);}
937          vs_top=(vs_base=base+14)+16;          vs_top=(vs_base=base+14)+16;
# Line 960  TTL:; Line 960  TTL:;
960          goto T250;}          goto T250;}
961          V113= cadr((V111));          V113= cadr((V111));
962          goto T248;          goto T248;
963  goto T250;          goto T250;
964  T250:;  T250:;
965          V114= cadr((V111));          V114= cadr((V111));
966          base[2]= cddr((V111));          base[2]= cddr((V111));
# Line 969  T250:; Line 969  T250:;
969          vs_top=sup;          vs_top=sup;
970          V115= vs_base[0];          V115= vs_base[0];
971          V113= list(3,VV[62],/* INLINE-ARGS */V114,V115);          V113= list(3,VV[62],/* INLINE-ARGS */V114,V115);
972  goto T248;          goto T248;
973  T248:;  T248:;
974          base[1]= list(2,/* INLINE-ARGS */V112,V113);          base[1]= list(2,/* INLINE-ARGS */V112,V113);
975          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 994  TTL:; Line 994  TTL:;
994          base[1]= Cnil;          base[1]= Cnil;
995          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
996          return;          return;
997  goto T255;          goto T255;
998  T255:;  T255:;
999          if((symbol_value(VV[63]))==Cnil){          if((symbol_value(VV[63]))==Cnil){
1000          goto T259;}          goto T259;}
1001          V117= cadr(symbol_value(VV[63]));          V117= cadr(symbol_value(VV[63]));
1002          goto T257;          goto T257;
1003  goto T259;          goto T259;
1004  T259:;  T259:;
1005          V117= VV[64];          V117= VV[64];
1006  goto T257;          goto T257;
1007  T257:;  T257:;
1008          base[1]= make_cons(V117,(V116));          base[1]= make_cons(V117,(V116));
1009          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1022  static void L26() Line 1022  static void L26()
1022          base[2]= V118;}          base[2]= V118;}
1023          {register object V119;          {register object V119;
1024          V119= Cnil;          V119= Cnil;
1025  goto T262;          goto T262;
1026  T262:;  T262:;
1027          if((base[2])!=Cnil){          if((base[2])!=Cnil){
1028          goto T263;}          goto T263;}
# Line 1031  T262:; Line 1031  T262:;
1031          base[3]= car((V119));          base[3]= car((V119));
1032          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1033          return;          return;
1034  goto T267;          goto T267;
1035  T267:;  T267:;
1036          V120= nreverse((V119));          V120= nreverse((V119));
1037          base[3]= make_cons(VV[14],/* INLINE-ARGS */V120);          base[3]= make_cons(VV[14],/* INLINE-ARGS */V120);
1038          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1039          return;          return;
1040  goto T263;          goto T263;
1041  T263:;  T263:;
1042          {register object V121;          {register object V121;
1043          V121= car(base[2]);          V121= car(base[2]);
# Line 1074  static void L29() Line 1074  static void L29()
1074          V124=(base[1]);          V124=(base[1]);
1075          vs_top=sup;          vs_top=sup;
1076          goto T285;          goto T285;
1077  goto T284;          goto T284;
1078  T284:;  T284:;
1079          V124= Cnil;          V124= Cnil;
1080  goto T285;          goto T285;
1081  T285:;  T285:;
1082          {register object V126;          {register object V126;
1083          register object V127;          register object V127;
# Line 1095  T285:; Line 1095  T285:;
1095          Leval();          Leval();
1096          vs_top=sup;          vs_top=sup;
1097          V127= vs_base[0];          V127= vs_base[0];
1098  goto T287;          goto T287;
1099  T287:;  T287:;
1100          if(((V126))==Cnil){          if(((V126))==Cnil){
1101          goto T294;}          goto T294;}
# Line 1117  T287:; Line 1117  T287:;
1117          vs_top=sup;          vs_top=sup;
1118          V126= Cnil;          V126= Cnil;
1119          V127= Cnil;          V127= Cnil;
1120  goto T294;          goto T294;
1121  T294:;  T294:;
1122          base[2]= V123;          base[2]= V123;
1123          base[3]= (V126);          base[3]= (V126);
# Line 1168  TTL:; Line 1168  TTL:;
1168          V131= vs_base[0];          V131= vs_base[0];
1169          vs_top=sup;          vs_top=sup;
1170          goto T319;          goto T319;
1171  goto T317;          goto T317;
1172  T317:;  T317:;
1173          V130= Cnil;          V130= Cnil;
1174  goto T318;          goto T318;
1175  T318:;  T318:;
1176          V131= Cnil;          V131= Cnil;
1177  goto T319;          goto T319;
1178  T319:;  T319:;
1179          V132= number_minus((V130),(V131));          V132= number_minus((V130),(V131));
1180          V133= number_times(/* INLINE-ARGS */V132,small_fixnum(10));          V133= number_times(/* INLINE-ARGS */V132,small_fixnum(10));
# Line 1217  static void L32() Line 1217  static void L32()
1217          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1218          Lerror();          Lerror();
1219          vs_top=sup;          vs_top=sup;
1220  goto T323;          goto T323;
1221  T323:;  T323:;
1222          base[7]= reverse(base[3]);          base[7]= reverse(base[3]);
1223          base[8]= reverse(base[5]);          base[8]= reverse(base[5]);
# Line 1225  T323:; Line 1225  T323:;
1225          goto T332;}          goto T332;}
1226          if((base[7])!=Cnil){          if((base[7])!=Cnil){
1227          goto T331;}          goto T331;}
1228  goto T332;          goto T332;
1229  T332:;  T332:;
1230          vs_base=vs_top;          vs_base=vs_top;
1231          L35(base);          L35(base);
1232          return;          return;
1233  goto T331;          goto T331;
1234  T331:;  T331:;
1235          {register long V135;          {register long V135;
1236          base[10]= base[1];          base[10]= base[1];
# Line 1238  T331:; Line 1238  T331:;
1238          (void) (*Lnk340)();          (void) (*Lnk340)();
1239          vs_top=sup;          vs_top=sup;
1240          V135= fix(vs_base[0]);          V135= fix(vs_base[0]);
1241  goto T339;          goto T339;
1242  T339:;  T339:;
1243  goto T344;          goto T344;
1244  T344:;  T344:;
1245          if((base[7])==Cnil){          if((base[7])==Cnil){
1246          goto T346;}          goto T346;}
1247          if(equal(car(base[7]),car(base[8]))){          if(equal(car(base[7]),car(base[8]))){
1248          goto T345;}          goto T345;}
1249  goto T346;          goto T346;
1250  T346:;  T346:;
1251          goto T342;          goto T342;
1252  goto T345;          goto T345;
1253  T345:;  T345:;
1254          {register object V136;          {register object V136;
1255          {register object V137;          {register object V137;
# Line 1261  T345:; Line 1261  T345:;
1261          V138= car(base[8]);          V138= car(base[8]);
1262          base[8]= cdr(base[8]);}          base[8]= cdr(base[8]);}
1263          goto T344;          goto T344;
1264  goto T342;          goto T342;
1265  T342:;  T342:;
1266          if((base[7])!=Cnil){          if((base[7])!=Cnil){
1267          goto T363;}          goto T363;}
1268          vs_base=vs_top;          vs_base=vs_top;
1269          L35(base);          L35(base);
1270          return;          return;
1271  goto T363;          goto T363;
1272  T363:;  T363:;
1273          {register object V139;          {register object V139;
1274          register object V140;          register object V140;
# Line 1280  T363:; Line 1280  T363:;
1280          V141= Cnil;          V141= Cnil;
1281          V142= small_fixnum(0);          V142= small_fixnum(0);
1282          V143= Cnil;          V143= Cnil;
1283  goto T368;          goto T368;
1284  T368:;  T368:;
1285          if(((V139))!=Cnil){          if(((V139))!=Cnil){
1286          goto T369;}          goto T369;}
1287          vs_base=vs_top;          vs_base=vs_top;
1288          L35(base);          L35(base);
1289          return;          return;
1290  goto T369;          goto T369;
1291  T369:;  T369:;
1292          if(equal(car((V139)),car((V140)))){          if(equal(car((V139)),car((V140)))){
1293          goto T375;}          goto T375;}
1294          V141= (V139);          V141= (V139);
1295          V142= small_fixnum(0);          V142= small_fixnum(0);
1296          goto T373;          goto T373;
1297  goto T375;          goto T375;
1298  T375:;  T375:;
1299          base[10]= car((V139));          base[10]= car((V139));
1300          base[11]= base[1];          base[11]= base[1];
# Line 1308  T375:; Line 1308  T375:;
1308          V144 = make_fixnum(V135);          V144 = make_fixnum(V135);
1309          if(!(number_compare((V142),V144)>0)){          if(!(number_compare((V142),V144)>0)){
1310          goto T373;}          goto T373;}
1311  goto T380;          goto T380;
1312  T380:;  T380:;
1313          {register object V145;          {register object V145;
1314          register object V146;          register object V146;
1315          V145= Cnil;          V145= Cnil;
1316          V146= Cnil;          V146= Cnil;
1317  goto T391;          goto T391;
1318  T391:;  T391:;
1319          {register object V147;          {register object V147;
1320          {register object V148;          {register object V148;
# Line 1331  T391:; Line 1331  T391:;
1331          if(!((base[7])==(cdr((V141))))){          if(!((base[7])==(cdr((V141))))){
1332          goto T406;}          goto T406;}
1333          goto T389;          goto T389;
1334  goto T406;          goto T406;
1335  T406:;  T406:;
1336          goto T391;          goto T391;
1337  goto T389;          goto T389;
1338  T389:;  T389:;
1339          if((base[9])!=Cnil){          if((base[9])!=Cnil){
1340          goto T411;}          goto T411;}
# Line 1342  T389:; Line 1342  T389:;
1342          base[9]= symbol_value(VV[70]);          base[9]= symbol_value(VV[70]);
1343          V151= list(3,VV[11],base[9],Ct);          V151= list(3,VV[11],base[9],Ct);
1344          V146= make_cons((V151),(V146));}          V146= make_cons((V151),(V146));}
1345  goto T411;          goto T411;
1346  T411:;  T411:;
1347          {register object V152;          {register object V152;
1348          base[12]= (V145);          base[12]= (V145);
# Line 1365  T411:; Line 1365  T411:;
1365          V154= vs_base[0];          V154= vs_base[0];
1366          V152= list(4,VV[71],base[9],V153,V154);          V152= list(4,VV[71],base[9],V153,V154);
1367          base[4]= make_cons((V152),base[4]);}}          base[4]= make_cons((V152),base[4]);}}
1368  goto T427;          goto T427;
1369  T427:;  T427:;
1370          {register object V155;          {register object V155;
1371          V155= car(base[8]);          V155= car(base[8]);
# Line 1379  T427:; Line 1379  T427:;
1379          if(!((base[7])==(cdr((V139))))){          if(!((base[7])==(cdr((V139))))){
1380          goto T440;}          goto T440;}
1381          goto T425;          goto T425;
1382  goto T440;          goto T440;
1383  T440:;  T440:;
1384          goto T427;          goto T427;
1385  goto T425;          goto T425;
1386  T425:;  T425:;
1387          goto T366;          goto T366;
1388  goto T373;          goto T373;
1389  T373:;  T373:;
1390          V139= cdr((V139));          V139= cdr((V139));
1391          V140= cdr((V140));          V140= cdr((V140));
1392          goto T368;}          goto T368;}
1393  goto T366;          goto T366;
1394  T366:;  T366:;
1395          goto T339;}          goto T339;}
1396  }  }
# Line 1413  TTL:; Line 1413  TTL:;
1413          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
1414          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1415          return;          return;
1416  goto T452;          goto T452;
1417  T452:;  T452:;
1418          {long V160;          {long V160;
1419          base[2]= (V158);          base[2]= (V158);
# Line 1443  TTL:; Line 1443  TTL:;
1443          register object V163;          register object V163;
1444          V162= (V161);          V162= (V161);
1445          V163= small_fixnum(0);          V163= small_fixnum(0);
1446  goto T458;          goto T458;
1447  T458:;  T458:;
1448          if(!(type_of((V162))!=t_cons)){          if(!(type_of((V162))!=t_cons)){
1449          goto T459;}          goto T459;}
# Line 1451  T458:; Line 1451  T458:;
1451          goto T464;}          goto T464;}
1452          V164= small_fixnum(0);          V164= small_fixnum(0);
1453          goto T462;          goto T462;
1454  goto T464;          goto T464;
1455  T464:;  T464:;
1456          V164= small_fixnum(1);          V164= small_fixnum(1);
1457  goto T462;          goto T462;
1458  T462:;  T462:;
1459          base[1]= number_plus((V163),V164);          base[1]= number_plus((V163),V164);
1460          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1461          return;          return;
1462  goto T459;          goto T459;
1463  T459:;  T459:;
1464          {object V165;          {object V165;
1465          V165= cdr((V162));          V165= cdr((V162));
# Line 1521  TTL:; Line 1521  TTL:;
1521          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1522          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1523          return;          return;
1524  goto T477;          goto T477;
1525  T477:;  T477:;
1526          if(!(type_of((V169))==t_symbol)){          if(!(type_of((V169))==t_symbol)){
1527          goto T481;}          goto T481;}
# Line 1538  T477:; Line 1538  T477:;
1538          V171= vs_base[0];          V171= vs_base[0];
1539          vs_top=sup;          vs_top=sup;
1540          goto T488;          goto T488;
1541  goto T486;          goto T486;
1542  T486:;  T486:;
1543          V170= Cnil;          V170= Cnil;
1544  goto T487;          goto T487;
1545  T487:;  T487:;
1546          V171= Cnil;          V171= Cnil;
1547  goto T488;          goto T488;
1548  T488:;  T488:;
1549          if(((V171))==Cnil){          if(((V171))==Cnil){
1550          goto T490;}          goto T490;}
1551          V169= (V170);          V169= (V170);
1552          goto TTL;          goto TTL;
1553  goto T490;          goto T490;
1554  T490:;  T490:;
1555          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1556          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1557          return;}          return;}
1558  goto T481;          goto T481;
1559  T481:;  T481:;
1560          if(!(type_of((V169))!=t_cons)){          if(!(type_of((V169))!=t_cons)){
1561          goto T496;}          goto T496;}
1562          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1563          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1564          return;          return;
1565  goto T496;          goto T496;
1566  T496:;  T496:;
1567          if(!(type_of(car((V169)))==t_symbol)){          if(!(type_of(car((V169)))==t_symbol)){
1568          goto T499;}          goto T499;}
# Line 1585  T496:; Line 1585  T496:;
1585          base[2]= make_fixnum((long)(fix((V173)))+(V176));          base[2]= make_fixnum((long)(fix((V173)))+(V176));
1586          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1587          return;          return;
1588  goto T508;          goto T508;
1589  T508:;  T508:;
1590          base[2]= (V169);          base[2]= (V169);
1591          base[3]= base[1];          base[3]= base[1];
1592          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1593          super_funcall_no_event((V173));          super_funcall_no_event((V173));
1594          return;          return;
1595  goto T504;          goto T504;
1596  T504:;  T504:;
1597          {register object x= (V172),V177= symbol_value(VV[78]);          {register object x= (V172),V177= symbol_value(VV[78]);
1598          while(!endp(V177))          while(!endp(V177))
# Line 1601  T504:; Line 1601  T504:;
1601          goto T517;          goto T517;
1602          }else V177=V177->c.c_cdr;          }else V177=V177->c.c_cdr;
1603          V173= Cnil;}          V173= Cnil;}
1604  goto T517;          goto T517;
1605  T517:;  T517:;
1606          if(((V173))==Cnil){          if(((V173))==Cnil){
1607          goto T515;}          goto T515;}
# Line 1614  T517:; Line 1614  T517:;
1614          base[2]= make_fixnum((long)(/* INLINE-ARGS */V178)+(V179));          base[2]= make_fixnum((long)(/* INLINE-ARGS */V178)+(V179));
1615          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1616          return;}          return;}
1617  goto T515;          goto T515;
1618  T515:;  T515:;
1619          if(!(((V172))==(VV[79]))){          if(!(((V172))==(VV[79]))){
1620          goto T521;}          goto T521;}
# Line 1622  T515:; Line 1622  T515:;
1622          object V181;          object V181;
1623          V180= cdr((V169));          V180= cdr((V169));
1624          V181= car((V180));          V181= car((V180));
1625  goto T526;          goto T526;
1626  T526:;  T526:;
1627          if(!(endp_prop((V180)))){          if(!(endp_prop((V180)))){
1628          goto T527;}          goto T527;}
1629          base[4]= make_fixnum(V174);          base[4]= make_fixnum(V174);
1630          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1631          return;          return;
1632  goto T527;          goto T527;
1633  T527:;  T527:;
1634          V182 = make_fixnum(V174);          V182 = make_fixnum(V174);
1635          base[4]= (V181);          base[4]= (V181);
# Line 1642  T527:; Line 1642  T527:;
1642          V180= cdr((V180));          V180= cdr((V180));
1643          V181= car((V180));          V181= car((V180));
1644          goto T526;}          goto T526;}
1645  goto T521;          goto T521;
1646  T521:;  T521:;
1647          if(!(((V172))==(VV[80]))){          if(!(((V172))==(VV[80]))){
1648          goto T543;}          goto T543;}
1649          {register object V184;          {register object V184;
1650          V184= cdr((V169));          V184= cdr((V169));
1651  goto T547;          goto T547;
1652  T547:;  T547:;
1653          if(((V184))!=Cnil){          if(((V184))!=Cnil){
1654          goto T548;}          goto T548;}
1655          base[2]= make_fixnum(V174);          base[2]= make_fixnum(V174);
1656          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1657          return;          return;
1658  goto T548;          goto T548;
1659  T548:;  T548:;
1660          base[2]= make_fixnum(V174);          base[2]= make_fixnum(V174);
1661          base[4]= car((V184));          base[4]= car((V184));
# Line 1675  T548:; Line 1675  T548:;
1675          V174= fix(vs_base[0]);          V174= fix(vs_base[0]);
1676          V184= cdr((V184));          V184= cdr((V184));
1677          goto T547;}          goto T547;}
1678  goto T543;          goto T543;
1679  T543:;  T543:;
1680          {register object x= (V172),V185= VV[81];          {register object x= (V172),V185= VV[81];
1681          while(!endp(V185))          while(!endp(V185))
# Line 1683  T543:; Line 1683  T543:;
1683          goto T565;          goto T565;
1684          }else V185=V185->c.c_cdr;          }else V185=V185->c.c_cdr;
1685          goto T564;}          goto T564;}
1686  goto T565;          goto T565;
1687  T565:;  T565:;
1688          {register object V186;          {register object V186;
1689          V186= cdr((V169));          V186= cdr((V169));
1690  goto T568;          goto T568;
1691  T568:;  T568:;
1692          if(((V186))!=Cnil){          if(((V186))!=Cnil){
1693          goto T569;}          goto T569;}
1694          base[2]= make_fixnum(V174);          base[2]= make_fixnum(V174);
1695          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1696          return;          return;
1697  goto T569;          goto T569;
1698  T569:;  T569:;
1699          base[2]= make_fixnum(V174);          base[2]= make_fixnum(V174);
1700          base[4]= cadr((V186));          base[4]= cadr((V186));
# Line 1710  T569:; Line 1710  T569:;
1710          V174= fix(vs_base[0]);          V174= fix(vs_base[0]);
1711          V186= cdr((V186));          V186= cdr((V186));
1712          goto T568;}          goto T568;}
1713  goto T564;          goto T564;
1714  T564:;  T564:;
1715          if(!(((V172))==(VV[82]))){          if(!(((V172))==(VV[82]))){
1716          goto T584;}          goto T584;}
1717          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1718          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1719          return;          return;
1720  goto T584;          goto T584;
1721  T584:;  T584:;
1722          if(!(((V172))==(VV[83]))){          if(!(((V172))==(VV[83]))){
1723          goto T587;}          goto T587;}
# Line 1727  T584:; Line 1727  T584:;
1727          goto T590;}          goto T590;}
1728          if(!((caadr((V169)))==(VV[9]))){          if(!((caadr((V169)))==(VV[9]))){
1729          goto T590;}          goto T590;}
1730  goto T589;          goto T589;
1731  T589:;  T589:;
1732          base[2]= small_fixnum(1);          base[2]= small_fixnum(1);
1733          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1734          return;          return;
1735  goto T590;          goto T590;
1736  T590:;  T590:;
1737          {frame_ptr fr;          {frame_ptr fr;
1738          fr=frs_sch_catch(VV[84]);          fr=frs_sch_catch(VV[84]);
# Line 1740  T590:; Line 1740  T590:;
1740          base[2]= Cnil;          base[2]= Cnil;
1741          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1742          unwind(fr,VV[84]);}          unwind(fr,VV[84]);}
1743  goto T587;          goto T587;
1744  T587:;  T587:;
1745          if(!(((V172))==(VV[85]))){          if(!(((V172))==(VV[85]))){
1746          goto T598;}          goto T598;}
# Line 1753  T587:; Line 1753  T587:;
1753          base[2]= make_fixnum((long)(/* INLINE-ARGS */V187)+(V188));          base[2]= make_fixnum((long)(/* INLINE-ARGS */V187)+(V188));
1754          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1755          return;}          return;}
1756  goto T598;          goto T598;
1757  T598:;  T598:;
1758          if(!(((V172))==(VV[86]))){          if(!(((V172))==(VV[86]))){
1759          goto T603;}          goto T603;}
# Line 1766  T598:; Line 1766  T598:;
1766          base[2]= one_plus(V189);          base[2]= one_plus(V189);
1767          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1768          return;          return;
1769  goto T603;          goto T603;
1770  T603:;  T603:;
1771          base[2]= (V172);          base[2]= (V172);
1772          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1780  T603:; Line 1780  T603:;
1780          goto T613;          goto T613;
1781          }else V190=V190->c.c_cdr;          }else V190=V190->c.c_cdr;
1782          goto T609;}          goto T609;}
1783  goto T613;          goto T613;
1784  T613:;  T613:;
1785  goto T608;          goto T608;
1786  T608:;  T608:;
1787          {frame_ptr fr;          {frame_ptr fr;
1788          fr=frs_sch_catch(VV[77]);          fr=frs_sch_catch(VV[77]);
# Line 1790  T608:; Line 1790  T608:;
1790          base[2]= Cnil;          base[2]= Cnil;
1791          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1792          unwind(fr,VV[77]);}          unwind(fr,VV[77]);}
1793  goto T609;          goto T609;
1794  T609:;  T609:;
1795          {object V191;          {object V191;
1796          object V192;          object V192;
# Line 1805  T609:; Line 1805  T609:;
1805          V192= vs_base[0];          V192= vs_base[0];
1806          vs_top=sup;          vs_top=sup;
1807          goto T620;          goto T620;
1808  goto T618;          goto T618;
1809  T618:;  T618:;
1810          V191= Cnil;          V191= Cnil;
1811  goto T619;          goto T619;
1812  T619:;  T619:;
1813          V192= Cnil;          V192= Cnil;
1814  goto T620;          goto T620;
1815  T620:;  T620:;
1816          if(((V192))==Cnil){          if(((V192))==Cnil){
1817          goto T622;}          goto T622;}
1818          V169= (V191);          V169= (V191);
1819          goto TTL;          goto TTL;
1820  goto T622;          goto T622;
1821  T622:;  T622:;
1822          base[2]= cdr((V169));          base[2]= cdr((V169));
1823          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 1827  T622:; Line 1827  T622:;
1827          base[2]= make_fixnum((long)(3)+(V193));          base[2]= make_fixnum((long)(3)+(V193));
1828          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1829          return;}}          return;}}
1830  goto T499;          goto T499;
1831  T499:;  T499:;
1832          {frame_ptr fr;          {frame_ptr fr;
1833          fr=frs_sch_catch(VV[77]);          fr=frs_sch_catch(VV[77]);
# Line 1851  TTL:; Line 1851  TTL:;
1851          register object V195;          register object V195;
1852          V194= symbol_value(VV[88]);          V194= symbol_value(VV[88]);
1853          V195= Cnil;          V195= Cnil;
1854  goto T631;          goto T631;
1855  T631:;  T631:;
1856          if(!(((V194))==(cdr(symbol_value(VV[89]))))){          if(!(((V194))==(cdr(symbol_value(VV[89]))))){
1857          goto T632;}          goto T632;}
1858          base[0]= nreverse((V195));          base[0]= nreverse((V195));
1859          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1860          return;          return;
1861  goto T632;          goto T632;
1862  T632:;  T632:;
1863          {object V196;          {object V196;
1864          V196= cdr((V194));          V196= cdr((V194));
# Line 1938  static void L44() Line 1938  static void L44()
1938          V204=(base[2]);          V204=(base[2]);
1939          vs_top=sup;          vs_top=sup;
1940          goto T647;          goto T647;
1941  goto T646;          goto T646;
1942  T646:;  T646:;
1943          V204= (V203);          V204= (V203);
1944  goto T647;          goto T647;
1945  T647:;  T647:;
1946          if(((V202))!=Cnil){          if(((V202))!=Cnil){
1947          goto T650;}          goto T650;}
1948          base[3]= (V204);          base[3]= (V204);
1949          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1950          return;          return;
1951  goto T650;          goto T650;
1952  T650:;  T650:;
1953          {object V205;          {object V205;
1954          object V206;          object V206;
# Line 1963  T650:; Line 1963  T650:;
1963          V206= vs_base[0];          V206= vs_base[0];
1964          vs_top=sup;          vs_top=sup;
1965          goto T657;          goto T657;
1966  goto T655;          goto T655;
1967  T655:;  T655:;
1968          V205= Cnil;          V205= Cnil;
1969  goto T656;          goto T656;
1970  T656:;  T656:;
1971          V206= Cnil;          V206= Cnil;
1972  goto T657;          goto T657;
1973  T657:;  T657:;
1974          if(((V206))!=Cnil){          if(((V206))!=Cnil){
1975          goto T660;}          goto T660;}
# Line 1980  T657:; Line 1980  T657:;
1980          (void) (*Lnk338)();          (void) (*Lnk338)();
1981          vs_top=sup;          vs_top=sup;
1982          goto T658;          goto T658;
1983  goto T660;          goto T660;
1984  T660:;  T660:;
1985          if(((V205))!=Cnil){          if(((V205))!=Cnil){
1986          goto T658;}          goto T658;}
# Line 1990  T660:; Line 1990  T660:;
1990          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
1991          (void) (*Lnk347)();          (void) (*Lnk347)();
1992          vs_top=sup;          vs_top=sup;
1993  goto T658;          goto T658;
1994  T658:;  T658:;
1995          base[3]= (V202);          base[3]= (V202);
1996          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 2071  TTL:; Line 2071  TTL:;
2071          register object V215;          register object V215;
2072          V214= (VV[105]->s.s_dbind);          V214= (VV[105]->s.s_dbind);
2073          V215= car((V214));          V215= car((V214));
2074  goto T680;          goto T680;
2075  T680:;  T680:;
2076          if(!(endp_prop((V214)))){          if(!(endp_prop((V214)))){
2077          goto T681;}          goto T681;}
2078          goto T676;          goto T676;
2079  goto T681;          goto T681;
2080  T681:;  T681:;
2081          {object V216;          {object V216;
2082          object V217;          object V217;
# Line 2090  T681:; Line 2090  T681:;
2090          register object V221;          register object V221;
2091          V220= (V219);          V220= (V219);
2092          V221= car((V220));          V221= car((V220));
2093  goto T694;          goto T694;
2094  T694:;  T694:;
2095          if(!(endp_prop((V220)))){          if(!(endp_prop((V220)))){
2096          goto T695;}          goto T695;}
2097          goto T690;          goto T690;
2098  goto T695;          goto T695;
2099  T695:;  T695:;
2100          V222= make_cons((V208),Cnil);          V222= make_cons((V208),Cnil);
2101          V208= append((V221),/* INLINE-ARGS */V222);          V208= append((V221),/* INLINE-ARGS */V222);
2102          V220= cdr((V220));          V220= cdr((V220));
2103          V221= car((V220));          V221= car((V220));
2104          goto T694;}          goto T694;}
2105  goto T690;          goto T690;
2106  T690:;  T690:;
2107          if(((V216))!=Cnil){          if(((V216))!=Cnil){
2108          goto T706;}          goto T706;}
# Line 2110  T690:; Line 2110  T690:;
2110          goto T706;}          goto T706;}
2111          if(((V218))==Cnil){          if(((V218))==Cnil){
2112          goto T685;}          goto T685;}
2113  goto T706;          goto T706;
2114  T706:;  T706:;
2115          {register object V223;          {register object V223;
2116          V223= make_cons((V208),Cnil);          V223= make_cons((V208),Cnil);
# Line 2119  T706:; Line 2119  T706:;
2119          {object V224;          {object V224;
2120          V224= make_cons(VV[30],(V217));          V224= make_cons(VV[30],(V217));
2121          V223= make_cons((V224),(V223));}          V223= make_cons((V224),(V223));}
2122  goto T713;          goto T713;
2123  T713:;  T713:;
2124          if(((V216))!=Cnil){          if(((V216))!=Cnil){
2125          goto T721;}          goto T721;}
2126          V225= VV[122];          V225= VV[122];
2127          goto T719;          goto T719;
2128  goto T721;          goto T721;
2129  T721:;  T721:;
2130          if((symbol_value(VV[63]))==Cnil){          if((symbol_value(VV[63]))==Cnil){
2131          goto T724;}          goto T724;}
2132          V225= car(symbol_value(VV[63]));          V225= car(symbol_value(VV[63]));
2133          goto T719;          goto T719;
2134  goto T724;          goto T724;
2135  T724:;  T724:;
2136          V225= VV[29];          V225= VV[29];
2137  goto T719;          goto T719;
2138  T719:;  T719:;
2139          if(((V218))==Cnil){          if(((V218))==Cnil){
2140          goto T728;}          goto T728;}
# Line 2142  T719:; Line 2142  T719:;
2142          V228= make_cons(VV[123],/* INLINE-ARGS */V227);          V228= make_cons(VV[123],/* INLINE-ARGS */V227);
2143          V226= make_cons(/* INLINE-ARGS */V228,Cnil);          V226= make_cons(/* INLINE-ARGS */V228,Cnil);
2144          goto T726;          goto T726;
2145  goto T728;          goto T728;
2146  T728:;  T728:;
2147          V226= (V223);          V226= (V223);
2148  goto T726;          goto T726;
2149  T726:;  T726:;
2150          V208= listA(3,V225,(V216),V226);}}          V208= listA(3,V225,(V216),V226);}}
2151  goto T685;          goto T685;
2152  T685:;  T685:;
2153          V214= cdr((V214));          V214= cdr((V214));
2154          V215= car((V214));          V215= car((V214));
2155          goto T680;}          goto T680;}
2156  goto T676;          goto T676;
2157  T676:;  T676:;
2158          V208= list(3,VV[124],car((VV[118]->s.s_dbind)),(V208));          V208= list(3,VV[124],car((VV[118]->s.s_dbind)),(V208));
2159          base[27]= (V208);          base[27]= (V208);
# Line 2197  static void L47() Line 2197  static void L47()
2197          vs_top=sup;          vs_top=sup;
2198          goto TTL;          goto TTL;
2199  TTL:;  TTL:;
2200  goto T738;          goto T738;
2201  T738:;  T738:;
2202          if((symbol_value(VV[89]))!=Cnil){          if((symbol_value(VV[89]))!=Cnil){
2203          goto T739;}          goto T739;}
2204          base[0]= Cnil;          base[0]= Cnil;
2205          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2206          return;          return;
2207  goto T739;          goto T739;
2208  T739:;  T739:;
2209          {register object V229;          {register object V229;
2210          register object V230;          register object V230;
# Line 2218  T739:; Line 2218  T739:;
2218          (void) (*Lnk347)();          (void) (*Lnk347)();
2219          vs_top=sup;          vs_top=sup;
2220          goto T743;          goto T743;
2221  goto T746;          goto T746;
2222  T746:;  T746:;
2223          setq(VV[88],symbol_value(VV[89]));          setq(VV[88],symbol_value(VV[89]));
2224          vs_base=vs_top;          vs_base=vs_top;
# Line 2246  T746:; Line 2246  T746:;
2246          super_funcall_no_event(base[0]);          super_funcall_no_event(base[0]);
2247          vs_top=sup;          vs_top=sup;
2248          goto T743;          goto T743;
2249  goto T754;          goto T754;
2250  T754:;  T754:;
2251          base[0]= (V229);          base[0]= (V229);
2252          base[1]= structure_ref(symbol_value(VV[97]),VV[39],1);          base[1]= structure_ref(symbol_value(VV[97]),VV[39],1);
# Line 2261  T754:; Line 2261  T754:;
2261          (void) (*Lnk352)();          (void) (*Lnk352)();
2262          vs_top=sup;          vs_top=sup;
2263          goto T743;          goto T743;
2264  goto T763;          goto T763;
2265  T763:;  T763:;
2266          base[0]= (V229);          base[0]= (V229);
2267          base[1]= VV[126];          base[1]= VV[126];
# Line 2278  T763:; Line 2278  T763:;
2278          (void) (*Lnk347)();          (void) (*Lnk347)();
2279          vs_top=sup;          vs_top=sup;
2280          goto T743;          goto T743;
2281  goto T770;          goto T770;
2282  T770:;  T770:;
2283          base[0]= VV[128];          base[0]= VV[128];
2284          base[1]= (V229);          base[1]= (V229);
2285          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2286          (void) (*Lnk347)();          (void) (*Lnk347)();
2287          vs_top=sup;}          vs_top=sup;}
2288  goto T743;          goto T743;
2289  T743:;  T743:;
2290          goto T738;          goto T738;
2291  }  }
# Line 2307  TTL:; Line 2307  TTL:;
2307          base[0]= (V232);          base[0]= (V232);
2308          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2309          return;}          return;}
2310  goto T783;          goto T783;
2311  T783:;  T783:;
2312          base[0]= VV[129];          base[0]= VV[129];
2313          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2332  TTL:; Line 2332  TTL:;
2332          V235= vs_base[0];          V235= vs_base[0];
2333          V233= make_cons(V235,Cnil);          V233= make_cons(V235,Cnil);
2334          V234= car(symbol_value(VV[89]));          V234= car(symbol_value(VV[89]));
2335  goto T793;          goto T793;
2336  T793:;  T793:;
2337          if(!(type_of((V234))!=t_cons)){          if(!(type_of((V234))!=t_cons)){
2338          goto T794;}          goto T794;}
# Line 2341  T793:; Line 2341  T793:;
2341          base[0]= car((V233));          base[0]= car((V233));
2342          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2343          return;          return;
2344  goto T798;          goto T798;
2345  T798:;  T798:;
2346          V236= nreverse((V233));          V236= nreverse((V233));
2347          base[0]= make_cons(VV[14],/* INLINE-ARGS */V236);          base[0]= make_cons(VV[14],/* INLINE-ARGS */V236);
2348          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2349          return;          return;
2350  goto T794;          goto T794;
2351  T794:;  T794:;
2352          vs_base=vs_top;          vs_base=vs_top;
2353          (void) (*Lnk350)();          (void) (*Lnk350)();
# Line 2372  TTL:; Line 2372  TTL:;
2372          vs_base=vs_top;          vs_base=vs_top;
2373          (void) (*Lnk350)();          (void) (*Lnk350)();
2374          return;          return;
2375  goto T807;          goto T807;
2376  T807:;  T807:;
2377          base[0]= VV[130];          base[0]= VV[130];
2378          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2412  TTL:; Line 2412  TTL:;
2412          goto T810;}          goto T810;}
2413          if((symbol_value(VV[115]))==Cnil){          if((symbol_value(VV[115]))==Cnil){
2414          goto T811;}          goto T811;}
2415  goto T810;          goto T810;
2416  T810:;  T810:;
2417          setq(VV[109],make_cons(V239,symbol_value(VV[109])));          setq(VV[109],make_cons(V239,symbol_value(VV[109])));
2418          base[1]= symbol_value(VV[109]);          base[1]= symbol_value(VV[109]);
2419          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2420          return;          return;
2421  goto T811;          goto T811;
2422  T811:;  T811:;
2423          setq(VV[108],make_cons(V239,symbol_value(VV[108])));          setq(VV[108],make_cons(V239,symbol_value(VV[108])));
2424          setq(VV[111],make_cons(V239,symbol_value(VV[111])));          setq(VV[111],make_cons(V239,symbol_value(VV[111])));
# Line 2476  TTL:; Line 2476  TTL:;
2476          (void) (*Lnk345)();          (void) (*Lnk345)();
2477          vs_top=sup;          vs_top=sup;
2478          goto T826;          goto T826;
2479  goto T830;          goto T830;
2480  T830:;  T830:;
2481          base[1]= VV[132];          base[1]= VV[132];
2482          base[2]= symbol_value(VV[114]);          base[2]= symbol_value(VV[114]);
2483          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2484          (void) (*Lnk338)();          (void) (*Lnk338)();
2485          vs_top=sup;          vs_top=sup;
2486  goto T826;          goto T826;
2487  T826:;  T826:;
2488          setq(VV[114],car(symbol_value(VV[88])));          setq(VV[114],car(symbol_value(VV[88])));
2489          base[1]= symbol_value(VV[114]);          base[1]= symbol_value(VV[114]);
# Line 2503  static void L55() Line 2503  static void L55()
2503          V246=(base[0]);          V246=(base[0]);
2504          vs_top=sup;          vs_top=sup;
2505          goto T839;          goto T839;
2506  goto T838;          goto T838;
2507  T838:;  T838:;
2508          V246= Cnil;          V246= Cnil;
2509  goto T839;          goto T839;
2510  T839:;  T839:;
2511          if((symbol_value(VV[115]))==Cnil){          if((symbol_value(VV[115]))==Cnil){
2512          goto T842;}          goto T842;}
# Line 2515  T839:; Line 2515  T839:;
2515          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2516          (void) (*Lnk347)();          (void) (*Lnk347)();
2517          return;          return;
2518  goto T842;          goto T842;
2519  T842:;  T842:;
2520          base[1]= Cnil;          base[1]= Cnil;
2521          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2557  TTL:; Line 2557  TTL:;
2557          vs_top=sup;          vs_top=sup;
2558          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2559          goto T854;}          goto T854;}
2560  goto T853;          goto T853;
2561  T853:;  T853:;
2562          base[1]= (*(LnkLI356))(small_fixnum(0),(V247));          base[1]= (*(LnkLI356))(small_fixnum(0),(V247));
2563          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2564          return;          return;
2565  goto T854;          goto T854;
2566  T854:;  T854:;
2567          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
2568          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2569          return;          return;
2570  goto T847;          goto T847;
2571  T847:;  T847:;
2572          base[1]= Cnil;          base[1]= Cnil;
2573          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2584  static void L57() Line 2584  static void L57()
2584          if(vs_base>=vs_top){vs_top=sup;goto T862;}          if(vs_base>=vs_top){vs_top=sup;goto T862;}
2585          vs_top=sup;          vs_top=sup;
2586          goto T863;          goto T863;
2587  goto T862;          goto T862;
2588  T862:;  T862:;
2589          base[0]= Cnil;          base[0]= Cnil;
2590  goto T863;          goto T863;
2591  T863:;  T863:;
2592          if(symbol_value(VV[89])==Cnil){          if(symbol_value(VV[89])==Cnil){
2593          base[1]= Cnil;          base[1]= Cnil;
# Line 2607  T863:; Line 2607  T863:;
2607          vs_base=vs_top;          vs_base=vs_top;
2608          (void) (*Lnk350)();          (void) (*Lnk350)();
2609          return;          return;
2610  goto T867;          goto T867;
2611  T867:;  T867:;
2612          if(!(type_of(base[1])==t_symbol)){          if(!(type_of(base[1])==t_symbol)){
2613          goto T873;}          goto T873;}
# Line 2621  T867:; Line 2621  T867:;
2621          if(V249==Cnil)goto T876;          if(V249==Cnil)goto T876;
2622          V248= V249;          V248= V249;
2623          goto T875;          goto T875;
2624  goto T876;          goto T876;
2625  T876:;}  T876:;}
2626          base[2]= symbol_name(base[1]);          base[2]= symbol_name(base[1]);
2627          base[3]= structure_ref(symbol_value(VV[97]),VV[39],5);          base[3]= structure_ref(symbol_value(VV[97]),VV[39],5);
# Line 2629  T876:;} Line 2629  T876:;}
2629          Lgethash();          Lgethash();
2630          vs_top=sup;          vs_top=sup;
2631          V248= vs_base[0];          V248= vs_base[0];
2632  goto T875;          goto T875;
2633  T875:;  T875:;
2634          if(((V248))==Cnil){          if(((V248))==Cnil){
2635          goto T883;}          goto T883;}
# Line 2639  T875:; Line 2639  T875:;
2639          base[2]= (V248);          base[2]= (V248);
2640          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2641          return;          return;
2642  goto T883;          goto T883;
2643  T883:;  T883:;
2644          base[2]= Cnil;          base[2]= Cnil;
2645          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2646          return;}          return;}
2647  goto T873;          goto T873;
2648  T873:;  T873:;
2649          if(!(type_of(base[0])==t_cons)){          if(!(type_of(base[0])==t_cons)){
2650          goto T888;}          goto T888;}
# Line 2656  T873:; Line 2656  T873:;
2656          (void) (*Lnk347)();          (void) (*Lnk347)();
2657          vs_top=sup;          vs_top=sup;
2658          goto T886;          goto T886;
2659  goto T888;          goto T888;
2660  T888:;  T888:;
2661          base[2]= VV[139];          base[2]= VV[139];
2662          base[3]= base[1];          base[3]= base[1];
2663          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2664          (void) (*Lnk347)();          (void) (*Lnk347)();
2665          vs_top=sup;          vs_top=sup;
2666  goto T886;          goto T886;
2667  T886:;  T886:;
2668          vs_base=vs_top;          vs_base=vs_top;
2669          (void) (*Lnk350)();          (void) (*Lnk350)();
# Line 2690  TTL:; Line 2690  TTL:;
2690          goto T899;}          goto T899;}
2691          if((symbol_value(VV[107]))==Cnil){          if((symbol_value(VV[107]))==Cnil){
2692          goto T900;}          goto T900;}
2693  goto T899;          goto T899;
2694  T899:;  T899:;
2695          {object V250;          {object V250;
2696          V251= nreverse(symbol_value(VV[100]));          V251= nreverse(symbol_value(VV[100]));
# Line 2703  T899:; Line 2703  T899:;
2703          base[0]= Cnil;          base[0]= Cnil;
2704          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2705          return;          return;
2706  goto T900;          goto T900;
2707  T900:;  T900:;
2708          base[0]= Cnil;          base[0]= Cnil;
2709          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2729  static void L61() Line 2729  static void L61()
2729          V255=(base[3]);          V255=(base[3]);
2730          vs_top=sup;          vs_top=sup;
2731          goto T917;          goto T917;
2732  goto T916;          goto T916;
2733  T916:;  T916:;
2734          V255= Cnil;          V255= Cnil;
2735  goto T917;          goto T917;
2736  T917:;  T917:;
2737          if(((V252))!=Cnil){          if(((V252))!=Cnil){
2738          goto T921;}          goto T921;}
# Line 2750  T917:; Line 2750  T917:;
2750          V257= list(2,VV[143],(V252));          V257= list(2,VV[143],(V252));
2751          setq(VV[103],make_cons((V257),symbol_value(VV[103])));          setq(VV[103],make_cons((V257),symbol_value(VV[103])));
2752          goto T919;}          goto T919;}
2753  goto T921;          goto T921;
2754  T921:;  T921:;
2755          if(!(type_of((V252))!=t_cons)){          if(!(type_of((V252))!=t_cons)){
2756          goto T933;}          goto T933;}
# Line 2762  T921:; Line 2762  T921:;
2762          goto T941;          goto T941;
2763          }else V258=V258->c.c_cdr;          }else V258=V258->c.c_cdr;
2764          goto T940;}          goto T940;}
2765  goto T941;          goto T941;
2766  T941:;  T941:;
2767          base[4]= VV[144];          base[4]= VV[144];
2768          base[5]= (V252);          base[5]= (V252);
# Line 2770  T941:; Line 2770  T941:;
2770          (void) (*Lnk347)();          (void) (*Lnk347)();
2771          vs_top=sup;          vs_top=sup;
2772          goto T935;          goto T935;
2773  goto T940;          goto T940;
2774  T940:;  T940:;
2775          setq(VV[99],make_cons(V252,symbol_value(VV[99])));          setq(VV[99],make_cons(V252,symbol_value(VV[99])));
2776          goto T935;          goto T935;
2777  goto T937;          goto T937;
2778  T937:;  T937:;
2779          {register object x= (V252),V260= symbol_value(VV[100]);          {register object x= (V252),V260= symbol_value(VV[100]);
2780          while(!endp(V260))          while(!endp(V260))
# Line 2782  T937:; Line 2782  T937:;
2782          goto T946;          goto T946;
2783          }else V260=V260->c.c_cdr;          }else V260=V260->c.c_cdr;
2784          goto T935;}          goto T935;}
2785  goto T946;          goto T946;
2786  T946:;  T946:;
2787          base[4]= VV[145];          base[4]= VV[145];
2788          base[5]= (V252);          base[5]= (V252);
2789          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2790          (void) (*Lnk347)();          (void) (*Lnk347)();
2791          vs_top=sup;          vs_top=sup;
2792  goto T935;          goto T935;
2793  T935:;  T935:;
2794          if(type_of((V252))==t_symbol){          if(type_of((V252))==t_symbol){
2795          goto T949;}          goto T949;}
# Line 2798  T935:; Line 2798  T935:;
2798          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2799          (void) (*Lnk347)();          (void) (*Lnk347)();
2800          vs_top=sup;          vs_top=sup;
2801  goto T949;          goto T949;
2802  T949:;  T949:;
2803          base[4]= (V252);          base[4]= (V252);
2804          base[5]= (V254);          base[5]= (V254);
# Line 2814  T949:; Line 2814  T949:;
2814          (void) (*Lnk329)();          (void) (*Lnk329)();
2815          vs_top=sup;          vs_top=sup;
2816          V262= vs_base[0];          V262= vs_base[0];
2817  goto T958;          goto T958;
2818  T958:;  T958:;
2819          V261= list(2,(V252),V262);          V261= list(2,(V252),V262);
2820          setq(VV[100],make_cons((V261),symbol_value(VV[100])));          setq(VV[100],make_cons((V261),symbol_value(VV[100])));
2821          goto T919;}          goto T919;}
2822  goto T933;          goto T933;
2823  T933:;  T933:;
2824          if(((V253))==Cnil){          if(((V253))==Cnil){
2825          goto T962;}          goto T962;}
# Line 2834  T933:; Line 2834  T933:;
2834          V263= list(2,(V252),(V253));          V263= list(2,(V252),(V253));
2835          setq(VV[100],make_cons((V263),symbol_value(VV[100])));          setq(VV[100],make_cons((V263),symbol_value(VV[100])));
2836          goto T919;}          goto T919;}
2837  goto T965;          goto T965;
2838  T965:;  T965:;
2839          {object V264;          {object V264;
2840          base[4]= VV[147];          base[4]= VV[147];
# Line 2847  T965:; Line 2847  T965:;
2847          setq(VV[100],make_cons((V265),symbol_value(VV[100])));}          setq(VV[100],make_cons((V265),symbol_value(VV[100])));}
2848          setq(VV[104],listA(3,(V252),(V264),symbol_value(VV[104])));          setq(VV[104],listA(3,(V252),(V264),symbol_value(VV[104])));
2849          goto T919;}          goto T919;}
2850  goto T962;          goto T962;
2851  T962:;  T962:;
2852          {object V266;          {object V266;
2853          object V267;          object V267;
# Line 2858  T962:; Line 2858  T962:;
2858          V267= (V254);          V267= (V254);
2859          V266= (V267);          V266= (V267);
2860          goto T978;          goto T978;
2861  goto T980;          goto T980;
2862  T980:;  T980:;
2863          V266= car((V254));          V266= car((V254));
2864          V267= cdr((V254));          V267= cdr((V254));
2865  goto T978;          goto T978;
2866  T978:;  T978:;
2867          base[4]= car((V252));          base[4]= car((V252));
2868          base[5]= Cnil;          base[5]= Cnil;
# Line 2878  T978:; Line 2878  T978:;
2878          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2879          (void) (*Lnk359)();          (void) (*Lnk359)();
2880          vs_top=sup;}          vs_top=sup;}
2881  goto T919;          goto T919;
2882  T919:;  T919:;
2883          base[4]= (V252);          base[4]= (V252);
2884          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 2930  TTL:; Line 2930  TTL:;
2930          goto T1000;}          goto T1000;}
2931          if(!(((V272))==(Ct))){          if(!(((V272))==(Ct))){
2932          goto T1001;}          goto T1001;}
2933  goto T1000;          goto T1000;
2934  T1000:;  T1000:;
2935          base[2]= Cnil;          base[2]= Cnil;
2936          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2937          return;          return;
2938  goto T1001;          goto T1001;
2939  T1001:;  T1001:;
2940          if(!(type_of((V271))==t_symbol)){          if(!(type_of((V271))==t_symbol)){
2941          goto T1008;}          goto T1008;}
# Line 2952  T1001:; Line 2952  T1001:;
2952          base[3]= symbol_value(VV[103]);          base[3]= symbol_value(VV[103]);
2953          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2954          return;}          return;}
2955  goto T1011;          goto T1011;
2956  T1011:;  T1011:;
2957          base[2]= Cnil;          base[2]= Cnil;
2958          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2959          return;          return;
2960  goto T1008;          goto T1008;
2961  T1008:;  T1008:;
2962          if(!(type_of((V271))==t_cons)){          if(!(type_of((V271))==t_cons)){
2963          goto T1018;}          goto T1018;}
# Line 2971  T1008:; Line 2971  T1008:;
2971          V271= cdr((V271));          V271= cdr((V271));
2972          V272= cdr((V272));          V272= cdr((V272));
2973          goto TTL;          goto TTL;
2974  goto T1021;          goto T1021;
2975  T1021:;  T1021:;
2976          base[2]= car((V271));          base[2]= car((V271));
2977          base[3]= (V272);          base[3]= (V272);
# Line 2980  T1021:; Line 2980  T1021:;
2980          vs_top=sup;          vs_top=sup;
2981          V271= cdr((V271));          V271= cdr((V271));
2982          goto TTL;          goto TTL;
2983  goto T1018;          goto T1018;
2984  T1018:;  T1018:;
2985          base[2]= VV[148];          base[2]= VV[148];
2986          base[3]= (V271);          base[3]= (V271);
# Line 3012  TTL:; Line 3012  TTL:;
3012          base[2]= (V276);          base[2]= (V276);
3013          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3014          return;          return;
3015  goto T1038;          goto T1038;
3016  T1038:;  T1038:;
3017          base[3]= VV[149];          base[3]= VV[149];
3018          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 3072  TTL:; Line 3072  TTL:;
3072          V283= vs_base[0];          V283= vs_base[0];
3073          V282= make_cons(V283,Cnil);          V282= make_cons(V283,Cnil);
3074          goto T1048;          goto T1048;
3075  goto T1050;          goto T1050;
3076  T1050:;  T1050:;
3077          V282= Cnil;          V282= Cnil;
3078  goto T1048;          goto T1048;
3079  T1048:;  T1048:;
3080          base[4]= car(symbol_value(VV[89]));          base[4]= car(symbol_value(VV[89]));
3081          base[5]= VV[151];          base[5]= VV[151];
# Line 3087  T1048:; Line 3087  T1048:;
3087          vs_base=vs_top;          vs_base=vs_top;
3088          (void) (*Lnk350)();          (void) (*Lnk350)();
3089          vs_top=sup;          vs_top=sup;
3090  goto T1057;          goto T1057;
3091  T1057:;  T1057:;
3092          if((base[3])==Cnil){          if((base[3])==Cnil){
3093          goto T1062;}          goto T1062;}
3094          V280= list(3,VV[11],base[3],(V280));          V280= list(3,VV[11],base[3],(V280));
3095  goto T1062;          goto T1062;
3096  T1062:;  T1062:;
3097          if(((V279))==Cnil){          if(((V279))==Cnil){
3098          goto T1069;}          goto T1069;}
3099          V284= list(2,VV[36],(V280));          V284= list(2,VV[36],(V280));
3100          goto T1067;          goto T1067;
3101  goto T1069;          goto T1069;
3102  T1069:;  T1069:;
3103          V284= (V280);          V284= (V280);
3104  goto T1067;          goto T1067;
3105  T1067:;  T1067:;
3106          base[4]= listA(4,VV[71],V284,(V281),(V282));          base[4]= listA(4,VV[71],V284,(V281),(V282));
3107          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 3198  TTL:; Line 3198  TTL:;
3198          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3199          (void) (*Lnk347)();          (void) (*Lnk347)();
3200          vs_top=sup;          vs_top=sup;
3201  goto T1081;          goto T1081;
3202  T1081:;  T1081:;
3203          if((symbol_value(VV[108]))!=Cnil){          if((symbol_value(VV[108]))!=Cnil){
3204          goto T1087;}          goto T1087;}
# Line 3208  T1081:; Line 3208  T1081:;
3208          goto T1087;}          goto T1087;}
3209          if((symbol_value(VV[115]))==Cnil){          if((symbol_value(VV[115]))==Cnil){
3210          goto T1086;}          goto T1086;}
3211  goto T1087;          goto T1087;
3212  T1087:;  T1087:;
3213          base[0]= VV[159];          base[0]= VV[159];
3214          base[1]= (V287);          base[1]= (V287);
3215          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3216          (void) (*Lnk347)();          (void) (*Lnk347)();
3217          vs_top=sup;          vs_top=sup;
3218  goto T1086;          goto T1086;
3219  T1086:;  T1086:;
3220          if((symbol_value(VV[118]))==Cnil){          if((symbol_value(VV[118]))==Cnil){
3221          goto T1097;}          goto T1097;}
# Line 3225  T1086:; Line 3225  T1086:;
3225          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3226          (void) (*Lnk347)();          (void) (*Lnk347)();
3227          vs_top=sup;          vs_top=sup;
3228  goto T1097;          goto T1097;
3229  T1097:;  T1097:;
3230          setq(VV[118],list(2,(V287),Cnil));          setq(VV[118],list(2,(V287),Cnil));
3231          base[0]= symbol_value(VV[118]);          base[0]= symbol_value(VV[118]);
# Line 3310  TTL:; Line 3310  TTL:;
3310          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3311          goto T1113;}          goto T1113;}
3312          setq(VV[119],Ct);          setq(VV[119],Ct);
3313  goto T1113;          goto T1113;
3314  T1113:;  T1113:;
3315          {object V297;          {object V297;
3316          register object V298;          register object V298;
# Line 3324  T1113:; Line 3324  T1113:;
3324          goto T1121;}          goto T1121;}
3325          V298= Cnil;          V298= Cnil;
3326          goto T1120;          goto T1120;
3327  goto T1121;          goto T1121;
3328  T1121:;  T1121:;
3329          vs_base=vs_top;          vs_base=vs_top;
3330          (void) (*Lnk367)();          (void) (*Lnk367)();
3331          vs_top=sup;          vs_top=sup;
3332          V298= vs_base[0];          V298= vs_base[0];
3333  goto T1120;          goto T1120;
3334  T1120:;  T1120:;
3335          base[3]= car(symbol_value(VV[89]));          base[3]= car(symbol_value(VV[89]));
3336          base[4]= VV[162];          base[4]= VV[162];
# Line 3347  T1120:; Line 3347  T1120:;
3347          vs_top=sup;          vs_top=sup;
3348          V299= vs_base[0];          V299= vs_base[0];
3349          goto T1123;          goto T1123;
3350  goto T1125;          goto T1125;
3351  T1125:;  T1125:;
3352          V299= Cnil;          V299= Cnil;
3353  goto T1123;          goto T1123;
3354  T1123:;  T1123:;
3355          if(type_of((V299))==t_symbol){          if(type_of((V299))==t_symbol){
3356          goto T1130;}          goto T1130;}
# Line 3359  T1123:; Line 3359  T1123:;
3359          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3360          (void) (*Lnk347)();          (void) (*Lnk347)();
3361          vs_top=sup;          vs_top=sup;
3362  goto T1130;          goto T1130;
3363  T1130:;  T1130:;
3364          if(((V298))!=Cnil){          if(((V298))!=Cnil){
3365          goto T1135;}{object V301;          goto T1135;}{object V301;
# Line 3370  T1130:; Line 3370  T1130:;
3370          if(V301==Cnil)goto T1139;          if(V301==Cnil)goto T1139;
3371          V298= V301;          V298= V301;
3372          goto T1138;          goto T1138;
3373  goto T1139;          goto T1139;
3374  T1139:;}  T1139:;}
3375          V298= (V296);          V298= (V296);
3376  goto T1138;          goto T1138;
3377  T1138:;  T1138:;
3378  goto T1135;          goto T1135;
3379  T1135:;  T1135:;
3380          {register object V302;{object V303;          {register object V302;{object V303;
3381          V303= symbol_value(VV[120]);          V303= symbol_value(VV[120]);
# Line 3399  T1135:; Line 3399  T1135:;
3399          V305= (V302);          V305= (V302);
3400          setq(VV[120],make_cons((V305),symbol_value(VV[120])));          setq(VV[120],make_cons((V305),symbol_value(VV[120])));
3401          goto T1143;}          goto T1143;}
3402  goto T1145;          goto T1145;
3403  T1145:;  T1145:;
3404          V306= structure_ref((V302),VV[161],1);          V306= structure_ref((V302),VV[161],1);
3405          if((/* INLINE-ARGS */V306)==((V295))){          if((/* INLINE-ARGS */V306)==((V295))){
# Line 3412  T1145:; Line 3412  T1145:;
3412          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
3413          (void) (*Lnk347)();          (void) (*Lnk347)();
3414          vs_top=sup;          vs_top=sup;
3415  goto T1158;          goto T1158;
3416  T1158:;  T1158:;
3417          V308= structure_ref((V302),VV[161],4);          V308= structure_ref((V302),VV[161],4);
3418          if(equal((V298),/* INLINE-ARGS */V308)){          if(equal((V298),/* INLINE-ARGS */V308)){
# Line 3428  T1158:; Line 3428  T1158:;
3428          if(!((/* INLINE-ARGS */V309)==(Ct))){          if(!((/* INLINE-ARGS */V309)==(Ct))){
3429          goto T1165;}          goto T1165;}
3430          (void)(structure_set((V302),VV[161],4,(V298)));          (void)(structure_set((V302),VV[161],4,(V298)));
3431  goto T1165;          goto T1165;
3432  T1165:;  T1165:;
3433          {object V312;          {object V312;
3434          V313= structure_ref(V302,VV[161],2);          V313= structure_ref(V302,VV[161],2);
3435          V312= make_cons(V294,/* INLINE-ARGS */V313);          V312= make_cons(V294,/* INLINE-ARGS */V313);
3436          (void)(structure_set(V302,VV[161],2,(V312)));}          (void)(structure_set(V302,VV[161],2,(V312)));}
3437  goto T1143;          goto T1143;
3438  T1143:;  T1143:;
3439          base[3]= (V302);          base[3]= (V302);
3440          base[4]= (V297);          base[4]= (V297);
# Line 3468  TTL:; Line 3468  TTL:;
3468          V316= vs_base[0];          V316= vs_base[0];
3469          vs_top=sup;          vs_top=sup;
3470          goto T1184;          goto T1184;
3471  goto T1182;          goto T1182;
3472  T1182:;  T1182:;
3473          V315= Cnil;          V315= Cnil;
3474  goto T1183;          goto T1183;
3475  T1183:;  T1183:;
3476          V316= Cnil;          V316= Cnil;
3477  goto T1184;          goto T1184;
3478  T1184:;  T1184:;
3479          {register object V317;          {register object V317;
3480          V317= structure_ref((V315),VV[161],3);          V317= structure_ref((V315),VV[161],3);
# Line 3494  T1184:; Line 3494  T1184:;
3494          goto T1196;}          goto T1196;}
3495          V320= Cnil;          V320= Cnil;
3496          goto T1195;          goto T1195;
3497  goto T1196;          goto T1196;
3498  T1196:;  T1196:;
3499          V321= structure_ref((V315),VV[161],0);          V321= structure_ref((V315),VV[161],0);
3500          V320= make_cons(/* INLINE-ARGS */V321,Cnil);          V320= make_cons(/* INLINE-ARGS */V321,Cnil);
3501  goto T1195;          goto T1195;
3502  T1195:;  T1195:;
3503          V317= listA(3,V318,V319,V320);          V317= listA(3,V318,V319,V320);
3504          (void)(structure_set((V315),VV[161],3,(V317)));          (void)(structure_set((V315),VV[161],3,(V317)));
# Line 3511  T1195:; Line 3511  T1195:;
3511          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3512          (void) (*Lnk372)();          (void) (*Lnk372)();
3513          vs_top=sup;          vs_top=sup;
3514  goto T1186;          goto T1186;
3515  T1186:;  T1186:;
3516          {object V323= (V314);          {object V323= (V314);
3517          if((V323!= VV[5]))goto T1205;          if((V323!= VV[5]))goto T1205;
3518          V316= list(2,VV[5],(V316));          V316= list(2,VV[5],(V316));
3519          goto T1204;          goto T1204;
3520  goto T1205;          goto T1205;
3521  T1205:;  T1205:;
3522          if((V323!= VV[373]))goto T1207;          if((V323!= VV[373]))goto T1207;
3523          goto T1204;          goto T1204;
3524  goto T1207;          goto T1207;
3525  T1207:;  T1207:;
3526          if((V323!= VV[374]))goto T1208;          if((V323!= VV[374]))goto T1208;
3527          if(!(type_of((V316))==t_cons)){          if(!(type_of((V316))==t_cons)){
3528          goto T1209;}          goto T1209;}
3529          if((car((V316)))==(VV[5])){          if((car((V316)))==(VV[5])){
3530          goto T1204;}          goto T1204;}
3531  goto T1209;          goto T1209;
3532  T1209:;  T1209:;
3533          V316= list(2,VV[175],(V316));          V316= list(2,VV[175],(V316));
3534          goto T1204;          goto T1204;
3535  goto T1208;          goto T1208;
3536  T1208:;  T1208:;
3537          FEerror("The ECASE key value ~s is illegal.",1,V323);          FEerror("The ECASE key value ~s is illegal.",1,V323);
3538          goto T1204;}          goto T1204;}
3539  goto T1204;          goto T1204;
3540  T1204:;  T1204:;
3541          base[1]= list(3,VV[176],(V317),(V316));          base[1]= list(3,VV[176],(V317),(V316));
3542          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 3574  TTL:; Line 3574  TTL:;
3574          V328= vs_base[0];          V328= vs_base[0];
3575          vs_top=sup;          vs_top=sup;
3576          goto T1221;          goto T1221;
3577  goto T1219;          goto T1219;
3578  T1219:;  T1219:;
3579          V327= Cnil;          V327= Cnil;
3580  goto T1220;          goto T1220;
3581  T1220:;  T1220:;
3582          V328= Cnil;          V328= Cnil;
3583  goto T1221;          goto T1221;
3584  T1221:;  T1221:;
3585          base[3]= structure_ref((V327),VV[161],4);          base[3]= structure_ref((V327),VV[161],4);
3586          base[4]= (V325);          base[4]= (V325);
# Line 3595  T1221:; Line 3595  T1221:;
3595          if(V331==Cnil)goto T1233;          if(V331==Cnil)goto T1233;
3596          base[3]= V331;          base[3]= V331;
3597          goto T1232;          goto T1232;
3598  goto T1233;          goto T1233;
3599  T1233:;}  T1233:;}
3600          base[4]= VV[178];          base[4]= VV[178];
3601          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3602          (void) (*Lnk327)();          (void) (*Lnk327)();
3603          vs_top=sup;          vs_top=sup;
3604          base[3]= vs_base[0];          base[3]= vs_base[0];
3605  goto T1232;          goto T1232;
3606  T1232:;  T1232:;
3607          base[4]= Cnil;          base[4]= Cnil;
3608          base[5]= structure_ref((V327),VV[161],4);          base[5]= structure_ref((V327),VV[161],4);
# Line 3619  T1232:; Line 3619  T1232:;
3619          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3620          (void) (*Lnk372)();          (void) (*Lnk372)();
3621          vs_top=sup;          vs_top=sup;
3622  goto T1226;          goto T1226;
3623  T1226:;  T1226:;
3624          if(!(((V324))==(VV[179]))){          if(!(((V324))==(VV[179]))){
3625          goto T1243;}          goto T1243;}
# Line 3633  T1226:; Line 3633  T1226:;
3633          V334= vs_base[0];          V334= vs_base[0];
3634          base[3]= list(3,VV[8],(V328),list(3,VV[11],/* INLINE-ARGS */V333,V334));          base[3]= list(3,VV[8],(V328),list(3,VV[11],/* INLINE-ARGS */V333,V334));
3635          goto T1241;          goto T1241;
3636  goto T1243;          goto T1243;
3637  T1243:;  T1243:;
3638          V335= car((V329));          V335= car((V329));
3639          base[4]= Ct;          base[4]= Ct;
# Line 3644  T1243:; Line 3644  T1243:;
3644          vs_top=sup;          vs_top=sup;
3645          V336= vs_base[0];          V336= vs_base[0];
3646          base[3]= list(3,VV[11],/* INLINE-ARGS */V335,list(3,VV[181],V336,(V328)));          base[3]= list(3,VV[11],/* INLINE-ARGS */V335,list(3,VV[181],V336,(V328)));
3647  goto T1241;          goto T1241;
3648  T1241:;  T1241:;
3649          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3650          (void) (*Lnk364)();          (void) (*Lnk364)();
# Line 3677  TTL:; Line 3677  TTL:;
3677          V339= vs_base[0];          V339= vs_base[0];
3678          vs_top=sup;          vs_top=sup;
3679          goto T1259;          goto T1259;
3680  goto T1257;          goto T1257;
3681  T1257:;  T1257:;
3682          V338= Cnil;          V338= Cnil;
3683  goto T1258;          goto T1258;
3684  T1258:;  T1258:;
3685          V339= Cnil;          V339= Cnil;
3686  goto T1259;          goto T1259;
3687  T1259:;  T1259:;
3688          base[1]= structure_ref((V338),VV[161],4);          base[1]= structure_ref((V338),VV[161],4);
3689          base[2]= symbol_value(VV[183]);          base[2]= symbol_value(VV[183]);
# Line 3698  T1259:; Line 3698  T1259:;
3698          if(V341==Cnil)goto T1270;          if(V341==Cnil)goto T1270;
3699          base[1]= V341;          base[1]= V341;
3700          goto T1269;          goto T1269;
3701  goto T1270;          goto T1270;
3702  T1270:;}  T1270:;}
3703          base[2]= VV[184];          base[2]= VV[184];
3704          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3705          (void) (*Lnk327)();          (void) (*Lnk327)();
3706          vs_top=sup;          vs_top=sup;
3707          base[1]= vs_base[0];          base[1]= vs_base[0];
3708  goto T1269;          goto T1269;
3709  T1269:;  T1269:;
3710          base[2]= structure_ref((V338),VV[161],4);          base[2]= structure_ref((V338),VV[161],4);
3711          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
# Line 3719  T1269:; Line 3719  T1269:;
3719          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3720          (void) (*Lnk372)();          (void) (*Lnk372)();
3721          vs_top=sup;          vs_top=sup;
3722  goto T1264;          goto T1264;
3723  T1264:;  T1264:;
3724          base[1]= (V337);          base[1]= (V337);
3725          base[2]= (V340);          base[2]= (V340);
# Line 3759  TTL:; Line 3759  TTL:;
3759          vs_base=vs_top;          vs_base=vs_top;
3760          (void) (*Lnk362)();          (void) (*Lnk362)();
3761          vs_top=sup;          vs_top=sup;
3762  goto T1285;          goto T1285;
3763  T1285:;  T1285:;
3764          if(((V344))==Cnil){          if(((V344))==Cnil){
3765          goto T1292;}          goto T1292;}
3766          V346= VV[8];          V346= VV[8];
3767          goto T1290;          goto T1290;
3768  goto T1292;          goto T1292;
3769  T1292:;  T1292:;
3770          V346= VV[187];          V346= VV[187];
3771  goto T1290;          goto T1290;
3772  T1290:;  T1290:;
3773          base[3]= Cnil;          base[3]= Cnil;
3774          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 3802  TTL:; Line 3802  TTL:;
3802          vs_base=vs_top;          vs_base=vs_top;
3803          (void) (*Lnk362)();          (void) (*Lnk362)();
3804          vs_top=sup;          vs_top=sup;
3805  goto T1297;          goto T1297;
3806  T1297:;  T1297:;
3807          vs_base=vs_top;          vs_base=vs_top;
3808          (void) (*Lnk378)();          (void) (*Lnk378)();
# Line 3855  TTL:; Line 3855  TTL:;
3855          goto T1313;}          goto T1313;}
3856          V356= VV[8];          V356= VV[8];
3857          goto T1311;          goto T1311;
3858  goto T1313;          goto T1313;
3859  T1313:;  T1313:;
3860          V356= VV[187];          V356= VV[187];
3861  goto T1311;          goto T1311;
3862  T1311:;  T1311:;
3863          base[3]= list(3,V356,(V355),VV[188]);          base[3]= list(3,V356,(V355),VV[188]);
3864          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 3886  TTL:; Line 3886  TTL:;
3886          V357= Cnil;          V357= Cnil;
3887          V358= Cnil;          V358= Cnil;
3888          V359= Cnil;          V359= Cnil;
3889  goto T1318;          goto T1318;
3890  T1318:;  T1318:;
3891          vs_base=vs_top;          vs_base=vs_top;
3892          (void) (*Lnk350)();          (void) (*Lnk350)();
# Line 3912  T1318:; Line 3912  T1318:;
3912          vs_top=sup;          vs_top=sup;
3913          V358= vs_base[0];          V358= vs_base[0];
3914          goto T1327;          goto T1327;
3915  goto T1329;          goto T1329;
3916  T1329:;  T1329:;
3917          V358= Cnil;          V358= Cnil;
3918  goto T1327;          goto T1327;
3919  T1327:;  T1327:;
3920          base[0]= (V357);          base[0]= (V357);
3921          base[1]= (V358);          base[1]= (V358);
# Line 3934  T1327:; Line 3934  T1327:;
3934          (void) (*Lnk350)();          (void) (*Lnk350)();
3935          vs_top=sup;          vs_top=sup;
3936          goto T1338;          goto T1338;
3937  goto T1340;          goto T1340;
3938  T1340:;  T1340:;
3939          vs_base=vs_top;          vs_base=vs_top;
3940          (void) (*Lnk349)();          (void) (*Lnk349)();
3941          return;          return;
3942  goto T1338;          goto T1338;
3943  T1338:;  T1338:;
3944          goto T1318;}          goto T1318;}
3945  }  }
# Line 3975  TTL:; Line 3975  TTL:;
3975          V368= Cnil;          V368= Cnil;
3976          V369= Cnil;          V369= Cnil;
3977          V370= Cnil;          V370= Cnil;
3978  goto T1347;          goto T1347;
3979  T1347:;  T1347:;
3980          base[2]= car((V360));          base[2]= car((V360));
3981          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 3995  T1347:; Line 3995  T1347:;
3995          if((car((V369)))!=Cnil){          if((car((V369)))!=Cnil){
3996          goto T1357;}          goto T1357;}
3997          goto T1356;          goto T1356;
3998  goto T1357;          goto T1357;
3999  T1357:;  T1357:;
4000          {object V372;          {object V372;
4001          V372= car((V369));          V372= car((V369));
4002          V361= make_cons((V372),(V361));}          V361= make_cons((V372),(V361));}
4003  goto T1356;          goto T1356;
4004  T1356:;  T1356:;
4005          V369= cdr((V369));          V369= cdr((V369));
4006          base[1]= car((V369));          base[1]= car((V369));
# Line 4013  T1356:; Line 4013  T1356:;
4013          if((car((V369)))!=Cnil){          if((car((V369)))!=Cnil){
4014          goto T1367;}          goto T1367;}
4015          goto T1366;          goto T1366;
4016  goto T1367;          goto T1367;
4017  T1367:;  T1367:;
4018          {object V374;          {object V374;
4019          V374= car((V369));          V374= car((V369));
4020          V363= make_cons((V374),(V363));}          V363= make_cons((V374),(V363));}
4021  goto T1366;          goto T1366;
4022  T1366:;  T1366:;
4023          V369= cdr((V369));          V369= cdr((V369));
4024          base[1]= car((V369));          base[1]= car((V369));
# Line 4034  T1366:; Line 4034  T1366:;
4034          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4035          (void) (*Lnk347)();          (void) (*Lnk347)();
4036          vs_top=sup;          vs_top=sup;
4037  goto T1379;          goto T1379;
4038  T1379:;  T1379:;
4039          if(((V369))!=Cnil){          if(((V369))!=Cnil){
4040          goto T1383;}          goto T1383;}
4041          V369= (V370);          V369= (V370);
4042  goto T1383;          goto T1383;
4043  T1383:;  T1383:;
4044          if((car((V369)))==Cnil){          if((car((V369)))==Cnil){
4045          goto T1387;}          goto T1387;}
4046          {object V376;          {object V376;
4047          V376= car((V369));          V376= car((V369));
4048          V365= make_cons((V376),(V365));}          V365= make_cons((V376),(V365));}
4049  goto T1387;          goto T1387;
4050  T1387:;  T1387:;
4051          V369= cdr((V369));          V369= cdr((V369));
4052          base[1]= car((V369));          base[1]= car((V369));
# Line 4061  T1387:; Line 4061  T1387:;
4061          {object V378;          {object V378;
4062          V378= car((V369));          V378= car((V369));
4063          V367= make_cons((V378),(V367));}          V367= make_cons((V378),(V367));}
4064  goto T1397;          goto T1397;
4065  T1397:;  T1397:;
4066          base[1]= cadr((V369));          base[1]= cadr((V369));
4067          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 4124  T1397:; Line 4124  T1397:;
4124          base[1]= Cnil;          base[1]= Cnil;
4125          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4126          return;          return;
4127  goto T1407;          goto T1407;
4128  T1407:;  T1407:;
4129          vs_base=vs_top;          vs_base=vs_top;
4130          (void) (*Lnk350)();          (void) (*Lnk350)();
# Line 4143  T1407:; Line 4143  T1407:;
4143          (void) (*Lnk350)();          (void) (*Lnk350)();
4144          vs_top=sup;          vs_top=sup;
4145          V360= (V369);          V360= (V369);
4146  goto T1434;          goto T1434;
4147  T1434:;  T1434:;
4148          goto T1347;}          goto T1347;}
4149          }          }
# Line 4192  TTL:; Line 4192  TTL:;
4192          V392= vs_base[0];          V392= vs_base[0];
4193          if(((V392))!=Cnil){          if(((V392))!=Cnil){
4194          goto T1454;}          goto T1454;}
4195  goto T1455;          goto T1455;
4196  T1455:;  T1455:;
4197          base[3]= VV[194];          base[3]= VV[194];
4198          base[4]= (V390);          base[4]= (V390);
4199          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4200          (void) (*Lnk347)();          (void) (*Lnk347)();
4201          vs_top=sup;          vs_top=sup;
4202  goto T1454;          goto T1454;
4203  T1454:;  T1454:;
4204          base[3]= car((V392));          base[3]= car((V392));
4205          base[4]= (V388);          base[4]= (V388);
# Line 4251  TTL:; Line 4251  TTL:;
4251          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4252          goto T1473;}          goto T1473;}
4253          V395= cadr((V394));          V395= cadr((V394));
4254  goto T1473;          goto T1473;
4255  T1473:;  T1473:;
4256          {object V396;          {object V396;
4257          object V397;          object V397;
# Line 4270  T1473:; Line 4270  T1473:;
4270          V398= vs_base[0];          V398= vs_base[0];
4271          vs_top=sup;          vs_top=sup;
4272          goto T1489;          goto T1489;
4273  goto T1486;          goto T1486;
4274  T1486:;  T1486:;
4275          V396= Cnil;          V396= Cnil;
4276  goto T1487;          goto T1487;
4277  T1487:;  T1487:;
4278          V397= Cnil;          V397= Cnil;
4279  goto T1488;          goto T1488;
4280  T1488:;  T1488:;
4281          V398= Cnil;          V398= Cnil;
4282  goto T1489;          goto T1489;
4283  T1489:;  T1489:;
4284          if(((V397))==Cnil){          if(((V397))==Cnil){
4285          goto T1491;}          goto T1491;}
# Line 4288  T1489:; Line 4288  T1489:;
4288          base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V398),small_fixnum(0))<=0?Ct:Cnil),VV[196]);          base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V398),small_fixnum(0))<=0?Ct:Cnil),VV[196]);
4289          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4290          return;          return;
4291  goto T1491;          goto T1491;
4292  T1491:;  T1491:;
4293          {register object V399;          {register object V399;
4294          base[1]= VV[197];          base[1]= VV[197];
# Line 4308  T1491:; Line 4308  T1491:;
4308          base[0]= make_cons(/* INLINE-ARGS */V400,VV[200]);          base[0]= make_cons(/* INLINE-ARGS */V400,VV[200]);
4309          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4310          return;          return;
4311  goto T1501;          goto T1501;
4312  T1501:;  T1501:;
4313          V401= list(2,VV[201],list(3,VV[11],(V399),list(2,VV[199],(V399))));          V401= list(2,VV[201],list(3,VV[11],(V399),list(2,VV[199],(V399))));
4314          base[0]= make_cons(/* INLINE-ARGS */V401,VV[202]);          base[0]= make_cons(/* INLINE-ARGS */V401,VV[202]);
# Line 4384  TTL:; Line 4384  TTL:;
4384          base[3]= listA(7,Cnil,/* INLINE-ARGS */V406,Cnil,Cnil,Cnil,list(2,(V402),(V403)),VV[205]);          base[3]= listA(7,Cnil,/* INLINE-ARGS */V406,Cnil,Cnil,Cnil,list(2,(V402),(V403)),VV[205]);
4385          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4386          return;          return;
4387  goto T1513;          goto T1513;
4388  T1513:;  T1513:;
4389          base[3]= listA(3,Cnil,list(2,(V402),(V403)),VV[206]);          base[3]= listA(3,Cnil,list(2,(V402),(V403)),VV[206]);
4390          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 4442  TTL:; Line 4442  TTL:;
4442          V414= vs_base[0];          V414= vs_base[0];
4443          vs_top=sup;          vs_top=sup;
4444          goto T1533;          goto T1533;
4445  goto T1530;          goto T1530;
4446  T1530:;  T1530:;
4447          V412= Cnil;          V412= Cnil;
4448  goto T1531;          goto T1531;
4449  T1531:;  T1531:;
4450          V413= Cnil;          V413= Cnil;
4451  goto T1532;          goto T1532;
4452  T1532:;  T1532:;
4453          V414= Cnil;          V414= Cnil;
4454  goto T1533;          goto T1533;
4455  T1533:;  T1533:;
4456          base[3]= (V410);          base[3]= (V410);
4457          base[4]= (V412);          base[4]= (V412);
# Line 4461  T1533:; Line 4461  T1533:;
4461          goto T1539;}          goto T1539;}
4462          base[5]= cadr((V412));          base[5]= cadr((V412));
4463          goto T1537;          goto T1537;
4464  goto T1539;          goto T1539;
4465  T1539:;  T1539:;
4466          base[5]= VV[209];          base[5]= VV[209];
4467  goto T1537;          goto T1537;
4468  T1537:;  T1537:;
4469          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4470          (void) (*Lnk359)();          (void) (*Lnk359)();
# Line 4501  T1537:; Line 4501  T1537:;
4501          vs_top=sup;          vs_top=sup;
4502          V416= vs_base[0];          V416= vs_base[0];
4503          goto T1548;}          goto T1548;}
4504  goto T1550;          goto T1550;
4505  T1550:;  T1550:;
4506          V415= (long)length((V414));          V415= (long)length((V414));
4507          V416= make_fixnum(V415);          V416= make_fixnum(V415);
4508  goto T1548;          goto T1548;
4509  T1548:;  T1548:;
4510          V417= list(3,VV[213],(V411),(V416));          V417= list(3,VV[213],(V411),(V416));
4511          V418= (V417);          V418= (V417);
# Line 4517  T1548:; Line 4517  T1548:;
4517          if(!((V415)<=(1))){          if(!((V415)<=(1))){
4518          goto T1565;}          goto T1565;}
4519          V418= Ct;          V418= Ct;
4520  goto T1565;          goto T1565;
4521  T1565:;  T1565:;
4522          if(((((V417))==((V418))?Ct:Cnil))==Cnil){          if(((((V417))==((V418))?Ct:Cnil))==Cnil){
4523          goto T1574;}          goto T1574;}
4524          V423= Cnil;          V423= Cnil;
4525          goto T1573;          goto T1573;
4526  goto T1574;          goto T1574;
4527  T1574:;  T1574:;
4528          V423= list(4,(V417),(V419),Cnil,(V420));          V423= list(4,(V417),(V419),Cnil,(V420));
4529  goto T1573;          goto T1573;
4530  T1573:;  T1573:;
4531          base[7]= listA(5,(V418),(V419),Cnil,(V420),V423);          base[7]= listA(5,(V418),(V419),Cnil,(V420),V423);
4532          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 4561  TTL:; Line 4561  TTL:;
4561          vs_top=sup;          vs_top=sup;
4562          V425= vs_base[0];          V425= vs_base[0];
4563          goto T1576;          goto T1576;
4564  goto T1578;          goto T1578;
4565  T1578:;  T1578:;
4566          V425= VV[216];          V425= VV[216];
4567  goto T1576;          goto T1576;
4568  T1576:;  T1576:;
4569          if(!(type_of((V425))==t_cons)){          if(!(type_of((V425))==t_cons)){
4570          goto T1584;}          goto T1584;}
# Line 4578  T1576:; Line 4578  T1576:;
4578          base[2]= Cnil;          base[2]= Cnil;
4579          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4580          return;          return;
4581  goto T1584;          goto T1584;
4582  T1584:;  T1584:;
4583          if(!(type_of((V425))==t_cons)){          if(!(type_of((V425))==t_cons)){
4584          goto T1593;}          goto T1593;}
# Line 4588  T1584:; Line 4588  T1584:;
4588          base[2]= cadr((V425));          base[2]= cadr((V425));
4589          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
4590          return;          return;
4591  goto T1593;          goto T1593;
4592  T1593:;  T1593:;
4593          base[3]= VV[220];          base[3]= VV[220];
4594          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 4639  TTL:; Line 4639  TTL:;
4639          V432= vs_base[0];          V432= vs_base[0];
4640          vs_top=sup;          vs_top=sup;
4641          goto T1611;          goto T1611;
4642  goto T1608;          goto T1608;
4643  T1608:;  T1608:;
4644          V430= Cnil;          V430= Cnil;
4645  goto T1609;          goto T1609;
4646  T1609:;  T1609:;
4647          V431= Cnil;          V431= Cnil;
4648  goto T1610;          goto T1610;
4649  T1610:;  T1610:;
4650          V432= Cnil;          V432= Cnil;
4651  goto T1611;          goto T1611;
4652  T1611:;  T1611:;
4653          {register object V433;          {register object V433;
4654          V433= (V427);          V433= (V427);
# Line 4663  T1611:; Line 4663  T1611:;
4663          (void) (*Lnk380)();          (void) (*Lnk380)();
4664          vs_top=sup;          vs_top=sup;
4665          goto T1612;          goto T1612;
4666  goto T1614;          goto T1614;
4667  T1614:;  T1614:;
4668          vs_base=vs_top;          vs_base=vs_top;
4669          (void) (*Lnk327)();          (void) (*Lnk327)();
# Line 4681  T1614:; Line 4681  T1614:;
4681          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4682          (void) (*Lnk380)();          (void) (*Lnk380)();
4683          vs_top=sup;          vs_top=sup;
4684  goto T1612;          goto T1612;
4685  T1612:;  T1612:;
4686          {object V434;          {object V434;
4687          object V435;          object V435;
# Line 4695  T1612:; Line 4695  T1612:;
4695          V435= vs_base[0];          V435= vs_base[0];
4696          vs_top=sup;          vs_top=sup;
4697          goto T1633;          goto T1633;
4698  goto T1631;          goto T1631;
4699  T1631:;  T1631:;
4700          V434= Cnil;          V434= Cnil;
4701  goto T1632;          goto T1632;
4702  T1632:;  T1632:;
4703          V435= Cnil;          V435= Cnil;
4704  goto T1633;          goto T1633;
4705  T1633:;  T1633:;
4706          {register object V436;          {register object V436;
4707          object V437;          object V437;
# Line 4718  T1633:; Line 4718  T1633:;
4718          if(!(type_of((V432))==t_cons||((V432))==Cnil)){          if(!(type_of((V432))==t_cons||((V432))==Cnil)){
4719          goto T1639;}          goto T1639;}
4720          V436= (((V432))==Cnil?Ct:Cnil);          V436= (((V432))==Cnil?Ct:Cnil);
4721  goto T1639;          goto T1639;
4722  T1639:;  T1639:;
4723          if(!(((V427))==((V433)))){          if(!(((V427))==((V433)))){
4724          goto T1646;}          goto T1646;}
# Line 4732  T1639:; Line 4732  T1639:;
4732          base[4]= list(8,Cnil,list(2,(V433),V438),(V437),Cnil,Cnil,Cnil,(V436),Cnil);          base[4]= list(8,Cnil,list(2,(V433),V438),(V437),Cnil,Cnil,Cnil,(V436),Cnil);
4733          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4734          return;          return;
4735  goto T1646;          goto T1646;
4736  T1646:;  T1646:;
4737          {object V439;          {object V439;
4738          object V440;          object V440;
# Line 4742  T1646:; Line 4742  T1646:;
4742          goto T1655;}          goto T1655;}
4743          V441= Cnil;          V441= Cnil;
4744          goto T1654;          goto T1654;
4745  goto T1655;          goto T1655;
4746  T1655:;  T1655:;
4747          V441= list(4,(V436),(V439),Cnil,(V440));          V441= list(4,(V436),(V439),Cnil,(V440));
4748  goto T1654;          goto T1654;
4749  T1654:;  T1654:;
4750          base[4]= listA(5,(V437),(V439),Cnil,(V440),V441);          base[4]= listA(5,(V437),(V439),Cnil,(V440),V441);
4751          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 4784  TTL:; Line 4784  TTL:;
4784          V447= vs_base[0];          V447= vs_base[0];
4785          vs_top=sup;          vs_top=sup;
4786          goto T1662;          goto T1662;
4787  goto T1659;          goto T1659;
4788  T1659:;  T1659:;
4789          V445= Cnil;          V445= Cnil;
4790  goto T1660;          goto T1660;
4791  T1660:;  T1660:;
4792          V446= Cnil;          V446= Cnil;
4793  goto T1661;          goto T1661;
4794  T1661:;  T1661:;
4795          V447= Cnil;          V447= Cnil;
4796  goto T1662;          goto T1662;
4797  T1662:;  T1662:;
4798          {register object V448;          {register object V448;
4799          base[3]= VV[222];          base[3]= VV[222];
# Line 4825  T1662:; Line 4825  T1662:;
4825          V450= vs_base[0];          V450= vs_base[0];
4826          vs_top=sup;          vs_top=sup;
4827          goto T1677;          goto T1677;
4828  goto T1675;          goto T1675;
4829  T1675:;  T1675:;
4830          V449= Cnil;          V449= Cnil;
4831  goto T1676;          goto T1676;
4832  T1676:;  T1676:;
4833          V450= Cnil;          V450= Cnil;
4834  goto T1677;          goto T1677;
4835  T1677:;  T1677:;
4836          {register object V451;          {register object V451;
4837          object V452;          object V452;
# Line 4846  T1677:; Line 4846  T1677:;
4846          if(!(type_of((V447))==t_cons||((V447))==Cnil)){          if(!(type_of((V447))==t_cons||((V447))==Cnil)){
4847          goto T1682;}          goto T1682;}
4848          V451= (((V447))==Cnil?Ct:Cnil);          V451= (((V447))==Cnil?Ct:Cnil);
4849  goto T1682;          goto T1682;
4850  T1682:;  T1682:;
4851          if(((((V451))==((V452))?Ct:Cnil))==Cnil){          if(((((V451))==((V452))?Ct:Cnil))==Cnil){
4852          goto T1689;}          goto T1689;}
4853          V455= Cnil;          V455= Cnil;
4854          goto T1688;          goto T1688;
4855  goto T1689;          goto T1689;
4856  T1689:;  T1689:;
4857          V455= list(4,(V451),(V453),Cnil,(V454));          V455= list(4,(V451),(V453),Cnil,(V454));
4858  goto T1688;          goto T1688;
4859  T1688:;  T1688:;
4860          base[6]= listA(5,(V452),(V453),Cnil,(V454),V455);          base[6]= listA(5,(V452),(V453),Cnil,(V454),V455);
4861          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 4916  static void L92() Line 4916  static void L92()
4916          if(type_of((V461))==t_cons||((V461))==Cnil){          if(type_of((V461))==t_cons||((V461))==Cnil){
4917          goto T1697;}          goto T1697;}
4918          V461= make_cons((V461),Cnil);          V461= make_cons((V461),Cnil);
4919  goto T1697;          goto T1697;
4920  T1697:;  T1697:;
4921          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
4922          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
4923  goto T1703;          goto T1703;
4924  T1703:;  T1703:;
4925          base[11]= (V463);          base[11]= (V463);
4926          base[12]= VV[39];          base[12]= VV[39];
# Line 4932  T1703:; Line 4932  T1703:;
4932          bds_unwind1;          bds_unwind1;
4933          bds_unwind1;          bds_unwind1;
4934          goto T1701;          goto T1701;
4935  goto T1704;          goto T1704;
4936  T1704:;  T1704:;
4937          base[11]= VV[47];          base[11]= VV[47];
4938          base[12]= VV[48];          base[12]= VV[48];
# Line 4962  T1704:; Line 4962  T1704:;
4962          Lformat();          Lformat();
4963          vs_top=sup;          vs_top=sup;
4964          goto T1703;          goto T1703;
4965  goto T1701;          goto T1701;
4966  T1701:;  T1701:;
4967          {object V467;          {object V467;
4968          object V468;          object V468;
# Line 4974  T1701:; Line 4974  T1701:;
4974          base[10]= Cnil;          base[10]= Cnil;
4975          goto T1732;}          goto T1732;}
4976          base[11]=V469=MMcons(Cnil,Cnil);          base[11]=V469=MMcons(Cnil,Cnil);
4977  goto T1733;          goto T1733;
4978  T1733:;  T1733:;
4979          (V469->c.c_car)= symbol_name((V470->c.c_car));          (V469->c.c_car)= symbol_name((V470->c.c_car));
4980          V470=MMcdr(V470);          V470=MMcdr(V470);
# Line 4983  T1733:; Line 4983  T1733:;
4983          goto T1732;}          goto T1732;}
4984          V469=MMcdr(V469)=MMcons(Cnil,Cnil);          V469=MMcdr(V469)=MMcons(Cnil,Cnil);
4985          goto T1733;}          goto T1733;}
4986  goto T1732;          goto T1732;
4987  T1732:;  T1732:;
4988          base[11]= VV[227];          base[11]= VV[227];
4989          base[12]= (V462);          base[12]= (V462);
# Line 4996  T1732:; Line 4996  T1732:;
4996          base[16]= Cnil;          base[16]= Cnil;
4997          goto T1740;}          goto T1740;}
4998          base[17]=V471=MMcons(Cnil,Cnil);          base[17]=V471=MMcons(Cnil,Cnil);
4999  goto T1741;          goto T1741;
5000  T1741:;  T1741:;
5001          if(!(type_of((V472->c.c_car))==t_cons||((V472->c.c_car))==Cnil)){          if(!(type_of((V472->c.c_car))==t_cons||((V472->c.c_car))==Cnil)){
5002          goto T1744;}          goto T1744;}
5003          (V471->c.c_car)= (V472->c.c_car);          (V471->c.c_car)= (V472->c.c_car);
5004          goto T1742;          goto T1742;
5005  goto T1744;          goto T1744;
5006  T1744:;  T1744:;
5007          (V471->c.c_car)= make_cons((V472->c.c_car),Cnil);          (V471->c.c_car)= make_cons((V472->c.c_car),Cnil);
5008  goto T1742;          goto T1742;
5009  T1742:;  T1742:;
5010          V472=MMcdr(V472);          V472=MMcdr(V472);
5011          if(endp(V472)){          if(endp(V472)){
# Line 5013  T1742:; Line 5013  T1742:;
5013          goto T1740;}          goto T1740;}
5014          V471=MMcdr(V471)=MMcons(Cnil,Cnil);          V471=MMcdr(V471)=MMcons(Cnil,Cnil);
5015          goto T1741;}          goto T1741;}
5016  goto T1740;          goto T1740;
5017  T1740:;  T1740:;
5018          base[17]= VV[230];          base[17]= VV[230];
5019          base[18]= (V465);          base[18]= (V465);
# Line 5025  T1740:; Line 5025  T1740:;
5025          register object V475;          register object V475;
5026          V474= (V461);          V474= (V461);
5027          V475= car((V474));          V475= car((V474));
5028  goto T1752;          goto T1752;
5029  T1752:;  T1752:;
5030          if(!(endp_prop((V474)))){          if(!(endp_prop((V474)))){
5031          goto T1753;}          goto T1753;}
5032          goto T1748;          goto T1748;
5033  goto T1753;          goto T1753;
5034  T1753:;  T1753:;
5035          {register object V476;          {register object V476;
5036          register object V477;          register object V477;
# Line 5047  T1753:; Line 5047  T1753:;
5047          V474= cdr((V474));          V474= cdr((V474));
5048          V475= car((V474));          V475= car((V474));
5049          goto T1752;}          goto T1752;}
5050  goto T1748;          goto T1748;
5051  T1748:;  T1748:;
5052          base[9]= (V468);          base[9]= (V468);
5053          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 5092  TTL:; Line 5092  TTL:;
5092          vs_top=sup;          vs_top=sup;
5093          V482= vs_base[0];          V482= vs_base[0];
5094          goto T1769;          goto T1769;
5095  goto T1771;          goto T1771;
5096  T1771:;  T1771:;
5097          base[3]= car(symbol_value(VV[89]));          base[3]= car(symbol_value(VV[89]));
5098          base[4]= VV[155];          base[4]= VV[155];
# Line 5117  T1771:; Line 5117  T1771:;
5117          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5118          (void) (*Lnk347)();          (void) (*Lnk347)();
5119          vs_top=sup;          vs_top=sup;
5120  goto T1784;          goto T1784;
5121  T1784:;  T1784:;
5122          vs_base=vs_top;          vs_base=vs_top;
5123          (void) (*Lnk350)();          (void) (*Lnk350)();
# Line 5129  T1784:; Line 5129  T1784:;
5129          V487= list(2,VV[234],(V480));          V487= list(2,VV[234],(V480));
5130          V486= make_cons(/* INLINE-ARGS */V487,Cnil);          V486= make_cons(/* INLINE-ARGS */V487,Cnil);
5131          goto T1769;          goto T1769;
5132  goto T1777;          goto T1777;
5133  T1777:;  T1777:;
5134          base[3]= VV[235];          base[3]= VV[235];
5135          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
5136          (void) (*Lnk347)();          (void) (*Lnk347)();
5137          vs_top=sup;          vs_top=sup;
5138  goto T1769;          goto T1769;
5139  T1769:;  T1769:;
5140          if(type_of((V482))==t_symbol){          if(type_of((V482))==t_symbol){
5141          goto T1798;}          goto T1798;}
# Line 5145  T1769:; Line 5145  T1769:;
5145          (void) (*Lnk347)();          (void) (*Lnk347)();
5146          vs_top=sup;          vs_top=sup;
5147          goto T1796;          goto T1796;
5148  goto T1798;          goto T1798;
5149  T1798:;  T1798:;
5150          base[3]= (V482);          base[3]= (V482);
5151          base[4]= structure_ref(symbol_value(VV[97]),VV[39],3);          base[4]= structure_ref(symbol_value(VV[97]),VV[39],3);
# Line 5161  T1798:; Line 5161  T1798:;
5161          (void) (*Lnk347)();          (void) (*Lnk347)();
5162          vs_top=sup;          vs_top=sup;
5163          goto T1796;          goto T1796;
5164  goto T1803;          goto T1803;
5165  T1803:;  T1803:;
5166          if(((V484))==Cnil){          if(((V484))==Cnil){
5167          goto T1796;}          goto T1796;}
# Line 5172  T1803:; Line 5172  T1803:;
5172          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5173          (void) (*Lnk347)();          (void) (*Lnk347)();
5174          vs_top=sup;          vs_top=sup;
5175  goto T1796;          goto T1796;
5176  T1796:;  T1796:;
5177          {object V488;          {object V488;
5178          object V489;          object V489;
# Line 5193  T1796:; Line 5193  T1796:;
5193          Lsymbol_function();          Lsymbol_function();
5194          vs_top=sup;          vs_top=sup;
5195          V488= vs_base[0];          V488= vs_base[0];
5196  goto T1823;          goto T1823;
5197  T1823:;  T1823:;
5198          if(((V484))==Cnil){          if(((V484))==Cnil){
5199          goto T1830;}          goto T1830;}
# Line 5213  T1823:; Line 5213  T1823:;
5213          vs_top=sup;          vs_top=sup;
5214          V485= vs_base[0];          V485= vs_base[0];
5215          goto T1828;          goto T1828;
5216  goto T1830;          goto T1830;
5217  T1830:;  T1830:;
5218          base[3]= (V488);          base[3]= (V488);
5219          base[4]= (V479);          base[4]= (V479);
# Line 5228  T1830:; Line 5228  T1830:;
5228          super_funcall_no_event(base[3]);          super_funcall_no_event(base[3]);
5229          vs_top=sup;          vs_top=sup;
5230          V485= vs_base[0];          V485= vs_base[0];
5231  goto T1828;          goto T1828;
5232  T1828:;}  T1828:;}
5233          if((symbol_value(VV[102]))==Cnil){          if((symbol_value(VV[102]))==Cnil){
5234          goto T1844;}          goto T1844;}
# Line 5237  T1828:;} Line 5237  T1828:;}
5237          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5238          (void) (*Lnk347)();          (void) (*Lnk347)();
5239          vs_top=sup;          vs_top=sup;
5240  goto T1844;          goto T1844;
5241  T1844:;  T1844:;
5242          V495 = make_fixnum((long)length((V485)));          V495 = make_fixnum((long)length((V485)));
5243          {register object x= V495,V494= VV[241];          {register object x= V495,V494= VV[241];
# Line 5250  T1844:; Line 5250  T1844:;
5250          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
5251          (void) (*Lnk347)();          (void) (*Lnk347)();
5252          vs_top=sup;          vs_top=sup;
5253  goto T1849;          goto T1849;
5254  T1849:;  T1849:;
5255          {register object V496;          {register object V496;
5256          register object V497;          register object V497;
5257          V496= car((V485));          V496= car((V485));
5258          V497= Cnil;          V497= Cnil;
5259  goto T1857;          goto T1857;
5260  T1857:;  T1857:;
5261          if(((V496))!=Cnil){          if(((V496))!=Cnil){
5262          goto T1858;}          goto T1858;}
5263          goto T1854;          goto T1854;
5264  goto T1858;          goto T1858;
5265  T1858:;  T1858:;
5266          V497= car((V496));          V497= car((V496));
5267          if(!(type_of((V497))!=t_cons)){          if(!(type_of((V497))!=t_cons)){
# Line 5273  T1858:; Line 5273  T1858:;
5273          (void) (*Lnk380)();          (void) (*Lnk380)();
5274          vs_top=sup;          vs_top=sup;
5275          goto T1862;          goto T1862;
5276  goto T1864;          goto T1864;
5277  T1864:;  T1864:;
5278          base[3]= car((V497));          base[3]= car((V497));
5279          base[4]= cadr((V497));          base[4]= cadr((V497));
# Line 5281  T1864:; Line 5281  T1864:;
5281          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
5282          (void) (*Lnk380)();          (void) (*Lnk380)();
5283          vs_top=sup;          vs_top=sup;
5284  goto T1862;          goto T1862;
5285  T1862:;  T1862:;
5286          V496= cdr((V496));          V496= cdr((V496));
5287          goto T1857;}          goto T1857;}
5288  goto T1854;          goto T1854;
5289  T1854:;  T1854:;
5290          V498= reverse(cadr((V485)));          V498= reverse(cadr((V485)));
5291          setq(VV[106],nconc(/* INLINE-ARGS */V498,symbol_value(VV[106])));          setq(VV[106],nconc(/* INLINE-ARGS */V498,symbol_value(VV[106])));
# Line 5322  TTL:; Line 5322  TTL:;
5322          base[2]= Cnil;          base[2]= Cnil;
5323          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5324          return;          return;
5325  goto T1882;          goto T1882;
5326  T1882:;  T1882:;
5327          setq(VV[102],(VFUN_NARGS=2,(*(LnkLI386))((V500),symbol_value(VV[102]))));          setq(VV[102],(VFUN_NARGS=2,(*(LnkLI386))((V500),symbol_value(VV[102]))));
5328          base[1]= cdr((V500));          base[1]= cdr((V500));
# Line 5351  static void L95() Line 5351  static void L95()
5351          V503=(base[2]);          V503=(base[2]);
5352          vs_top=sup;          vs_top=sup;
5353          goto T1892;          goto T1892;
5354  goto T1890;          goto T1890;
5355  T1890:;  T1890:;
5356          V502= Cnil;          V502= Cnil;
5357  goto T1891;          goto T1891;
5358  T1891:;  T1891:;
5359          V503= Cnil;          V503= Cnil;
5360  goto T1892;          goto T1892;
5361  T1892:;  T1892:;
5362          base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata);          base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata);
5363          base[3]=MMcons(base[3],Cnil);          base[3]=MMcons(base[3],Cnil);
# Line 5373  T1892:; Line 5373  T1892:;
5373          V508= Cnil;          V508= Cnil;
5374          goto T1895;}          goto T1895;}
5375          base[4]=V510=MMcons(Cnil,Cnil);          base[4]=V510=MMcons(Cnil,Cnil);
5376  goto T1896;          goto T1896;
5377  T1896:;  T1896:;
5378          V513= car((V511->c.c_car));          V513= car((V511->c.c_car));
5379          V514= (base[3]->c.c_car);          V514= (base[3]->c.c_car);
# Line 5389  T1896:; Line 5389  T1896:;
5389          V508= base[4];          V508= base[4];
5390          goto T1895;}          goto T1895;}
5391          goto T1896;}          goto T1896;}
5392  goto T1895;          goto T1895;
5393  T1895:;  T1895:;
5394          {object V515;          {object V515;
5395          object V516= (V503);          object V516= (V503);
# Line 5397  T1895:; Line 5397  T1895:;
5397          V509= Cnil;          V509= Cnil;
5398          goto T1900;}          goto T1900;}
5399          base[4]=V515=MMcons(Cnil,Cnil);          base[4]=V515=MMcons(Cnil,Cnil);
5400  goto T1901;          goto T1901;
5401  T1901:;  T1901:;
5402          (V515->c.c_car)= car((V516->c.c_car));          (V515->c.c_car)= car((V516->c.c_car));
5403          V516=MMcdr(V516);          V516=MMcdr(V516);
# Line 5406  T1901:; Line 5406  T1901:;
5406          goto T1900;}          goto T1900;}
5407          V515=MMcdr(V515)=MMcons(Cnil,Cnil);          V515=MMcdr(V515)=MMcons(Cnil,Cnil);
5408          goto T1901;}          goto T1901;}
5409  goto T1900;          goto T1900;
5410  T1900:;  T1900:;
5411          V504= Cnil;          V504= Cnil;
5412          V505= (V503);          V505= (V503);
5413          V506= Cnil;          V506= Cnil;
5414          V507= Cnil;          V507= Cnil;
5415  goto T1904;          goto T1904;
5416  T1904:;  T1904:;
5417          if((symbol_value(VV[89]))!=Cnil){          if((symbol_value(VV[89]))!=Cnil){
5418          goto T1905;}          goto T1905;}
5419          base[4]= nreverse((V505));          base[4]= nreverse((V505));
5420          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5421          return;          return;
5422  goto T1905;          goto T1905;
5423  T1905:;  T1905:;
5424          V504= car(symbol_value(VV[89]));          V504= car(symbol_value(VV[89]));
5425          {register object V517;          {register object V517;
5426          register object V518;          register object V518;
5427          V517= (V501);          V517= (V501);
5428          V518= car((V517));          V518= car((V517));
5429  goto T1915;          goto T1915;
5430  T1915:;  T1915:;
5431          if(!(endp_prop((V517)))){          if(!(endp_prop((V517)))){
5432          goto T1916;}          goto T1916;}
5433          goto T1911;          goto T1911;
5434  goto T1916;          goto T1916;
5435  T1916:;  T1916:;
5436          base[5]= (V504);          base[5]= (V504);
5437          base[6]= (V518);          base[6]= (V518);
# Line 5443  T1916:; Line 5443  T1916:;
5443          goto T1920;}          goto T1920;}
5444          V506= (V518);          V506= (V518);
5445          goto T1911;          goto T1911;
5446  goto T1920;          goto T1920;
5447  T1920:;  T1920:;
5448          V517= cdr((V517));          V517= cdr((V517));
5449          V518= car((V517));          V518= car((V517));
5450          goto T1915;}          goto T1915;}
5451  goto T1911;          goto T1911;
5452  T1911:;  T1911:;
5453          if(((V506))==Cnil){          if(((V506))==Cnil){
5454          goto T1934;}          goto T1934;}
# Line 5458  T1911:; Line 5458  T1911:;
5458          goto T1938;          goto T1938;
5459          }else V519=V519->c.c_cdr;          }else V519=V519->c.c_cdr;
5460          goto T1936;}          goto T1936;}
5461  goto T1938;          goto T1938;
5462  T1938:;  T1938:;
5463          {register object x= (V507),V520= (V509);          {register object x= (V507),V520= (V509);
5464          while(!endp(V520))          while(!endp(V520))
# Line 5466  T1938:; Line 5466  T1938:;
5466          goto T1942;          goto T1942;
5467          }else V520=V520->c.c_cdr;          }else V520=V520->c.c_cdr;
5468          goto T1941;}          goto T1941;}
5469  goto T1942;          goto T1942;
5470  T1942:;  T1942:;
5471          base[4]= VV[243];          base[4]= VV[243];
5472          goto T1939;          goto T1939;
5473  goto T1941;          goto T1941;
5474  T1941:;  T1941:;
5475          base[4]= VV[244];          base[4]= VV[244];
5476  goto T1939;          goto T1939;
5477  T1939:;  T1939:;
5478          base[5]= (V504);          base[5]= (V504);
5479          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5480          (void) (*Lnk347)();          (void) (*Lnk347)();
5481          vs_top=sup;          vs_top=sup;
5482  goto T1936;          goto T1936;
5483  T1936:;  T1936:;
5484          if(!(type_of((V506))==t_cons||((V506))==Cnil)){          if(!(type_of((V506))==t_cons||((V506))==Cnil)){
5485          goto T1947;}          goto T1947;}
5486          V509= append((V506),(V509));          V509= append((V506),(V509));
5487          goto T1945;          goto T1945;
5488  goto T1947;          goto T1947;
5489  T1947:;  T1947:;
5490          V509= make_cons((V506),(V509));          V509= make_cons((V506),(V509));
5491  goto T1945;          goto T1945;
5492  T1945:;  T1945:;
5493          vs_base=vs_top;          vs_base=vs_top;
5494          (void) (*Lnk350)();          (void) (*Lnk350)();
# Line 5501  T1945:; Line 5501  T1945:;
5501          V521= list(2,(V507),V522);          V521= list(2,(V507),V522);
5502          V505= make_cons((V521),(V505));          V505= make_cons((V521),(V505));
5503          goto T1932;}          goto T1932;}
5504  goto T1934;          goto T1934;
5505  T1934:;  T1934:;
5506          if(((V502))==Cnil){          if(((V502))==Cnil){
5507          goto T1954;}          goto T1954;}
# Line 5522  T1934:; Line 5522  T1934:;
5522          vs_top=sup;          vs_top=sup;
5523          V523= vs_base[0];          V523= vs_base[0];
5524          V524= Cnil;          V524= Cnil;
5525  goto T1963;          goto T1963;
5526  T1963:;  T1963:;
5527          if(type_of((V523))!=t_cons){          if(type_of((V523))!=t_cons){
5528          goto T1967;}          goto T1967;}
# Line 5536  T1963:; Line 5536  T1963:;
5536          goto T1966;}          goto T1966;}
5537          if(type_of(cadr((V523)))==t_symbol){          if(type_of(cadr((V523)))==t_symbol){
5538          goto T1966;}          goto T1966;}
5539  goto T1967;          goto T1967;
5540  T1967:;  T1967:;
5541          base[4]= VV[246];          base[4]= VV[246];
5542          base[5]= (V523);          base[5]= (V523);
5543          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
5544          (void) (*Lnk347)();          (void) (*Lnk347)();
5545          vs_top=sup;          vs_top=sup;
5546  goto T1966;          goto T1966;
5547  T1966:;  T1966:;
5548          if((cadr((V523)))==Cnil){          if((cadr((V523)))==Cnil){
5549          goto T1981;}          goto T1981;}
# Line 5563  T1966:; Line 5563  T1966:;
5563          (void) (*Lnk347)();          (void) (*Lnk347)();
5564          vs_top=sup;          vs_top=sup;
5565          goto T1981;          goto T1981;
5566  goto T1985;          goto T1985;
5567  T1985:;  T1985:;
5568          {object V525;          {object V525;
5569          V525= make_cons(car((V523)),cadr((V523)));          V525= make_cons(car((V523)),cadr((V523)));
5570          setq(VV[102],make_cons((V525),symbol_value(VV[102])));}          setq(VV[102],make_cons((V525),symbol_value(VV[102])));}
5571  goto T1981;          goto T1981;
5572  T1981:;  T1981:;
5573          if((symbol_value(VV[89]))==Cnil){          if((symbol_value(VV[89]))==Cnil){
5574          goto T1997;}          goto T1997;}
5575          if(!(type_of(car(symbol_value(VV[89])))==t_symbol)){          if(!(type_of(car(symbol_value(VV[89])))==t_symbol)){
5576          goto T1996;}          goto T1996;}
5577  goto T1997;          goto T1997;
5578  T1997:;  T1997:;
5579          goto T1932;          goto T1932;
5580  goto T1996;          goto T1996;
5581  T1996:;  T1996:;
5582          vs_base=vs_top;          vs_base=vs_top;
5583          (void) (*Lnk350)();          (void) (*Lnk350)();
5584          vs_top=sup;          vs_top=sup;
5585          V523= vs_base[0];          V523= vs_base[0];
5586          goto T1963;}          goto T1963;}
5587  goto T1954;          goto T1954;
5588  T1954:;  T1954:;
5589          base[4]= nreverse((V505));          base[4]= nreverse((V505));
5590          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5591          return;          return;
5592  goto T1932;          goto T1932;
5593  T1932:;  T1932:;
5594          V506= Cnil;          V506= Cnil;
5595          V507= Cnil;          V507= Cnil;
# Line 5649  TTL:; Line 5649  TTL:;
5649          if(V552==Cnil)goto T2010;          if(V552==Cnil)goto T2010;
5650          V551= V552;          V551= V552;
5651          goto T2009;          goto T2009;
5652  goto T2010;          goto T2010;
5653  T2010:;}  T2010:;}
5654          V551= small_fixnum(0);          V551= small_fixnum(0);
5655  goto T2009;          goto T2009;
5656  T2009:;  T2009:;
5657          V540= one_plus(V551);          V540= one_plus(V551);
5658          V536= Cnil;          V536= Cnil;
# Line 5677  T2009:; Line 5677  T2009:;
5677          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5678          (void) (*Lnk380)();          (void) (*Lnk380)();
5679          vs_top=sup;          vs_top=sup;
5680  goto T2013;          goto T2013;
5681  T2013:;  T2013:;
5682          {register object V553;          {register object V553;
5683          register object V554;          register object V554;
# Line 5687  T2013:; Line 5687  T2013:;
5687          V554= Cnil;          V554= Cnil;
5688          V555= Cnil;          V555= Cnil;
5689          V556= Cnil;          V556= Cnil;
5690  goto T2021;          goto T2021;
5691  T2021:;  T2021:;
5692          if(((V553))!=Cnil){          if(((V553))!=Cnil){
5693          goto T2022;}          goto T2022;}
5694          goto T2019;          goto T2019;
5695  goto T2022;          goto T2022;
5696  T2022:;  T2022:;
5697          V554= caar((V553));          V554= caar((V553));
5698          V555= cadar((V553));          V555= cadar((V553));
# Line 5707  T2022:; Line 5707  T2022:;
5707          (void) (*Lnk359)();          (void) (*Lnk359)();
5708          vs_top=sup;          vs_top=sup;
5709          goto T2030;          goto T2030;
5710  goto T2031;          goto T2031;
5711  T2031:;  T2031:;
5712          if((V557!= VV[388])          if((V557!= VV[388])
5713          && (V557!= VV[248])          && (V557!= VV[248])
# Line 5717  T2031:; Line 5717  T2031:;
5717          goto T2042;}          goto T2042;}
5718          V543= VV[249];          V543= VV[249];
5719          goto T2040;          goto T2040;
5720  goto T2042;          goto T2042;
5721  T2042:;  T2042:;
5722          if(!(((V554))==(VV[250]))){          if(!(((V554))==(VV[250]))){
5723          goto T2040;}          goto T2040;}
5724          V543= VV[251];          V543= VV[251];
5725  goto T2040;          goto T2040;
5726  T2040:;  T2040:;
5727          base[10]= (V555);          base[10]= (V555);
5728          base[11]= (V527);          base[11]= (V527);
# Line 5750  T2040:; Line 5750  T2040:;
5750          (void) (*Lnk380)();          (void) (*Lnk380)();
5751          vs_top=sup;          vs_top=sup;
5752          goto T2030;          goto T2030;
5753  goto T2037;          goto T2037;
5754  T2037:;  T2037:;
5755          if((V557!= VV[252])          if((V557!= VV[252])
5756          && (V557!= VV[253])          && (V557!= VV[253])
# Line 5767  T2037:; Line 5767  T2037:;
5767          V543= VV[251];          V543= VV[251];
5768          V544= VV[251];          V544= VV[251];
5769          goto T2056;          goto T2056;
5770  goto T2058;          goto T2058;
5771  T2058:;  T2058:;
5772          base[10]= (V554);          base[10]= (V554);
5773          base[11]= VV[253];          base[11]= VV[253];
# Line 5778  T2058:; Line 5778  T2058:;
5778          goto T2065;}          goto T2065;}
5779          V544= Ct;          V544= Ct;
5780          goto T2056;          goto T2056;
5781  goto T2065;          goto T2065;
5782  T2065:;  T2065:;
5783          base[10]= (V554);          base[10]= (V554);
5784          base[11]= VV[254];          base[11]= VV[254];
# Line 5790  T2065:; Line 5790  T2065:;
5790          V543= VV[249];          V543= VV[249];
5791          V544= VV[249];          V544= VV[249];
5792          goto T2056;          goto T2056;
5793  goto T2071;          goto T2071;
5794  T2071:;  T2071:;
5795          base[10]= (V554);          base[10]= (V554);
5796          base[11]= VV[255];          base[11]= VV[255];
# Line 5801  T2071:; Line 5801  T2071:;
5801          goto T2078;}          goto T2078;}
5802          V543= VV[249];          V543= VV[249];
5803          goto T2056;          goto T2056;
5804  goto T2078;          goto T2078;
5805  T2078:;  T2078:;
5806          base[10]= (V554);          base[10]= (V554);
5807          base[11]= VV[256];          base[11]= VV[256];
# Line 5811  T2078:; Line 5811  T2078:;
5811          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5812          goto T2056;}          goto T2056;}
5813          V543= VV[251];          V543= VV[251];
5814  goto T2056;          goto T2056;
5815  T2056:;  T2056:;
5816          V548= Ct;          V548= Ct;
5817          base[10]= (V555);          base[10]= (V555);
# Line 5837  T2056:; Line 5837  T2056:;
5837          goto T2096;}          goto T2096;}
5838          V536= list(2,VV[217],(V550));          V536= list(2,VV[217],(V550));
5839          goto T2094;          goto T2094;
5840  goto T2096;          goto T2096;
5841  T2096:;  T2096:;
5842          base[11]= VV[257];          base[11]= VV[257];
5843          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
# Line 5850  T2096:; Line 5850  T2096:;
5850          (void) (*Lnk359)();          (void) (*Lnk359)();
5851          vs_top=sup;          vs_top=sup;
5852          V536= vs_base[0];          V536= vs_base[0];
5853  goto T2094;          goto T2094;
5854  T2094:;  T2094:;
5855          goto T2030;          goto T2030;
5856  goto T2055;          goto T2055;
5857  T2055:;  T2055:;
5858          if((V557!= VV[215]))goto T2102;          if((V557!= VV[215]))goto T2102;
5859          base[10]= (V555);          base[10]= (V555);
# Line 5889  T2055:; Line 5889  T2055:;
5889          (void) (*Lnk359)();          (void) (*Lnk359)();
5890          vs_top=sup;          vs_top=sup;
5891          goto T2030;          goto T2030;
5892  goto T2102;          goto T2102;
5893  T2102:;  T2102:;
5894          base[10]= VV[259];          base[10]= VV[259];
5895          base[11]= (V554);          base[11]= (V554);
5896          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5897          (void) (*Lnk347)();          (void) (*Lnk347)();
5898          vs_top=sup;}          vs_top=sup;}
5899  goto T2030;          goto T2030;
5900  T2030:;  T2030:;
5901          if(((V556))==Cnil){          if(((V556))==Cnil){
5902          goto T2116;}          goto T2116;}
# Line 5908  T2030:; Line 5908  T2030:;
5908          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5909          (void) (*Lnk347)();          (void) (*Lnk347)();
5910          vs_top=sup;          vs_top=sup;
5911  goto T2116;          goto T2116;
5912  T2116:;  T2116:;
5913          V556= (V543);          V556= (V543);
5914          V553= cdr((V553));          V553= cdr((V553));
5915          goto T2021;}          goto T2021;}
5916  goto T2019;          goto T2019;
5917  T2019:;  T2019:;
5918          if(((V531))==Cnil){          if(((V531))==Cnil){
5919          goto T2129;}          goto T2129;}
# Line 5923  T2019:; Line 5923  T2019:;
5923          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5924          (void) (*Lnk347)();          (void) (*Lnk347)();
5925          vs_top=sup;          vs_top=sup;
5926  goto T2129;          goto T2129;
5927  T2129:;  T2129:;
5928          if(((V545))!=Cnil){          if(((V545))!=Cnil){
5929          goto T2135;}          goto T2135;}
# Line 5937  T2129:; Line 5937  T2129:;
5937          if(V558==Cnil)goto T2143;          if(V558==Cnil)goto T2143;
5938          V546= V558;          V546= V558;
5939          goto T2142;          goto T2142;
5940  goto T2143;          goto T2143;
5941  T2143:;}  T2143:;}
5942          V546= small_fixnum(0);          V546= small_fixnum(0);
5943  goto T2142;          goto T2142;
5944  T2142:;  T2142:;
5945          base[11]= (V546);          base[11]= (V546);
5946          base[12]= (V527);          base[12]= (V527);
5947          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5948          (void) (*Lnk380)();          (void) (*Lnk380)();
5949          vs_top=sup;          vs_top=sup;
5950  goto T2135;          goto T2135;
5951  T2135:;  T2135:;
5952          {register object x= (V543),V559= VV[262];          {register object x= (V543),V559= VV[262];
5953          while(!endp(V559))          while(!endp(V559))
# Line 5955  T2135:; Line 5955  T2135:;
5955          goto T2150;          goto T2150;
5956          }else V559=V559->c.c_cdr;          }else V559=V559->c.c_cdr;
5957          goto T2149;}          goto T2149;}
5958  goto T2150;          goto T2150;
5959  T2150:;  T2150:;
5960          if(((V548))!=Cnil){          if(((V548))!=Cnil){
5961          goto T2152;}          goto T2152;}
5962          if(((V534))==Cnil){          if(((V534))==Cnil){
5963          goto T2151;}          goto T2151;}
5964  goto T2152;          goto T2152;
5965  T2152:;  T2152:;
5966          if(((V548))!=Cnil){          if(((V548))!=Cnil){
5967          goto T2156;}          goto T2156;}
# Line 5979  T2152:; Line 5979  T2152:;
5979          {object V560;          {object V560;
5980          V560= list(3,VV[11],(V536),(V534));          V560= list(3,VV[11],(V536),(V534));
5981          setq(VV[106],make_cons((V560),symbol_value(VV[106])));}          setq(VV[106],make_cons((V560),symbol_value(VV[106])));}
5982  goto T2156;          goto T2156;
5983  T2156:;  T2156:;
5984          if(((V544))==Cnil){          if(((V544))==Cnil){
5985          goto T2169;}          goto T2169;}
5986          V538= VV[34];          V538= VV[34];
5987          goto T2167;          goto T2167;
5988  goto T2169;          goto T2169;
5989  T2169:;  T2169:;
5990          V538= VV[213];          V538= VV[213];
5991  goto T2167;          goto T2167;
5992  T2167:;  T2167:;
5993  goto T2151;          goto T2151;
5994  T2151:;  T2151:;
5995          if(!(eql((V540),small_fixnum(1)))){          if(!(eql((V540),small_fixnum(1)))){
5996          goto T2173;}          goto T2173;}
5997          V542= list(2,VV[180],(V526));          V542= list(2,VV[180],(V526));
5998          goto T2171;          goto T2171;
5999  goto T2173;          goto T2173;
6000  T2173:;  T2173:;
6001          V542= list(3,VV[181],(V526),(V540));          V542= list(3,VV[181],(V526),(V540));
6002  goto T2171;          goto T2171;
6003  T2171:;  T2171:;
6004          goto T2147;          goto T2147;
6005  goto T2149;          goto T2149;
6006  T2149:;  T2149:;
6007          if(((V545))!=Cnil){          if(((V545))!=Cnil){
6008          goto T2175;}          goto T2175;}
# Line 6012  T2149:; Line 6012  T2149:;
6012          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
6013          (void) (*Lnk347)();          (void) (*Lnk347)();
6014          vs_top=sup;          vs_top=sup;
6015  goto T2178;          goto T2178;
6016  T2178:;  T2178:;
6017          {object V561;          {object V561;
6018          V561= list(3,VV[11],(V526),list(2,VV[199],(V534)));          V561= list(3,VV[11],(V526),list(2,VV[199],(V534)));
6019          setq(VV[106],make_cons((V561),symbol_value(VV[106])));}          setq(VV[106],make_cons((V561),symbol_value(VV[106])));}
6020  goto T2175;          goto T2175;
6021  T2175:;  T2175:;
6022          if(((V534))==Cnil){          if(((V534))==Cnil){
6023          goto T2184;}          goto T2184;}
# Line 6029  T2175:; Line 6029  T2175:;
6029          vs_top=sup;          vs_top=sup;
6030          V536= vs_base[0];          V536= vs_base[0];
6031          V544= Ct;          V544= Ct;
6032  goto T2184;          goto T2184;
6033  T2184:;  T2184:;
6034          if(((V536))==Cnil){          if(((V536))==Cnil){
6035          goto T2193;}          goto T2193;}
# Line 6037  T2184:; Line 6037  T2184:;
6037          goto T2198;}          goto T2198;}
6038          V538= VV[33];          V538= VV[33];
6039          goto T2196;          goto T2196;
6040  goto T2198;          goto T2198;
6041  T2198:;  T2198:;
6042          V538= VV[265];          V538= VV[265];
6043  goto T2196;          goto T2196;
6044  T2196:;  T2196:;
6045  goto T2193;          goto T2193;
6046  T2193:;  T2193:;
6047          if(!(eql((V540),small_fixnum(1)))){          if(!(eql((V540),small_fixnum(1)))){
6048          goto T2202;}          goto T2202;}
6049          V542= list(2,VV[199],(V526));          V542= list(2,VV[199],(V526));
6050          goto T2200;          goto T2200;
6051  goto T2202;          goto T2202;
6052  T2202:;  T2202:;
6053          V542= list(3,VV[266],(V526),(V540));          V542= list(3,VV[266],(V526),(V540));
6054  goto T2200;          goto T2200;
6055  T2200:;  T2200:;
6056  goto T2147;          goto T2147;
6057  T2147:;  T2147:;
6058          if(((V538))==Cnil){          if(((V538))==Cnil){
6059          goto T2204;}          goto T2204;}
# Line 6064  T2147:; Line 6064  T2147:;
6064          (void) (*Lnk331)();          (void) (*Lnk331)();
6065          vs_top=sup;          vs_top=sup;
6066          V539= vs_base[0];          V539= vs_base[0];
6067  goto T2204;          goto T2204;
6068  T2204:;  T2204:;
6069          if(((V533))==Cnil){          if(((V533))==Cnil){
6070          goto T2211;}          goto T2211;}
# Line 6076  T2204:; Line 6076  T2204:;
6076          vs_top=sup;          vs_top=sup;
6077          V562= vs_base[0];          V562= vs_base[0];
6078          V533= list(2,(V529),V562);          V533= list(2,(V529),V562);
6079  goto T2211;          goto T2211;
6080  T2211:;  T2211:;
6081          {object V563;          {object V563;
6082          object V564;          object V564;
# Line 6100  T2211:; Line 6100  T2211:;
6100          if(((V563))==Cnil){          if(((V563))==Cnil){
6101          goto T2219;}          goto T2219;}
6102          V564= Ct;          V564= Ct;
6103  goto T2219;          goto T2219;
6104  T2219:;  T2219:;
6105          base[10]= Ct;          base[10]= Ct;
6106          base[11]= (V526);          base[11]= (V526);
# Line 6194  static void L99() Line 6194  static void L99()
6194          V581= vs_base[0];          V581= vs_base[0];
6195          vs_top=sup;          vs_top=sup;
6196          goto T2255;          goto T2255;
6197  goto T2253;          goto T2253;
6198  T2253:;  T2253:;
6199          V580= Cnil;          V580= Cnil;
6200  goto T2254;          goto T2254;
6201  T2254:;  T2254:;
6202          V581= Cnil;          V581= Cnil;
6203  goto T2255;          goto T2255;
6204  T2255:;  T2255:;
6205          {object V582;          {object V582;
6206          base[11]= VV[269];          base[11]= VV[269];
# Line 6216  T2255:; Line 6216  T2255:;
6216          base[15]= (V574);          base[15]= (V574);
6217          goto T2263;}          goto T2263;}
6218          base[15]= (V579);          base[15]= (V579);
6219  goto T2263;          goto T2263;
6220  T2263:;  T2263:;
6221          base[16]= (V582);          base[16]= (V582);
6222          base[17]= (V578);          base[17]= (V578);
# Line 6252  static void L100() Line 6252  static void L100()
6252          V587=(base[3]);          V587=(base[3]);
6253          bds_bind(VV[44],small_fixnum(4));          bds_bind(VV[44],small_fixnum(4));
6254          bds_bind(VV[45],small_fixnum(4));          bds_bind(VV[45],small_fixnum(4));
6255  goto T2271;          goto T2271;
6256  T2271:;  T2271:;
6257          base[7]= (V587);          base[7]= (V587);
6258          base[8]= VV[270];          base[8]= VV[270];
# Line 6264  T2271:; Line 6264  T2271:;
6264          bds_unwind1;          bds_unwind1;
6265          bds_unwind1;          bds_unwind1;
6266          goto T2269;          goto T2269;
6267  goto T2272;          goto T2272;
6268  T2272:;  T2272:;
6269          base[7]= VV[47];          base[7]= VV[47];
6270          base[8]= VV[48];          base[8]= VV[48];
# Line 6294  T2272:; Line 6294  T2272:;
6294          Lformat();          Lformat();
6295          vs_top=sup;          vs_top=sup;
6296          goto T2271;          goto T2271;
6297  goto T2269;          goto T2269;
6298  T2269:;  T2269:;
6299          if((cdr((V586)))!=Cnil){          if((cdr((V586)))!=Cnil){
6300          goto T2298;}          goto T2298;}
# Line 6303  T2269:; Line 6303  T2269:;
6303          if(eql(x,V588->c.c_car)){          if(eql(x,V588->c.c_car)){
6304          goto T2299;          goto T2299;
6305          }else V588=V588->c.c_cdr;}          }else V588=V588->c.c_cdr;}
6306  goto T2298;          goto T2298;
6307  T2298:;  T2298:;
6308          base[5]= VV[273];          base[5]= VV[273];
6309          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6310          (void) (*Lnk347)();          (void) (*Lnk347)();
6311          vs_top=sup;          vs_top=sup;
6312          goto T2297;          goto T2297;
6313  goto T2299;          goto T2299;
6314  T2299:;  T2299:;
6315          if(((V586))!=Cnil){          if(((V586))!=Cnil){
6316          goto T2297;}          goto T2297;}
# Line 6318  T2299:; Line 6318  T2299:;
6318          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6319          (void) (*Lnk347)();          (void) (*Lnk347)();
6320          vs_top=sup;          vs_top=sup;
6321  goto T2297;          goto T2297;
6322  T2297:;  T2297:;
6323          {object V589;          {object V589;
6324          object V590;          object V590;
# Line 6342  T2297:; Line 6342  T2297:;
6342          goto T2314;}          goto T2314;}
6343          base[5]= VV[278];          base[5]= VV[278];
6344          goto T2312;          goto T2312;
6345  goto T2314;          goto T2314;
6346  T2314:;  T2314:;
6347          base[5]= VV[277];          base[5]= VV[277];
6348  goto T2312;          goto T2312;
6349  T2312:;  T2312:;
6350          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6351          (void) (*Lnk394)();          (void) (*Lnk394)();
# Line 6356  T2312:; Line 6356  T2312:;
6356          V594= vs_base[0];          V594= vs_base[0];
6357          vs_top=sup;          vs_top=sup;
6358          goto T2318;          goto T2318;
6359  goto T2316;          goto T2316;
6360  T2316:;  T2316:;
6361          V593= Cnil;          V593= Cnil;
6362  goto T2317;          goto T2317;
6363  T2317:;  T2317:;
6364          V594= Cnil;          V594= Cnil;
6365  goto T2318;          goto T2318;
6366  T2318:;  T2318:;
6367          V594= Ct;          V594= Ct;
6368          vs_base=vs_top;          vs_base=vs_top;
# Line 6382  T2318:; Line 6382  T2318:;
6382          goto T2324;}          goto T2324;}
6383          V601= list(2,(V593),Cnil);          V601= list(2,(V593),Cnil);
6384          V600= make_cons(/* INLINE-ARGS */V601,Cnil);          V600= make_cons(/* INLINE-ARGS */V601,Cnil);
6385  goto T2324;          goto T2324;
6386  T2324:;  T2324:;
6387          V597= listA(3,/* INLINE-ARGS */V598,/* INLINE-ARGS */V599,V600);          V597= listA(3,/* INLINE-ARGS */V598,/* INLINE-ARGS */V599,V600);
6388          V595= Cnil;          V595= Cnil;
# Line 6394  T2324:; Line 6394  T2324:;
6394          V596= Cnil;          V596= Cnil;
6395          goto T2331;}          goto T2331;}
6396          V596= (V593);          V596= (V593);
6397  goto T2331;          goto T2331;
6398  T2331:;  T2331:;
6399          goto T2325;          goto T2325;
6400  goto T2327;          goto T2327;
6401  T2327:;  T2327:;
6402          if((V594)==Cnil){          if((V594)==Cnil){
6403          V595= Cnil;          V595= Cnil;
6404          goto T2333;}          goto T2333;}
6405          V595= (V593);          V595= (V593);
6406  goto T2333;          goto T2333;
6407  T2333:;  T2333:;
6408          V596= (V584);          V596= (V584);
6409  goto T2325;          goto T2325;
6410  T2325:;  T2325:;
6411          {object V602;          {object V602;
6412          V602= list(2,VV[279],list(2,(V590),(V589)));          V602= list(2,VV[279],list(2,(V590),(V589)));
# Line 6423  T2325:; Line 6423  T2325:;
6423          {object V604;          {object V604;
6424          V604= list(2,(V595),Cnil);          V604= list(2,(V595),Cnil);
6425          V597= make_cons((V604),(V597));}          V597= make_cons((V604),(V597));}
6426  goto T2338;          goto T2338;
6427  T2338:;  T2338:;
6428          if(!(type_of((V596))==t_cons)){          if(!(type_of((V596))==t_cons)){
6429          goto T2347;}{object V605;          goto T2347;}{object V605;
# Line 6437  T2338:; Line 6437  T2338:;
6437          {object V606;          {object V606;
6438          V606= list(2,(V596),Cnil);          V606= list(2,(V596),Cnil);
6439          V597= make_cons((V606),(V597));}          V597= make_cons((V606),(V597));}
6440  goto T2347;          goto T2347;
6441  T2347:;  T2347:;
6442          V607= list(3,(V591),(V595),(V596));          V607= list(3,(V591),(V595),(V596));
6443          base[5]= list(6,(V597),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V607,make_cons((V590),Cnil))),(V592));          base[5]= list(6,(V597),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V607,make_cons((V590),Cnil))),(V592));
# Line 6469  static void L101() Line 6469  static void L101()
6469          if(eql(x,V612->c.c_car)){          if(eql(x,V612->c.c_car)){
6470          goto T2358;          goto T2358;
6471          }else V612=V612->c.c_cdr;}          }else V612=V612->c.c_cdr;}
6472  goto T2357;          goto T2357;
6473  T2357:;  T2357:;
6474          base[5]= VV[283];          base[5]= VV[283];
6475          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6476          (void) (*Lnk347)();          (void) (*Lnk347)();
6477          vs_top=sup;          vs_top=sup;
6478          goto T2356;          goto T2356;
6479  goto T2358;          goto T2358;
6480  T2358:;  T2358:;
6481          if(((V610))!=Cnil){          if(((V610))!=Cnil){
6482          goto T2356;}          goto T2356;}
# Line 6484  T2358:; Line 6484  T2358:;
6484          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6485          (void) (*Lnk347)();          (void) (*Lnk347)();
6486          vs_top=sup;          vs_top=sup;
6487  goto T2356;          goto T2356;
6488  T2356:;  T2356:;
6489          if(type_of((V608))==t_symbol){          if(type_of((V608))==t_symbol){
6490          goto T2366;}          goto T2366;}
# Line 6492  T2356:; Line 6492  T2356:;
6492          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
6493          (void) (*Lnk347)();          (void) (*Lnk347)();
6494          vs_top=sup;          vs_top=sup;
6495  goto T2366;          goto T2366;
6496  T2366:;  T2366:;
6497          {object V613;          {object V613;
6498          object V614;          object V614;
# Line 6567  TTL:; Line 6567  TTL:;
6567          goto T2407;}          goto T2407;}
6568          base[12]= VV[307];          base[12]= VV[307];
6569          goto T2405;          goto T2405;
6570  goto T2407;          goto T2407;
6571  T2407:;  T2407:;
6572          base[12]= Ct;          base[12]= Ct;
6573  goto T2405;          goto T2405;
6574  T2405:;  T2405:;
6575          vs_top=(vs_base=base+1)+12;          vs_top=(vs_base=base+1)+12;
6576          (void) (*Lnk397)();          (void) (*Lnk397)();
# Line 6667  TTL:; Line 6667  TTL:;
6667          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
6668          (void) (*Lnk399)();          (void) (*Lnk399)();
6669          return;          return;
6670  goto T2460;          goto T2460;
6671  T2460:;  T2460:;
6672          {object V625;          {object V625;
6673          vs_base=vs_top;          vs_base=vs_top;
# Line 6765  TTL:; Line 6765  TTL:;
6765          base[1]= Cnil;          base[1]= Cnil;
6766          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6767          return;          return;
6768  goto T2478;          goto T2478;
6769  T2478:;  T2478:;
6770          {register object x= Ct,V635= (V634);          {register object x= Ct,V635= (V634);
6771          while(!endp(V635))          while(!endp(V635))
# Line 6773  T2478:; Line 6773  T2478:;
6773          goto T2482;          goto T2482;
6774          }else V635=V635->c.c_cdr;          }else V635=V635->c.c_cdr;
6775          goto T2481;}          goto T2481;}
6776  goto T2482;          goto T2482;
6777  T2482:;  T2482:;
6778          base[1]= VV[192];          base[1]= VV[192];
6779          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6780          return;          return;
6781  goto T2481;          goto T2481;
6782  T2481:;  T2481:;
6783          V634= nreverse((V634));          V634= nreverse((V634));
6784          if((cdr((V634)))!=Cnil){          if((cdr((V634)))!=Cnil){
6785          goto T2485;}          goto T2485;}
6786          V636= car((V634));          V636= car((V634));
6787          goto T2483;          goto T2483;
6788  goto T2485;          goto T2485;
6789  T2485:;  T2485:;
6790          V636= make_cons(VV[35],(V634));          V636= make_cons(VV[35],(V634));
6791  goto T2483;          goto T2483;
6792  T2483:;  T2483:;
6793          base[1]= list(3,VV[8],V636,VV[193]);          base[1]= list(3,VV[8],V636,VV[193]);
6794          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 6810  register object *base0; Line 6810  register object *base0;
6810  TTL:;  TTL:;
6811          {register object V638;          {register object V638;
6812          V638= Cnil;          V638= Cnil;
6813  goto T2489;          goto T2489;
6814  T2489:;  T2489:;
6815          {register object V639;          {register object V639;
6816          register object V640;          register object V640;
# Line 6827  T2489:; Line 6827  T2489:;
6827          vs_top=sup;          vs_top=sup;
6828          bds_unwind1;          bds_unwind1;
6829          goto T2492;          goto T2492;
6830  goto T2495;          goto T2495;
6831  T2495:;  T2495:;
6832          setq(VV[88],symbol_value(VV[89]));          setq(VV[88],symbol_value(VV[89]));
6833          vs_base=vs_top;          vs_base=vs_top;
# Line 6848  T2495:; Line 6848  T2495:;
6848          vs_top=sup;          vs_top=sup;
6849          base0[3]= vs_base[0];          base0[3]= vs_base[0];
6850          V641= base0[3];          V641= base0[3];
6851  goto T2509;          goto T2509;
6852  T2509:;  T2509:;
6853          setq(VV[89],make_cons(V641,cdr(symbol_value(VV[89]))));          setq(VV[89],make_cons(V641,cdr(symbol_value(VV[89]))));
6854  goto T2503;          goto T2503;
6855  T2503:;  T2503:;
6856          base[2]= (V639);          base[2]= (V639);
6857          base[3]= structure_ref(symbol_value(VV[97]),VV[39],0);          base[3]= structure_ref(symbol_value(VV[97]),VV[39],0);
# Line 6876  T2503:; Line 6876  T2503:;
6876          vs_top=sup;          vs_top=sup;
6877          if(!(((VV[109]->s.s_dbind))==Cnil)){          if(!(((VV[109]->s.s_dbind))==Cnil)){
6878          goto T2512;}          goto T2512;}
6879  goto T2511;          goto T2511;
6880  T2511:;  T2511:;
6881          base[2]= VV[154];          base[2]= VV[154];
6882          base[3]= (V639);          base[3]= (V639);
# Line 6886  T2511:; Line 6886  T2511:;
6886          vs_top=sup;          vs_top=sup;
6887          bds_unwind1;          bds_unwind1;
6888          goto T2492;          goto T2492;
6889  goto T2512;          goto T2512;
6890  T2512:;  T2512:;
6891          base[2]= (VV[109]->s.s_dbind);          base[2]= (VV[109]->s.s_dbind);
6892          base[3]= (V638);          base[3]= (V638);
# Line 6895  T2512:; Line 6895  T2512:;
6895          vs_top=sup;          vs_top=sup;
6896          V638= vs_base[0];          V638= vs_base[0];
6897          bds_unwind1;}          bds_unwind1;}
6898  goto T2492;          goto T2492;
6899  T2492:;  T2492:;
6900          base[1]= car(symbol_value(VV[89]));          base[1]= car(symbol_value(VV[89]));
6901          base[2]= VV[155];          base[2]= VV[155];
# Line 6908  T2492:; Line 6908  T2492:;
6908          (void) (*Lnk350)();          (void) (*Lnk350)();
6909          vs_top=sup;          vs_top=sup;
6910          goto T2529;          goto T2529;
6911  goto T2531;          goto T2531;
6912  T2531:;  T2531:;
6913          if((cdr((V638)))==Cnil){          if((cdr((V638)))==Cnil){
6914          goto T2536;}          goto T2536;}
# Line 6916  T2531:; Line 6916  T2531:;
6916          base[1]= make_cons(VV[14],/* INLINE-ARGS */V643);          base[1]= make_cons(VV[14],/* INLINE-ARGS */V643);
6917          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6918          return;          return;
6919  goto T2536;          goto T2536;
6920  T2536:;  T2536:;
6921          base[1]= car((V638));          base[1]= car((V638));
6922          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6923          return;          return;
6924  goto T2529;          goto T2529;
6925  T2529:;  T2529:;
6926          goto T2489;}          goto T2489;}
6927          }          }
# Line 6946  TTL:; Line 6946  TTL:;
6946          base[2]= (V644);          base[2]= (V644);
6947          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6948          return;          return;
6949  goto T2541;          goto T2541;
6950  T2541:;  T2541:;
6951          base[2]= (V644);          base[2]= (V644);
6952          base[3]= car((V645));          base[3]= car((V645));
# Line 6985  TTL:; Line 6985  TTL:;
6985          base[2]= Cnil;          base[2]= Cnil;
6986          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
6987          return;          return;
6988  goto T2550;          goto T2550;
6989  T2550:;  T2550:;
6990          if(!(type_of((V648))!=t_cons)){          if(!(type_of((V648))!=t_cons)){
6991          goto T2553;}{object V650;          goto T2553;}{object V650;
# Line 6998  T2550:; Line 6998  T2550:;
6998          if(V650==Cnil)goto T2556;          if(V650==Cnil)goto T2556;
6999          base[2]= V650;          base[2]= V650;
7000          goto T2555;          goto T2555;
7001  goto T2556;          goto T2556;
7002  T2556:;}{object V651;  T2556:;}{object V651;
7003          base[3]= symbol_name((V648));          base[3]= symbol_name((V648));
7004          base[4]= structure_ref(symbol_value(VV[97]),VV[39],5);          base[4]= structure_ref(symbol_value(VV[97]),VV[39],5);
# Line 7009  T2556:;}{object V651; Line 7009  T2556:;}{object V651;
7009          if(V651==Cnil)goto T2560;          if(V651==Cnil)goto T2560;
7010          base[2]= V651;          base[2]= V651;
7011          goto T2555;          goto T2555;
7012  goto T2560;          goto T2560;
7013  T2560:;}  T2560:;}
7014          base[3]= VV[140];          base[3]= VV[140];
7015          base[4]= base0[1];          base[4]= base0[1];
# Line 7018  T2560:;} Line 7018  T2560:;}
7018          (void) (*Lnk347)();          (void) (*Lnk347)();
7019          vs_top=sup;          vs_top=sup;
7020          base[2]= vs_base[0];          base[2]= vs_base[0];
7021  goto T2555;          goto T2555;
7022  T2555:;  T2555:;
7023          base[3]= (V649);          base[3]= (V649);
7024          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
7025          L59(base0);          L59(base0);
7026          return;          return;
7027  goto T2553;          goto T2553;
7028  T2553:;  T2553:;
7029          if(!(type_of((V649))!=t_cons)){          if(!(type_of((V649))!=t_cons)){
7030          goto T2569;}          goto T2569;}
# Line 7034  T2553:; Line 7034  T2553:;
7034          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
7035          (void) (*Lnk347)();          (void) (*Lnk347)();
7036          return;          return;
7037  goto T2569;          goto T2569;
7038  T2569:;  T2569:;
7039          base[2]= car((V648));          base[2]= car((V648));
7040          base[3]= car((V649));          base[3]= car((V649));
# Line 7072  TTL:; Line 7072  TTL:;
7072          object V657;          object V657;
7073          V656= (V654);          V656= (V654);
7074          V657= car((V656));          V657= car((V656));
7075  goto T2584;          goto T2584;
7076  T2584:;  T2584:;
7077          if(!(endp_prop((V656)))){          if(!(endp_prop((V656)))){
7078          goto T2585;}          goto T2585;}
7079          base[2]= make_fixnum(V655);          base[2]= make_fixnum(V655);
7080          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7081          return;          return;
7082  goto T2585;          goto T2585;
7083  T2585:;  T2585:;
7084          V658 = make_fixnum(V655);          V658 = make_fixnum(V655);
7085          base[2]= (V657);          base[2]= (V657);
# Line 7139  TTL:; Line 7139  TTL:;
7139          base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V670,Cnil),(V660));          base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V670,Cnil),(V660));
7140          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
7141          return;          return;
7142  goto T2610;          goto T2610;
7143  T2610:;  T2610:;
7144          base[0]= (V660);          base[0]= (V660);
7145          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 7163  TTL:; Line 7163  TTL:;
7163          base[1]= car((V671));          base[1]= car((V671));
7164          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7165          return;          return;
7166  goto T2613;          goto T2613;
7167  T2613:;  T2613:;
7168          base[1]= make_cons(VV[14],(V671));          base[1]= make_cons(VV[14],(V671));
7169          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 7189  TTL:; Line 7189  TTL:;
7189          register object V675;          register object V675;
7190          V674= (V672);          V674= (V672);
7191          V675= car((V674));          V675= car((V674));
7192  goto T2619;          goto T2619;
7193  T2619:;  T2619:;
7194          if(!(endp_prop((V674)))){          if(!(endp_prop((V674)))){
7195          goto T2620;}          goto T2620;}
7196          goto T2615;          goto T2615;
7197  goto T2620;          goto T2620;
7198  T2620:;  T2620:;
7199          if(((V675))==Cnil){          if(((V675))==Cnil){
7200          goto T2624;}          goto T2624;}
# Line 7209  T2620:; Line 7209  T2620:;
7209          goto T2633;          goto T2633;
7210          }else V677=V677->c.c_cdr;          }else V677=V677->c.c_cdr;
7211          goto T2624;}          goto T2624;}
7212  goto T2633;          goto T2633;
7213  T2633:;  T2633:;
7214          goto T2615;          goto T2615;
7215  goto T2624;          goto T2624;
7216  T2624:;  T2624:;
7217          V674= cdr((V674));          V674= cdr((V674));
7218          V675= car((V674));          V675= car((V674));
7219          goto T2619;}          goto T2619;}
7220  goto T2615;          goto T2615;
7221  T2615:;  T2615:;
7222          base[1]= nreverse((V673));          base[1]= nreverse((V673));
7223          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 7239  register object *base0; Line 7239  register object *base0;
7239  TTL:;  TTL:;
7240          {register object V679;          {register object V679;
7241          V679= (V678);          V679= (V678);
7242  goto T2640;          goto T2640;
7243  T2640:;  T2640:;
7244          if(type_of((V679))==t_cons){          if(type_of((V679))==t_cons){
7245          goto T2641;}          goto T2641;}
7246          base[1]= (V679);          base[1]= (V679);
7247          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7248          return;          return;
7249  goto T2641;          goto T2641;
7250  T2641:;  T2641:;
7251          {register object V680;          {register object V680;
7252          V680= car((V679));          V680= car((V679));
# Line 7260  T2641:; Line 7260  T2641:;
7260          base[1]= Ct;          base[1]= Ct;
7261          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
7262          return;          return;
7263  goto T2645;          goto T2645;
7264  T2645:;  T2645:;
7265          goto T2640;}          goto T2640;}
7266          }          }
# Line 7284  register object *base0; Line 7284  register object *base0;
7284          V683=(base[2]);          V683=(base[2]);
7285          vs_top=sup;          vs_top=sup;
7286          goto T2655;          goto T2655;
7287  goto T2654;          goto T2654;
7288  T2654:;  T2654:;
7289          V683= Cnil;          V683= Cnil;
7290  goto T2655;          goto T2655;
7291  T2655:;  T2655:;
7292          {register object V684;          {register object V684;
7293          V684= (V681);          V684= (V681);
# Line 7304  T2655:; Line 7304  T2655:;
7304          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
7305          return;}          return;}
7306          base[3]=V685=MMcons(Cnil,Cnil);          base[3]=V685=MMcons(Cnil,Cnil);
7307  goto T2666;          goto T2666;
7308  T2666:;  T2666:;
7309          {register object V687;          {register object V687;
7310          V687= (V686->c.c_car);          V687= (V686->c.c_car);
# Line 7312  T2666:; Line 7312  T2666:;
7312          goto T2668;}          goto T2668;}
7313          (V685->c.c_cdr)= Cnil;          (V685->c.c_cdr)= Cnil;
7314          goto T2667;          goto T2667;
7315  goto T2668;          goto T2668;
7316  T2668:;  T2668:;
7317          if(!((((car((V687)))==(VV[65])?Ct:Cnil))==Cnil)){          if(!((((car((V687)))==(VV[65])?Ct:Cnil))==Cnil)){
7318          goto T2672;}          goto T2672;}
7319          goto T2670;          goto T2670;
7320  goto T2672;          goto T2672;
7321  T2672:;  T2672:;
7322          if(!(((type_of(cadr((V687)))==t_symbol?Ct:Cnil))==Cnil)){          if(!(((type_of(cadr((V687)))==t_symbol?Ct:Cnil))==Cnil)){
7323          goto T2674;}          goto T2674;}
7324          goto T2670;          goto T2670;
7325  goto T2674;          goto T2674;
7326  T2674:;  T2674:;
7327          base[4]= (V687);          base[4]= (V687);
7328          base[5]= base0[1];          base[5]= base0[1];
# Line 7334  T2674:; Line 7334  T2674:;
7334          goto T2670;}          goto T2670;}
7335          (V685->c.c_cdr)= Cnil;          (V685->c.c_cdr)= Cnil;
7336          goto T2667;          goto T2667;
7337  goto T2670;          goto T2670;
7338  T2670:;  T2670:;
7339          (V685->c.c_cdr)= make_cons((V687),Cnil);}          (V685->c.c_cdr)= make_cons((V687),Cnil);}
7340  goto T2667;          goto T2667;
7341  T2667:;  T2667:;
7342          {object cdr_V685=MMcdr(V685);while(!endp(cdr_V685)) {cdr_V685=MMcdr(cdr_V685);V685=MMcdr(V685);}}          {object cdr_V685=MMcdr(V685);while(!endp(cdr_V685)) {cdr_V685=MMcdr(cdr_V685);V685=MMcdr(V685);}}
7343          V686=MMcdr(V686);          V686=MMcdr(V686);
# Line 7346  T2667:; Line 7346  T2667:;
7346          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7347          return;}          return;}
7348          goto T2666;}          goto T2666;}
7349  goto T2664;          goto T2664;
7350  T2664:;  T2664:;
7351          base[3]= make_cons((V682),Cnil);          base[3]= make_cons((V682),Cnil);
7352          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7353          return;          return;
7354  goto T2661;          goto T2661;
7355  T2661:;  T2661:;
7356          base[3]= Cnil;          base[3]= Cnil;
7357          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7358          return;          return;
7359  goto T2658;          goto T2658;
7360  T2658:;  T2658:;
7361          if(!(type_of((V684))==t_cons)){          if(!(type_of((V684))==t_cons)){
7362          goto T2680;}          goto T2680;}
# Line 7380  T2658:; Line 7380  T2658:;
7380          goto T2688;}          goto T2688;}
7381          if(((V691))==Cnil){          if(((V691))==Cnil){
7382          goto T2689;}          goto T2689;}
7383  goto T2688;          goto T2688;
7384  T2688:;  T2688:;
7385          if(((V691))==Cnil){          if(((V691))==Cnil){
7386          goto T2694;}          goto T2694;}
# Line 7390  T2688:; Line 7390  T2688:;
7390          V693= (V683);          V693= (V683);
7391          goto T2696;}          goto T2696;}
7392          V693= symbol_value(VV[66]);          V693= symbol_value(VV[66]);
7393  goto T2696;          goto T2696;
7394  T2696:;  T2696:;
7395          base[9]= (V688);          base[9]= (V688);
7396          base[10]= list(2,VV[65],(V693));          base[10]= list(2,VV[65],(V693));
# Line 7415  T2696:; Line 7415  T2696:;
7415          V700= list(3,VV[11],(V693),(V682));          V700= list(3,VV[11],(V693),(V682));
7416          V699= make_cons(/* INLINE-ARGS */V700,Cnil);          V699= make_cons(/* INLINE-ARGS */V700,Cnil);
7417          goto T2708;          goto T2708;
7418  goto T2710;          goto T2710;
7419  T2710:;  T2710:;
7420          V699= Cnil;          V699= Cnil;
7421  goto T2708;          goto T2708;
7422  T2708:;  T2708:;
7423          base[9]= append(V699,(V694));          base[9]= append(V699,(V694));
7424          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7425          return;          return;
7426  goto T2706;          goto T2706;
7427  T2706:;  T2706:;
7428          V701= list(2,(V693),(V682));          V701= list(2,(V693),(V682));
7429          V702= listA(3,VV[29],make_cons(/* INLINE-ARGS */V701,Cnil),(V694));          V702= listA(3,VV[29],make_cons(/* INLINE-ARGS */V701,Cnil),(V694));
7430          base[9]= make_cons(/* INLINE-ARGS */V702,Cnil);          base[9]= make_cons(/* INLINE-ARGS */V702,Cnil);
7431          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
7432          return;}          return;}
7433  goto T2694;          goto T2694;
7434  T2694:;  T2694:;
7435          base[7]= (V688);          base[7]= (V688);
7436          base[8]= list(2,VV[65],(V682));          base[8]= list(2,VV[65],(V682));
# Line 7438  T2694:; Line 7438  T2694:;
7438          vs_top=(vs_base=base+7)+3;          vs_top=(vs_base=base+7)+3;
7439          L28(base0);          L28(base0);
7440          return;          return;
7441  goto T2689;          goto T2689;
7442  T2689:;  T2689:;
7443          base[7]= Cnil;          base[7]= Cnil;
7444          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
7445          return;}          return;}
7446  goto T2680;          goto T2680;
7447  T2680:;  T2680:;
7448          if(((V681))==((V682))){          if(((V681))==((V682))){
7449          goto T2716;}          goto T2716;}
# Line 7451  T2680:; Line 7451  T2680:;
7451          base[3]= make_cons(/* INLINE-ARGS */V703,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V703,Cnil);
7452          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
7453          return;          return;
7454  goto T2716;          goto T2716;
7455  T2716:;  T2716:;
7456          base[3]= Cnil;          base[3]= Cnil;
7457          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 7479  TTL:; Line 7479  TTL:;
7479          goto T2723;}          goto T2723;}
7480          base[4]= small_fixnum(10);          base[4]= small_fixnum(10);
7481          goto T2721;          goto T2721;
7482  goto T2723;          goto T2723;
7483  T2723:;  T2723:;
7484          base[4]= (V705);          base[4]= (V705);
7485  goto T2721;          goto T2721;
7486  T2721:;  T2721:;
7487          base[5]= VV[20];          base[5]= VV[20];
7488          base[6]= symbol_function(VV[401]);          base[6]= symbol_function(VV[401]);
# Line 7494  T2721:; Line 7494  T2721:;
7494          register object V708;          register object V708;
7495          V707= (V704);          V707= (V704);
7496          V708= car((V707));          V708= car((V707));
7497  goto T2731;          goto T2731;
7498  T2731:;  T2731:;
7499          if(!(endp_prop((V707)))){          if(!(endp_prop((V707)))){
7500          goto T2732;}          goto T2732;}
7501          goto T2727;          goto T2727;
7502  goto T2732;          goto T2732;
7503  T2732:;  T2732:;
7504          {object V709;          {object V709;
7505          object V711;          object V711;
# Line 7514  T2732:; Line 7514  T2732:;
7514          V707= cdr((V707));          V707= cdr((V707));
7515          V708= car((V707));          V708= car((V707));
7516          goto T2731;}          goto T2731;}
7517  goto T2727;          goto T2727;
7518  T2727:;  T2727:;
7519          base[3]= (V706);          base[3]= (V706);
7520          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 7536  register object *base0; Line 7536  register object *base0;
7536          vs_top=sup;          vs_top=sup;
7537          goto TTL;          goto TTL;
7538  TTL:;  TTL:;
7539  goto T2748;          goto T2748;
7540  T2748:;  T2748:;
7541          if(!((V713)<=(4))){          if(!((V713)<=(4))){
7542          goto T2749;}switch(V713){          goto T2749;}switch(V713){
7543          case 1:          case 1:
7544  goto T2755;          goto T2755;
7545  T2755:;  T2755:;
7546          V714= VV[10];          V714= VV[10];
7547          goto T2753;          goto T2753;
7548          case 2:          case 2:
7549  goto T2756;          goto T2756;
7550  T2756:;  T2756:;
7551          V714= VV[15];          V714= VV[15];
7552          goto T2753;          goto T2753;
7553          case 3:          case 3:
7554  goto T2757;          goto T2757;
7555  T2757:;  T2757:;
7556          V714= VV[16];          V714= VV[16];
7557          goto T2753;          goto T2753;
7558          case 4:          case 4:
7559  goto T2758;          goto T2758;
7560  T2758:;  T2758:;
7561          V714= VV[17];          V714= VV[17];
7562          goto T2753;          goto T2753;
7563          default:          default:
7564  goto T2759;          goto T2759;
7565  T2759:;  T2759:;
7566          V714= Cnil;          V714= Cnil;
7567          goto T2753;}          goto T2753;}
7568          V714= Cnil;          V714= Cnil;
7569  goto T2753;          goto T2753;
7570  T2753:;  T2753:;
7571          V712= list(2,V714,(V712));          V712= list(2,V714,(V712));
7572          base[2]= (V712);          base[2]= (V712);
7573          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
7574          return;          return;
7575  goto T2749;          goto T2749;
7576  T2749:;  T2749:;
7577          V712= list(2,VV[17],(V712));          V712= list(2,VV[17],(V712));
7578          V713= (long)(V713)-(4);          V713= (long)(V713)-(4);

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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