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

Diff of /gcl/cmpnew/cmplam.c

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

revision 1.8 by camm, Sun Feb 9 22:35:14 2003 UTC revision 1.9 by camm, Wed Feb 26 22:21:35 2003 UTC
# Line 59  static object LI4(V5) Line 59  static object LI4(V5)
59    
60  register object V5;  register object V5;
61  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
62  goto TTL;          goto TTL;
63  TTL:;  TTL:;
64          {register object V6;          {register object V6;
65          object V7;          object V7;
# Line 78  TTL:; Line 78  TTL:;
78          register object V10;          register object V10;
79          V9= structure_ref((V7),VV[5],1);          V9= structure_ref((V7),VV[5],1);
80          V10= car((V9));          V10= car((V9));
81  goto T16;          goto T16;
82  T16:;  T16:;
83          if(!(endp_prop((V9)))){          if(!(endp_prop((V9)))){
84          goto T17;}          goto T17;}
85          goto T12;          goto T12;
86  goto T17;          goto T17;
87  T17:;  T17:;
88          V11= structure_ref((V10),VV[6],1);          V11= structure_ref((V10),VV[6],1);
89          if(!((/* INLINE-ARGS */V11)==(VV[7]))){          if(!((/* INLINE-ARGS */V11)==(VV[7]))){
# Line 91  T17:; Line 91  T17:;
91          if((structure_ref((V10),VV[6],3))==Cnil){          if((structure_ref((V10),VV[6],3))==Cnil){
92          goto T21;}          goto T21;}
93          (void)(structure_set((V10),VV[6],1,VV[8]));          (void)(structure_set((V10),VV[6],1,VV[8]));
94  goto T21;          goto T21;
95  T21:;  T21:;
96          V9= cdr((V9));          V9= cdr((V9));
97          V10= car((V9));          V10= car((V9));
98          goto T16;}          goto T16;}
99  goto T12;          goto T12;
100  T12:;  T12:;
101          if(type_of(V6)!=t_cons)FEwrong_type_argument(Scons,V6);          if(type_of(V6)!=t_cons)FEwrong_type_argument(Scons,V6);
102          (V6)->c.c_car = VV[9];          (V6)->c.c_car = VV[9];
103          {object V14 = (V6);          {object V14 = (V6);
104          VMR4(V14)}          VMR4(V14)}
105  goto T4;          goto T4;
106  T4:;  T4:;
107          {object V15 = (V6);          {object V15 = (V6);
108          VMR4(V15)}}          VMR4(V15)}}
# Line 115  static object LI5(V18,V19) Line 115  static object LI5(V18,V19)
115    
116  register object V18;object V19;  register object V18;object V19;
117  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
118  goto TTL;          goto TTL;
119  TTL:;  TTL:;
120          princ_str("\n   (DownClose",VV[10]);          princ_str("\n   (DownClose",VV[10]);
121          (void)((*(LnkLI80))((V18)));          (void)((*(LnkLI80))((V18)));
# Line 138  TTL:; Line 138  TTL:;
138  static object LI6()  static object LI6()
139    
140  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
141  goto TTL;          goto TTL;
142  TTL:;  TTL:;
143          base[0]= VV[11];          base[0]= VV[11];
144          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 155  static object LI7(V23) Line 155  static object LI7(V23)
155    
156  object V23;  object V23;
157  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
158  goto TTL;          goto TTL;
159  TTL:;  TTL:;
160          if((symbol_value(VV[12]))==Cnil){          if((symbol_value(VV[12]))==Cnil){
161          goto T49;}          goto T49;}
# Line 168  TTL:; Line 168  TTL:;
168          (void)((*(LnkLI81))(VV[15]));          (void)((*(LnkLI81))(VV[15]));
169          {register object V24;          {register object V24;
170          V24= symbol_value(VV[12]);          V24= symbol_value(VV[12]);
171  goto T63;          goto T63;
172  T63:;  T63:;
173          if(((V24))!=Cnil){          if(((V24))!=Cnil){
174          goto T64;}          goto T64;}
175          goto T61;          goto T61;
176  goto T64;          goto T64;
177  T64:;  T64:;
178          (void)((*(LnkLI81))(VV[16]));          (void)((*(LnkLI81))(VV[16]));
179          (void)((*(LnkLI81))(car((V24))));          (void)((*(LnkLI81))(car((V24))));
180          if((cdr((V24)))==Cnil){          if((cdr((V24)))==Cnil){
181          goto T70;}          goto T70;}
182          (void)((*(LnkLI81))(VV[17]));          (void)((*(LnkLI81))(VV[17]));
183  goto T70;          goto T70;
184  T70:;  T70:;
185          V24= cdr((V24));          V24= cdr((V24));
186          goto T63;}          goto T63;}
187  goto T61;          goto T61;
188  T61:;  T61:;
189          {object V25 = (*(LnkLI81))(VV[18]);          {object V25 = (*(LnkLI81))(VV[18]);
190          VMR7(V25)}          VMR7(V25)}
191  goto T58;          goto T58;
192  T58:;  T58:;
193          {object V26 = Cnil;          {object V26 = Cnil;
194          VMR7(V26)}          VMR7(V26)}
195  goto T49;          goto T49;
196  T49:;  T49:;
197          {object V27 = Cnil;          {object V27 = Cnil;
198          VMR7(V27)}          VMR7(V27)}
# Line 204  static object LI8(V29) Line 204  static object LI8(V29)
204    
205  object V29;  object V29;
206  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
207  goto TTL;          goto TTL;
208  TTL:;  TTL:;
209          {register object V30;          {register object V30;
210          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
# Line 214  TTL:; Line 214  TTL:;
214          goto T82;}          goto T82;}
215          V32= Cnil;          V32= Cnil;
216          goto T80;          goto T80;
217  goto T82;          goto T82;
218  T82:;  T82:;
219          V32= make_cons(small_fixnum(0),small_fixnum(0));          V32= make_cons(small_fixnum(0),small_fixnum(0));
220  goto T80;          goto T80;
221  T80:;  T80:;
222          V31= list(5,VV[23],V32,symbol_value(VV[25]),(V30),(V29));          V31= list(5,VV[23],V32,symbol_value(VV[25]),(V30),(V29));
223          setq(VV[26],make_cons((V31),symbol_value(VV[26])));}          setq(VV[26],make_cons((V31),symbol_value(VV[26])));}
# Line 251  static object LI9(object V37,object firs Line 251  static object LI9(object V37,object firs
251          V39= first;}          V39= first;}
252          V40= Ct;          V40= Ct;
253          --narg; goto T91;          --narg; goto T91;
254  goto T90;          goto T90;
255  T90:;  T90:;
256          V39= Cnil;          V39= Cnil;
257          V40= Cnil;          V40= Cnil;
258  goto T91;          goto T91;
259  T91:;  T91:;
260          {object V41;          {object V41;
261          object V42;          object V42;
# Line 304  T91:; Line 304  T91:;
304          goto T114;}          goto T114;}
305          V62= make_cons(VV[4],(V38));          V62= make_cons(VV[4],(V38));
306          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V62)));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V62)));
307  goto T114;          goto T114;
308  T114:;  T114:;
309          base[2]= cdr((V38));          base[2]= cdr((V38));
310          base[3]= Ct;          base[3]= Ct;
# Line 344  T114:; Line 344  T114:;
344          goto T121;}          goto T121;}
345          V63= listA(3,VV[33],(V39),(V53));          V63= listA(3,VV[33],(V39),(V53));
346          V53= make_cons(/* INLINE-ARGS */V63,Cnil);          V53= make_cons(/* INLINE-ARGS */V63,Cnil);
347  goto T121;          goto T121;
348  T121:;  T121:;
349          (void)((*(LnkLI88))((V54)));          (void)((*(LnkLI88))((V54)));
350          V51= car((V38));          V51= car((V38));
351  goto T130;          goto T130;
352  T130:;  T130:;
353          if(((V51))!=Cnil){          if(((V51))!=Cnil){
354          goto T136;}          goto T136;}
355          goto T128;          goto T128;
356  goto T136;          goto T136;
357  T136:;  T136:;
358          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
359          goto T139;}          goto T139;}
360          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));
361  goto T139;          goto T139;
362  T139:;  T139:;
363          {object V65;          {object V65;
364          V65= car((V51));          V65= car((V51));
# Line 367  T139:; Line 367  T139:;
367          {object V64= (V52);          {object V64= (V52);
368          if((V64!= VV[69]))goto T147;          if((V64!= VV[69]))goto T147;
369          goto T131;          goto T131;
370  goto T147;          goto T147;
371  T147:;  T147:;
372          if((V64!= VV[68]))goto T148;          if((V64!= VV[68]))goto T148;
373          goto T132;          goto T132;
374  goto T148;          goto T148;
375  T148:;  T148:;
376          if((V64!= VV[71]))goto T149;          if((V64!= VV[71]))goto T149;
377          goto T133;          goto T133;
378  goto T149;          goto T149;
379  T149:;  T149:;
380          if((V64!= VV[73]))goto T150;          if((V64!= VV[73]))goto T150;
381          goto T134;          goto T134;
382  goto T150;          goto T150;
383  T150:;}  T150:;}
384          {object V66;          {object V66;
385          V66= (*(LnkLI89))((V52),(V54),(V55),(V56));          V66= (*(LnkLI89))((V52),(V54),(V55),(V56));
# Line 387  T150:;} Line 387  T150:;}
387          (VV[30]->s.s_dbind)= make_cons(V66,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V66,(VV[30]->s.s_dbind));
388          V41= make_cons(V66,(V41));}          V41= make_cons(V66,(V41));}
389          goto T130;          goto T130;
390  goto T131;          goto T131;
391  T131:;  T131:;
392          if(((V51))!=Cnil){          if(((V51))!=Cnil){
393          goto T158;}          goto T158;}
394          goto T128;          goto T128;
395  goto T158;          goto T158;
396  T158:;  T158:;
397          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
398          goto T161;}          goto T161;}
399          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));
400  goto T161;          goto T161;
401  T161:;  T161:;
402          {object V71;          {object V71;
403          V71= car((V51));          V71= car((V51));
# Line 406  T161:; Line 406  T161:;
406          {object V70= (V52);          {object V70= (V52);
407          if((V70!= VV[68]))goto T169;          if((V70!= VV[68]))goto T169;
408          goto T132;          goto T132;
409  goto T169;          goto T169;
410  T169:;  T169:;
411          if((V70!= VV[71]))goto T170;          if((V70!= VV[71]))goto T170;
412          goto T133;          goto T133;
413  goto T170;          goto T170;
414  T170:;  T170:;
415          if((V70!= VV[73]))goto T171;          if((V70!= VV[73]))goto T171;
416          goto T134;          goto T134;
417  goto T171;          goto T171;
418  T171:;}  T171:;}
419          if(type_of((V52))==t_cons){          if(type_of((V52))==t_cons){
420          goto T174;}          goto T174;}
# Line 428  T171:;} Line 428  T171:;}
428          V42= make_cons((V74),(V42));}          V42= make_cons((V74),(V42));}
429          (VV[30]->s.s_dbind)= make_cons(V72,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V72,(VV[30]->s.s_dbind));
430          goto T172;}          goto T172;}
431  goto T174;          goto T174;
432  T174:;  T174:;
433          if(type_of(cdr((V52)))==t_cons){          if(type_of(cdr((V52)))==t_cons){
434          goto T184;}          goto T184;}
435          if((cdr((V52)))==Cnil){          if((cdr((V52)))==Cnil){
436          goto T186;}          goto T186;}
437          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
438  goto T186;          goto T186;
439  T186:;  T186:;
440          {object V78;          {object V78;
441          V78= (*(LnkLI89))(car((V52)),(V54),(V55),(V56));          V78= (*(LnkLI89))(car((V52)),(V54),(V55),(V56));
# Line 449  T186:; Line 449  T186:;
449          V42= make_cons((V80),(V42));}          V42= make_cons((V80),(V42));}
450          (VV[30]->s.s_dbind)= make_cons(V78,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V78,(VV[30]->s.s_dbind));
451          goto T172;}          goto T172;}
452  goto T184;          goto T184;
453  T184:;  T184:;
454          if(type_of(cddr((V52)))==t_cons){          if(type_of(cddr((V52)))==t_cons){
455          goto T198;}          goto T198;}
456          if((cddr((V52)))==Cnil){          if((cddr((V52)))==Cnil){
457          goto T200;}          goto T200;}
458          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
459  goto T200;          goto T200;
460  T200:;  T200:;
461          {object V84;          {object V84;
462          object V85;          object V85;
# Line 472  T200:; Line 472  T200:;
472          V42= make_cons((V87),(V42));}          V42= make_cons((V87),(V42));}
473          (VV[30]->s.s_dbind)= make_cons(V85,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V85,(VV[30]->s.s_dbind));
474          goto T172;}          goto T172;}
475  goto T198;          goto T198;
476  T198:;  T198:;
477          if((cdddr((V52)))==Cnil){          if((cdddr((V52)))==Cnil){
478          goto T212;}          goto T212;}
479          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
480  goto T212;          goto T212;
481  T212:;  T212:;
482          {object V91;          {object V91;
483          object V92;          object V92;
# Line 498  T212:; Line 498  T212:;
498          V42= make_cons((V96),(V42));}          V42= make_cons((V96),(V42));}
499          (VV[30]->s.s_dbind)= make_cons(V92,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V92,(VV[30]->s.s_dbind));
500          (VV[30]->s.s_dbind)= make_cons(V93,(VV[30]->s.s_dbind));}          (VV[30]->s.s_dbind)= make_cons(V93,(VV[30]->s.s_dbind));}
501  goto T172;          goto T172;
502  T172:;  T172:;
503          goto T131;          goto T131;
504  goto T132;          goto T132;
505  T132:;  T132:;
506          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
507          goto T230;}          goto T230;}
508          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));
509  goto T230;          goto T230;
510  T230:;  T230:;
511          {object V101;          {object V101;
512          V101= car((V51));          V101= car((V51));
# Line 520  T230:; Line 520  T230:;
520          if(((V51))!=Cnil){          if(((V51))!=Cnil){
521          goto T244;}          goto T244;}
522          goto T128;          goto T128;
523  goto T244;          goto T244;
524  T244:;  T244:;
525          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
526          goto T247;}          goto T247;}
527          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));
528  goto T247;          goto T247;
529  T247:;  T247:;
530          {object V106;          {object V106;
531          V106= car((V51));          V106= car((V51));
# Line 534  T247:; Line 534  T247:;
534          {object V105= (V52);          {object V105= (V52);
535          if((V105!= VV[71]))goto T255;          if((V105!= VV[71]))goto T255;
536          goto T133;          goto T133;
537  goto T255;          goto T255;
538  T255:;  T255:;
539          if((V105!= VV[73]))goto T256;          if((V105!= VV[73]))goto T256;
540          goto T134;          goto T134;
541  goto T256;          goto T256;
542  T256:;}  T256:;}
543          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V52))));
544  goto T133;          goto T133;
545  T133:;  T133:;
546          V45= Ct;          V45= Ct;
547          if(((V51))!=Cnil){          if(((V51))!=Cnil){
548          goto T259;}          goto T259;}
549          goto T128;          goto T128;
550  goto T259;          goto T259;
551  T259:;  T259:;
552          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
553          goto T262;}          goto T262;}
554          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));
555  goto T262;          goto T262;
556  T262:;  T262:;
557          {object V108;          {object V108;
558          V108= car((V51));          V108= car((V51));
# Line 561  T262:; Line 561  T262:;
561          {object V107= (V52);          {object V107= (V52);
562          if((V107!= VV[73]))goto T270;          if((V107!= VV[73]))goto T270;
563          goto T134;          goto T134;
564  goto T270;          goto T270;
565  T270:;  T270:;
566          if((V107!= VV[72]))goto T271;          if((V107!= VV[72]))goto T271;
567          V47= Ct;          V47= Ct;
568          if(((V51))!=Cnil){          if(((V51))!=Cnil){
569          goto T274;}          goto T274;}
570          goto T128;          goto T128;
571  goto T274;          goto T274;
572  T274:;  T274:;
573          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
574          goto T277;}          goto T277;}
575          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));
576  goto T277;          goto T277;
577  T277:;  T277:;
578          {object V110;          {object V110;
579          V110= car((V51));          V110= car((V51));
# Line 582  T277:; Line 582  T277:;
582          {object V109= (V52);          {object V109= (V52);
583          if((V109!= VV[73]))goto T285;          if((V109!= VV[73]))goto T285;
584          goto T134;          goto T134;
585  goto T285;          goto T285;
586  T285:;}  T285:;}
587          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V52))));
588          goto T265;          goto T265;
589  goto T271;          goto T271;
590  T271:;}  T271:;}
591  goto T265;          goto T265;
592  T265:;  T265:;
593          if(type_of((V52))==t_cons){          if(type_of((V52))==t_cons){
594          goto T286;}          goto T286;}
595          V52= make_cons((V52),Cnil);          V52= make_cons((V52),Cnil);
596  goto T286;          goto T286;
597  T286:;  T286:;
598          if(!(type_of(car((V52)))==t_cons)){          if(!(type_of(car((V52)))==t_cons)){
599          goto T292;}          goto T292;}
# Line 604  T286:; Line 604  T286:;
604          goto T295;}          goto T295;}
605          if((cddar((V52)))==Cnil){          if((cddar((V52)))==Cnil){
606          goto T294;}          goto T294;}
607  goto T295;          goto T295;
608  T295:;  T295:;
609          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
610  goto T294;          goto T294;
611  T294:;  T294:;
612          V52= listA(3,caar((V52)),cadar((V52)),cdr((V52)));          V52= listA(3,caar((V52)),cadar((V52)),cdr((V52)));
613          goto T290;          goto T290;
614  goto T292;          goto T292;
615  T292:;  T292:;
616          if(type_of(car((V52)))==t_symbol){          if(type_of(car((V52)))==t_symbol){
617          goto T302;}          goto T302;}
618          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
619  goto T302;          goto T302;
620  T302:;  T302:;
621          base[2]= coerce_to_string(car((V52)));          base[2]= coerce_to_string(car((V52)));
622          base[3]= VV[38];          base[3]= VV[38];
# Line 625  T302:; Line 625  T302:;
625          vs_top=sup;          vs_top=sup;
626          V112= vs_base[0];          V112= vs_base[0];
627          V52= listA(3,V112,car((V52)),cdr((V52)));          V52= listA(3,V112,car((V52)),cdr((V52)));
628  goto T290;          goto T290;
629  T290:;  T290:;
630          if(type_of(cddr((V52)))==t_cons){          if(type_of(cddr((V52)))==t_cons){
631          goto T311;}          goto T311;}
632          if((cddr((V52)))==Cnil){          if((cddr((V52)))==Cnil){
633          goto T313;}          goto T313;}
634          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
635  goto T313;          goto T313;
636  T313:;  T313:;
637          {object V113;          {object V113;
638          V113= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56));          V113= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56));
# Line 647  T313:; Line 647  T313:;
647          V44= make_cons((V115),(V44));}          V44= make_cons((V115),(V44));}
648          (VV[30]->s.s_dbind)= make_cons(V113,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V113,(VV[30]->s.s_dbind));
649          goto T309;}          goto T309;}
650  goto T311;          goto T311;
651  T311:;  T311:;
652          if(type_of(cdddr((V52)))==t_cons){          if(type_of(cdddr((V52)))==t_cons){
653          goto T325;}          goto T325;}
654          if((cdddr((V52)))==Cnil){          if((cdddr((V52)))==Cnil){
655          goto T327;}          goto T327;}
656          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
657  goto T327;          goto T327;
658  T327:;  T327:;
659          {object V120;          {object V120;
660          object V121;          object V121;
# Line 671  T327:; Line 671  T327:;
671          V44= make_cons((V123),(V44));}          V44= make_cons((V123),(V44));}
672          (VV[30]->s.s_dbind)= make_cons(V121,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V121,(VV[30]->s.s_dbind));
673          goto T309;}          goto T309;}
674  goto T325;          goto T325;
675  T325:;  T325:;
676          if((cddddr((V52)))==Cnil){          if((cddddr((V52)))==Cnil){
677          goto T339;}          goto T339;}
678          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
679  goto T339;          goto T339;
680  T339:;  T339:;
681          {object V128;          {object V128;
682          object V129;          object V129;
# Line 698  T339:; Line 698  T339:;
698          V44= make_cons((V133),(V44));}          V44= make_cons((V133),(V44));}
699          (VV[30]->s.s_dbind)= make_cons(V129,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V129,(VV[30]->s.s_dbind));
700          (VV[30]->s.s_dbind)= make_cons(V130,(VV[30]->s.s_dbind));}          (VV[30]->s.s_dbind)= make_cons(V130,(VV[30]->s.s_dbind));}
701  goto T309;          goto T309;
702  T309:;  T309:;
703          goto T133;          goto T133;
704  goto T134;          goto T134;
705  T134:;  T134:;
706          V60= (VFUN_NARGS=0,(*(LnkLI85))());          V60= (VFUN_NARGS=0,(*(LnkLI85))());
707  goto T135;          goto T135;
708  T135:;  T135:;
709          if(((V51))!=Cnil){          if(((V51))!=Cnil){
710          goto T358;}          goto T358;}
711          (void)((*(LnkLI94))((V59),(V60)));          (void)((*(LnkLI94))((V59),(V60)));
712          goto T128;          goto T128;
713  goto T358;          goto T358;
714  T358:;  T358:;
715          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
716          goto T362;}          goto T362;}
717          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));
718  goto T362;          goto T362;
719  T362:;  T362:;
720          {object V139;          {object V139;
721          V139= car((V51));          V139= car((V51));
# Line 728  T362:; Line 728  T362:;
728          if((cdr((V52)))==Cnil){          if((cdr((V52)))==Cnil){
729          goto T377;}          goto T377;}
730          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
731  goto T377;          goto T377;
732  T377:;  T377:;
733          {object V140;          {object V140;
734          V140= (*(LnkLI89))(car((V52)),(V54),(V55),(V56));          V140= (*(LnkLI89))(car((V52)),(V54),(V55),(V56));
# Line 742  T377:; Line 742  T377:;
742          V48= make_cons(V140,(V48));          V48= make_cons(V140,(V48));
743          (VV[30]->s.s_dbind)= make_cons(V140,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V140,(VV[30]->s.s_dbind));
744          goto T370;}          goto T370;}
745  goto T375;          goto T375;
746  T375:;  T375:;
747          if((cddr((V52)))==Cnil){          if((cddr((V52)))==Cnil){
748          goto T390;}          goto T390;}
749          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));
750  goto T390;          goto T390;
751  T390:;  T390:;
752          {object V146;          {object V146;
753          object V147;          object V147;
# Line 763  T390:; Line 763  T390:;
763          V48= make_cons(V147,(V48));          V48= make_cons(V147,(V48));
764          (VV[30]->s.s_dbind)= make_cons(V147,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V147,(VV[30]->s.s_dbind));
765          goto T370;}          goto T370;}
766  goto T372;          goto T372;
767  T372:;  T372:;
768          {object V153;          {object V153;
769          V153= (*(LnkLI89))((V52),(V54),(V55),(V56));          V153= (*(LnkLI89))((V52),(V54),(V55),(V56));
# Line 774  T372:; Line 774  T372:;
774          V49= make_cons((V155),(V49));}          V49= make_cons((V155),(V49));}
775          V48= make_cons(V153,(V48));          V48= make_cons(V153,(V48));
776          (VV[30]->s.s_dbind)= make_cons(V153,(VV[30]->s.s_dbind));}          (VV[30]->s.s_dbind)= make_cons(V153,(VV[30]->s.s_dbind));}
777  goto T370;          goto T370;
778  T370:;  T370:;
779          goto T135;          goto T135;
780  goto T128;          goto T128;
781  T128:;  T128:;
782          V41= reverse((V41));          V41= reverse((V41));
783          V42= reverse((V42));          V42= reverse((V42));
# Line 791  T128:; Line 791  T128:;
791          object V160;          object V160;
792          V159= (V41);          V159= (V41);
793          V160= car((V159));          V160= car((V159));
794  goto T432;          goto T432;
795  T432:;  T432:;
796          if(!(endp_prop((V159)))){          if(!(endp_prop((V159)))){
797          goto T433;}          goto T433;}
798          goto T428;          goto T428;
799  goto T433;          goto T433;
800  T433:;  T433:;
801          (void)((*(LnkLI97))((V160)));          (void)((*(LnkLI97))((V160)));
802          V159= cdr((V159));          V159= cdr((V159));
803          V160= car((V159));          V160= car((V159));
804          goto T432;}          goto T432;}
805  goto T428;          goto T428;
806  T428:;  T428:;
807          {object V161;          {object V161;
808          object V162;          object V162;
809          V161= (V42);          V161= (V42);
810          V162= car((V161));          V162= car((V161));
811  goto T447;          goto T447;
812  T447:;  T447:;
813          if(!(endp_prop((V161)))){          if(!(endp_prop((V161)))){
814          goto T448;}          goto T448;}
815          goto T443;          goto T443;
816  goto T448;          goto T448;
817  T448:;  T448:;
818          (void)((*(LnkLI97))(car((V162))));          (void)((*(LnkLI97))(car((V162))));
819          if((caddr((V162)))==Cnil){          if((caddr((V162)))==Cnil){
820          goto T453;}          goto T453;}
821          (void)((*(LnkLI97))(caddr((V162))));          (void)((*(LnkLI97))(caddr((V162))));
822  goto T453;          goto T453;
823  T453:;  T453:;
824          V161= cdr((V161));          V161= cdr((V161));
825          V162= car((V161));          V162= car((V161));
826          goto T447;}          goto T447;}
827  goto T443;          goto T443;
828  T443:;  T443:;
829          if(((V43))==Cnil){          if(((V43))==Cnil){
830          goto T461;}          goto T461;}
831          (void)((*(LnkLI97))((V43)));          (void)((*(LnkLI97))((V43)));
832  goto T461;          goto T461;
833  T461:;  T461:;
834          {object V163;          {object V163;
835          object V164;          object V164;
836          V163= (V44);          V163= (V44);
837          V164= car((V163));          V164= car((V163));
838  goto T468;          goto T468;
839  T468:;  T468:;
840          if(!(endp_prop((V163)))){          if(!(endp_prop((V163)))){
841          goto T469;}          goto T469;}
842          goto T464;          goto T464;
843  goto T469;          goto T469;
844  T469:;  T469:;
845          (void)((*(LnkLI97))(cadr((V164))));          (void)((*(LnkLI97))(cadr((V164))));
846          if((cadddr((V164)))==Cnil){          if((cadddr((V164)))==Cnil){
847          goto T474;}          goto T474;}
848          (void)((*(LnkLI97))(cadddr((V164))));          (void)((*(LnkLI97))(cadddr((V164))));
849  goto T474;          goto T474;
850  T474:;  T474:;
851          V163= cdr((V163));          V163= cdr((V163));
852          V164= car((V163));          V164= car((V163));
853          goto T468;}          goto T468;}
854  goto T464;          goto T464;
855  T464:;  T464:;
856          {object V165;          {object V165;
857          object V166;          object V166;
858          V165= (V48);          V165= (V48);
859          V166= car((V165));          V166= car((V165));
860  goto T486;          goto T486;
861  T486:;  T486:;
862          if(!(endp_prop((V165)))){          if(!(endp_prop((V165)))){
863          goto T487;}          goto T487;}
864          goto T482;          goto T482;
865  goto T487;          goto T487;
866  T487:;  T487:;
867          (void)((*(LnkLI97))((V166)));          (void)((*(LnkLI97))((V166)));
868          V165= cdr((V165));          V165= cdr((V165));
869          V166= car((V165));          V166= car((V165));
870          goto T486;}          goto T486;}
871  goto T482;          goto T482;
872  T482:;  T482:;
873          if(((V48))==Cnil){          if(((V48))==Cnil){
874          goto T497;}          goto T497;}
# Line 877  T482:; Line 877  T482:;
877          if(!(eql((V61),symbol_value(VV[31])))){          if(!(eql((V61),symbol_value(VV[31])))){
878          goto T503;}          goto T503;}
879          goto T497;          goto T497;
880  goto T503;          goto T503;
881  T503:;  T503:;
882          (void)(structure_set((V60),VV[5],4,Ct));          (void)(structure_set((V60),VV[5],4,Ct));
883  goto T497;          goto T497;
884  T497:;  T497:;
885          V53= (*(LnkLI98))((V41),(V53),(V39));          V53= (*(LnkLI98))((V41),(V53),(V39));
886          V46= list(6,(V41),(V42),(V43),(V45),(V44),(V47));          V46= list(6,(V41),(V42),(V43),(V45),(V44),(V47));
887          if(symbol_value(VV[42])==Cnil){          if(symbol_value(VV[42])==Cnil){
888          goto T509;}          goto T509;}
889          (void)((*(LnkLI99))((V46)));          (void)((*(LnkLI99))((V46)));
890  goto T509;          goto T509;
891  T509:;  T509:;
892          {object V167 = list(5,VV[4],(V59),(V46),(V50),(V53));          {object V167 = list(5,VV[4],(V59),(V46),(V50),(V53));
893          bds_unwind1;          bds_unwind1;
# Line 902  static object LI10(V171,V172,V173) Line 902  static object LI10(V171,V172,V173)
902    
903  object V171;object V172;object V173;  object V171;object V172;object V173;
904  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
905  goto TTL;          goto TTL;
906  TTL:;  TTL:;
907          {object V174;          {object V174;
908          object V175;          object V175;
# Line 920  TTL:; Line 920  TTL:;
920          register object V181;          register object V181;
921          V180= (V171);          V180= (V171);
922          V181= (V178);          V181= (V178);
923  goto T518;          goto T518;
924  T518:;  T518:;
925          if(((V180))!=Cnil){          if(((V180))!=Cnil){
926          goto T519;}          goto T519;}
927          goto T516;          goto T516;
928  goto T519;          goto T519;
929  T519:;  T519:;
930          V177= car((V180));          V177= car((V180));
931          if(((V179))!=Cnil){          if(((V179))!=Cnil){
# Line 934  T519:; Line 934  T519:;
934          goto T527;}          goto T527;}
935          {object V182 = (V172);          {object V182 = (V172);
936          VMR10(V182)}          VMR10(V182)}
937  goto T527;          goto T527;
938  T527:;  T527:;
939          V183= structure_ref((V177),VV[6],1);          V183= structure_ref((V177),VV[6],1);
940          if(!((/* INLINE-ARGS */V183)==(VV[8]))){          if(!((/* INLINE-ARGS */V183)==(VV[8]))){
# Line 951  T527:; Line 951  T527:;
951          goto T537;}          goto T537;}
952          V176= (VFUN_NARGS=0,(*(LnkLI85))());          V176= (VFUN_NARGS=0,(*(LnkLI85))());
953          V188= (V176);          V188= (V176);
954  goto T537;          goto T537;
955  T537:;  T537:;
956          V186= list(3,VV[6],V188,list(2,(V185),Cnil));          V186= list(3,VV[6],V188,list(2,(V185),Cnil));
957          V174= make_cons(V177,(V174));          V174= make_cons(V177,(V174));
# Line 966  T537:; Line 966  T537:;
966          V194= make_cons(V185,/* INLINE-ARGS */V195);          V194= make_cons(V185,/* INLINE-ARGS */V195);
967          (void)(structure_set((V193),VV[5],1,(V194)));}          (void)(structure_set((V193),VV[5],1,(V194)));}
968          V175= make_cons(V186,(V175));}          V175= make_cons(V186,(V175));}
969  goto T525;          goto T525;
970  T525:;  T525:;
971          V180= cdr((V180));          V180= cdr((V180));
972          V181= cdr((V181));          V181= cdr((V181));
973          goto T518;}          goto T518;}
974  goto T516;          goto T516;
975  T516:;  T516:;
976          if(((V174))==Cnil){          if(((V174))==Cnil){
977          goto T553;}          goto T553;}
978          {object V197 = list(5,VV[41],(V176),(V174),(V175),(V172));          {object V197 = list(5,VV[41],(V176),(V174),(V175),(V172));
979          VMR10(V197)}          VMR10(V197)}
980  goto T553;          goto T553;
981  T553:;  T553:;
982          {object V198 = (V172);          {object V198 = (V172);
983          VMR10(V198)}}}          VMR10(V198)}}}
# Line 990  static object LI11(V200) Line 990  static object LI11(V200)
990    
991  register object V200;  register object V200;
992  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
993  goto TTL;          goto TTL;
994  TTL:;  TTL:;
995          if(type_of((V200))==t_symbol){          if(type_of((V200))==t_symbol){
996          goto T555;}          goto T555;}
997          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V200))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V200))));
998  goto T555;          goto T555;
999  T555:;  T555:;
1000          base[0]= (V200);          base[0]= (V200);
1001          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1004  T555:; Line 1004  T555:;
1004          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1005          goto T558;}          goto T558;}
1006          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V200))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V200))));
1007  goto T558;          goto T558;
1008  T558:;  T558:;
1009          {object V201 = (V200);          {object V201 = (V200);
1010          VMR11(V201)}          VMR11(V201)}
# Line 1033  static object LI12(object V203,object V2 Line 1033  static object LI12(object V203,object V2
1033          V206= first;}          V206= first;}
1034          V207= Ct;          V207= Ct;
1035          --narg; goto T563;          --narg; goto T563;
1036  goto T562;          goto T562;
1037  T562:;  T562:;
1038          V206= Cnil;          V206= Cnil;
1039          V207= Cnil;          V207= Cnil;
1040  goto T563;          goto T563;
1041  T563:;  T563:;
1042          if((symbol_value(VV[49]))==Cnil){          if((symbol_value(VV[49]))==Cnil){
1043          goto T567;}          goto T567;}
# Line 1047  T563:; Line 1047  T563:;
1047          register object V209;          register object V209;
1048          V208= car((V204));          V208= car((V204));
1049          V209= car((V208));          V209= car((V208));
1050  goto T577;          goto T577;
1051  T577:;  T577:;
1052          if(!(endp_prop((V208)))){          if(!(endp_prop((V208)))){
1053          goto T578;}          goto T578;}
1054          goto T573;          goto T573;
1055  goto T578;          goto T578;
1056  T578:;  T578:;
1057          if((structure_ref((V209),VV[6],3))==Cnil){          if((structure_ref((V209),VV[6],3))==Cnil){
1058          goto T582;}          goto T582;}
1059          goto T567;          goto T567;
1060  goto T582;          goto T582;
1061  T582:;  T582:;
1062          V208= cdr((V208));          V208= cdr((V208));
1063          V209= car((V208));          V209= car((V208));
1064          goto T577;}          goto T577;}
1065  goto T573;          goto T573;
1066  T573:;  T573:;
1067          if((cadr((V204)))!=Cnil){          if((cadr((V204)))!=Cnil){
1068          goto T567;}          goto T567;}
# Line 1072  T573:; Line 1072  T573:;
1072          goto T567;}          goto T567;}
1073          base[0]= make_cons((V206),car((V204)));          base[0]= make_cons((V206),car((V204)));
1074          goto T565;          goto T565;
1075  goto T567;          goto T567;
1076  T567:;  T567:;
1077          base[0]= Cnil;          base[0]= Cnil;
1078  goto T565;          goto T565;
1079  T565:;  T565:;
1080          bds_bind(VV[48],base[0]);          bds_bind(VV[48],base[0]);
1081          if((caddr((V204)))==Cnil){          if((caddr((V204)))==Cnil){
# Line 1085  T565:; Line 1085  T565:;
1085          goto T597;}          goto T597;}
1086          base[1]= Ct;          base[1]= Ct;
1087          goto T595;          goto T595;
1088  goto T597;          goto T597;
1089  T597:;  T597:;
1090          base[1]= symbol_value(VV[50]);          base[1]= symbol_value(VV[50]);
1091  goto T595;          goto T595;
1092  T595:;  T595:;
1093          bds_bind(VV[50],base[1]);          bds_bind(VV[50],base[1]);
1094          if((cadddr((V204)))==Cnil){          if((cadddr((V204)))==Cnil){
# Line 1097  T595:; Line 1097  T595:;
1097          bds_unwind1;          bds_unwind1;
1098          bds_unwind1;          bds_unwind1;
1099          VMR12(V211)}          VMR12(V211)}
1100  goto T602;          goto T602;
1101  T602:;  T602:;
1102          {object V212 = (*(LnkLI101))((V204),(V205));          {object V212 = (*(LnkLI101))((V204),(V205));
1103          bds_unwind1;          bds_unwind1;
# Line 1114  static object LI13(V215,V216) Line 1114  static object LI13(V215,V216)
1114  object V215;object V216;  object V215;object V216;
1115  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1116          bds_check;          bds_check;
1117  goto TTL;          goto TTL;
1118  TTL:;  TTL:;
1119          {object V217;          {object V217;
1120          object V218;          object V218;
# Line 1133  TTL:; Line 1133  TTL:;
1133          object V222;          object V222;
1134          V221= (V217);          V221= (V217);
1135          V222= car((V221));          V222= car((V221));
1136  goto T613;          goto T613;
1137  T613:;  T613:;
1138          if(!(endp_prop((V221)))){          if(!(endp_prop((V221)))){
1139          goto T614;}          goto T614;}
1140          goto T609;          goto T609;
1141  goto T614;          goto T614;
1142  T614:;  T614:;
1143          base[9]= (V222);          base[9]= (V222);
1144          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 1147  T614:; Line 1147  T614:;
1147          V221= cdr((V221));          V221= cdr((V221));
1148          V222= car((V221));          V222= car((V221));
1149          goto T613;}          goto T613;}
1150  goto T609;          goto T609;
1151  T609:;  T609:;
1152          {register object V223;          {register object V223;
1153          object V224;          object V224;
1154          V223= (V218);          V223= (V218);
1155          V224= car((V223));          V224= car((V223));
1156  goto T629;          goto T629;
1157  T629:;  T629:;
1158          if(!(endp_prop((V223)))){          if(!(endp_prop((V223)))){
1159          goto T630;}          goto T630;}
1160          goto T625;          goto T625;
1161  goto T630;          goto T630;
1162  T630:;  T630:;
1163          base[9]= car((V224));          base[9]= car((V224));
1164          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 1170  T630:; Line 1170  T630:;
1170          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1171          L14(base);          L14(base);
1172          vs_top=sup;          vs_top=sup;
1173  goto T636;          goto T636;
1174  T636:;  T636:;
1175          V223= cdr((V223));          V223= cdr((V223));
1176          V224= car((V223));          V224= car((V223));
1177          goto T629;}          goto T629;}
1178  goto T625;          goto T625;
1179  T625:;  T625:;
1180          if(((V219))==Cnil){          if(((V219))==Cnil){
1181          goto T608;}          goto T608;}
# Line 1183  T625:; Line 1183  T625:;
1183          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1184          L14(base);          L14(base);
1185          vs_top=sup;          vs_top=sup;
1186  goto T608;          goto T608;
1187  T608:;  T608:;
1188          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
1189          goto T649;}          goto T649;}
1190          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
1191          goto T648;}          goto T648;}
1192  goto T649;          goto T649;
1193  T649:;  T649:;
1194          if(((V219))!=Cnil){          if(((V219))!=Cnil){
1195          goto T653;}          goto T653;}
1196          if(((V218))==Cnil){          if(((V218))==Cnil){
1197          goto T654;}          goto T654;}
1198  goto T653;          goto T653;
1199  T653:;  T653:;
1200          if(((V217))==Cnil){          if(((V217))==Cnil){
1201          goto T658;}          goto T658;}
# Line 1203  T653:; Line 1203  T653:;
1203          V225 = make_fixnum((long)length((V217)));          V225 = make_fixnum((long)length((V217)));
1204          (void)((*(LnkLI80))(V225));          (void)((*(LnkLI80))(V225));
1205          princ_str(") too_few_arguments();",VV[10]);          princ_str(") too_few_arguments();",VV[10]);
1206  goto T658;          goto T658;
1207  T658:;  T658:;
1208          if(((V219))!=Cnil){          if(((V219))!=Cnil){
1209          goto T648;}          goto T648;}
# Line 1214  T658:; Line 1214  T658:;
1214          (void)((*(LnkLI80))(/* INLINE-ARGS */V228));          (void)((*(LnkLI80))(/* INLINE-ARGS */V228));
1215          princ_str(") too_many_arguments();",VV[10]);          princ_str(") too_many_arguments();",VV[10]);
1216          goto T648;          goto T648;
1217  goto T654;          goto T654;
1218  T654:;  T654:;
1219          princ_str("\n   check_arg(",VV[10]);          princ_str("\n   check_arg(",VV[10]);
1220          V229 = make_fixnum((long)length((V217)));          V229 = make_fixnum((long)length((V217)));
1221          (void)((*(LnkLI80))(V229));          (void)((*(LnkLI80))(V229));
1222          princ_str(");",VV[10]);          princ_str(");",VV[10]);
1223  goto T648;          goto T648;
1224  T648:;  T648:;
1225          {register object V230;          {register object V230;
1226          object V231;          object V231;
1227          V230= (V217);          V230= (V217);
1228          V231= car((V230));          V231= car((V230));
1229  goto T676;          goto T676;
1230  T676:;  T676:;
1231          if(!(endp_prop((V230)))){          if(!(endp_prop((V230)))){
1232          goto T677;}          goto T677;}
1233          goto T672;          goto T672;
1234  goto T677;          goto T677;
1235  T677:;  T677:;
1236          V232= (*(LnkLI102))();          V232= (*(LnkLI102))();
1237          (void)(structure_set((V231),VV[6],2,/* INLINE-ARGS */V232));          (void)(structure_set((V231),VV[6],2,/* INLINE-ARGS */V232));
1238          V230= cdr((V230));          V230= cdr((V230));
1239          V231= car((V230));          V231= car((V230));
1240          goto T676;}          goto T676;}
1241  goto T672;          goto T672;
1242  T672:;  T672:;
1243          {register object V233;          {register object V233;
1244          object V234;          object V234;
1245          V233= (V218);          V233= (V218);
1246          V234= car((V233));          V234= car((V233));
1247  goto T691;          goto T691;
1248  T691:;  T691:;
1249          if(!(endp_prop((V233)))){          if(!(endp_prop((V233)))){
1250          goto T692;}          goto T692;}
1251          goto T687;          goto T687;
1252  goto T692;          goto T692;
1253  T692:;  T692:;
1254          V235= car((V234));          V235= car((V234));
1255          V236= (*(LnkLI102))();          V236= (*(LnkLI102))();
# Line 1257  T692:; Line 1257  T692:;
1257          V233= cdr((V233));          V233= cdr((V233));
1258          V234= car((V233));          V234= car((V233));
1259          goto T691;}          goto T691;}
1260  goto T687;          goto T687;
1261  T687:;  T687:;
1262          if(((V219))==Cnil){          if(((V219))==Cnil){
1263          goto T702;}          goto T702;}
1264          V237= (*(LnkLI102))();          V237= (*(LnkLI102))();
1265          (void)(structure_set((V219),VV[6],2,/* INLINE-ARGS */V237));          (void)(structure_set((V219),VV[6],2,/* INLINE-ARGS */V237));
1266  goto T702;          goto T702;
1267  T702:;  T702:;
1268          {register object V238;          {register object V238;
1269          object V239;          object V239;
1270          V238= (V218);          V238= (V218);
1271          V239= car((V238));          V239= car((V238));
1272  goto T709;          goto T709;
1273  T709:;  T709:;
1274          if(!(endp_prop((V238)))){          if(!(endp_prop((V238)))){
1275          goto T710;}          goto T710;}
1276          goto T705;          goto T705;
1277  goto T710;          goto T710;
1278  T710:;  T710:;
1279          if((caddr((V239)))==Cnil){          if((caddr((V239)))==Cnil){
1280          goto T714;}          goto T714;}
1281          V240= caddr((V239));          V240= caddr((V239));
1282          V241= (*(LnkLI102))();          V241= (*(LnkLI102))();
1283          (void)(structure_set(/* INLINE-ARGS */V240,VV[6],2,/* INLINE-ARGS */V241));          (void)(structure_set(/* INLINE-ARGS */V240,VV[6],2,/* INLINE-ARGS */V241));
1284  goto T714;          goto T714;
1285  T714:;  T714:;
1286          V238= cdr((V238));          V238= cdr((V238));
1287          V239= car((V238));          V239= car((V238));
1288          goto T709;}          goto T709;}
1289  goto T705;          goto T705;
1290  T705:;  T705:;
1291          {register object V242;          {register object V242;
1292          object V243;          object V243;
1293          V242= (V217);          V242= (V217);
1294          V243= car((V242));          V243= car((V242));
1295  goto T726;          goto T726;
1296  T726:;  T726:;
1297          if(!(endp_prop((V242)))){          if(!(endp_prop((V242)))){
1298          goto T727;}          goto T727;}
1299          goto T722;          goto T722;
1300  goto T727;          goto T727;
1301  T727:;  T727:;
1302          (void)((*(LnkLI103))((V243)));          (void)((*(LnkLI103))((V243)));
1303          V242= cdr((V242));          V242= cdr((V242));
1304          V243= car((V242));          V243= car((V242));
1305          goto T726;}          goto T726;}
1306  goto T722;          goto T722;
1307  T722:;  T722:;
1308          if(((V218))!=Cnil){          if(((V218))!=Cnil){
1309          goto T739;}          goto T739;}
1310          if(((V219))==Cnil){          if(((V219))==Cnil){
1311          goto T737;}          goto T737;}
1312  goto T739;          goto T739;
1313  T739:;  T739:;
1314          if(((V217))==Cnil){          if(((V217))==Cnil){
1315          goto T737;}          goto T737;}
# Line 1317  T739:; Line 1317  T739:;
1317          V244 = make_fixnum((long)length((V217)));          V244 = make_fixnum((long)length((V217)));
1318          (void)((*(LnkLI80))(V244));          (void)((*(LnkLI80))(V244));
1319          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1320  goto T737;          goto T737;
1321  T737:;  T737:;
1322          if(((V218))==Cnil){          if(((V218))==Cnil){
1323          goto T749;}          goto T749;}
# Line 1332  T737:; Line 1332  T737:;
1332          (void)((*(LnkLI80))(V245));          (void)((*(LnkLI80))(V245));
1333          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1334          princ_str("\n    for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]);          princ_str("\n    for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);}",VV[10]);
1335  goto T752;          goto T752;
1336  T752:;  T752:;
1337          {register object V246;          {register object V246;
1338          V246= (V218);          V246= (V218);
1339  goto T764;          goto T764;
1340  T764:;  T764:;
1341          if(!(endp_prop((V246)))){          if(!(endp_prop((V246)))){
1342          goto T765;}          goto T765;}
1343          goto T762;          goto T762;
1344  goto T765;          goto T765;
1345  T765:;  T765:;
1346          {object V247;          {object V247;
1347          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
# Line 1360  T765:; Line 1360  T765:;
1360          if((caddar((V246)))==Cnil){          if((caddar((V246)))==Cnil){
1361          goto T784;}          goto T784;}
1362          (void)((*(LnkLI105))(caddar((V246)),Ct));          (void)((*(LnkLI105))(caddar((V246)),Ct));
1363  goto T784;          goto T784;
1364  T784:;  T784:;
1365          if((cdr((V246)))==Cnil){          if((cdr((V246)))==Cnil){
1366          goto T787;}          goto T787;}
1367          princ_str("\n   vs_base++;",VV[10]);          princ_str("\n   vs_base++;",VV[10]);
1368  goto T787;          goto T787;
1369  T787:;  T787:;
1370          V246= cdr((V246));          V246= cdr((V246));
1371          goto T764;}          goto T764;}
1372  goto T762;          goto T762;
1373  T762:;  T762:;
1374          if(((V219))==Cnil){          if(((V219))==Cnil){
1375          bds_unwind1;          bds_unwind1;
# Line 1380  T762:; Line 1380  T762:;
1380          bds_unwind1;          bds_unwind1;
1381          bds_unwind1;          bds_unwind1;
1382          bds_unwind1;          bds_unwind1;
1383  goto T751;          goto T751;
1384  T751:;  T751:;
1385          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1386          (void)((*(LnkLI104))());          (void)((*(LnkLI104))());
# Line 1398  T751:; Line 1398  T751:;
1398          register object V251;          register object V251;
1399          V250= (V218);          V250= (V218);
1400          V251= car((V250));          V251= car((V250));
1401  goto T812;          goto T812;
1402  T812:;  T812:;
1403          if(!(endp_prop((V250)))){          if(!(endp_prop((V250)))){
1404          goto T813;}          goto T813;}
1405          goto T808;          goto T808;
1406  goto T813;          goto T813;
1407  T813:;  T813:;
1408          if((cdr(car((V220))))==Cnil){          if((cdr(car((V220))))==Cnil){
1409          goto T817;}          goto T817;}
1410          princ_str("\ngoto T",VV[10]);          princ_str("\n   goto T",VV[10]);
1411          (void)((*(LnkLI80))(car(car((V220)))));          (void)((*(LnkLI80))(car(car((V220)))));
1412          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1413          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1414          (void)((*(LnkLI80))(car(car((V220)))));          (void)((*(LnkLI80))(car(car((V220)))));
1415          princ_str(":;",VV[10]);          princ_str(":;",VV[10]);
1416  goto T817;          goto T817;
1417  T817:;  T817:;
1418          {object V252;          {object V252;
1419          V252= car((V220));          V252= car((V220));
# Line 1422  T817:; Line 1422  T817:;
1422          if((caddr((V251)))==Cnil){          if((caddr((V251)))==Cnil){
1423          goto T832;}          goto T832;}
1424          (void)((*(LnkLI105))(caddr((V251)),Cnil));          (void)((*(LnkLI105))(caddr((V251)),Cnil));
1425  goto T832;          goto T832;
1426  T832:;  T832:;
1427          V250= cdr((V250));          V250= cdr((V250));
1428          V251= car((V250));          V251= car((V250));
1429          goto T812;}          goto T812;}
1430  goto T808;          goto T808;
1431  T808:;  T808:;
1432          if(((V219))==Cnil){          if(((V219))==Cnil){
1433          goto T840;}          goto T840;}
1434          (void)((*(LnkLI105))((V219),Cnil));          (void)((*(LnkLI105))((V219),Cnil));
1435  goto T840;          goto T840;
1436  T840:;  T840:;
1437          if((cdr((V249)))==Cnil){          if((cdr((V249)))==Cnil){
1438          goto T747;}          goto T747;}
1439          princ_str("\ngoto T",VV[10]);          princ_str("\n   goto T",VV[10]);
1440          (void)((*(LnkLI80))(car((V249))));          (void)((*(LnkLI80))(car((V249))));
1441          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1442          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1443          (void)((*(LnkLI80))(car((V249))));          (void)((*(LnkLI80))(car((V249))));
1444          princ_str(":;",VV[10]);          princ_str(":;",VV[10]);
1445          goto T747;}          goto T747;}
1446  goto T749;          goto T749;
1447  T749:;  T749:;
1448          if(((V219))==Cnil){          if(((V219))==Cnil){
1449          goto T853;}          goto T853;}
# Line 1454  T749:; Line 1454  T749:;
1454          goto T864;}          goto T864;}
1455          V253= VV[58];          V253= VV[58];
1456          goto T862;          goto T862;
1457  goto T864;          goto T864;
1458  T864:;  T864:;
1459          V253= VV[59];          V253= VV[59];
1460  goto T862;          goto T862;
1461  T862:;  T862:;
1462          (void)((*(LnkLI80))(V253));          (void)((*(LnkLI80))(V253));
1463          princ_str("(p[-1],p[0]);}",VV[10]);          princ_str("(p[-1],p[0]);}",VV[10]);
# Line 1465  T862:; Line 1465  T862:;
1465          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1466          (void)((*(LnkLI104))());          (void)((*(LnkLI104))());
1467          goto T747;          goto T747;
1468  goto T853;          goto T853;
1469  T853:;  T853:;
1470          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1471          (void)((*(LnkLI104))());          (void)((*(LnkLI104))());
1472  goto T747;          goto T747;
1473  T747:;  T747:;
1474          if((symbol_value(VV[48]))==Cnil){          if((symbol_value(VV[48]))==Cnil){
1475          goto T870;}          goto T870;}
1476          (VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind));          (VV[52]->s.s_dbind)= make_cons(VV[60],(VV[52]->s.s_dbind));
1477          princ_str("\ngoto TTL;",VV[10]);          princ_str("\n   goto TTL;",VV[10]);
1478          princ_str("\nTTL:;",VV[10]);          princ_str("\nTTL:;",VV[10]);
1479  goto T870;          goto T870;
1480  T870:;  T870:;
1481          base[8]= (V216);          base[8]= (V216);
1482          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
# Line 1491  T870:; Line 1491  T870:;
1491          bds_unwind1;          bds_unwind1;
1492          bds_unwind1;          bds_unwind1;
1493          VMR13(V255)}          VMR13(V255)}
1494  goto T881;          goto T881;
1495  T881:;  T881:;
1496          {object V256 = Cnil;          {object V256 = Cnil;
1497          bds_unwind1;          bds_unwind1;
# Line 1509  static object LI15(V259,V260) Line 1509  static object LI15(V259,V260)
1509  object V259;object V260;  object V259;object V260;
1510  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1511          bds_check;          bds_check;
1512  goto TTL;          goto TTL;
1513  TTL:;  TTL:;
1514          {object V261;          {object V261;
1515          object V262;          object V262;
# Line 1532  TTL:; Line 1532  TTL:;
1532          object V268;          object V268;
1533          V267= (V261);          V267= (V261);
1534          V268= car((V267));          V268= car((V267));
1535  goto T895;          goto T895;
1536  T895:;  T895:;
1537          if(!(endp_prop((V267)))){          if(!(endp_prop((V267)))){
1538          goto T896;}          goto T896;}
1539          goto T891;          goto T891;
1540  goto T896;          goto T896;
1541  T896:;  T896:;
1542          base[11]= (V268);          base[11]= (V268);
1543          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
# Line 1546  T896:; Line 1546  T896:;
1546          V267= cdr((V267));          V267= cdr((V267));
1547          V268= car((V267));          V268= car((V267));
1548          goto T895;}          goto T895;}
1549  goto T891;          goto T891;
1550  T891:;  T891:;
1551          {register object V269;          {register object V269;
1552          object V270;          object V270;
1553          V269= (V262);          V269= (V262);
1554          V270= car((V269));          V270= car((V269));
1555  goto T911;          goto T911;
1556  T911:;  T911:;
1557          if(!(endp_prop((V269)))){          if(!(endp_prop((V269)))){
1558          goto T912;}          goto T912;}
1559          goto T907;          goto T907;
1560  goto T912;          goto T912;
1561  T912:;  T912:;
1562          base[11]= car((V270));          base[11]= car((V270));
1563          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
# Line 1569  T912:; Line 1569  T912:;
1569          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1570          L16(base);          L16(base);
1571          vs_top=sup;          vs_top=sup;
1572  goto T918;          goto T918;
1573  T918:;  T918:;
1574          V269= cdr((V269));          V269= cdr((V269));
1575          V270= car((V269));          V270= car((V269));
1576          goto T911;}          goto T911;}
1577  goto T907;          goto T907;
1578  T907:;  T907:;
1579          if(((V263))==Cnil){          if(((V263))==Cnil){
1580          goto T927;}          goto T927;}
# Line 1582  T907:; Line 1582  T907:;
1582          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1583          L16(base);          L16(base);
1584          vs_top=sup;          vs_top=sup;
1585  goto T927;          goto T927;
1586  T927:;  T927:;
1587          {register object V271;          {register object V271;
1588          object V272;          object V272;
1589          V271= (V264);          V271= (V264);
1590          V272= car((V271));          V272= car((V271));
1591  goto T934;          goto T934;
1592  T934:;  T934:;
1593          if(!(endp_prop((V271)))){          if(!(endp_prop((V271)))){
1594          goto T935;}          goto T935;}
1595          goto T890;          goto T890;
1596  goto T935;          goto T935;
1597  T935:;  T935:;
1598          base[11]= cadr((V272));          base[11]= cadr((V272));
1599          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
# Line 1605  T935:; Line 1605  T935:;
1605          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1606          L16(base);          L16(base);
1607          vs_top=sup;          vs_top=sup;
1608  goto T941;          goto T941;
1609  T941:;  T941:;
1610          V271= cdr((V271));          V271= cdr((V271));
1611          V272= car((V271));          V272= car((V271));
1612          goto T934;}          goto T934;}
1613  goto T890;          goto T890;
1614  T890:;  T890:;
1615          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
1616          goto T952;}          goto T952;}
1617          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
1618          goto T950;}          goto T950;}
1619  goto T952;          goto T952;
1620  T952:;  T952:;
1621          if(((V261))==Cnil){          if(((V261))==Cnil){
1622          goto T950;}          goto T950;}
# Line 1626  T952:; Line 1626  T952:;
1626          V273 = make_fixnum((long)length((V261)));          V273 = make_fixnum((long)length((V261)));
1627          (void)((*(LnkLI80))(V273));          (void)((*(LnkLI80))(V273));
1628          princ_str(") too_few_arguments();",VV[10]);          princ_str(") too_few_arguments();",VV[10]);
1629  goto T950;          goto T950;
1630  T950:;  T950:;
1631          {register object V274;          {register object V274;
1632          object V275;          object V275;
1633          V274= (V261);          V274= (V261);
1634          V275= car((V274));          V275= car((V274));
1635  goto T966;          goto T966;
1636  T966:;  T966:;
1637          if(!(endp_prop((V274)))){          if(!(endp_prop((V274)))){
1638          goto T967;}          goto T967;}
1639          goto T962;          goto T962;
1640  goto T967;          goto T967;
1641  T967:;  T967:;
1642          V276= (*(LnkLI102))();          V276= (*(LnkLI102))();
1643          (void)(structure_set((V275),VV[6],2,/* INLINE-ARGS */V276));          (void)(structure_set((V275),VV[6],2,/* INLINE-ARGS */V276));
1644          V274= cdr((V274));          V274= cdr((V274));
1645          V275= car((V274));          V275= car((V274));
1646          goto T966;}          goto T966;}
1647  goto T962;          goto T962;
1648  T962:;  T962:;
1649          {register object V277;          {register object V277;
1650          object V278;          object V278;
1651          V277= (V262);          V277= (V262);
1652          V278= car((V277));          V278= car((V277));
1653  goto T981;          goto T981;
1654  T981:;  T981:;
1655          if(!(endp_prop((V277)))){          if(!(endp_prop((V277)))){
1656          goto T982;}          goto T982;}
1657          goto T977;          goto T977;
1658  goto T982;          goto T982;
1659  T982:;  T982:;
1660          V279= car((V278));          V279= car((V278));
1661          V280= (*(LnkLI102))();          V280= (*(LnkLI102))();
# Line 1663  T982:; Line 1663  T982:;
1663          V277= cdr((V277));          V277= cdr((V277));
1664          V278= car((V277));          V278= car((V277));
1665          goto T981;}          goto T981;}
1666  goto T977;          goto T977;
1667  T977:;  T977:;
1668          if(((V263))==Cnil){          if(((V263))==Cnil){
1669          goto T992;}          goto T992;}
1670          V281= (*(LnkLI102))();          V281= (*(LnkLI102))();
1671          (void)(structure_set((V263),VV[6],2,/* INLINE-ARGS */V281));          (void)(structure_set((V263),VV[6],2,/* INLINE-ARGS */V281));
1672  goto T992;          goto T992;
1673  T992:;  T992:;
1674          {register object V282;          {register object V282;
1675          object V283;          object V283;
1676          V282= (V264);          V282= (V264);
1677          V283= car((V282));          V283= car((V282));
1678  goto T999;          goto T999;
1679  T999:;  T999:;
1680          if(!(endp_prop((V282)))){          if(!(endp_prop((V282)))){
1681          goto T1000;}          goto T1000;}
1682          goto T995;          goto T995;
1683  goto T1000;          goto T1000;
1684  T1000:;  T1000:;
1685          V284= cadr((V283));          V284= cadr((V283));
1686          V285= (*(LnkLI102))();          V285= (*(LnkLI102))();
# Line 1688  T1000:; Line 1688  T1000:;
1688          V282= cdr((V282));          V282= cdr((V282));
1689          V283= car((V282));          V283= car((V282));
1690          goto T999;}          goto T999;}
1691  goto T995;          goto T995;
1692  T995:;  T995:;
1693          {register object V286;          {register object V286;
1694          object V287;          object V287;
1695          V286= (V264);          V286= (V264);
1696          V287= car((V286));          V287= car((V286));
1697  goto T1014;          goto T1014;
1698  T1014:;  T1014:;
1699          if(!(endp_prop((V286)))){          if(!(endp_prop((V286)))){
1700          goto T1015;}          goto T1015;}
1701          goto T1010;          goto T1010;
1702  goto T1015;          goto T1015;
1703  T1015:;  T1015:;
1704          V288= cadddr((V287));          V288= cadddr((V287));
1705          V289= (*(LnkLI102))();          V289= (*(LnkLI102))();
# Line 1707  T1015:; Line 1707  T1015:;
1707          V286= cdr((V286));          V286= cdr((V286));
1708          V287= car((V286));          V287= car((V286));
1709          goto T1014;}          goto T1014;}
1710  goto T1010;          goto T1010;
1711  T1010:;  T1010:;
1712          {register object V290;          {register object V290;
1713          object V291;          object V291;
1714          V290= (V262);          V290= (V262);
1715          V291= car((V290));          V291= car((V290));
1716  goto T1029;          goto T1029;
1717  T1029:;  T1029:;
1718          if(!(endp_prop((V290)))){          if(!(endp_prop((V290)))){
1719          goto T1030;}          goto T1030;}
1720          goto T1025;          goto T1025;
1721  goto T1030;          goto T1030;
1722  T1030:;  T1030:;
1723          if((caddr((V291)))==Cnil){          if((caddr((V291)))==Cnil){
1724          goto T1034;}          goto T1034;}
1725          V292= caddr((V291));          V292= caddr((V291));
1726          V293= (*(LnkLI102))();          V293= (*(LnkLI102))();
1727          (void)(structure_set(/* INLINE-ARGS */V292,VV[6],2,/* INLINE-ARGS */V293));          (void)(structure_set(/* INLINE-ARGS */V292,VV[6],2,/* INLINE-ARGS */V293));
1728  goto T1034;          goto T1034;
1729  T1034:;  T1034:;
1730          V290= cdr((V290));          V290= cdr((V290));
1731          V291= car((V290));          V291= car((V290));
1732          goto T1029;}          goto T1029;}
1733  goto T1025;          goto T1025;
1734  T1025:;  T1025:;
1735          princ_str("\n   parse_key(vs_base",VV[10]);          princ_str("\n   parse_key(vs_base",VV[10]);
1736          if(((V261))!=Cnil){          if(((V261))!=Cnil){
1737          goto T1045;}          goto T1045;}
1738          if(((V262))==Cnil){          if(((V262))==Cnil){
1739          goto T1044;}          goto T1044;}
1740  goto T1045;          goto T1045;
1741  T1045:;  T1045:;
1742          princ_char(43,VV[10]);          princ_char(43,VV[10]);
1743          V294 = make_fixnum((long)length((V261)));          V294 = make_fixnum((long)length((V261)));
1744          V295 = make_fixnum((long)length((V262)));          V295 = make_fixnum((long)length((V262)));
1745          V296= number_plus(V294,V295);          V296= number_plus(V294,V295);
1746          (void)((*(LnkLI80))(/* INLINE-ARGS */V296));          (void)((*(LnkLI80))(/* INLINE-ARGS */V296));
1747  goto T1044;          goto T1044;
1748  T1044:;  T1044:;
1749          if(((V263))==Cnil){          if(((V263))==Cnil){
1750          goto T1053;}          goto T1053;}
1751          princ_str(",TRUE,",VV[10]);          princ_str(",TRUE,",VV[10]);
1752          goto T1051;          goto T1051;
1753  goto T1053;          goto T1053;
1754  T1053:;  T1053:;
1755          princ_str(",FALSE,",VV[10]);          princ_str(",FALSE,",VV[10]);
1756  goto T1051;          goto T1051;
1757  T1051:;  T1051:;
1758          if(((V265))==Cnil){          if(((V265))==Cnil){
1759          goto T1059;}          goto T1059;}
1760          princ_str("TRUE,",VV[10]);          princ_str("TRUE,",VV[10]);
1761          goto T1057;          goto T1057;
1762  goto T1059;          goto T1059;
1763  T1059:;  T1059:;
1764          princ_str("FALSE,",VV[10]);          princ_str("FALSE,",VV[10]);
1765  goto T1057;          goto T1057;
1766  T1057:;  T1057:;
1767          V297 = make_fixnum((long)length((V264)));          V297 = make_fixnum((long)length((V264)));
1768          (void)((*(LnkLI80))(V297));          (void)((*(LnkLI80))(V297));
# Line 1770  T1057:; Line 1770  T1057:;
1770          object V299;          object V299;
1771          V298= (V264);          V298= (V264);
1772          V299= car((V298));          V299= car((V298));
1773  goto T1069;          goto T1069;
1774  T1069:;  T1069:;
1775          if(!(endp_prop((V298)))){          if(!(endp_prop((V298)))){
1776          goto T1070;}          goto T1070;}
1777          goto T1065;          goto T1065;
1778  goto T1070;          goto T1070;
1779  T1070:;  T1070:;
1780          princ_str(",VV[",VV[10]);          princ_str(",VV[",VV[10]);
1781          V300= (*(LnkLI108))(car((V299)));          V300= (*(LnkLI108))(car((V299)));
# Line 1784  T1070:; Line 1784  T1070:;
1784          V298= cdr((V298));          V298= cdr((V298));
1785          V299= car((V298));          V299= car((V298));
1786          goto T1069;}          goto T1069;}
1787  goto T1065;          goto T1065;
1788  T1065:;  T1065:;
1789          princ_str(");",VV[10]);          princ_str(");",VV[10]);
1790          {register object V301;          {register object V301;
1791          object V302;          object V302;
1792          V301= (V261);          V301= (V261);
1793          V302= car((V301));          V302= car((V301));
1794  goto T1089;          goto T1089;
1795  T1089:;  T1089:;
1796          if(!(endp_prop((V301)))){          if(!(endp_prop((V301)))){
1797          goto T1090;}          goto T1090;}
1798          goto T1085;          goto T1085;
1799  goto T1090;          goto T1090;
1800  T1090:;  T1090:;
1801          (void)((*(LnkLI103))((V302)));          (void)((*(LnkLI103))((V302)));
1802          V301= cdr((V301));          V301= cdr((V301));
1803          V302= car((V301));          V302= car((V301));
1804          goto T1089;}          goto T1089;}
1805  goto T1085;          goto T1085;
1806  T1085:;  T1085:;
1807          if(((V262))==Cnil){          if(((V262))==Cnil){
1808          goto T1100;}          goto T1100;}
# Line 1812  T1085:; Line 1812  T1085:;
1812          V303 = make_fixnum((long)length((V261)));          V303 = make_fixnum((long)length((V261)));
1813          (void)((*(LnkLI80))(V303));          (void)((*(LnkLI80))(V303));
1814          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1815  goto T1103;          goto T1103;
1816  T1103:;  T1103:;
1817          bds_bind(VV[24],(VV[24]->s.s_dbind));          bds_bind(VV[24],(VV[24]->s.s_dbind));
1818          bds_bind(VV[52],(VV[52]->s.s_dbind));          bds_bind(VV[52],(VV[52]->s.s_dbind));
1819          bds_bind(VV[25],(VV[25]->s.s_dbind));          bds_bind(VV[25],(VV[25]->s.s_dbind));
1820          {register object V304;          {register object V304;
1821          V304= (V262);          V304= (V262);
1822  goto T1111;          goto T1111;
1823  T1111:;  T1111:;
1824          if(!(endp_prop((V304)))){          if(!(endp_prop((V304)))){
1825          goto T1112;}          goto T1112;}
# Line 1827  T1111:; Line 1827  T1111:;
1827          bds_unwind1;          bds_unwind1;
1828          bds_unwind1;          bds_unwind1;
1829          goto T1109;          goto T1109;
1830  goto T1112;          goto T1112;
1831  T1112:;  T1112:;
1832          {object V305;          {object V305;
1833          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
# Line 1845  T1112:; Line 1845  T1112:;
1845          if((caddar((V304)))==Cnil){          if((caddar((V304)))==Cnil){
1846          goto T1130;}          goto T1130;}
1847          (void)((*(LnkLI105))(caddar((V304)),Ct));          (void)((*(LnkLI105))(caddar((V304)),Ct));
1848  goto T1130;          goto T1130;
1849  T1130:;  T1130:;
1850          if((cdr((V304)))==Cnil){          if((cdr((V304)))==Cnil){
1851          goto T1133;}          goto T1133;}
1852          princ_str("\n   vs_base++;",VV[10]);          princ_str("\n   vs_base++;",VV[10]);
1853  goto T1133;          goto T1133;
1854  T1133:;  T1133:;
1855          V304= cdr((V304));          V304= cdr((V304));
1856          goto T1111;}          goto T1111;}
1857  goto T1109;          goto T1109;
1858  T1109:;  T1109:;
1859          V266= reverse((V266));          V266= reverse((V266));
1860  goto T1100;          goto T1100;
1861  T1100:;  T1100:;
1862          princ_str("\n   vs_top=sup;",VV[10]);          princ_str("\n   vs_top=sup;",VV[10]);
1863          if(((V262))==Cnil){          if(((V262))==Cnil){
# Line 1874  T1100:; Line 1874  T1100:;
1874          register object V308;          register object V308;
1875          V307= (V262);          V307= (V262);
1876          V308= car((V307));          V308= car((V307));
1877  goto T1157;          goto T1157;
1878  T1157:;  T1157:;
1879          if(!(endp_prop((V307)))){          if(!(endp_prop((V307)))){
1880          goto T1158;}          goto T1158;}
1881          goto T1153;          goto T1153;
1882  goto T1158;          goto T1158;
1883  T1158:;  T1158:;
1884          if((cdr(car((V266))))==Cnil){          if((cdr(car((V266))))==Cnil){
1885          goto T1162;}          goto T1162;}
1886          princ_str("\ngoto T",VV[10]);          princ_str("\n   goto T",VV[10]);
1887          (void)((*(LnkLI80))(car(car((V266)))));          (void)((*(LnkLI80))(car(car((V266)))));
1888          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1889          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1890          (void)((*(LnkLI80))(car(car((V266)))));          (void)((*(LnkLI80))(car(car((V266)))));
1891          princ_str(":;",VV[10]);          princ_str(":;",VV[10]);
1892  goto T1162;          goto T1162;
1893  T1162:;  T1162:;
1894          {object V309;          {object V309;
1895          V309= car((V266));          V309= car((V266));
# Line 1898  T1162:; Line 1898  T1162:;
1898          if((caddr((V308)))==Cnil){          if((caddr((V308)))==Cnil){
1899          goto T1177;}          goto T1177;}
1900          (void)((*(LnkLI105))(caddr((V308)),Cnil));          (void)((*(LnkLI105))(caddr((V308)),Cnil));
1901  goto T1177;          goto T1177;
1902  T1177:;  T1177:;
1903          V307= cdr((V307));          V307= cdr((V307));
1904          V308= car((V307));          V308= car((V307));
1905          goto T1157;}          goto T1157;}
1906  goto T1153;          goto T1153;
1907  T1153:;  T1153:;
1908          if((cdr((V306)))==Cnil){          if((cdr((V306)))==Cnil){
1909          goto T1143;}          goto T1143;}
1910          princ_str("\ngoto T",VV[10]);          princ_str("\n   goto T",VV[10]);
1911          (void)((*(LnkLI80))(car((V306))));          (void)((*(LnkLI80))(car((V306))));
1912          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1913          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1914          (void)((*(LnkLI80))(car((V306))));          (void)((*(LnkLI80))(car((V306))));
1915          princ_str(":;",VV[10]);}          princ_str(":;",VV[10]);}
1916  goto T1143;          goto T1143;
1917  T1143:;  T1143:;
1918          if(((V263))==Cnil){          if(((V263))==Cnil){
1919          goto T1194;}          goto T1194;}
1920          (void)((*(LnkLI103))((V263)));          (void)((*(LnkLI103))((V263)));
1921  goto T1194;          goto T1194;
1922  T1194:;  T1194:;
1923          {register object V310;          {register object V310;
1924          register object V311;          register object V311;
1925          V310= (V264);          V310= (V264);
1926          V311= car((V310));          V311= car((V310));
1927  goto T1201;          goto T1201;
1928  T1201:;  T1201:;
1929          if(!(endp_prop((V310)))){          if(!(endp_prop((V310)))){
1930          goto T1202;}          goto T1202;}
1931          goto T1197;          goto T1197;
1932  goto T1202;          goto T1202;
1933  T1202:;  T1202:;
1934          if(!((caaddr((V311)))==(VV[61]))){          if(!((caaddr((V311)))==(VV[61]))){
1935          goto T1208;}          goto T1208;}
# Line 1937  T1202:; Line 1937  T1202:;
1937          goto T1208;}          goto T1208;}
1938          (void)((*(LnkLI103))(cadr((V311))));          (void)((*(LnkLI103))(cadr((V311))));
1939          goto T1206;          goto T1206;
1940  goto T1208;          goto T1208;
1941  T1208:;  T1208:;
1942          princ_str("\n   if(",VV[10]);          princ_str("\n   if(",VV[10]);
1943          V312= structure_ref(cadddr((V311)),VV[6],2);          V312= structure_ref(cadddr((V311)),VV[6],2);
# Line 1953  T1208:; Line 1953  T1208:;
1953          princ_str("\n   }else{",VV[10]);          princ_str("\n   }else{",VV[10]);
1954          (void)((*(LnkLI103))(cadr((V311))));          (void)((*(LnkLI103))(cadr((V311))));
1955          princ_char(125,VV[10]);          princ_char(125,VV[10]);
1956  goto T1206;          goto T1206;
1957  T1206:;  T1206:;
1958          V314= structure_ref(cadddr((V311)),VV[6],1);          V314= structure_ref(cadddr((V311)),VV[6],1);
1959          if((/* INLINE-ARGS */V314)==(VV[40])){          if((/* INLINE-ARGS */V314)==(VV[40])){
1960          goto T1222;}          goto T1222;}
1961          (void)((*(LnkLI103))(cadddr((V311))));          (void)((*(LnkLI103))(cadddr((V311))));
1962  goto T1222;          goto T1222;
1963  T1222:;  T1222:;
1964          V310= cdr((V310));          V310= cdr((V310));
1965          V311= car((V310));          V311= car((V310));
1966          goto T1201;}          goto T1201;}
1967  goto T1197;          goto T1197;
1968  T1197:;  T1197:;
1969          base[10]= (V260);          base[10]= (V260);
1970          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
# Line 1979  T1197:; Line 1979  T1197:;
1979          bds_unwind1;          bds_unwind1;
1980          bds_unwind1;          bds_unwind1;
1981          VMR14(V315)}          VMR14(V315)}
1982  goto T1233;          goto T1233;
1983  T1233:;  T1233:;
1984          {object V316 = Cnil;          {object V316 = Cnil;
1985          bds_unwind1;          bds_unwind1;
# Line 1996  static object LI17(V318) Line 1996  static object LI17(V318)
1996    
1997  object V318;  object V318;
1998  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1999  goto TTL;          goto TTL;
2000  TTL:;  TTL:;
2001          if(symbol_value(VV[55])!=Cnil){          if(symbol_value(VV[55])!=Cnil){
2002          {object V319 = symbol_value(VV[55]);          {object V319 = symbol_value(VV[55]);
# Line 2008  TTL:; Line 2008  TTL:;
2008          if(V321==Cnil)goto T1236;          if(V321==Cnil)goto T1236;
2009          {object V322 = V321;          {object V322 = V321;
2010          VMR15(V322)}          VMR15(V322)}
2011  goto T1236;          goto T1236;
2012  T1236:;}{object V323;  T1236:;}{object V323;
2013          V323= caddr((V318));          V323= caddr((V318));
2014          if(V323==Cnil)goto T1238;          if(V323==Cnil)goto T1238;
2015          {object V324 = V323;          {object V324 = V323;
2016          VMR15(V324)}          VMR15(V324)}
2017  goto T1238;          goto T1238;
2018  T1238:;}  T1238:;}
2019          {object V325 = cadddr((V318));          {object V325 = cadddr((V318));
2020          VMR15(V325)}          VMR15(V325)}
# Line 2027  static object LI18(V329,V330,V331) Line 2027  static object LI18(V329,V330,V331)
2027  object V329;register object V330;register object V331;  object V329;register object V330;register object V331;
2028  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
2029          bds_check;          bds_check;
2030  goto TTL;          goto TTL;
2031  TTL:;  TTL:;
2032          {object V332;          {object V332;
2033          object V333;          object V333;
# Line 2099  TTL:; Line 2099  TTL:;
2099          (VV[64]->s.s_dbind)= make_cons(V332,(VV[64]->s.s_dbind));          (VV[64]->s.s_dbind)= make_cons(V332,(VV[64]->s.s_dbind));
2100          setq(VV[30],make_cons(V332,symbol_value(VV[30])));          setq(VV[30],make_cons(V332,symbol_value(VV[30])));
2101          V330= cddr((V330));          V330= cddr((V330));
2102  goto T1257;          goto T1257;
2103  T1257:;  T1257:;
2104          {register object V345;          {register object V345;
2105          if(type_of((V330))==t_cons||((V330))==Cnil){          if(type_of((V330))==t_cons||((V330))==Cnil){
2106          goto T1274;}          goto T1274;}
2107          V345= Cnil;          V345= Cnil;
2108          goto T1273;          goto T1273;
2109  goto T1274;          goto T1274;
2110  T1274:;  T1274:;
2111          {register object V346;          {register object V346;
2112          V346= (V330);          V346= (V330);
2113  goto T1277;          goto T1277;
2114  T1277:;  T1277:;
2115          if(type_of((V346))==t_cons){          if(type_of((V346))==t_cons){
2116          goto T1278;}          goto T1278;}
2117          V345= Cnil;          V345= Cnil;
2118          goto T1273;          goto T1273;
2119  goto T1278;          goto T1278;
2120  T1278:;  T1278:;
2121          if(!((VV[66])==(car((V346))))){          if(!((VV[66])==(car((V346))))){
2122          goto T1282;}          goto T1282;}
2123          V345= (V346);          V345= (V346);
2124          goto T1273;          goto T1273;
2125  goto T1282;          goto T1282;
2126  T1282:;  T1282:;
2127          V346= cdr((V346));          V346= cdr((V346));
2128          goto T1277;}          goto T1277;}
2129  goto T1273;          goto T1273;
2130  T1273:;  T1273:;
2131          if(((V345))==Cnil){          if(((V345))==Cnil){
2132          goto T1272;}          goto T1272;}
# Line 2143  T1273:; Line 2143  T1273:;
2143          vs_top=sup;          vs_top=sup;
2144          V350= vs_base[0];          V350= vs_base[0];
2145          V330= append(V350,cddr((V345)));}          V330= append(V350,cddr((V345)));}
2146  goto T1272;          goto T1272;
2147  T1272:;  T1272:;
2148          base[4]= (V330);          base[4]= (V330);
2149          base[5]= (V336);          base[5]= (V336);
# Line 2170  T1272:; Line 2170  T1272:;
2170          if(((V352))==Cnil){          if(((V352))==Cnil){
2171          goto T1316;}          goto T1316;}
2172          goto T1313;          goto T1313;
2173  goto T1316;          goto T1316;
2174  T1316:;  T1316:;
2175          (void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct));          (void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct));
2176          (void)(sputprop((V329),VV[67],Ct));}          (void)(sputprop((V329),VV[67],Ct));}
2177  goto T1313;          goto T1313;
2178  T1313:;  T1313:;
2179          {register object V353;          {register object V353;
2180          register object V354;          register object V354;
2181          V353= (VV[64]->s.s_dbind);          V353= (VV[64]->s.s_dbind);
2182          V354= car((V353));          V354= car((V353));
2183  goto T1323;          goto T1323;
2184  T1323:;  T1323:;
2185          if(!(endp_prop((V353)))){          if(!(endp_prop((V353)))){
2186          goto T1324;}          goto T1324;}
2187          goto T1319;          goto T1319;
2188  goto T1324;          goto T1324;
2189  T1324:;  T1324:;
2190          (void)((*(LnkLI97))((V354)));          (void)((*(LnkLI97))((V354)));
2191          V353= cdr((V353));          V353= cdr((V353));
2192          V354= car((V353));          V354= car((V353));
2193          goto T1323;}          goto T1323;}
2194  goto T1319;          goto T1319;
2195  T1319:;  T1319:;
2196          {object V355 = list(7,(V335),(V340),(V332),(V333),(V330),(V331),(VV[63]->s.s_dbind));          {object V355 = list(7,(V335),(V340),(V332),(V333),(V330),(V331),(VV[63]->s.s_dbind));
2197          bds_unwind1;          bds_unwind1;
# Line 2218  static void L19() Line 2218  static void L19()
2218          V358=(base[2]);          V358=(base[2]);
2219          V359=(base[3]);          V359=(base[3]);
2220          vs_top=sup;          vs_top=sup;
2221  goto TTL;          goto TTL;
2222  TTL:;  TTL:;
2223          {register object V360;          {register object V360;
2224          object V361;          object V361;
# Line 2248  TTL:; Line 2248  TTL:;
2248          V371= Cnil;          V371= Cnil;
2249          V372= small_fixnum(0);          V372= small_fixnum(0);
2250          V373= Cnil;          V373= Cnil;
2251  goto T1335;          goto T1335;
2252  T1335:;  T1335:;
2253          if(type_of((V356))==t_cons){          if(type_of((V356))==t_cons){
2254          goto T1336;}          goto T1336;}
# Line 2260  T1335:; Line 2260  T1335:;
2260          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2261          (void) (*Lnk111)();          (void) (*Lnk111)();
2262          vs_top=sup;          vs_top=sup;
2263  goto T1342;          goto T1342;
2264  T1342:;  T1342:;
2265          base[4]= (V356);          base[4]= (V356);
2266          base[5]= (V357);          base[5]= (V357);
# Line 2270  T1342:; Line 2270  T1342:;
2270          (void) (*Lnk112)();          (void) (*Lnk112)();
2271          vs_top=sup;          vs_top=sup;
2272          V367= vs_base[0];          V367= vs_base[0];
2273  goto T1339;          goto T1339;
2274  T1339:;  T1339:;
2275          V374= reverse((V365));          V374= reverse((V365));
2276          V375= reverse((V366));          V375= reverse((V366));
# Line 2279  T1339:; Line 2279  T1339:;
2279          base[5]= (V373);          base[5]= (V373);
2280          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2281          return;          return;
2282  goto T1336;          goto T1336;
2283  T1336:;  T1336:;
2284          {register object V377;          {register object V377;
2285          V377= car((V356));          V377= car((V356));
# Line 2291  T1336:; Line 2291  T1336:;
2291          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2292          (void) (*Lnk111)();          (void) (*Lnk111)();
2293          vs_top=sup;          vs_top=sup;
2294  goto T1359;          goto T1359;
2295  T1359:;  T1359:;
2296          V360= Ct;          V360= Ct;
2297          {object V378;          {object V378;
2298          V378= car((V356));          V378= car((V356));
2299          V356= cdr((V356));          V356= cdr((V356));
2300          goto T1354;}          goto T1354;}
2301  goto T1357;          goto T1357;
2302  T1357:;  T1357:;
2303          if(((V377))==(VV[68])){          if(((V377))==(VV[68])){
2304          goto T1368;}          goto T1368;}
2305          if(!(((V377))==(VV[70]))){          if(!(((V377))==(VV[70]))){
2306          goto T1369;}          goto T1369;}
2307  goto T1368;          goto T1368;
2308  T1368:;  T1368:;
2309          if(((V361))==Cnil){          if(((V361))==Cnil){
2310          goto T1373;}          goto T1373;}
# Line 2312  T1368:; Line 2312  T1368:;
2312          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2313          (void) (*Lnk111)();          (void) (*Lnk111)();
2314          vs_top=sup;          vs_top=sup;
2315  goto T1373;          goto T1373;
2316  T1373:;  T1373:;
2317          base[4]= cadr((V356));          base[4]= cadr((V356));
2318          base[5]= (V357);          base[5]= (V357);
# Line 2329  T1373:; Line 2329  T1373:;
2329          goto T1354;}          goto T1354;}
2330          V373= (V372);          V373= (V372);
2331          goto T1354;          goto T1354;
2332  goto T1369;          goto T1369;
2333  T1369:;  T1369:;
2334          if(!(((V377))==(VV[71]))){          if(!(((V377))==(VV[71]))){
2335          goto T1393;}          goto T1393;}
# Line 2339  T1369:; Line 2339  T1369:;
2339          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2340          (void) (*Lnk111)();          (void) (*Lnk111)();
2341          vs_top=sup;          vs_top=sup;
2342  goto T1395;          goto T1395;
2343  T1395:;  T1395:;
2344          V362= Ct;          V362= Ct;
2345          V361= Ct;          V361= Ct;
# Line 2349  T1395:; Line 2349  T1395:;
2349          V379= car((V356));          V379= car((V356));
2350          V356= cdr((V356));          V356= cdr((V356));
2351          goto T1354;}          goto T1354;}
2352  goto T1393;          goto T1393;
2353  T1393:;  T1393:;
2354          if(!(((V377))==(VV[72]))){          if(!(((V377))==(VV[72]))){
2355          goto T1411;}          goto T1411;}
# Line 2357  T1393:; Line 2357  T1393:;
2357          goto T1414;}          goto T1414;}
2358          if(((V363))==Cnil){          if(((V363))==Cnil){
2359          goto T1413;}          goto T1413;}
2360  goto T1414;          goto T1414;
2361  T1414:;  T1414:;
2362          base[4]= VV[72];          base[4]= VV[72];
2363          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2364          (void) (*Lnk111)();          (void) (*Lnk111)();
2365          vs_top=sup;          vs_top=sup;
2366  goto T1413;          goto T1413;
2367  T1413:;  T1413:;
2368          V363= Ct;          V363= Ct;
2369          V371= Ct;          V371= Ct;
# Line 2371  T1413:; Line 2371  T1413:;
2371          V380= car((V356));          V380= car((V356));
2372          V356= cdr((V356));          V356= cdr((V356));
2373          goto T1354;}          goto T1354;}
2374  goto T1411;          goto T1411;
2375  T1411:;  T1411:;
2376          if(!(((V377))==(VV[73]))){          if(!(((V377))==(VV[73]))){
2377          goto T1427;}          goto T1427;}
# Line 2381  T1411:; Line 2381  T1411:;
2381          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2382          (void) (*Lnk111)();          (void) (*Lnk111)();
2383          vs_top=sup;          vs_top=sup;
2384  goto T1429;          goto T1429;
2385  T1429:;  T1429:;
2386          V364= Ct;          V364= Ct;
2387          V363= Ct;          V363= Ct;
# Line 2392  T1429:; Line 2392  T1429:;
2392          V381= car((V356));          V381= car((V356));
2393          V356= cdr((V356));          V356= cdr((V356));
2394          goto T1354;}          goto T1354;}
2395  goto T1427;          goto T1427;
2396  T1427:;  T1427:;
2397          if(((V364))==Cnil){          if(((V364))==Cnil){
2398          goto T1447;}          goto T1447;}
# Line 2405  T1427:; Line 2405  T1427:;
2405          V382= (V377);          V382= (V377);
2406          V383= (*(LnkLI113))();          V383= (*(LnkLI113))();
2407          goto T1450;          goto T1450;
2408  goto T1452;          goto T1452;
2409  T1452:;  T1452:;
2410          V382= car((V377));          V382= car((V377));
2411          if(!(endp_prop(cdr((V377))))){          if(!(endp_prop(cdr((V377))))){
2412          goto T1460;}          goto T1460;}
2413          V383= (*(LnkLI113))();          V383= (*(LnkLI113))();
2414          goto T1450;          goto T1450;
2415  goto T1460;          goto T1460;
2416  T1460:;  T1460:;
2417          V383= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63]));          V383= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63]));
2418  goto T1450;          goto T1450;
2419  T1450:;  T1450:;
2420          {object V384;          {object V384;
2421          base[5]= (V382);          base[5]= (V382);
# Line 2432  T1450:; Line 2432  T1450:;
2432          V386= car((V356));          V386= car((V356));
2433          V356= cdr((V356));          V356= cdr((V356));
2434          goto T1354;}          goto T1354;}
2435  goto T1447;          goto T1447;
2436  T1447:;  T1447:;
2437          if(((V362))==Cnil){          if(((V362))==Cnil){
2438          goto T1475;}          goto T1475;}
# Line 2455  T1447:; Line 2455  T1447:;
2455          V388= vs_base[0];          V388= vs_base[0];
2456          V389= (*(LnkLI113))();          V389= (*(LnkLI113))();
2457          goto T1478;          goto T1478;
2458  goto T1480;          goto T1480;
2459  T1480:;  T1480:;
2460          if(!(type_of(car((V377)))==t_symbol)){          if(!(type_of(car((V377)))==t_symbol)){
2461          goto T1491;}          goto T1491;}
# Line 2467  T1480:; Line 2467  T1480:;
2467          vs_top=sup;          vs_top=sup;
2468          V388= vs_base[0];          V388= vs_base[0];
2469          goto T1489;          goto T1489;
2470  goto T1491;          goto T1491;
2471  T1491:;  T1491:;
2472          V387= cadar((V377));          V387= cadar((V377));
2473          V388= caar((V377));          V388= caar((V377));
2474  goto T1489;          goto T1489;
2475  T1489:;  T1489:;
2476          if(!(endp_prop(cdr((V377))))){          if(!(endp_prop(cdr((V377))))){
2477          goto T1502;}          goto T1502;}
2478          V389= (*(LnkLI113))();          V389= (*(LnkLI113))();
2479          goto T1478;          goto T1478;
2480  goto T1502;          goto T1502;
2481  T1502:;  T1502:;
2482          V389= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63]));          V389= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63]));
2483          if(endp_prop(cddr((V377)))){          if(endp_prop(cddr((V377)))){
2484          goto T1478;}          goto T1478;}
2485          V390= caddr((V377));          V390= caddr((V377));
2486  goto T1478;          goto T1478;
2487  T1478:;  T1478:;
2488          {object V391;          {object V391;
2489          base[5]= (V387);          base[5]= (V387);
# Line 2505  T1478:; Line 2505  T1478:;
2505          vs_top=sup;          vs_top=sup;
2506          V393= vs_base[0];          V393= vs_base[0];
2507          goto T1516;          goto T1516;
2508  goto T1518;          goto T1518;
2509  T1518:;  T1518:;
2510          V393= Cnil;          V393= Cnil;
2511  goto T1516;          goto T1516;
2512  T1516:;  T1516:;
2513          V391= list(4,(V388),V392,(V389),V393);          V391= list(4,(V388),V392,(V389),V393);
2514          V369= make_cons((V391),(V369));}}          V369= make_cons((V391),(V369));}}
# Line 2516  T1516:; Line 2516  T1516:;
2516          V394= car((V356));          V394= car((V356));
2517          V356= cdr((V356));          V356= cdr((V356));
2518          goto T1354;}          goto T1354;}
2519  goto T1475;          goto T1475;
2520  T1475:;  T1475:;
2521          if(((V360))==Cnil){          if(((V360))==Cnil){
2522          goto T1529;}          goto T1529;}
# Line 2531  T1475:; Line 2531  T1475:;
2531          V395= (V377);          V395= (V377);
2532          V396= (*(LnkLI113))();          V396= (*(LnkLI113))();
2533          goto T1532;          goto T1532;
2534  goto T1534;          goto T1534;
2535  T1534:;  T1534:;
2536          V395= car((V377));          V395= car((V377));
2537          if(!(endp_prop(cdr((V377))))){          if(!(endp_prop(cdr((V377))))){
2538          goto T1542;}          goto T1542;}
2539          V396= (*(LnkLI113))();          V396= (*(LnkLI113))();
2540          goto T1532;          goto T1532;
2541  goto T1542;          goto T1542;
2542  T1542:;  T1542:;
2543          V396= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63]));          V396= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63]));
2544          if(endp_prop(cddr((V377)))){          if(endp_prop(cddr((V377)))){
2545          goto T1532;}          goto T1532;}
2546          V397= caddr((V377));          V397= caddr((V377));
2547  goto T1532;          goto T1532;
2548  T1532:;  T1532:;
2549          {object V398;          {object V398;
2550          base[5]= (V395);          base[5]= (V395);
# Line 2566  T1532:; Line 2566  T1532:;
2566          vs_top=sup;          vs_top=sup;
2567          V400= vs_base[0];          V400= vs_base[0];
2568          goto T1556;          goto T1556;
2569  goto T1558;          goto T1558;
2570  T1558:;  T1558:;
2571          V400= Cnil;          V400= Cnil;
2572  goto T1556;          goto T1556;
2573  T1556:;  T1556:;
2574          V398= list(3,V399,(V396),V400);          V398= list(3,V399,(V396),V400);
2575          V366= make_cons((V398),(V366));}}          V366= make_cons((V398),(V366));}}
# Line 2578  T1556:; Line 2578  T1556:;
2578          V356= cdr((V356));}          V356= cdr((V356));}
2579          V372= number_plus((V372),small_fixnum(1));          V372= number_plus((V372),small_fixnum(1));
2580          goto T1354;          goto T1354;
2581  goto T1529;          goto T1529;
2582  T1529:;  T1529:;
2583          {object V402;          {object V402;
2584          base[5]= (V377);          base[5]= (V377);
# Line 2594  T1529:; Line 2594  T1529:;
2594          V403= car((V356));          V403= car((V356));
2595          V356= cdr((V356));}          V356= cdr((V356));}
2596          V372= number_plus((V372),small_fixnum(1));}          V372= number_plus((V372),small_fixnum(1));}
2597  goto T1354;          goto T1354;
2598  T1354:;  T1354:;
2599          goto T1335;}          goto T1335;}
2600          }          }
# Line 2615  static void L20() Line 2615  static void L20()
2615          V406=(base[2]);          V406=(base[2]);
2616          V407=(base[3]);          V407=(base[3]);
2617          vs_top=sup;          vs_top=sup;
2618  goto TTL;          goto TTL;
2619  TTL:;  TTL:;
2620          if(!(type_of((V404))==t_symbol)){          if(!(type_of((V404))==t_symbol)){
2621          goto T1585;}          goto T1585;}
# Line 2626  TTL:; Line 2626  TTL:;
2626          base[4]= (V404);          base[4]= (V404);
2627          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2628          return;          return;
2629  goto T1585;          goto T1585;
2630  T1585:;  T1585:;
2631          base[4]= (V404);          base[4]= (V404);
2632          base[5]= (V405);          base[5]= (V405);
# Line 2643  static object LI21(V412) Line 2643  static object LI21(V412)
2643    
2644  object V412;  object V412;
2645  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
2646  goto TTL;          goto TTL;
2647  TTL:;  TTL:;
2648          {object V413 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V412)));          {object V413 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V412)));
2649          VMR19(V413)}          VMR19(V413)}
# Line 2665  static void L22() Line 2665  static void L22()
2665          V416=(base[2]);          V416=(base[2]);
2666          V417=(base[3]);          V417=(base[3]);
2667          vs_top=sup;          vs_top=sup;
2668  goto TTL;          goto TTL;
2669  TTL:;  TTL:;
2670          {object V418;          {object V418;
2671          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
# Line 2674  TTL:; Line 2674  TTL:;
2674          goto T1602;}          goto T1602;}
2675          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
2676          goto T1601;}          goto T1601;}
2677  goto T1602;          goto T1602;
2678  T1602:;  T1602:;
2679          princ_str("\n   check_arg(2);",VV[10]);          princ_str("\n   check_arg(2);",VV[10]);
2680  goto T1601;          goto T1601;
2681  T1601:;  T1601:;
2682          if(((V414))==Cnil){          if(((V414))==Cnil){
2683          goto T1609;}          goto T1609;}
2684          V419= (*(LnkLI102))();          V419= (*(LnkLI102))();
2685          (void)(structure_set((V414),VV[6],2,/* INLINE-ARGS */V419));          (void)(structure_set((V414),VV[6],2,/* INLINE-ARGS */V419));
2686          goto T1607;          goto T1607;
2687  goto T1609;          goto T1609;
2688  T1609:;  T1609:;
2689          (void)((*(LnkLI102))());          (void)((*(LnkLI102))());
2690  goto T1607;          goto T1607;
2691  T1607:;  T1607:;
2692          if(((V415))==Cnil){          if(((V415))==Cnil){
2693          goto T1613;}          goto T1613;}
2694          V420= (*(LnkLI102))();          V420= (*(LnkLI102))();
2695          (void)(structure_set((V415),VV[6],2,/* INLINE-ARGS */V420));          (void)(structure_set((V415),VV[6],2,/* INLINE-ARGS */V420));
2696          goto T1611;          goto T1611;
2697  goto T1613;          goto T1613;
2698  T1613:;  T1613:;
2699          (void)((*(LnkLI102))());          (void)((*(LnkLI102))());
2700  goto T1611;          goto T1611;
2701  T1611:;  T1611:;
2702          (void)((*(LnkLI114))((V416)));          (void)((*(LnkLI114))((V416)));
2703          princ_str("\n   vs_top=sup;",VV[10]);          princ_str("\n   vs_top=sup;",VV[10]);
2704          if(((V414))==Cnil){          if(((V414))==Cnil){
2705          goto T1618;}          goto T1618;}
2706          (void)((*(LnkLI103))((V414)));          (void)((*(LnkLI103))((V414)));
2707  goto T1618;          goto T1618;
2708  T1618:;  T1618:;
2709          if(((V415))==Cnil){          if(((V415))==Cnil){
2710          goto T1621;}          goto T1621;}
2711          (void)((*(LnkLI103))((V415)));          (void)((*(LnkLI103))((V415)));
2712  goto T1621;          goto T1621;
2713  T1621:;  T1621:;
2714          princ_str("\n   {object V",VV[10]);          princ_str("\n   {object V",VV[10]);
2715          (void)((*(LnkLI80))((V418)));          (void)((*(LnkLI80))((V418)));
# Line 2728  static object LI23(V422) Line 2728  static object LI23(V422)
2728    
2729  object V422;  object V422;
2730  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
2731  goto TTL;          goto TTL;
2732  TTL:;  TTL:;
2733          {register object V423;          {register object V423;
2734          object V424;          object V424;
2735          V423= car((V422));          V423= car((V422));
2736          V424= car((V423));          V424= car((V423));
2737  goto T1636;          goto T1636;
2738  T1636:;  T1636:;
2739          if(!(endp_prop((V423)))){          if(!(endp_prop((V423)))){
2740          goto T1637;}          goto T1637;}
2741          goto T1632;          goto T1632;
2742  goto T1637;          goto T1637;
2743  T1637:;  T1637:;
2744          (void)((*(LnkLI116))((V424)));          (void)((*(LnkLI116))((V424)));
2745          V423= cdr((V423));          V423= cdr((V423));
2746          V424= car((V423));          V424= car((V423));
2747          goto T1636;}          goto T1636;}
2748  goto T1632;          goto T1632;
2749  T1632:;  T1632:;
2750          {register object V425;          {register object V425;
2751          register object V426;          register object V426;
2752          V425= cadr((V422));          V425= cadr((V422));
2753          V426= car((V425));          V426= car((V425));
2754  goto T1651;          goto T1651;
2755  T1651:;  T1651:;
2756          if(!(endp_prop((V425)))){          if(!(endp_prop((V425)))){
2757          goto T1652;}          goto T1652;}
2758          goto T1647;          goto T1647;
2759  goto T1652;          goto T1652;
2760  T1652:;  T1652:;
2761          (void)((*(LnkLI116))(car((V426))));          (void)((*(LnkLI116))(car((V426))));
2762          if((caddr((V426)))==Cnil){          if((caddr((V426)))==Cnil){
2763          goto T1657;}          goto T1657;}
2764          (void)((*(LnkLI116))(caddr((V426))));          (void)((*(LnkLI116))(caddr((V426))));
2765  goto T1657;          goto T1657;
2766  T1657:;  T1657:;
2767          V425= cdr((V425));          V425= cdr((V425));
2768          V426= car((V425));          V426= car((V425));
2769          goto T1651;}          goto T1651;}
2770  goto T1647;          goto T1647;
2771  T1647:;  T1647:;
2772          if((caddr((V422)))==Cnil){          if((caddr((V422)))==Cnil){
2773          goto T1665;}          goto T1665;}
2774          (void)((*(LnkLI116))(caddr((V422))));          (void)((*(LnkLI116))(caddr((V422))));
2775  goto T1665;          goto T1665;
2776  T1665:;  T1665:;
2777          {register object V427;          {register object V427;
2778          register object V428;          register object V428;
2779          V427= car(cddddr((V422)));          V427= car(cddddr((V422)));
2780          V428= car((V427));          V428= car((V427));
2781  goto T1672;          goto T1672;
2782  T1672:;  T1672:;
2783          if(!(endp_prop((V427)))){          if(!(endp_prop((V427)))){
2784          goto T1673;}          goto T1673;}
2785          goto T1668;          goto T1668;
2786  goto T1673;          goto T1673;
2787  T1673:;  T1673:;
2788          (void)((*(LnkLI116))(cadr((V428))));          (void)((*(LnkLI116))(cadr((V428))));
2789          if((cadddr((V428)))==Cnil){          if((cadddr((V428)))==Cnil){
2790          goto T1678;}          goto T1678;}
2791          (void)((*(LnkLI116))(cadddr((V428))));          (void)((*(LnkLI116))(cadddr((V428))));
2792  goto T1678;          goto T1678;
2793  T1678:;  T1678:;
2794          V427= cdr((V427));          V427= cdr((V427));
2795          V428= car((V427));          V428= car((V427));
2796          goto T1672;}          goto T1672;}
2797  goto T1668;          goto T1668;
2798  T1668:;  T1668:;
2799          {register object V429;          {register object V429;
2800          object V430;          object V430;
2801          V429= caddr(cddddr((V422)));          V429= caddr(cddddr((V422)));
2802          V430= car((V429));          V430= car((V429));
2803  goto T1689;          goto T1689;
2804  T1689:;  T1689:;
2805          if(!(endp_prop((V429)))){          if(!(endp_prop((V429)))){
2806          goto T1690;}          goto T1690;}
2807          {object V431 = Cnil;          {object V431 = Cnil;
2808          VMR21(V431)}          VMR21(V431)}
2809  goto T1690;          goto T1690;
2810  T1690:;  T1690:;
2811          (void)((*(LnkLI116))(car((V430))));          (void)((*(LnkLI116))(car((V430))));
2812          V429= cdr((V429));          V429= cdr((V429));
# Line 2821  static object LI24(V433) Line 2821  static object LI24(V433)
2821    
2822  object V433;  object V433;
2823  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
2824  goto TTL;          goto TTL;
2825  TTL:;  TTL:;
2826          if(!(type_of((V433))==t_cons)){          if(!(type_of((V433))==t_cons)){
2827          goto T1701;}          goto T1701;}
2828          {object V434 = (*(LnkLI114))((V433));          {object V434 = (*(LnkLI114))((V433));
2829          VMR22(V434)}          VMR22(V434)}
2830  goto T1701;          goto T1701;
2831  T1701:;  T1701:;
2832          V435= (*(LnkLI102))();          V435= (*(LnkLI102))();
2833          {object V436 = structure_set((V433),VV[6],2,/* INLINE-ARGS */V435);          {object V436 = structure_set((V433),VV[6],2,/* INLINE-ARGS */V435);
# Line 2841  static object LI25(V439,V440) Line 2841  static object LI25(V439,V440)
2841  object V439;register object V440;  object V439;register object V440;
2842  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
2843          bds_check;          bds_check;
2844  goto TTL;          goto TTL;
2845  TTL:;  TTL:;
2846          {object V441;          {object V441;
2847          object V442;          object V442;
# Line 2859  TTL:; Line 2859  TTL:;
2859          V447= caddr(cddddr((V439)));          V447= caddr(cddddr((V439)));
2860          {register object V448;          {register object V448;
2861          V448= (V441);          V448= (V441);
2862  goto T1712;          goto T1712;
2863  T1712:;  T1712:;
2864          if(!(endp_prop((V448)))){          if(!(endp_prop((V448)))){
2865          goto T1713;}          goto T1713;}
2866          goto T1710;          goto T1710;
2867  goto T1713;          goto T1713;
2868  T1713:;  T1713:;
2869          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
2870          goto T1718;}          goto T1718;}
2871          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
2872          goto T1717;}          goto T1717;}
2873  goto T1718;          goto T1718;
2874  T1718:;  T1718:;
2875          princ_str("\n   if(endp(V",VV[10]);          princ_str("\n   if(endp(V",VV[10]);
2876          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI80))((V440)));
2877          princ_str("))invalid_macro_call();",VV[10]);          princ_str("))invalid_macro_call();",VV[10]);
2878  goto T1717;          goto T1717;
2879  T1717:;  T1717:;
2880          V449= car((V448));          V449= car((V448));
2881          V450= list(2,VV[75],(V440));          V450= list(2,VV[75],(V440));
# Line 2892  T1717:; Line 2892  T1717:;
2892          goto T1727;}          goto T1727;}
2893          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
2894          goto T1726;}          goto T1726;}
2895  goto T1727;          goto T1727;
2896  T1727:;  T1727:;
2897          princ_str("\n   V",VV[10]);          princ_str("\n   V",VV[10]);
2898          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI80))((V440)));
2899          princ_str("=V",VV[10]);          princ_str("=V",VV[10]);
2900          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI80))((V440)));
2901          princ_str("->c.c_cdr;",VV[10]);          princ_str("->c.c_cdr;",VV[10]);
2902  goto T1726;          goto T1726;
2903  T1726:;  T1726:;
2904          V448= cdr((V448));          V448= cdr((V448));
2905          goto T1712;}          goto T1712;}
2906  goto T1710;          goto T1710;
2907  T1710:;  T1710:;
2908          {register object V451;          {register object V451;
2909          V451= (V442);          V451= (V442);
2910  goto T1749;          goto T1749;
2911  T1749:;  T1749:;
2912          if(!(endp_prop((V451)))){          if(!(endp_prop((V451)))){
2913          goto T1750;}          goto T1750;}
2914          goto T1747;          goto T1747;
2915  goto T1750;          goto T1750;
2916  T1750:;  T1750:;
2917          {register object V452;          {register object V452;
2918          V452= car((V451));          V452= car((V451));
# Line 2932  T1750:; Line 2932  T1750:;
2932          bds_unwind1;          bds_unwind1;
2933          bds_unwind1;          bds_unwind1;
2934          bds_unwind1;          bds_unwind1;
2935  goto T1760;          goto T1760;
2936  T1760:;  T1760:;
2937          princ_str("\n   } else {",VV[10]);          princ_str("\n   } else {",VV[10]);
2938          V454= car((V452));          V454= car((V452));
# Line 2941  T1760:; Line 2941  T1760:;
2941          if((caddr((V452)))==Cnil){          if((caddr((V452)))==Cnil){
2942          goto T1754;}          goto T1754;}
2943          (void)((*(LnkLI117))(caddr((V452)),Ct));}          (void)((*(LnkLI117))(caddr((V452)),Ct));}
2944  goto T1754;          goto T1754;
2945  T1754:;  T1754:;
2946          if((cdr((V451)))!=Cnil){          if((cdr((V451)))!=Cnil){
2947          goto T1770;}          goto T1770;}
# Line 2953  T1754:; Line 2953  T1754:;
2953          goto T1770;}          goto T1770;}
2954          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
2955          goto T1769;}          goto T1769;}
2956  goto T1770;          goto T1770;
2957  T1770:;  T1770:;
2958          princ_str("\n   V",VV[10]);          princ_str("\n   V",VV[10]);
2959          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI80))((V440)));
2960          princ_str("=V",VV[10]);          princ_str("=V",VV[10]);
2961          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI80))((V440)));
2962          princ_str("->c.c_cdr;",VV[10]);          princ_str("->c.c_cdr;",VV[10]);
2963  goto T1769;          goto T1769;
2964  T1769:;  T1769:;
2965          princ_char(125,VV[10]);          princ_char(125,VV[10]);
2966          V451= cdr((V451));          V451= cdr((V451));
2967          goto T1749;}          goto T1749;}
2968  goto T1747;          goto T1747;
2969  T1747:;  T1747:;
2970          if(((V443))==Cnil){          if(((V443))==Cnil){
2971          goto T1790;}          goto T1790;}
2972          V456= list(2,VV[76],(V440));          V456= list(2,VV[76],(V440));
2973          (void)((*(LnkLI117))((V443),/* INLINE-ARGS */V456));          (void)((*(LnkLI117))((V443),/* INLINE-ARGS */V456));
2974  goto T1790;          goto T1790;
2975  T1790:;  T1790:;
2976          {object V457;          {object V457;
2977          register object V458;          register object V458;
2978          V457= (V445);          V457= (V445);
2979          V458= car((V457));          V458= car((V457));
2980  goto T1797;          goto T1797;
2981  T1797:;  T1797:;
2982          if(!(endp_prop((V457)))){          if(!(endp_prop((V457)))){
2983          goto T1798;}          goto T1798;}
2984          goto T1793;          goto T1793;
2985  goto T1798;          goto T1798;
2986  T1798:;  T1798:;
2987          {object V459;          {object V459;
2988          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
# Line 3005  T1798:; Line 3005  T1798:;
3005          if((cadddr((V458)))==Cnil){          if((cadddr((V458)))==Cnil){
3006          goto T1819;}          goto T1819;}
3007          (void)((*(LnkLI117))(cadddr((V458)),Cnil));          (void)((*(LnkLI117))(cadddr((V458)),Cnil));
3008  goto T1819;          goto T1819;
3009  T1819:;  T1819:;
3010          princ_str("\n   } else {",VV[10]);          princ_str("\n   } else {",VV[10]);
3011          bds_unwind1;          bds_unwind1;
# Line 3017  T1819:; Line 3017  T1819:;
3017          if((cadddr((V458)))==Cnil){          if((cadddr((V458)))==Cnil){
3018          goto T1824;}          goto T1824;}
3019          (void)((*(LnkLI117))(cadddr((V458)),Ct));          (void)((*(LnkLI117))(cadddr((V458)),Ct));
3020  goto T1824;          goto T1824;
3021  T1824:;  T1824:;
3022          princ_str("}}",VV[10]);}          princ_str("}}",VV[10]);}
3023          V457= cdr((V457));          V457= cdr((V457));
3024          V458= car((V457));          V458= car((V457));
3025          goto T1797;}          goto T1797;}
3026  goto T1793;          goto T1793;
3027  T1793:;  T1793:;
3028          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
3029          goto T1835;}          goto T1835;}
3030          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
3031          goto T1833;}          goto T1833;}
3032  goto T1835;          goto T1835;
3033  T1835:;  T1835:;
3034          if(((V443))!=Cnil){          if(((V443))!=Cnil){
3035          goto T1833;}          goto T1833;}
# Line 3038  T1835:; Line 3038  T1835:;
3038          princ_str("\n   if(!endp(V",VV[10]);          princ_str("\n   if(!endp(V",VV[10]);
3039          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI80))((V440)));
3040          princ_str("))invalid_macro_call();",VV[10]);          princ_str("))invalid_macro_call();",VV[10]);
3041  goto T1833;          goto T1833;
3042  T1833:;  T1833:;
3043          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
3044          goto T1847;}          goto T1847;}
3045          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
3046          goto T1845;}          goto T1845;}
3047  goto T1847;          goto T1847;
3048  T1847:;  T1847:;
3049          if(((V444))==Cnil){          if(((V444))==Cnil){
3050          goto T1845;}          goto T1845;}
# Line 3059  T1847:; Line 3059  T1847:;
3059          object V465;          object V465;
3060          V464= (V445);          V464= (V445);
3061          V465= car((V464));          V465= car((V464));
3062  goto T1863;          goto T1863;
3063  T1863:;  T1863:;
3064          if(!(endp_prop((V464)))){          if(!(endp_prop((V464)))){
3065          goto T1864;}          goto T1864;}
3066          goto T1859;          goto T1859;
3067  goto T1864;          goto T1864;
3068  T1864:;  T1864:;
3069          princ_str(",VV[",VV[10]);          princ_str(",VV[",VV[10]);
3070          V466= (*(LnkLI108))(car((V465)));          V466= (*(LnkLI108))(car((V465)));
# Line 3073  T1864:; Line 3073  T1864:;
3073          V464= cdr((V464));          V464= cdr((V464));
3074          V465= car((V464));          V465= car((V464));
3075          goto T1863;}          goto T1863;}
3076  goto T1859;          goto T1859;
3077  T1859:;  T1859:;
3078          princ_str(");",VV[10]);          princ_str(");",VV[10]);
3079  goto T1845;          goto T1845;
3080  T1845:;  T1845:;
3081          {object V467;          {object V467;
3082          object V468;          object V468;
3083          V467= (V447);          V467= (V447);
3084          V468= car((V467));          V468= car((V467));
3085  goto T1881;          goto T1881;
3086  T1881:;  T1881:;
3087          if(!(endp_prop((V467)))){          if(!(endp_prop((V467)))){
3088          goto T1882;}          goto T1882;}
3089          {object V469 = Cnil;          {object V469 = Cnil;
3090          VMR23(V469)}          VMR23(V469)}
3091  goto T1882;          goto T1882;
3092  T1882:;  T1882:;
3093          (void)((*(LnkLI118))(car((V468)),cadr((V468))));          (void)((*(LnkLI118))(car((V468)),cadr((V468))));
3094          V467= cdr((V467));          V467= cdr((V467));
# Line 3103  static object LI26(V472,V473) Line 3103  static object LI26(V472,V473)
3103    
3104  object V472;object V473;  object V472;object V473;
3105  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
3106  goto TTL;          goto TTL;
3107  TTL:;  TTL:;
3108          if(!(type_of((V472))==t_cons)){          if(!(type_of((V472))==t_cons)){
3109          goto T1893;}          goto T1893;}
# Line 3119  TTL:; Line 3119  TTL:;
3119          princ_char(125,VV[10]);          princ_char(125,VV[10]);
3120          {object V475 = Cnil;          {object V475 = Cnil;
3121          VMR24(V475)}}          VMR24(V475)}}
3122  goto T1893;          goto T1893;
3123  T1893:;  T1893:;
3124          {object V476 = (*(LnkLI105))((V472),(V473));          {object V476 = (*(LnkLI105))((V472),(V473));
3125          VMR24(V476)}          VMR24(V476)}
# Line 3132  static object LI27(V479,V480) Line 3132  static object LI27(V479,V480)
3132  object V479;object V480;  object V479;object V480;
3133  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
3134          bds_check;          bds_check;
3135  goto TTL;          goto TTL;
3136  TTL:;  TTL:;
3137          if(!(type_of((V479))==t_cons)){          if(!(type_of((V479))==t_cons)){
3138          goto T1906;}          goto T1906;}
# Line 3156  TTL:; Line 3156  TTL:;
3156          bds_unwind1;          bds_unwind1;
3157          bds_unwind1;          bds_unwind1;
3158          VMR25(V485)}}          VMR25(V485)}}
3159  goto T1906;          goto T1906;
3160  T1906:;  T1906:;
3161          {object V486 = (*(LnkLI106))((V479),(V480));          {object V486 = (*(LnkLI106))((V479),(V480));
3162          VMR25(V486)}          VMR25(V486)}
# Line 3174  register object *base0; Line 3174  register object *base0;
3174          check_arg(1);          check_arg(1);
3175          V487=(base[0]);          V487=(base[0]);
3176          vs_top=sup;          vs_top=sup;
3177  goto TTL;          goto TTL;
3178  TTL:;  TTL:;
3179          {object V488;          {object V488;
3180          V488= (*(LnkLI121))((V487));          V488= (*(LnkLI121))((V487));
# Line 3190  TTL:; Line 3190  TTL:;
3190          goto T1929;}          goto T1929;}
3191          princ_char(123,VV[10]);          princ_char(123,VV[10]);
3192          base0[9]= Ct;          base0[9]= Ct;
3193  goto T1929;          goto T1929;
3194  T1929:;  T1929:;
3195          base[1]= (V487);          base[1]= (V487);
3196          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3197          (void) (*Lnk122)();          (void) (*Lnk122)();
3198          return;}          return;}
3199  goto T1922;          goto T1922;
3200  T1922:;  T1922:;
3201          base[1]= Cnil;          base[1]= Cnil;
3202          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 3214  register object *base0; Line 3214  register object *base0;
3214          check_arg(1);          check_arg(1);
3215          V490=(base[0]);          V490=(base[0]);
3216          vs_top=sup;          vs_top=sup;
3217  goto TTL;          goto TTL;
3218  TTL:;  TTL:;
3219          {object V491;          {object V491;
3220          V491= (*(LnkLI121))((V490));          V491= (*(LnkLI121))((V490));
# Line 3230  TTL:; Line 3230  TTL:;
3230          goto T1945;}          goto T1945;}
3231          princ_char(123,VV[10]);          princ_char(123,VV[10]);
3232          base0[7]= Ct;          base0[7]= Ct;
3233  goto T1945;          goto T1945;
3234  T1945:;  T1945:;
3235          base[1]= (V490);          base[1]= (V490);
3236          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3237          (void) (*Lnk122)();          (void) (*Lnk122)();
3238          return;}          return;}
3239  goto T1938;          goto T1938;
3240  T1938:;  T1938:;
3241          base[1]= Cnil;          base[1]= Cnil;
3242          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;

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

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