/[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.3 by camm, Thu Jan 31 19:17:46 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmplam.h"  #include "cmplam.h"
4  init_cmplam(){do_init(VV);}  void init_cmplam(){do_init(VV);}
5  /*      macro definition for CK-SPEC    */  /*      macro definition for CK-SPEC    */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 21  static L1() Line 21  static L1()
21  }  }
22  /*      macro definition for CK-VL      */  /*      macro definition for CK-VL      */
23    
24  static L2()  static void L2()
25  {register object *base=vs_base;  {register object *base=vs_base;
26          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
27          vs_reserve(VM2);          vs_reserve(VM2);
# Line 38  static L2() Line 38  static L2()
38  }  }
39  /*      macro definition for DOWNWARD-FUNCTION  */  /*      macro definition for DOWNWARD-FUNCTION  */
40    
41  static L3()  static void L3()
42  {register object *base=vs_base;  {register object *base=vs_base;
43          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
44          vs_reserve(VM3);          vs_reserve(VM3);
# 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;
63  TTL:;  TTL:;
64          {register object V6;          {register object V6;
65          object V7;          object V7;
# Line 77  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;
82  T16:;  T16:;
83          if(!(endp((V9)))){          if(!(endp((V9)))){
84          goto T17;}          goto T17;}
85          goto T12;          goto T12;
86    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 88  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;
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;
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;
106  T4:;  T4:;
107          {object V15 = (V6);          {object V15 = (V6);
108          VMR4(V15)}}          VMR4(V15)}}
109            base[0]=base[0];
110            return Cnil;
111  }  }
112  /*      local entry for function WT-MAKE-DCLOSURE       */  /*      local entry for function WT-MAKE-DCLOSURE       */
113    
# Line 107  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;
119  TTL:;  TTL:;
120          princ_str("\n   (DownClose",VV[10]);          princ_str("\n   (DownClose",VV[10]);
121          (void)((*(LnkLI80))((V18)));          (void)((*(LnkLI80))((V18)));
# Line 122  TTL:; Line 131  TTL:;
131          princ_char(41,VV[10]);          princ_char(41,VV[10]);
132          {object V20 = Cnil;          {object V20 = Cnil;
133          VMR5(V20)}          VMR5(V20)}
134            return Cnil;
135  }  }
136  /*      local entry for function WFS-ERROR      */  /*      local entry for function WFS-ERROR      */
137    
138  static object LI6()  static object LI6()
139    
140  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
141    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 135  TTL:; Line 146  TTL:;
146          vs_top=sup;          vs_top=sup;
147          {object V21 = vs_base[0];          {object V21 = vs_base[0];
148          VMR6(V21)}          VMR6(V21)}
149            base[0]=base[0];
150            return Cnil;
151  }  }
152  /*      local entry for function WT-DOWNWARD-CLOSURE-MACRO      */  /*      local entry for function WT-DOWNWARD-CLOSURE-MACRO      */
153    
# Line 142  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;
159  TTL:;  TTL:;
160          if((symbol_value(VV[12]))==Cnil){          if((symbol_value(VV[12]))==Cnil){
161          goto T49;}          goto T49;}
# Line 154  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;
172  T63:;  T63:;
173          if(((V24))!=Cnil){          if(((V24))!=Cnil){
174          goto T64;}          goto T64;}
175          goto T61;          goto T61;
176    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;
184  T70:;  T70:;
185          V24= cdr((V24));          V24= cdr((V24));
186          goto T63;}          goto T63;}
187    goto T61;
188  T61:;  T61:;
189          {object V25 = (*(LnkLI81))(VV[18]);          {object V25 = (*(LnkLI81))(VV[18]);
190          VMR7(V25)}          VMR7(V25)}
191    goto T58;
192  T58:;  T58:;
193          {object V26 = Cnil;          {object V26 = Cnil;
194          VMR7(V26)}          VMR7(V26)}
195    goto T49;
196  T49:;  T49:;
197          {object V27 = Cnil;          {object V27 = Cnil;
198          VMR7(V27)}          VMR7(V27)}
199            return Cnil;
200  }  }
201  /*      local entry for function C2DOWNWARD-FUNCTION    */  /*      local entry for function C2DOWNWARD-FUNCTION    */
202    
# Line 183  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;
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 191  TTL:; Line 213  TTL:;
213          goto T82;}          goto T82;}
214          V31= Cnil;          V31= Cnil;
215          goto T80;          goto T80;
216    goto T82;
217  T82:;  T82:;
218          V31= make_cons(small_fixnum(0),small_fixnum(0));          V31= make_cons(small_fixnum(0),small_fixnum(0));
219    goto T80;
220  T80:;  T80:;
221          V32= list(5,VV[24],V31,symbol_value(VV[26]),(V30),(V29));          V32= list(5,VV[24],V31,symbol_value(VV[26]),(V30),(V29));
222          setq(VV[23],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[23])));          setq(VV[23],make_cons(/* INLINE-ARGS */V32,symbol_value(VV[23])));
# Line 202  T80:; Line 226  T80:;
226          V34= list(3,VV[29],structure_ref((V30),VV[28],3),symbol_value(VV[25]));          V34= list(3,VV[29],structure_ref((V30),VV[28],3),symbol_value(VV[25]));
227          {object V35 = (VFUN_NARGS=1,(*(LnkLI84))(/* INLINE-ARGS */V34));          {object V35 = (VFUN_NARGS=1,(*(LnkLI84))(/* INLINE-ARGS */V34));
228          VMR8(V35)}}          VMR8(V35)}}
229            return Cnil;
230  }  }
231  /*      local entry for function C1LAMBDA-EXPR  */  /*      local entry for function C1LAMBDA-EXPR  */
232    
# Line 215  static object LI9(V36,va_alist) Line 240  static object LI9(V36,va_alist)
240          {object V37;          {object V37;
241          object V38;          object V38;
242          object V39;          object V39;
243            Vcs[0]=Vcs[0];
244            va_start(ap);
245          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
246          V37= V36;          V37= V36;
247          narg = narg - 1;          narg = narg - 1;
248          if (narg <= 0) goto T88;          if (narg <= 0) goto T88;
249          else {          else {
         va_start(ap);  
250          V38= va_arg(ap,object);}          V38= va_arg(ap,object);}
251          V39= Ct;          V39= Ct;
252          --narg; goto T89;          --narg; goto T89;
253    goto T88;
254  T88:;  T88:;
255          V38= Cnil;          V38= Cnil;
256          V39= Cnil;          V39= Cnil;
257    goto T89;
258  T89:;  T89:;
259          {object V40;          {object V40;
260          object V41;          object V41;
# Line 275  T89:; Line 303  T89:;
303          goto T112;}          goto T112;}
304          V61= make_cons(VV[4],(V37));          V61= make_cons(VV[4],(V37));
305          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V61)));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V61)));
306    goto T112;
307  T112:;  T112:;
308          base[2]= cdr((V37));          base[2]= cdr((V37));
309          base[3]= Ct;          base[3]= Ct;
# Line 314  T112:; Line 343  T112:;
343          goto T119;}          goto T119;}
344          V62= listA(3,VV[33],(V38),(V52));          V62= listA(3,VV[33],(V38),(V52));
345          V52= make_cons(/* INLINE-ARGS */V62,Cnil);          V52= make_cons(/* INLINE-ARGS */V62,Cnil);
346    goto T119;
347  T119:;  T119:;
348          (void)((*(LnkLI88))((V53)));          (void)((*(LnkLI88))((V53)));
349          V50= car((V37));          V50= car((V37));
350    goto T128;
351  T128:;  T128:;
352          if(((V50))!=Cnil){          if(((V50))!=Cnil){
353          goto T134;}          goto T134;}
354          goto T126;          goto T126;
355    goto T134;
356  T134:;  T134:;
357          if(type_of((V50))==t_cons){          if(type_of((V50))==t_cons){
358          goto T137;}          goto T137;}
359          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
360    goto T137;
361  T137:;  T137:;
362          {object V64;          {object V64;
363          V64= car((V50));          V64= car((V50));
# Line 333  T137:; Line 366  T137:;
366          {object V63= (V51);          {object V63= (V51);
367          if((V63!= VV[69]))goto T145;          if((V63!= VV[69]))goto T145;
368          goto T129;          goto T129;
369    goto T145;
370  T145:;  T145:;
371          if((V63!= VV[68]))goto T146;          if((V63!= VV[68]))goto T146;
372          goto T130;          goto T130;
373    goto T146;
374  T146:;  T146:;
375          if((V63!= VV[71]))goto T147;          if((V63!= VV[71]))goto T147;
376          goto T131;          goto T131;
377    goto T147;
378  T147:;  T147:;
379          if((V63!= VV[73]))goto T148;          if((V63!= VV[73]))goto T148;
380          goto T132;          goto T132;
381    goto T148;
382  T148:;}  T148:;}
383          {object V65;          {object V65;
384          V65= (*(LnkLI89))((V51),(V53),(V54),(V55));          V65= (*(LnkLI89))((V51),(V53),(V54),(V55));
# Line 349  T148:;} Line 386  T148:;}
386          (VV[30]->s.s_dbind)= make_cons((V65),(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons((V65),(VV[30]->s.s_dbind));
387          V40= make_cons((V65),(V40));}          V40= make_cons((V65),(V40));}
388          goto T128;          goto T128;
389    goto T129;
390  T129:;  T129:;
391          if(((V50))!=Cnil){          if(((V50))!=Cnil){
392          goto T156;}          goto T156;}
393          goto T126;          goto T126;
394    goto T156;
395  T156:;  T156:;
396          if(type_of((V50))==t_cons){          if(type_of((V50))==t_cons){
397          goto T159;}          goto T159;}
398          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
399    goto T159;
400  T159:;  T159:;
401          {object V67;          {object V67;
402          V67= car((V50));          V67= car((V50));
# Line 365  T159:; Line 405  T159:;
405          {object V66= (V51);          {object V66= (V51);
406          if((V66!= VV[68]))goto T167;          if((V66!= VV[68]))goto T167;
407          goto T130;          goto T130;
408    goto T167;
409  T167:;  T167:;
410          if((V66!= VV[71]))goto T168;          if((V66!= VV[71]))goto T168;
411          goto T131;          goto T131;
412    goto T168;
413  T168:;  T168:;
414          if((V66!= VV[73]))goto T169;          if((V66!= VV[73]))goto T169;
415          goto T132;          goto T132;
416    goto T169;
417  T169:;}  T169:;}
418          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
419          goto T172;}          goto T172;}
# Line 383  T169:;} Line 426  T169:;}
426          V41= make_cons(/* INLINE-ARGS */V71,(V41));          V41= make_cons(/* INLINE-ARGS */V71,(V41));
427          (VV[30]->s.s_dbind)= make_cons((V68),(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons((V68),(VV[30]->s.s_dbind));
428          goto T170;}          goto T170;}
429    goto T172;
430  T172:;  T172:;
431          if(type_of(cdr((V51)))==t_cons){          if(type_of(cdr((V51)))==t_cons){
432          goto T181;}          goto T181;}
433          if((cdr((V51)))==Cnil){          if((cdr((V51)))==Cnil){
434          goto T183;}          goto T183;}
435          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
436    goto T183;
437  T183:;  T183:;
438          {object V72;          {object V72;
439          V72= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));          V72= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
# Line 399  T183:; Line 444  T183:;
444          V41= make_cons(/* INLINE-ARGS */V75,(V41));          V41= make_cons(/* INLINE-ARGS */V75,(V41));
445          (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));
446          goto T170;}          goto T170;}
447    goto T181;
448  T181:;  T181:;
449          if(type_of(cddr((V51)))==t_cons){          if(type_of(cddr((V51)))==t_cons){
450          goto T193;}          goto T193;}
451          if((cddr((V51)))==Cnil){          if((cddr((V51)))==Cnil){
452          goto T195;}          goto T195;}
453          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
454    goto T195;
455  T195:;  T195:;
456          {object V76;          {object V76;
457          object V77;          object V77;
# Line 417  T195:; Line 464  T195:;
464          V41= make_cons(/* INLINE-ARGS */V80,(V41));          V41= make_cons(/* INLINE-ARGS */V80,(V41));
465          (VV[30]->s.s_dbind)= make_cons((V77),(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons((V77),(VV[30]->s.s_dbind));
466          goto T170;}          goto T170;}
467    goto T193;
468  T193:;  T193:;
469          if((cdddr((V51)))==Cnil){          if((cdddr((V51)))==Cnil){
470          goto T205;}          goto T205;}
471          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
472    goto T205;
473  T205:;  T205:;
474          {object V81;          {object V81;
475          object V82;          object V82;
# Line 436  T205:; Line 485  T205:;
485          V41= make_cons(/* INLINE-ARGS */V86,(V41));          V41= make_cons(/* INLINE-ARGS */V86,(V41));
486          (VV[30]->s.s_dbind)= make_cons((V82),(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons((V82),(VV[30]->s.s_dbind));
487          (VV[30]->s.s_dbind)= make_cons((V83),(VV[30]->s.s_dbind));}          (VV[30]->s.s_dbind)= make_cons((V83),(VV[30]->s.s_dbind));}
488    goto T170;
489  T170:;  T170:;
490          goto T129;          goto T129;
491    goto T130;
492  T130:;  T130:;
493          if(type_of((V50))==t_cons){          if(type_of((V50))==t_cons){
494          goto T220;}          goto T220;}
495          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
496    goto T220;
497  T220:;  T220:;
498          V57= make_cons(car((V50)),(V57));          V57= make_cons(car((V50)),(V57));
499          {object V88;          {object V88;
# Line 453  T220:; Line 505  T220:;
505          if(((V50))!=Cnil){          if(((V50))!=Cnil){
506          goto T233;}          goto T233;}
507          goto T126;          goto T126;
508    goto T233;
509  T233:;  T233:;
510          if(type_of((V50))==t_cons){          if(type_of((V50))==t_cons){
511          goto T236;}          goto T236;}
512          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
513    goto T236;
514  T236:;  T236:;
515          {object V90;          {object V90;
516          V90= car((V50));          V90= car((V50));
# Line 465  T236:; Line 519  T236:;
519          {object V89= (V51);          {object V89= (V51);
520          if((V89!= VV[71]))goto T244;          if((V89!= VV[71]))goto T244;
521          goto T131;          goto T131;
522    goto T244;
523  T244:;  T244:;
524          if((V89!= VV[73]))goto T245;          if((V89!= VV[73]))goto T245;
525          goto T132;          goto T132;
526    goto T245;
527  T245:;}  T245:;}
528          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V51))));
529    goto T131;
530  T131:;  T131:;
531          V44= Ct;          V44= Ct;
532          if(((V50))!=Cnil){          if(((V50))!=Cnil){
533          goto T248;}          goto T248;}
534          goto T126;          goto T126;
535    goto T248;
536  T248:;  T248:;
537          if(type_of((V50))==t_cons){          if(type_of((V50))==t_cons){
538          goto T251;}          goto T251;}
539          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
540    goto T251;
541  T251:;  T251:;
542          {object V92;          {object V92;
543          V92= car((V50));          V92= car((V50));
# Line 487  T251:; Line 546  T251:;
546          {object V91= (V51);          {object V91= (V51);
547          if((V91!= VV[73]))goto T259;          if((V91!= VV[73]))goto T259;
548          goto T132;          goto T132;
549    goto T259;
550  T259:;  T259:;
551          if((V91!= VV[72]))goto T260;          if((V91!= VV[72]))goto T260;
552          V46= Ct;          V46= Ct;
553          if(((V50))!=Cnil){          if(((V50))!=Cnil){
554          goto T263;}          goto T263;}
555          goto T126;          goto T126;
556    goto T263;
557  T263:;  T263:;
558          if(type_of((V50))==t_cons){          if(type_of((V50))==t_cons){
559          goto T266;}          goto T266;}
560          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
561    goto T266;
562  T266:;  T266:;
563          {object V94;          {object V94;
564          V94= car((V50));          V94= car((V50));
# Line 505  T266:; Line 567  T266:;
567          {object V93= (V51);          {object V93= (V51);
568          if((V93!= VV[73]))goto T274;          if((V93!= VV[73]))goto T274;
569          goto T132;          goto T132;
570    goto T274;
571  T274:;}  T274:;}
572          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V51))));
573          goto T254;          goto T254;
574    goto T260;
575  T260:;}  T260:;}
576    goto T254;
577  T254:;  T254:;
578          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
579          goto T275;}          goto T275;}
580          V51= make_cons((V51),Cnil);          V51= make_cons((V51),Cnil);
581    goto T275;
582  T275:;  T275:;
583          if(!(type_of(car((V51)))==t_cons)){          if(!(type_of(car((V51)))==t_cons)){
584          goto T281;}          goto T281;}
# Line 523  T275:; Line 589  T275:;
589          goto T284;}          goto T284;}
590          if((cddar((V51)))==Cnil){          if((cddar((V51)))==Cnil){
591          goto T283;}          goto T283;}
592    goto T284;
593  T284:;  T284:;
594          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
595    goto T283;
596  T283:;  T283:;
597          V51= listA(3,caar((V51)),cadar((V51)),cdr((V51)));          V51= listA(3,caar((V51)),cadar((V51)),cdr((V51)));
598          goto T279;          goto T279;
599    goto T281;
600  T281:;  T281:;
601          if(type_of(car((V51)))==t_symbol){          if(type_of(car((V51)))==t_symbol){
602          goto T291;}          goto T291;}
603          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
604    goto T291;
605  T291:;  T291:;
606          base[2]= coerce_to_string(car((V51)));          base[2]= coerce_to_string(car((V51)));
607          base[3]= VV[38];          base[3]= VV[38];
# Line 540  T291:; Line 610  T291:;
610          vs_top=sup;          vs_top=sup;
611          V96= vs_base[0];          V96= vs_base[0];
612          V51= listA(3,V96,car((V51)),cdr((V51)));          V51= listA(3,V96,car((V51)),cdr((V51)));
613    goto T279;
614  T279:;  T279:;
615          if(type_of(cddr((V51)))==t_cons){          if(type_of(cddr((V51)))==t_cons){
616          goto T300;}          goto T300;}
617          if((cddr((V51)))==Cnil){          if((cddr((V51)))==Cnil){
618          goto T302;}          goto T302;}
619          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
620    goto T302;
621  T302:;  T302:;
622          {object V97;          {object V97;
623          V97= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55));          V97= (*(LnkLI89))(cadr((V51)),(V53),(V54),(V55));
# Line 557  T302:; Line 629  T302:;
629          V43= make_cons(/* INLINE-ARGS */V101,(V43));          V43= make_cons(/* INLINE-ARGS */V101,(V43));
630          (VV[30]->s.s_dbind)= make_cons((V97),(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons((V97),(VV[30]->s.s_dbind));
631          goto T298;}          goto T298;}
632    goto T300;
633  T300:;  T300:;
634          if(type_of(cdddr((V51)))==t_cons){          if(type_of(cdddr((V51)))==t_cons){
635          goto T312;}          goto T312;}
636          if((cdddr((V51)))==Cnil){          if((cdddr((V51)))==Cnil){
637          goto T314;}          goto T314;}
638          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
639    goto T314;
640  T314:;  T314:;
641          {object V102;          {object V102;
642          object V103;          object V103;
# Line 576  T314:; Line 650  T314:;
650          V43= make_cons(/* INLINE-ARGS */V107,(V43));          V43= make_cons(/* INLINE-ARGS */V107,(V43));
651          (VV[30]->s.s_dbind)= make_cons((V103),(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons((V103),(VV[30]->s.s_dbind));
652          goto T298;}          goto T298;}
653    goto T312;
654  T312:;  T312:;
655          if((cddddr((V51)))==Cnil){          if((cddddr((V51)))==Cnil){
656          goto T324;}          goto T324;}
657          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
658    goto T324;
659  T324:;  T324:;
660          {object V108;          {object V108;
661          object V109;          object V109;
# Line 596  T324:; Line 672  T324:;
672          V43= make_cons(/* INLINE-ARGS */V114,(V43));          V43= make_cons(/* INLINE-ARGS */V114,(V43));
673          (VV[30]->s.s_dbind)= make_cons((V109),(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons((V109),(VV[30]->s.s_dbind));
674          (VV[30]->s.s_dbind)= make_cons((V110),(VV[30]->s.s_dbind));}          (VV[30]->s.s_dbind)= make_cons((V110),(VV[30]->s.s_dbind));}
675    goto T298;
676  T298:;  T298:;
677          goto T131;          goto T131;
678    goto T132;
679  T132:;  T132:;
680          V59= (VFUN_NARGS=0,(*(LnkLI85))());          V59= (VFUN_NARGS=0,(*(LnkLI85))());
681    goto T133;
682  T133:;  T133:;
683          if(((V50))!=Cnil){          if(((V50))!=Cnil){
684          goto T340;}          goto T340;}
685          (void)((*(LnkLI94))((V58),(V59)));          (void)((*(LnkLI94))((V58),(V59)));
686          goto T126;          goto T126;
687    goto T340;
688  T340:;  T340:;
689          if(type_of((V50))==t_cons){          if(type_of((V50))==t_cons){
690          goto T344;}          goto T344;}
691          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V50))));
692    goto T344;
693  T344:;  T344:;
694          {object V115;          {object V115;
695          V115= car((V50));          V115= car((V50));
# Line 621  T344:; Line 702  T344:;
702          if((cdr((V51)))==Cnil){          if((cdr((V51)))==Cnil){
703          goto T359;}          goto T359;}
704          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
705    goto T359;
706  T359:;  T359:;
707          {object V116;          {object V116;
708          V116= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));          V116= (*(LnkLI89))(car((V51)),(V53),(V54),(V55));
# Line 631  T359:; Line 713  T359:;
713          V47= make_cons((V116),(V47));          V47= make_cons((V116),(V47));
714          (VV[30]->s.s_dbind)= make_cons((V116),(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons((V116),(VV[30]->s.s_dbind));
715          goto T352;}          goto T352;}
716    goto T357;
717  T357:;  T357:;
718          if((cddr((V51)))==Cnil){          if((cddr((V51)))==Cnil){
719          goto T370;}          goto T370;}
720          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V51))));
721    goto T370;
722  T370:;  T370:;
723          {object V119;          {object V119;
724          object V120;          object V120;
# Line 647  T370:; Line 731  T370:;
731          V47= make_cons((V120),(V47));          V47= make_cons((V120),(V47));
732          (VV[30]->s.s_dbind)= make_cons((V120),(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons((V120),(VV[30]->s.s_dbind));
733          goto T352;}          goto T352;}
734    goto T354;
735  T354:;  T354:;
736          {object V123;          {object V123;
737          V123= (*(LnkLI89))((V51),(V53),(V54),(V55));          V123= (*(LnkLI89))((V51),(V53),(V54),(V55));
# Line 656  T354:; Line 741  T354:;
741          V48= make_cons(/* INLINE-ARGS */V125,(V48));          V48= make_cons(/* INLINE-ARGS */V125,(V48));
742          V47= make_cons((V123),(V47));          V47= make_cons((V123),(V47));
743          (VV[30]->s.s_dbind)= make_cons((V123),(VV[30]->s.s_dbind));}          (VV[30]->s.s_dbind)= make_cons((V123),(VV[30]->s.s_dbind));}
744    goto T352;
745  T352:;  T352:;
746          goto T133;          goto T133;
747    goto T126;
748  T126:;  T126:;
749          V40= reverse((V40));          V40= reverse((V40));
750          V41= reverse((V41));          V41= reverse((V41));
# Line 671  T126:; Line 758  T126:;
758          object V127;          object V127;
759          V126= (V40);          V126= (V40);
760          V127= car((V126));          V127= car((V126));
761    goto T409;
762  T409:;  T409:;
763          if(!(endp((V126)))){          if(!(endp((V126)))){
764          goto T410;}          goto T410;}
765          goto T405;          goto T405;
766    goto T410;
767  T410:;  T410:;
768          (void)((*(LnkLI97))((V127)));          (void)((*(LnkLI97))((V127)));
769          V126= cdr((V126));          V126= cdr((V126));
770          V127= car((V126));          V127= car((V126));
771          goto T409;}          goto T409;}
772    goto T405;
773  T405:;  T405:;
774          {object V128;          {object V128;
775          object V129;          object V129;
776          V128= (V41);          V128= (V41);
777          V129= car((V128));          V129= car((V128));
778    goto T424;
779  T424:;  T424:;
780          if(!(endp((V128)))){          if(!(endp((V128)))){
781          goto T425;}          goto T425;}
782          goto T420;          goto T420;
783    goto T425;
784  T425:;  T425:;
785          (void)((*(LnkLI97))(car((V129))));          (void)((*(LnkLI97))(car((V129))));
786          if((caddr((V129)))==Cnil){          if((caddr((V129)))==Cnil){
787          goto T430;}          goto T430;}
788          (void)((*(LnkLI97))(caddr((V129))));          (void)((*(LnkLI97))(caddr((V129))));
789    goto T430;
790  T430:;  T430:;
791          V128= cdr((V128));          V128= cdr((V128));
792          V129= car((V128));          V129= car((V128));
793          goto T424;}          goto T424;}
794    goto T420;
795  T420:;  T420:;
796          if(((V42))==Cnil){          if(((V42))==Cnil){
797          goto T438;}          goto T438;}
798          (void)((*(LnkLI97))((V42)));          (void)((*(LnkLI97))((V42)));
799    goto T438;
800  T438:;  T438:;
801          {object V130;          {object V130;
802          object V131;          object V131;
803          V130= (V43);          V130= (V43);
804          V131= car((V130));          V131= car((V130));
805    goto T445;
806  T445:;  T445:;
807          if(!(endp((V130)))){          if(!(endp((V130)))){
808          goto T446;}          goto T446;}
809          goto T441;          goto T441;
810    goto T446;
811  T446:;  T446:;
812          (void)((*(LnkLI97))(cadr((V131))));          (void)((*(LnkLI97))(cadr((V131))));
813          if((cadddr((V131)))==Cnil){          if((cadddr((V131)))==Cnil){
814          goto T451;}          goto T451;}
815          (void)((*(LnkLI97))(cadddr((V131))));          (void)((*(LnkLI97))(cadddr((V131))));
816    goto T451;
817  T451:;  T451:;
818          V130= cdr((V130));          V130= cdr((V130));
819          V131= car((V130));          V131= car((V130));
820          goto T445;}          goto T445;}
821    goto T441;
822  T441:;  T441:;
823          {object V132;          {object V132;
824          object V133;          object V133;
825          V132= (V47);          V132= (V47);
826          V133= car((V132));          V133= car((V132));
827    goto T463;
828  T463:;  T463:;
829          if(!(endp((V132)))){          if(!(endp((V132)))){
830          goto T464;}          goto T464;}
831          goto T459;          goto T459;
832    goto T464;
833  T464:;  T464:;
834          (void)((*(LnkLI97))((V133)));          (void)((*(LnkLI97))((V133)));
835          V132= cdr((V132));          V132= cdr((V132));
836          V133= car((V132));          V133= car((V132));
837          goto T463;}          goto T463;}
838    goto T459;
839  T459:;  T459:;
840          if(((V47))==Cnil){          if(((V47))==Cnil){
841          goto T474;}          goto T474;}
# Line 742  T459:; Line 844  T459:;
844          if(!(eql((V60),symbol_value(VV[31])))){          if(!(eql((V60),symbol_value(VV[31])))){
845          goto T480;}          goto T480;}
846          goto T474;          goto T474;
847    goto T480;
848  T480:;  T480:;
849          (void)(structure_set((V59),VV[5],4,Ct));          (void)(structure_set((V59),VV[5],4,Ct));
850    goto T474;
851  T474:;  T474:;
852          V52= (*(LnkLI98))((V40),(V52),(V38));          V52= (*(LnkLI98))((V40),(V52),(V38));
853          V45= list(6,(V40),(V41),(V42),(V44),(V43),(V46));          V45= list(6,(V40),(V41),(V42),(V44),(V43),(V46));
854          if(symbol_value(VV[42])==Cnil){          if(symbol_value(VV[42])==Cnil){
855          goto T486;}          goto T486;}
856          (void)((*(LnkLI99))((V45)));          (void)((*(LnkLI99))((V45)));
857    goto T486;
858  T486:;  T486:;
859          {object V134 = list(5,VV[4],(V58),(V45),(V49),(V52));          {object V134 = list(5,VV[4],(V58),(V45),(V49),(V52));
860          bds_unwind1;          bds_unwind1;
861          VMR9(V134)}}}          VMR9(V134)}}
862            va_end(ap);
863            base[0]=base[0];
864            return Cnil;}
865          }          }
866  /*      local entry for function FIX-DOWN-ARGS  */  /*      local entry for function FIX-DOWN-ARGS  */
867    
# Line 761  static object LI10(V138,V139,V140) Line 869  static object LI10(V138,V139,V140)
869    
870  object V138;object V139;object V140;  object V138;object V139;object V140;
871  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
872    goto TTL;
873  TTL:;  TTL:;
874          {object V141;          {object V141;
875          object V142;          object V142;
# Line 778  TTL:; Line 887  TTL:;
887          register object V148;          register object V148;
888          V147= (V138);          V147= (V138);
889          V148= (V145);          V148= (V145);
890    goto T495;
891  T495:;  T495:;
892          if(((V147))!=Cnil){          if(((V147))!=Cnil){
893          goto T496;}          goto T496;}
894          goto T493;          goto T493;
895    goto T496;
896  T496:;  T496:;
897          V144= car((V147));          V144= car((V147));
898          if(((V146))!=Cnil){          if(((V146))!=Cnil){
# Line 790  T496:; Line 901  T496:;
901          goto T504;}          goto T504;}
902          {object V149 = (V139);          {object V149 = (V139);
903          VMR10(V149)}          VMR10(V149)}
904    goto T504;
905  T504:;  T504:;
906          V150= structure_ref((V144),VV[6],1);          V150= structure_ref((V144),VV[6],1);
907          if(!((/* INLINE-ARGS */V150)==(VV[8]))){          if(!((/* INLINE-ARGS */V150)==(VV[8]))){
# Line 806  T504:; Line 918  T504:;
918          goto T514;}          goto T514;}
919          V143= (VFUN_NARGS=0,(*(LnkLI85))());          V143= (VFUN_NARGS=0,(*(LnkLI85))());
920          V155= (V143);          V155= (V143);
921    goto T514;
922  T514:;  T514:;
923          V153= list(3,VV[6],V155,list(2,(V152),Cnil));          V153= list(3,VV[6],V155,list(2,(V152),Cnil));
924          V141= make_cons((V144),(V141));          V141= make_cons((V144),(V141));
# Line 820  T514:; Line 933  T514:;
933          V159= make_cons((V152),/* INLINE-ARGS */V160);          V159= make_cons((V152),/* INLINE-ARGS */V160);
934          (void)(structure_set((V158),VV[5],1,(V159)));}          (void)(structure_set((V158),VV[5],1,(V159)));}
935          V142= make_cons((V153),(V142));}          V142= make_cons((V153),(V142));}
936    goto T502;
937  T502:;  T502:;
938          V147= cdr((V147));          V147= cdr((V147));
939          V148= cdr((V148));          V148= cdr((V148));
940          goto T495;}          goto T495;}
941    goto T493;
942  T493:;  T493:;
943          if(((V141))==Cnil){          if(((V141))==Cnil){
944          goto T530;}          goto T530;}
945          {object V161 = list(5,VV[41],(V143),(V141),(V142),(V139));          {object V161 = list(5,VV[41],(V143),(V141),(V142),(V139));
946          VMR10(V161)}          VMR10(V161)}
947    goto T530;
948  T530:;  T530:;
949          {object V162 = (V139);          {object V162 = (V139);
950          VMR10(V162)}}}          VMR10(V162)}}}
951            base[0]=base[0];
952            return Cnil;
953  }  }
954  /*      local entry for function THE-PARAMETER  */  /*      local entry for function THE-PARAMETER  */
955    
# Line 839  static object LI11(V164) Line 957  static object LI11(V164)
957    
958  register object V164;  register object V164;
959  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
960    goto TTL;
961  TTL:;  TTL:;
962          if(type_of((V164))==t_symbol){          if(type_of((V164))==t_symbol){
963          goto T532;}          goto T532;}
964          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V164))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V164))));
965    goto T532;
966  T532:;  T532:;
967          base[0]= (V164);          base[0]= (V164);
968          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 851  T532:; Line 971  T532:;
971          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
972          goto T535;}          goto T535;}
973          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V164))));          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V164))));
974    goto T535;
975  T535:;  T535:;
976          {object V165 = (V164);          {object V165 = (V164);
977          VMR11(V165)}          VMR11(V165)}
978            base[0]=base[0];
979            return Cnil;
980  }  }
981  /*      local entry for function C2LAMBDA-EXPR  */  /*      local entry for function C2LAMBDA-EXPR  */
982    
# Line 868  static object LI12(V167,V166,va_alist) Line 991  static object LI12(V167,V166,va_alist)
991          object V169;          object V169;
992          object V170;          object V170;
993          object V171;          object V171;
994            Vcs[0]=Vcs[0];
995            va_start(ap);
996          if(narg <2) too_few_arguments();          if(narg <2) too_few_arguments();
997          V168= V167;          V168= V167;
998          V169= V166;          V169= V166;
999          narg = narg - 2;          narg = narg - 2;
1000          if (narg <= 0) goto T539;          if (narg <= 0) goto T539;
1001          else {          else {
         va_start(ap);  
1002          V170= va_arg(ap,object);}          V170= va_arg(ap,object);}
1003          V171= Ct;          V171= Ct;
1004          --narg; goto T540;          --narg; goto T540;
1005    goto T539;
1006  T539:;  T539:;
1007          V170= Cnil;          V170= Cnil;
1008          V171= Cnil;          V171= Cnil;
1009    goto T540;
1010  T540:;  T540:;
1011          if((symbol_value(VV[49]))==Cnil){          if((symbol_value(VV[49]))==Cnil){
1012          goto T544;}          goto T544;}
# Line 890  T540:; Line 1016  T540:;
1016          register object V173;          register object V173;
1017          V172= car((V168));          V172= car((V168));
1018          V173= car((V172));          V173= car((V172));
1019    goto T554;
1020  T554:;  T554:;
1021          if(!(endp((V172)))){          if(!(endp((V172)))){
1022          goto T555;}          goto T555;}
1023          goto T550;          goto T550;
1024    goto T555;
1025  T555:;  T555:;
1026          if((structure_ref((V173),VV[6],3))==Cnil){          if((structure_ref((V173),VV[6],3))==Cnil){
1027          goto T559;}          goto T559;}
1028          goto T544;          goto T544;
1029    goto T559;
1030  T559:;  T559:;
1031          V172= cdr((V172));          V172= cdr((V172));
1032          V173= car((V172));          V173= car((V172));
1033          goto T554;}          goto T554;}
1034    goto T550;
1035  T550:;  T550:;
1036          if((cadr((V168)))!=Cnil){          if((cadr((V168)))!=Cnil){
1037          goto T544;}          goto T544;}
# Line 911  T550:; Line 1041  T550:;
1041          goto T544;}          goto T544;}
1042          base[0]= make_cons((V170),car((V168)));          base[0]= make_cons((V170),car((V168)));
1043          goto T542;          goto T542;
1044    goto T544;
1045  T544:;  T544:;
1046          base[0]= Cnil;          base[0]= Cnil;
1047    goto T542;
1048  T542:;  T542:;
1049          bds_bind(VV[48],base[0]);          bds_bind(VV[48],base[0]);
1050          if((caddr((V168)))==Cnil){          if((caddr((V168)))==Cnil){
# Line 922  T542:; Line 1054  T542:;
1054          goto T574;}          goto T574;}
1055          base[1]= Ct;          base[1]= Ct;
1056          goto T572;          goto T572;
1057    goto T574;
1058  T574:;  T574:;
1059          base[1]= symbol_value(VV[50]);          base[1]= symbol_value(VV[50]);
1060    goto T572;
1061  T572:;  T572:;
1062          bds_bind(VV[50],base[1]);          bds_bind(VV[50],base[1]);
1063          if((cadddr((V168)))==Cnil){          if((cadddr((V168)))==Cnil){
# Line 932  T572:; Line 1066  T572:;
1066          bds_unwind1;          bds_unwind1;
1067          bds_unwind1;          bds_unwind1;
1068          VMR12(V175)}          VMR12(V175)}
1069    goto T579;
1070  T579:;  T579:;
1071          {object V176 = (*(LnkLI101))((V168),(V169));          {object V176 = (*(LnkLI101))((V168),(V169));
1072          bds_unwind1;          bds_unwind1;
1073          bds_unwind1;          bds_unwind1;
1074          VMR12(V176)}}          VMR12(V176)}
1075            va_end(ap);
1076            base[0]=base[0];
1077            return Cnil;}
1078          }          }
1079  /*      local entry for function C2LAMBDA-EXPR-WITHOUT-KEY      */  /*      local entry for function C2LAMBDA-EXPR-WITHOUT-KEY      */
1080    
# Line 945  static object LI13(V179,V180) Line 1083  static object LI13(V179,V180)
1083  object V179;object V180;  object V179;object V180;
1084  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1085          bds_check;          bds_check;
1086    goto TTL;
1087  TTL:;  TTL:;
1088          {object V181;          {object V181;
1089          object V182;          object V182;
# Line 963  TTL:; Line 1102  TTL:;
1102          object V186;          object V186;
1103          V185= (V181);          V185= (V181);
1104          V186= car((V185));          V186= car((V185));
1105    goto T590;
1106  T590:;  T590:;
1107          if(!(endp((V185)))){          if(!(endp((V185)))){
1108          goto T591;}          goto T591;}
1109          goto T586;          goto T586;
1110    goto T591;
1111  T591:;  T591:;
1112          base[9]= (V186);          base[9]= (V186);
1113          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 975  T591:; Line 1116  T591:;
1116          V185= cdr((V185));          V185= cdr((V185));
1117          V186= car((V185));          V186= car((V185));
1118          goto T590;}          goto T590;}
1119    goto T586;
1120  T586:;  T586:;
1121          {register object V187;          {register object V187;
1122          object V188;          object V188;
1123          V187= (V182);          V187= (V182);
1124          V188= car((V187));          V188= car((V187));
1125    goto T606;
1126  T606:;  T606:;
1127          if(!(endp((V187)))){          if(!(endp((V187)))){
1128          goto T607;}          goto T607;}
1129          goto T602;          goto T602;
1130    goto T607;
1131  T607:;  T607:;
1132          base[9]= car((V188));          base[9]= car((V188));
1133          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 995  T607:; Line 1139  T607:;
1139          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1140          L14(base);          L14(base);
1141          vs_top=sup;          vs_top=sup;
1142    goto T613;
1143  T613:;  T613:;
1144          V187= cdr((V187));          V187= cdr((V187));
1145          V188= car((V187));          V188= car((V187));
1146          goto T606;}          goto T606;}
1147    goto T602;
1148  T602:;  T602:;
1149          if(((V183))==Cnil){          if(((V183))==Cnil){
1150          goto T585;}          goto T585;}
# Line 1006  T602:; Line 1152  T602:;
1152          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1153          L14(base);          L14(base);
1154          vs_top=sup;          vs_top=sup;
1155    goto T585;
1156  T585:;  T585:;
1157          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
1158          goto T626;}          goto T626;}
1159          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
1160          goto T625;}          goto T625;}
1161    goto T626;
1162  T626:;  T626:;
1163          if(((V183))!=Cnil){          if(((V183))!=Cnil){
1164          goto T630;}          goto T630;}
1165          if(((V182))==Cnil){          if(((V182))==Cnil){
1166          goto T631;}          goto T631;}
1167    goto T630;
1168  T630:;  T630:;
1169          if(((V181))==Cnil){          if(((V181))==Cnil){
1170          goto T635;}          goto T635;}
# Line 1023  T630:; Line 1172  T630:;
1172          V189 = make_fixnum(length((V181)));          V189 = make_fixnum(length((V181)));
1173          (void)((*(LnkLI80))(V189));          (void)((*(LnkLI80))(V189));
1174          princ_str(") too_few_arguments();",VV[10]);          princ_str(") too_few_arguments();",VV[10]);
1175    goto T635;
1176  T635:;  T635:;
1177          if(((V183))!=Cnil){          if(((V183))!=Cnil){
1178          goto T625;}          goto T625;}
# Line 1033  T635:; Line 1183  T635:;
1183          (void)((*(LnkLI80))(/* INLINE-ARGS */V192));          (void)((*(LnkLI80))(/* INLINE-ARGS */V192));
1184          princ_str(") too_many_arguments();",VV[10]);          princ_str(") too_many_arguments();",VV[10]);
1185          goto T625;          goto T625;
1186    goto T631;
1187  T631:;  T631:;
1188          princ_str("\n   check_arg(",VV[10]);          princ_str("\n   check_arg(",VV[10]);
1189          V193 = make_fixnum(length((V181)));          V193 = make_fixnum(length((V181)));
1190          (void)((*(LnkLI80))(V193));          (void)((*(LnkLI80))(V193));
1191          princ_str(");",VV[10]);          princ_str(");",VV[10]);
1192    goto T625;
1193  T625:;  T625:;
1194          {register object V194;          {register object V194;
1195          object V195;          object V195;
1196          V194= (V181);          V194= (V181);
1197          V195= car((V194));          V195= car((V194));
1198    goto T653;
1199  T653:;  T653:;
1200          if(!(endp((V194)))){          if(!(endp((V194)))){
1201          goto T654;}          goto T654;}
1202          goto T649;          goto T649;
1203    goto T654;
1204  T654:;  T654:;
1205          V196= (*(LnkLI102))();          V196= (*(LnkLI102))();
1206          (void)(structure_set((V195),VV[6],2,/* INLINE-ARGS */V196));          (void)(structure_set((V195),VV[6],2,/* INLINE-ARGS */V196));
1207          V194= cdr((V194));          V194= cdr((V194));
1208          V195= car((V194));          V195= car((V194));
1209          goto T653;}          goto T653;}
1210    goto T649;
1211  T649:;  T649:;
1212          {register object V197;          {register object V197;
1213          object V198;          object V198;
1214          V197= (V182);          V197= (V182);
1215          V198= car((V197));          V198= car((V197));
1216    goto T668;
1217  T668:;  T668:;
1218          if(!(endp((V197)))){          if(!(endp((V197)))){
1219          goto T669;}          goto T669;}
1220          goto T664;          goto T664;
1221    goto T669;
1222  T669:;  T669:;
1223          V199= car((V198));          V199= car((V198));
1224          V200= (*(LnkLI102))();          V200= (*(LnkLI102))();
# Line 1069  T669:; Line 1226  T669:;
1226          V197= cdr((V197));          V197= cdr((V197));
1227          V198= car((V197));          V198= car((V197));
1228          goto T668;}          goto T668;}
1229    goto T664;
1230  T664:;  T664:;
1231          if(((V183))==Cnil){          if(((V183))==Cnil){
1232          goto T679;}          goto T679;}
1233          V201= (*(LnkLI102))();          V201= (*(LnkLI102))();
1234          (void)(structure_set((V183),VV[6],2,/* INLINE-ARGS */V201));          (void)(structure_set((V183),VV[6],2,/* INLINE-ARGS */V201));
1235    goto T679;
1236  T679:;  T679:;
1237          {register object V202;          {register object V202;
1238          object V203;          object V203;
1239          V202= (V182);          V202= (V182);
1240          V203= car((V202));          V203= car((V202));
1241    goto T686;
1242  T686:;  T686:;
1243          if(!(endp((V202)))){          if(!(endp((V202)))){
1244          goto T687;}          goto T687;}
1245          goto T682;          goto T682;
1246    goto T687;
1247  T687:;  T687:;
1248          if((caddr((V203)))==Cnil){          if((caddr((V203)))==Cnil){
1249          goto T691;}          goto T691;}
1250          V204= caddr((V203));          V204= caddr((V203));
1251          V205= (*(LnkLI102))();          V205= (*(LnkLI102))();
1252          (void)(structure_set(/* INLINE-ARGS */V204,VV[6],2,/* INLINE-ARGS */V205));          (void)(structure_set(/* INLINE-ARGS */V204,VV[6],2,/* INLINE-ARGS */V205));
1253    goto T691;
1254  T691:;  T691:;
1255          V202= cdr((V202));          V202= cdr((V202));
1256          V203= car((V202));          V203= car((V202));
1257          goto T686;}          goto T686;}
1258    goto T682;
1259  T682:;  T682:;
1260          {register object V206;          {register object V206;
1261          object V207;          object V207;
1262          V206= (V181);          V206= (V181);
1263          V207= car((V206));          V207= car((V206));
1264    goto T703;
1265  T703:;  T703:;
1266          if(!(endp((V206)))){          if(!(endp((V206)))){
1267          goto T704;}          goto T704;}
1268          goto T699;          goto T699;
1269    goto T704;
1270  T704:;  T704:;
1271          (void)((*(LnkLI103))((V207)));          (void)((*(LnkLI103))((V207)));
1272          V206= cdr((V206));          V206= cdr((V206));
1273          V207= car((V206));          V207= car((V206));
1274          goto T703;}          goto T703;}
1275    goto T699;
1276  T699:;  T699:;
1277          if(((V182))!=Cnil){          if(((V182))!=Cnil){
1278          goto T716;}          goto T716;}
1279          if(((V183))==Cnil){          if(((V183))==Cnil){
1280          goto T714;}          goto T714;}
1281    goto T716;
1282  T716:;  T716:;
1283          if(((V181))==Cnil){          if(((V181))==Cnil){
1284          goto T714;}          goto T714;}
# Line 1119  T716:; Line 1286  T716:;
1286          V208 = make_fixnum(length((V181)));          V208 = make_fixnum(length((V181)));
1287          (void)((*(LnkLI80))(V208));          (void)((*(LnkLI80))(V208));
1288          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1289    goto T714;
1290  T714:;  T714:;
1291          if(((V182))==Cnil){          if(((V182))==Cnil){
1292          goto T726;}          goto T726;}
# Line 1133  T714:; Line 1301  T714:;
1301          (void)((*(LnkLI80))(V209));          (void)((*(LnkLI80))(V209));
1302          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1303          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]);
1304    goto T729;
1305  T729:;  T729:;
1306          {register object V210;          {register object V210;
1307          V210= (V182);          V210= (V182);
1308    goto T741;
1309  T741:;  T741:;
1310          if(!(endp((V210)))){          if(!(endp((V210)))){
1311          goto T742;}          goto T742;}
1312          goto T739;          goto T739;
1313    goto T742;
1314  T742:;  T742:;
1315          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
1316          V211= make_cons(symbol_value(VV[57]),Cnil);          V211= make_cons(symbol_value(VV[57]),Cnil);
# Line 1157  T742:; Line 1328  T742:;
1328          if((caddar((V210)))==Cnil){          if((caddar((V210)))==Cnil){
1329          goto T760;}          goto T760;}
1330          (void)((*(LnkLI105))(caddar((V210)),Ct));          (void)((*(LnkLI105))(caddar((V210)),Ct));
1331    goto T760;
1332  T760:;  T760:;
1333          if((cdr((V210)))==Cnil){          if((cdr((V210)))==Cnil){
1334          goto T763;}          goto T763;}
1335          princ_str("\n   vs_base++;",VV[10]);          princ_str("\n   vs_base++;",VV[10]);
1336    goto T763;
1337  T763:;  T763:;
1338          V210= cdr((V210));          V210= cdr((V210));
1339          goto T741;}          goto T741;}
1340    goto T739;
1341  T739:;  T739:;
1342          if(((V183))==Cnil){          if(((V183))==Cnil){
1343          bds_unwind1;          bds_unwind1;
# Line 1174  T739:; Line 1348  T739:;
1348          bds_unwind1;          bds_unwind1;
1349          bds_unwind1;          bds_unwind1;
1350          bds_unwind1;          bds_unwind1;
1351    goto T728;
1352  T728:;  T728:;
1353          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1354          (void)((*(LnkLI104))());          (void)((*(LnkLI104))());
# Line 1191  T728:; Line 1366  T728:;
1366          register object V215;          register object V215;
1367          V214= (V182);          V214= (V182);
1368          V215= car((V214));          V215= car((V214));
1369    goto T788;
1370  T788:;  T788:;
1371          if(!(endp((V214)))){          if(!(endp((V214)))){
1372          goto T789;}          goto T789;}
1373          goto T784;          goto T784;
1374    goto T789;
1375  T789:;  T789:;
1376          if((cdr(car((V184))))==Cnil){          if((cdr(car((V184))))==Cnil){
1377          goto T793;}          goto T793;}
1378            princ_str("\ngoto T",VV[10]);
1379            (void)((*(LnkLI80))(car(car((V184)))));
1380            princ_char(59,VV[10]);
1381          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1382          (void)((*(LnkLI80))(car(car((V184)))));          (void)((*(LnkLI80))(car(car((V184)))));
1383          princ_str(":;",VV[10]);          princ_str(":;",VV[10]);
1384    goto T793;
1385  T793:;  T793:;
1386          {object V216;          {object V216;
1387          V216= car((V184));          V216= car((V184));
1388          V184= cdr((V184));}          V184= cdr((V184));}
1389          (void)((*(LnkLI106))(car((V215)),cadr((V215))));          (void)((*(LnkLI106))(car((V215)),cadr((V215))));
1390          if((caddr((V215)))==Cnil){          if((caddr((V215)))==Cnil){
1391          goto T804;}          goto T808;}
1392          (void)((*(LnkLI105))(caddr((V215)),Cnil));          (void)((*(LnkLI105))(caddr((V215)),Cnil));
1393  T804:;  goto T808;
1394    T808:;
1395          V214= cdr((V214));          V214= cdr((V214));
1396          V215= car((V214));          V215= car((V214));
1397          goto T788;}          goto T788;}
1398    goto T784;
1399  T784:;  T784:;
1400          if(((V183))==Cnil){          if(((V183))==Cnil){
1401          goto T812;}          goto T816;}
1402          (void)((*(LnkLI105))((V183),Cnil));          (void)((*(LnkLI105))((V183),Cnil));
1403  T812:;  goto T816;
1404    T816:;
1405          if((cdr((V213)))==Cnil){          if((cdr((V213)))==Cnil){
1406          goto T724;}          goto T724;}
1407            princ_str("\ngoto T",VV[10]);
1408            (void)((*(LnkLI80))(car((V213))));
1409            princ_char(59,VV[10]);
1410          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1411          (void)((*(LnkLI80))(car((V213))));          (void)((*(LnkLI80))(car((V213))));
1412          princ_str(":;",VV[10]);          princ_str(":;",VV[10]);
1413          goto T724;}          goto T724;}
1414    goto T726;
1415  T726:;  T726:;
1416          if(((V183))==Cnil){          if(((V183))==Cnil){
1417          goto T821;}          goto T829;}
1418          princ_str("\n   vs_top[0]=Cnil;",VV[10]);          princ_str("\n   vs_top[0]=Cnil;",VV[10]);
1419          princ_str("\n   {object *p=vs_top;",VV[10]);          princ_str("\n   {object *p=vs_top;",VV[10]);
1420          princ_str("\n    for(;p>vs_base;p--)p[-1]=",VV[10]);          princ_str("\n    for(;p>vs_base;p--)p[-1]=",VV[10]);
1421          if((symbol_value(VV[50]))==Cnil){          if((symbol_value(VV[50]))==Cnil){
1422          goto T832;}          goto T840;}
1423          V217= VV[58];          V217= VV[58];
1424          goto T830;          goto T838;
1425  T832:;  goto T840;
1426    T840:;
1427          V217= VV[59];          V217= VV[59];
1428  T830:;  goto T838;
1429    T838:;
1430          (void)((*(LnkLI80))(V217));          (void)((*(LnkLI80))(V217));
1431          princ_str("(p[-1],p[0]);}",VV[10]);          princ_str("(p[-1],p[0]);}",VV[10]);
1432          (void)((*(LnkLI103))((V183)));          (void)((*(LnkLI103))((V183)));
1433          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1434          (void)((*(LnkLI104))());          (void)((*(LnkLI104))());
1435          goto T724;          goto T724;
1436  T821:;  goto T829;
1437    T829:;
1438          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1439          (void)((*(LnkLI104))());          (void)((*(LnkLI104))());
1440    goto T724;
1441  T724:;  T724:;
1442          if((symbol_value(VV[48]))==Cnil){          if((symbol_value(VV[48]))==Cnil){
1443          goto T838;}          goto T846;}
1444          (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));
1445            princ_str("\ngoto TTL;",VV[10]);
1446          princ_str("\nTTL:;",VV[10]);          princ_str("\nTTL:;",VV[10]);
1447  T838:;  goto T846;
1448    T846:;
1449          base[8]= (V180);          base[8]= (V180);
1450          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1451          (void) (*Lnk107)();          (void) (*Lnk107)();
1452          vs_top=sup;          vs_top=sup;
1453          if((base[7])==Cnil){          if((base[7])==Cnil){
1454          goto T847;}          goto T857;}
1455          princ_str("\n   }",VV[10]);          princ_str("\n   }",VV[10]);
1456          {object V218 = Cnil;          {object V218 = Cnil;
1457          bds_unwind1;          bds_unwind1;
# Line 1265  T838:; Line 1459  T838:;
1459          bds_unwind1;          bds_unwind1;
1460          bds_unwind1;          bds_unwind1;
1461          VMR13(V218)}          VMR13(V218)}
1462  T847:;  goto T857;
1463    T857:;
1464          {object V219 = Cnil;          {object V219 = Cnil;
1465          bds_unwind1;          bds_unwind1;
1466          bds_unwind1;          bds_unwind1;
1467          bds_unwind1;          bds_unwind1;
1468          bds_unwind1;          bds_unwind1;
1469          VMR13(V219)}}          VMR13(V219)}}
1470            base[0]=base[0];
1471            return Cnil;
1472  }  }
1473  /*      local entry for function C2LAMBDA-EXPR-WITH-KEY */  /*      local entry for function C2LAMBDA-EXPR-WITH-KEY */
1474    
# Line 1280  static object LI15(V222,V223) Line 1477  static object LI15(V222,V223)
1477  object V222;object V223;  object V222;object V223;
1478  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1479          bds_check;          bds_check;
1480    goto TTL;
1481  TTL:;  TTL:;
1482          {object V224;          {object V224;
1483          object V225;          object V225;
# Line 1302  TTL:; Line 1500  TTL:;
1500          object V231;          object V231;
1501          V230= (V224);          V230= (V224);
1502          V231= car((V230));          V231= car((V230));
1503  T861:;  goto T871;
1504    T871:;
1505          if(!(endp((V230)))){          if(!(endp((V230)))){
1506          goto T862;}          goto T872;}
1507          goto T857;          goto T867;
1508  T862:;  goto T872;
1509    T872:;
1510          base[11]= (V231);          base[11]= (V231);
1511          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1512          L16(base);          L16(base);
1513          vs_top=sup;          vs_top=sup;
1514          V230= cdr((V230));          V230= cdr((V230));
1515          V231= car((V230));          V231= car((V230));
1516          goto T861;}          goto T871;}
1517  T857:;  goto T867;
1518    T867:;
1519          {register object V232;          {register object V232;
1520          object V233;          object V233;
1521          V232= (V225);          V232= (V225);
1522          V233= car((V232));          V233= car((V232));
1523  T877:;  goto T887;
1524    T887:;
1525          if(!(endp((V232)))){          if(!(endp((V232)))){
1526          goto T878;}          goto T888;}
1527          goto T873;          goto T883;
1528  T878:;  goto T888;
1529    T888:;
1530          base[11]= car((V233));          base[11]= car((V233));
1531          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1532          L16(base);          L16(base);
1533          vs_top=sup;          vs_top=sup;
1534          if((caddr((V233)))==Cnil){          if((caddr((V233)))==Cnil){
1535          goto T884;}          goto T894;}
1536          base[11]= caddr((V233));          base[11]= caddr((V233));
1537          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1538          L16(base);          L16(base);
1539          vs_top=sup;          vs_top=sup;
1540  T884:;  goto T894;
1541    T894:;
1542          V232= cdr((V232));          V232= cdr((V232));
1543          V233= car((V232));          V233= car((V232));
1544          goto T877;}          goto T887;}
1545  T873:;  goto T883;
1546    T883:;
1547          if(((V226))==Cnil){          if(((V226))==Cnil){
1548          goto T893;}          goto T903;}
1549          base[10]= (V226);          base[10]= (V226);
1550          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1551          L16(base);          L16(base);
1552          vs_top=sup;          vs_top=sup;
1553  T893:;  goto T903;
1554    T903:;
1555          {register object V234;          {register object V234;
1556          object V235;          object V235;
1557          V234= (V227);          V234= (V227);
1558          V235= car((V234));          V235= car((V234));
1559  T900:;  goto T910;
1560    T910:;
1561          if(!(endp((V234)))){          if(!(endp((V234)))){
1562          goto T901;}          goto T911;}
1563          goto T856;          goto T866;
1564  T901:;  goto T911;
1565    T911:;
1566          base[11]= cadr((V235));          base[11]= cadr((V235));
1567          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1568          L16(base);          L16(base);
1569          vs_top=sup;          vs_top=sup;
1570          if((cadddr((V235)))==Cnil){          if((cadddr((V235)))==Cnil){
1571          goto T907;}          goto T917;}
1572          base[11]= cadddr((V235));          base[11]= cadddr((V235));
1573          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1574          L16(base);          L16(base);
1575          vs_top=sup;          vs_top=sup;
1576  T907:;  goto T917;
1577    T917:;
1578          V234= cdr((V234));          V234= cdr((V234));
1579          V235= car((V234));          V235= car((V234));
1580          goto T900;}          goto T910;}
1581  T856:;  goto T866;
1582    T866:;
1583          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
1584          goto T918;}          goto T928;}
1585          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
1586          goto T916;}          goto T926;}
1587  T918:;  goto T928;
1588    T928:;
1589          if(((V224))==Cnil){          if(((V224))==Cnil){
1590          goto T916;}          goto T926;}
1591          if(((V224))==Cnil){          if(((V224))==Cnil){
1592          goto T916;}          goto T926;}
1593          princ_str("\n   if(vs_top-vs_base<",VV[10]);          princ_str("\n   if(vs_top-vs_base<",VV[10]);
1594          V236 = make_fixnum(length((V224)));          V236 = make_fixnum(length((V224)));
1595          (void)((*(LnkLI80))(V236));          (void)((*(LnkLI80))(V236));
1596          princ_str(") too_few_arguments();",VV[10]);          princ_str(") too_few_arguments();",VV[10]);
1597  T916:;  goto T926;
1598    T926:;
1599          {register object V237;          {register object V237;
1600          object V238;          object V238;
1601          V237= (V224);          V237= (V224);
1602          V238= car((V237));          V238= car((V237));
1603  T932:;  goto T942;
1604    T942:;
1605          if(!(endp((V237)))){          if(!(endp((V237)))){
1606          goto T933;}          goto T943;}
1607          goto T928;          goto T938;
1608  T933:;  goto T943;
1609    T943:;
1610          V239= (*(LnkLI102))();          V239= (*(LnkLI102))();
1611          (void)(structure_set((V238),VV[6],2,/* INLINE-ARGS */V239));          (void)(structure_set((V238),VV[6],2,/* INLINE-ARGS */V239));
1612          V237= cdr((V237));          V237= cdr((V237));
1613          V238= car((V237));          V238= car((V237));
1614          goto T932;}          goto T942;}
1615  T928:;  goto T938;
1616    T938:;
1617          {register object V240;          {register object V240;
1618          object V241;          object V241;
1619          V240= (V225);          V240= (V225);
1620          V241= car((V240));          V241= car((V240));
1621  T947:;  goto T957;
1622    T957:;
1623          if(!(endp((V240)))){          if(!(endp((V240)))){
1624          goto T948;}          goto T958;}
1625          goto T943;          goto T953;
1626  T948:;  goto T958;
1627    T958:;
1628          V242= car((V241));          V242= car((V241));
1629          V243= (*(LnkLI102))();          V243= (*(LnkLI102))();
1630          (void)(structure_set(/* INLINE-ARGS */V242,VV[6],2,/* INLINE-ARGS */V243));          (void)(structure_set(/* INLINE-ARGS */V242,VV[6],2,/* INLINE-ARGS */V243));
1631          V240= cdr((V240));          V240= cdr((V240));
1632          V241= car((V240));          V241= car((V240));
1633          goto T947;}          goto T957;}
1634  T943:;  goto T953;
1635    T953:;
1636          if(((V226))==Cnil){          if(((V226))==Cnil){
1637          goto T958;}          goto T968;}
1638          V244= (*(LnkLI102))();          V244= (*(LnkLI102))();
1639          (void)(structure_set((V226),VV[6],2,/* INLINE-ARGS */V244));          (void)(structure_set((V226),VV[6],2,/* INLINE-ARGS */V244));
1640  T958:;  goto T968;
1641    T968:;
1642          {register object V245;          {register object V245;
1643          object V246;          object V246;
1644          V245= (V227);          V245= (V227);
1645          V246= car((V245));          V246= car((V245));
1646  T965:;  goto T975;
1647    T975:;
1648          if(!(endp((V245)))){          if(!(endp((V245)))){
1649          goto T966;}          goto T976;}
1650          goto T961;          goto T971;
1651  T966:;  goto T976;
1652    T976:;
1653          V247= cadr((V246));          V247= cadr((V246));
1654          V248= (*(LnkLI102))();          V248= (*(LnkLI102))();
1655          (void)(structure_set(/* INLINE-ARGS */V247,VV[6],2,/* INLINE-ARGS */V248));          (void)(structure_set(/* INLINE-ARGS */V247,VV[6],2,/* INLINE-ARGS */V248));
1656          V245= cdr((V245));          V245= cdr((V245));
1657          V246= car((V245));          V246= car((V245));
1658          goto T965;}          goto T975;}
1659  T961:;  goto T971;
1660    T971:;
1661          {register object V249;          {register object V249;
1662          object V250;          object V250;
1663          V249= (V227);          V249= (V227);
1664          V250= car((V249));          V250= car((V249));
1665  T980:;  goto T990;
1666    T990:;
1667          if(!(endp((V249)))){          if(!(endp((V249)))){
1668          goto T981;}          goto T991;}
1669          goto T976;          goto T986;
1670  T981:;  goto T991;
1671    T991:;
1672          V251= cadddr((V250));          V251= cadddr((V250));
1673          V252= (*(LnkLI102))();          V252= (*(LnkLI102))();
1674          (void)(structure_set(/* INLINE-ARGS */V251,VV[6],2,/* INLINE-ARGS */V252));          (void)(structure_set(/* INLINE-ARGS */V251,VV[6],2,/* INLINE-ARGS */V252));
1675          V249= cdr((V249));          V249= cdr((V249));
1676          V250= car((V249));          V250= car((V249));
1677          goto T980;}          goto T990;}
1678  T976:;  goto T986;
1679    T986:;
1680          {register object V253;          {register object V253;
1681          object V254;          object V254;
1682          V253= (V225);          V253= (V225);
1683          V254= car((V253));          V254= car((V253));
1684  T995:;  goto T1005;
1685    T1005:;
1686          if(!(endp((V253)))){          if(!(endp((V253)))){
1687          goto T996;}          goto T1006;}
1688          goto T991;          goto T1001;
1689  T996:;  goto T1006;
1690    T1006:;
1691          if((caddr((V254)))==Cnil){          if((caddr((V254)))==Cnil){
1692          goto T1000;}          goto T1010;}
1693          V255= caddr((V254));          V255= caddr((V254));
1694          V256= (*(LnkLI102))();          V256= (*(LnkLI102))();
1695          (void)(structure_set(/* INLINE-ARGS */V255,VV[6],2,/* INLINE-ARGS */V256));          (void)(structure_set(/* INLINE-ARGS */V255,VV[6],2,/* INLINE-ARGS */V256));
1696  T1000:;  goto T1010;
1697    T1010:;
1698          V253= cdr((V253));          V253= cdr((V253));
1699          V254= car((V253));          V254= car((V253));
1700          goto T995;}          goto T1005;}
1701  T991:;  goto T1001;
1702    T1001:;
1703          princ_str("\n   parse_key(vs_base",VV[10]);          princ_str("\n   parse_key(vs_base",VV[10]);
1704          if(((V224))!=Cnil){          if(((V224))!=Cnil){
1705          goto T1011;}          goto T1021;}
1706          if(((V225))==Cnil){          if(((V225))==Cnil){
1707          goto T1010;}          goto T1020;}
1708  T1011:;  goto T1021;
1709    T1021:;
1710          princ_char(43,VV[10]);          princ_char(43,VV[10]);
1711          V257 = make_fixnum(length((V224)));          V257 = make_fixnum(length((V224)));
1712          V258 = make_fixnum(length((V225)));          V258 = make_fixnum(length((V225)));
1713          V259= number_plus(V257,V258);          V259= number_plus(V257,V258);
1714          (void)((*(LnkLI80))(/* INLINE-ARGS */V259));          (void)((*(LnkLI80))(/* INLINE-ARGS */V259));
1715  T1010:;  goto T1020;
1716    T1020:;
1717          if(((V226))==Cnil){          if(((V226))==Cnil){
1718          goto T1019;}          goto T1029;}
1719          princ_str(",TRUE,",VV[10]);          princ_str(",TRUE,",VV[10]);
1720          goto T1017;          goto T1027;
1721  T1019:;  goto T1029;
1722    T1029:;
1723          princ_str(",FALSE,",VV[10]);          princ_str(",FALSE,",VV[10]);
1724  T1017:;  goto T1027;
1725    T1027:;
1726          if(((V228))==Cnil){          if(((V228))==Cnil){
1727          goto T1025;}          goto T1035;}
1728          princ_str("TRUE,",VV[10]);          princ_str("TRUE,",VV[10]);
1729          goto T1023;          goto T1033;
1730  T1025:;  goto T1035;
1731    T1035:;
1732          princ_str("FALSE,",VV[10]);          princ_str("FALSE,",VV[10]);
1733  T1023:;  goto T1033;
1734    T1033:;
1735          V260 = make_fixnum(length((V227)));          V260 = make_fixnum(length((V227)));
1736          (void)((*(LnkLI80))(V260));          (void)((*(LnkLI80))(V260));
1737          {register object V261;          {register object V261;
1738          object V262;          object V262;
1739          V261= (V227);          V261= (V227);
1740          V262= car((V261));          V262= car((V261));
1741  T1035:;  goto T1045;
1742    T1045:;
1743          if(!(endp((V261)))){          if(!(endp((V261)))){
1744          goto T1036;}          goto T1046;}
1745          goto T1031;          goto T1041;
1746  T1036:;  goto T1046;
1747    T1046:;
1748          princ_str(",VV[",VV[10]);          princ_str(",VV[",VV[10]);
1749          V263= (*(LnkLI108))(car((V262)));          V263= (*(LnkLI108))(car((V262)));
1750          (void)((*(LnkLI80))(/* INLINE-ARGS */V263));          (void)((*(LnkLI80))(/* INLINE-ARGS */V263));
1751          princ_char(93,VV[10]);          princ_char(93,VV[10]);
1752          V261= cdr((V261));          V261= cdr((V261));
1753          V262= car((V261));          V262= car((V261));
1754          goto T1035;}          goto T1045;}
1755  T1031:;  goto T1041;
1756    T1041:;
1757          princ_str(");",VV[10]);          princ_str(");",VV[10]);
1758          {register object V264;          {register object V264;
1759          object V265;          object V265;
1760          V264= (V224);          V264= (V224);
1761          V265= car((V264));          V265= car((V264));
1762  T1055:;  goto T1065;
1763    T1065:;
1764          if(!(endp((V264)))){          if(!(endp((V264)))){
1765          goto T1056;}          goto T1066;}
1766          goto T1051;          goto T1061;
1767  T1056:;  goto T1066;
1768    T1066:;
1769          (void)((*(LnkLI103))((V265)));          (void)((*(LnkLI103))((V265)));
1770          V264= cdr((V264));          V264= cdr((V264));
1771          V265= car((V264));          V265= car((V264));
1772          goto T1055;}          goto T1065;}
1773  T1051:;  goto T1061;
1774    T1061:;
1775          if(((V225))==Cnil){          if(((V225))==Cnil){
1776          goto T1066;}          goto T1076;}
1777          if(((V224))==Cnil){          if(((V224))==Cnil){
1778          goto T1069;}          goto T1079;}
1779          princ_str("\n   vs_base += ",VV[10]);          princ_str("\n   vs_base += ",VV[10]);
1780          V266 = make_fixnum(length((V224)));          V266 = make_fixnum(length((V224)));
1781          (void)((*(LnkLI80))(V266));          (void)((*(LnkLI80))(V266));
1782          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1783  T1069:;  goto T1079;
1784    T1079:;
1785          bds_bind(VV[25],(VV[25]->s.s_dbind));          bds_bind(VV[25],(VV[25]->s.s_dbind));
1786          bds_bind(VV[52],(VV[52]->s.s_dbind));          bds_bind(VV[52],(VV[52]->s.s_dbind));
1787          bds_bind(VV[26],(VV[26]->s.s_dbind));          bds_bind(VV[26],(VV[26]->s.s_dbind));
1788          {register object V267;          {register object V267;
1789          V267= (V225);          V267= (V225);
1790  T1077:;  goto T1087;
1791    T1087:;
1792          if(!(endp((V267)))){          if(!(endp((V267)))){
1793          goto T1078;}          goto T1088;}
1794          bds_unwind1;          bds_unwind1;
1795          bds_unwind1;          bds_unwind1;
1796          bds_unwind1;          bds_unwind1;
1797          goto T1075;          goto T1085;
1798  T1078:;  goto T1088;
1799    T1088:;
1800          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));
1801          V268= make_cons(symbol_value(VV[57]),Cnil);          V268= make_cons(symbol_value(VV[57]),Cnil);
1802          V229= make_cons(/* INLINE-ARGS */V268,(V229));          V229= make_cons(/* INLINE-ARGS */V268,(V229));
# Line 1566  T1078:; Line 1810  T1078:;
1810          princ_char(125,VV[10]);          princ_char(125,VV[10]);
1811          (void)((*(LnkLI103))(caar((V267))));          (void)((*(LnkLI103))(caar((V267))));
1812          if((caddar((V267)))==Cnil){          if((caddar((V267)))==Cnil){
1813          goto T1095;}          goto T1105;}
1814          (void)((*(LnkLI105))(caddar((V267)),Ct));          (void)((*(LnkLI105))(caddar((V267)),Ct));
1815  T1095:;  goto T1105;
1816    T1105:;
1817          if((cdr((V267)))==Cnil){          if((cdr((V267)))==Cnil){
1818          goto T1098;}          goto T1108;}
1819          princ_str("\n   vs_base++;",VV[10]);          princ_str("\n   vs_base++;",VV[10]);
1820  T1098:;  goto T1108;
1821    T1108:;
1822          V267= cdr((V267));          V267= cdr((V267));
1823          goto T1077;}          goto T1087;}
1824  T1075:;  goto T1085;
1825    T1085:;
1826          V229= reverse((V229));          V229= reverse((V229));
1827  T1066:;  goto T1076;
1828    T1076:;
1829          princ_str("\n   vs_top=sup;",VV[10]);          princ_str("\n   vs_top=sup;",VV[10]);
1830          if(((V225))==Cnil){          if(((V225))==Cnil){
1831          goto T1108;}          goto T1118;}
1832          {object V269;          {object V269;
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)));
1834          V269= make_cons(symbol_value(VV[57]),Cnil);          V269= make_cons(symbol_value(VV[57]),Cnil);
# Line 1593  T1066:; Line 1841  T1066:;
1841          register object V271;          register object V271;
1842          V270= (V225);          V270= (V225);
1843          V271= car((V270));          V271= car((V270));
1844  T1122:;  goto T1132;
1845    T1132:;
1846          if(!(endp((V270)))){          if(!(endp((V270)))){
1847          goto T1123;}          goto T1133;}
1848          goto T1118;          goto T1128;
1849  T1123:;  goto T1133;
1850    T1133:;
1851          if((cdr(car((V229))))==Cnil){          if((cdr(car((V229))))==Cnil){
1852          goto T1127;}          goto T1137;}
1853            princ_str("\ngoto T",VV[10]);
1854            (void)((*(LnkLI80))(car(car((V229)))));
1855            princ_char(59,VV[10]);
1856          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1857          (void)((*(LnkLI80))(car(car((V229)))));          (void)((*(LnkLI80))(car(car((V229)))));
1858          princ_str(":;",VV[10]);          princ_str(":;",VV[10]);
1859  T1127:;  goto T1137;
1860    T1137:;
1861          {object V272;          {object V272;
1862          V272= car((V229));          V272= car((V229));
1863          V229= cdr((V229));}          V229= cdr((V229));}
1864          (void)((*(LnkLI106))(car((V271)),cadr((V271))));          (void)((*(LnkLI106))(car((V271)),cadr((V271))));
1865          if((caddr((V271)))==Cnil){          if((caddr((V271)))==Cnil){
1866          goto T1138;}          goto T1152;}
1867          (void)((*(LnkLI105))(caddr((V271)),Cnil));          (void)((*(LnkLI105))(caddr((V271)),Cnil));
1868  T1138:;  goto T1152;
1869    T1152:;
1870          V270= cdr((V270));          V270= cdr((V270));
1871          V271= car((V270));          V271= car((V270));
1872          goto T1122;}          goto T1132;}
1873  T1118:;  goto T1128;
1874    T1128:;
1875          if((cdr((V269)))==Cnil){          if((cdr((V269)))==Cnil){
1876          goto T1108;}          goto T1118;}
1877            princ_str("\ngoto T",VV[10]);
1878            (void)((*(LnkLI80))(car((V269))));
1879            princ_char(59,VV[10]);
1880          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1881          (void)((*(LnkLI80))(car((V269))));          (void)((*(LnkLI80))(car((V269))));
1882          princ_str(":;",VV[10]);}          princ_str(":;",VV[10]);}
1883  T1108:;  goto T1118;
1884    T1118:;
1885          if(((V226))==Cnil){          if(((V226))==Cnil){
1886          goto T1151;}          goto T1169;}
1887          (void)((*(LnkLI103))((V226)));          (void)((*(LnkLI103))((V226)));
1888  T1151:;  goto T1169;
1889    T1169:;
1890          {register object V273;          {register object V273;
1891          register object V274;          register object V274;
1892          V273= (V227);          V273= (V227);
1893          V274= car((V273));          V274= car((V273));
1894  T1158:;  goto T1176;
1895    T1176:;
1896          if(!(endp((V273)))){          if(!(endp((V273)))){
1897          goto T1159;}          goto T1177;}
1898          goto T1154;          goto T1172;
1899  T1159:;  goto T1177;
1900    T1177:;
1901          if(!((caaddr((V274)))==(VV[61]))){          if(!((caaddr((V274)))==(VV[61]))){
1902          goto T1165;}          goto T1183;}
1903          if((caddr(caddr((V274))))!=Cnil){          if((caddr(caddr((V274))))!=Cnil){
1904          goto T1165;}          goto T1183;}
1905          (void)((*(LnkLI103))(cadr((V274))));          (void)((*(LnkLI103))(cadr((V274))));
1906          goto T1163;          goto T1181;
1907  T1165:;  goto T1183;
1908    T1183:;
1909          princ_str("\n   if(",VV[10]);          princ_str("\n   if(",VV[10]);
1910          V275= structure_ref(cadddr((V274)),VV[6],2);          V275= structure_ref(cadddr((V274)),VV[6],2);
1911          (void)((*(LnkLI109))(/* INLINE-ARGS */V275));          (void)((*(LnkLI109))(/* INLINE-ARGS */V275));
# Line 1656  T1165:; Line 1920  T1165:;
1920          princ_str("\n   }else{",VV[10]);          princ_str("\n   }else{",VV[10]);
1921          (void)((*(LnkLI103))(cadr((V274))));          (void)((*(LnkLI103))(cadr((V274))));
1922          princ_char(125,VV[10]);          princ_char(125,VV[10]);
1923  T1163:;  goto T1181;
1924    T1181:;
1925          V277= structure_ref(cadddr((V274)),VV[6],1);          V277= structure_ref(cadddr((V274)),VV[6],1);
1926          if((/* INLINE-ARGS */V277)==(VV[40])){          if((/* INLINE-ARGS */V277)==(VV[40])){
1927          goto T1179;}          goto T1197;}
1928          (void)((*(LnkLI103))(cadddr((V274))));          (void)((*(LnkLI103))(cadddr((V274))));
1929  T1179:;  goto T1197;
1930    T1197:;
1931          V273= cdr((V273));          V273= cdr((V273));
1932          V274= car((V273));          V274= car((V273));
1933          goto T1158;}          goto T1176;}
1934  T1154:;  goto T1172;
1935    T1172:;
1936          base[10]= (V223);          base[10]= (V223);
1937          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1938          (void) (*Lnk107)();          (void) (*Lnk107)();
1939          vs_top=sup;          vs_top=sup;
1940          if((base[9])==Cnil){          if((base[9])==Cnil){
1941          goto T1190;}          goto T1208;}
1942          princ_str("\n   }",VV[10]);          princ_str("\n   }",VV[10]);
1943          {object V278 = Cnil;          {object V278 = Cnil;
1944          bds_unwind1;          bds_unwind1;
# Line 1679  T1154:; Line 1946  T1154:;
1946          bds_unwind1;          bds_unwind1;
1947          bds_unwind1;          bds_unwind1;
1948          VMR14(V278)}          VMR14(V278)}
1949  T1190:;  goto T1208;
1950    T1208:;
1951          {object V279 = Cnil;          {object V279 = Cnil;
1952          bds_unwind1;          bds_unwind1;
1953          bds_unwind1;          bds_unwind1;
1954          bds_unwind1;          bds_unwind1;
1955          bds_unwind1;          bds_unwind1;
1956          VMR14(V279)}}          VMR14(V279)}}
1957            base[0]=base[0];
1958            return Cnil;
1959  }  }
1960  /*      local entry for function NEED-TO-SET-VS-POINTERS        */  /*      local entry for function NEED-TO-SET-VS-POINTERS        */
1961    
# Line 1693  static object LI17(V281) Line 1963  static object LI17(V281)
1963    
1964  object V281;  object V281;
1965  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1966    goto TTL;
1967  TTL:;  TTL:;
1968          if(symbol_value(VV[55])!=Cnil){          if(symbol_value(VV[55])!=Cnil){
1969          {object V282 = symbol_value(VV[55]);          {object V282 = symbol_value(VV[55]);
# Line 1701  TTL:; Line 1972  TTL:;
1972          {object V283 = symbol_value(VV[56]);          {object V283 = symbol_value(VV[56]);
1973          VMR15(V283)}}{object V284;          VMR15(V283)}}{object V284;
1974          V284= cadr((V281));          V284= cadr((V281));
1975          if(V284==Cnil)goto T1193;          if(V284==Cnil)goto T1211;
1976          {object V285 = V284;          {object V285 = V284;
1977          VMR15(V285)}          VMR15(V285)}
1978  T1193:;}{object V286;  goto T1211;
1979    T1211:;}{object V286;
1980          V286= caddr((V281));          V286= caddr((V281));
1981          if(V286==Cnil)goto T1195;          if(V286==Cnil)goto T1213;
1982          {object V287 = V286;          {object V287 = V286;
1983          VMR15(V287)}          VMR15(V287)}
1984  T1195:;}  goto T1213;
1985    T1213:;}
1986          {object V288 = cadddr((V281));          {object V288 = cadddr((V281));
1987          VMR15(V288)}          VMR15(V288)}
1988            return Cnil;
1989  }  }
1990  /*      local entry for function C1DM   */  /*      local entry for function C1DM   */
1991    
# Line 1720  static object LI18(V292,V293,V294) Line 1994  static object LI18(V292,V293,V294)
1994  object V292;register object V293;register object V294;  object V292;register object V293;register object V294;
1995  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1996          bds_check;          bds_check;
1997    goto TTL;
1998  TTL:;  TTL:;
1999          {object V295;          {object V295;
2000          object V296;          object V296;
# Line 1781  TTL:; Line 2056  TTL:;
2056          V294= make_cons(/* INLINE-ARGS */V304,Cnil);          V294= make_cons(/* INLINE-ARGS */V304,Cnil);
2057          (void)((*(LnkLI88))((V299)));          (void)((*(LnkLI88))((V299)));
2058          if(!(type_of((V293))==t_cons||((V293))==Cnil)){          if(!(type_of((V293))==t_cons||((V293))==Cnil)){
2059          goto T1214;}          goto T1232;}
2060          if(!((car((V293)))==(VV[65]))){          if(!((car((V293)))==(VV[65]))){
2061          goto T1214;}          goto T1232;}
2062          (VV[62]->s.s_dbind)= make_cons(cadr((V293)),(VV[62]->s.s_dbind));          (VV[62]->s.s_dbind)= make_cons(cadr((V293)),(VV[62]->s.s_dbind));
2063          V295= (*(LnkLI89))(cadr((V293)),(V299),(V300),(V301));          V295= (*(LnkLI89))(cadr((V293)),(V299),(V300),(V301));
2064          (VV[64]->s.s_dbind)= make_cons((V295),(VV[64]->s.s_dbind));          (VV[64]->s.s_dbind)= make_cons((V295),(VV[64]->s.s_dbind));
2065          setq(VV[30],make_cons((V295),symbol_value(VV[30])));          setq(VV[30],make_cons((V295),symbol_value(VV[30])));
2066          V293= cddr((V293));          V293= cddr((V293));
2067  T1214:;  goto T1232;
2068    T1232:;
2069          {register object V305;          {register object V305;
2070          if(type_of((V293))==t_cons||((V293))==Cnil){          if(type_of((V293))==t_cons||((V293))==Cnil){
2071          goto T1230;}          goto T1248;}
2072          V305= Cnil;          V305= Cnil;
2073          goto T1229;          goto T1247;
2074  T1230:;  goto T1248;
2075    T1248:;
2076          {register object V306;          {register object V306;
2077          V306= (V293);          V306= (V293);
2078  T1233:;  goto T1251;
2079    T1251:;
2080          if(type_of((V306))==t_cons){          if(type_of((V306))==t_cons){
2081          goto T1234;}          goto T1252;}
2082          V305= Cnil;          V305= Cnil;
2083          goto T1229;          goto T1247;
2084  T1234:;  goto T1252;
2085    T1252:;
2086          if(!((VV[66])==(car((V306))))){          if(!((VV[66])==(car((V306))))){
2087          goto T1238;}          goto T1256;}
2088          V305= (V306);          V305= (V306);
2089          goto T1229;          goto T1247;
2090  T1238:;  goto T1256;
2091    T1256:;
2092          V306= cdr((V306));          V306= cdr((V306));
2093          goto T1233;}          goto T1251;}
2094  T1229:;  goto T1247;
2095    T1247:;
2096          if(((V305))==Cnil){          if(((V305))==Cnil){
2097          goto T1228;}          goto T1246;}
2098          (VV[62]->s.s_dbind)= make_cons(cadr((V305)),(VV[62]->s.s_dbind));          (VV[62]->s.s_dbind)= make_cons(cadr((V305)),(VV[62]->s.s_dbind));
2099          V296= (*(LnkLI89))(cadr((V305)),(V299),(V300),(V301));          V296= (*(LnkLI89))(cadr((V305)),(V299),(V300),(V301));
2100          (VV[64]->s.s_dbind)= make_cons((V296),(VV[64]->s.s_dbind));          (VV[64]->s.s_dbind)= make_cons((V296),(VV[64]->s.s_dbind));
# Line 1825  T1229:; Line 2106  T1229:;
2106          vs_top=sup;          vs_top=sup;
2107          V307= vs_base[0];          V307= vs_base[0];
2108          V293= append(V307,cddr((V305)));}          V293= append(V307,cddr((V305)));}
2109  T1228:;  goto T1246;
2110    T1246:;
2111          base[4]= (V293);          base[4]= (V293);
2112          base[5]= (V299);          base[5]= (V299);
2113          base[6]= (V300);          base[6]= (V300);
# Line 1849  T1228:; Line 2131  T1228:;
2131          {object V309;          {object V309;
2132          V309= (eql((V297),symbol_value(VV[31]))?Ct:Cnil);          V309= (eql((V297),symbol_value(VV[31]))?Ct:Cnil);
2133          if(((V309))==Cnil){          if(((V309))==Cnil){
2134          goto T1271;}          goto T1289;}
2135          goto T1268;          goto T1286;
2136  T1271:;  goto T1289;
2137    T1289:;
2138          (void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct));          (void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct));
2139          (void)(sputprop((V292),VV[67],Ct));}          (void)(sputprop((V292),VV[67],Ct));}
2140  T1268:;  goto T1286;
2141    T1286:;
2142          {register object V310;          {register object V310;
2143          register object V311;          register object V311;
2144          V310= (VV[64]->s.s_dbind);          V310= (VV[64]->s.s_dbind);
2145          V311= car((V310));          V311= car((V310));
2146  T1278:;  goto T1296;
2147    T1296:;
2148          if(!(endp((V310)))){          if(!(endp((V310)))){
2149          goto T1279;}          goto T1297;}
2150          goto T1274;          goto T1292;
2151  T1279:;  goto T1297;
2152    T1297:;
2153          (void)((*(LnkLI97))((V311)));          (void)((*(LnkLI97))((V311)));
2154          V310= cdr((V310));          V310= cdr((V310));
2155          V311= car((V310));          V311= car((V310));
2156          goto T1278;}          goto T1296;}
2157  T1274:;  goto T1292;
2158    T1292:;
2159          {object V312 = list(7,(V298),(V303),(V295),(V296),(V293),(V294),(VV[63]->s.s_dbind));          {object V312 = list(7,(V298),(V303),(V295),(V296),(V293),(V294),(VV[63]->s.s_dbind));
2160          bds_unwind1;          bds_unwind1;
2161          bds_unwind1;          bds_unwind1;
2162          bds_unwind1;          bds_unwind1;
2163          bds_unwind1;          bds_unwind1;
2164          VMR16(V312)}}          VMR16(V312)}}
2165            base[0]=base[0];
2166            return Cnil;
2167  }  }
2168  /*      function definition for C1DM-VL */  /*      function definition for C1DM-VL */
2169    
2170  static L19()  static void L19()
2171  {register object *base=vs_base;  {register object *base=vs_base;
2172          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
2173          vs_reserve(VM17);          vs_reserve(VM17);
# Line 1892  static L19() Line 2181  static L19()
2181          V315=(base[2]);          V315=(base[2]);
2182          V316=(base[3]);          V316=(base[3]);
2183          vs_top=sup;          vs_top=sup;
2184    goto TTL;
2185  TTL:;  TTL:;
2186          {register object V317;          {register object V317;
2187          object V318;          object V318;
# Line 1921  TTL:; Line 2211  TTL:;
2211          V328= Cnil;          V328= Cnil;
2212          V329= small_fixnum(0);          V329= small_fixnum(0);
2213          V330= Cnil;          V330= Cnil;
2214  T1290:;  goto T1308;
2215    T1308:;
2216          if(type_of((V313))==t_cons){          if(type_of((V313))==t_cons){
2217          goto T1291;}          goto T1309;}
2218          if(((V313))==Cnil){          if(((V313))==Cnil){
2219          goto T1294;}          goto T1312;}
2220          if(((V318))==Cnil){          if(((V318))==Cnil){
2221          goto T1297;}          goto T1315;}
2222          base[4]= VV[68];          base[4]= VV[68];
2223          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2224          (void) (*Lnk111)();          (void) (*Lnk111)();
2225          vs_top=sup;          vs_top=sup;
2226  T1297:;  goto T1315;
2227    T1315:;
2228          base[4]= (V313);          base[4]= (V313);
2229          base[5]= (V314);          base[5]= (V314);
2230          base[6]= (V315);          base[6]= (V315);
# Line 1941  T1297:; Line 2233  T1297:;
2233          (void) (*Lnk112)();          (void) (*Lnk112)();
2234          vs_top=sup;          vs_top=sup;
2235          V324= vs_base[0];          V324= vs_base[0];
2236  T1294:;  goto T1312;
2237    T1312:;
2238          V331= reverse((V322));          V331= reverse((V322));
2239          V332= reverse((V323));          V332= reverse((V323));
2240          V333= reverse((V326));          V333= reverse((V326));
# Line 1949  T1294:; Line 2242  T1294:;
2242          base[5]= (V330);          base[5]= (V330);
2243          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2244          return;          return;
2245  T1291:;  goto T1309;
2246    T1309:;
2247          {register object V334;          {register object V334;
2248          V334= car((V313));          V334= car((V313));
2249          if(!(((V334))==(VV[69]))){          if(!(((V334))==(VV[69]))){
2250          goto T1312;}          goto T1330;}
2251          if(((V317))==Cnil){          if(((V317))==Cnil){
2252          goto T1314;}          goto T1332;}
2253          base[4]= VV[69];          base[4]= VV[69];
2254          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2255          (void) (*Lnk111)();          (void) (*Lnk111)();
2256          vs_top=sup;          vs_top=sup;
2257  T1314:;  goto T1332;
2258    T1332:;
2259          V317= Ct;          V317= Ct;
2260          {object V335;          {object V335;
2261          V335= car((V313));          V335= car((V313));
2262          V313= cdr((V313));          V313= cdr((V313));
2263          goto T1309;}          goto T1327;}
2264  T1312:;  goto T1330;
2265    T1330:;
2266          if(((V334))==(VV[68])){          if(((V334))==(VV[68])){
2267          goto T1323;}          goto T1341;}
2268          if(!(((V334))==(VV[70]))){          if(!(((V334))==(VV[70]))){
2269          goto T1324;}          goto T1342;}
2270  T1323:;  goto T1341;
2271    T1341:;
2272          if(((V318))==Cnil){          if(((V318))==Cnil){
2273          goto T1328;}          goto T1346;}
2274          base[4]= (V334);          base[4]= (V334);
2275          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2276          (void) (*Lnk111)();          (void) (*Lnk111)();
2277          vs_top=sup;          vs_top=sup;
2278  T1328:;  goto T1346;
2279    T1346:;
2280          base[4]= cadr((V313));          base[4]= cadr((V313));
2281          base[5]= (V314);          base[5]= (V314);
2282          base[6]= (V315);          base[6]= (V315);
# Line 1991  T1328:; Line 2289  T1328:;
2289          V317= Ct;          V317= Ct;
2290          V313= cddr((V313));          V313= cddr((V313));
2291          if(!(((V334))==(VV[70]))){          if(!(((V334))==(VV[70]))){
2292          goto T1309;}          goto T1327;}
2293          V330= (V329);          V330= (V329);
2294          goto T1309;          goto T1327;
2295  T1324:;  goto T1342;
2296    T1342:;
2297          if(!(((V334))==(VV[71]))){          if(!(((V334))==(VV[71]))){
2298          goto T1348;}          goto T1366;}
2299          if(((V319))==Cnil){          if(((V319))==Cnil){
2300          goto T1350;}          goto T1368;}
2301          base[4]= VV[71];          base[4]= VV[71];
2302          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2303          (void) (*Lnk111)();          (void) (*Lnk111)();
2304          vs_top=sup;          vs_top=sup;
2305  T1350:;  goto T1368;
2306    T1368:;
2307          V319= Ct;          V319= Ct;
2308          V318= Ct;          V318= Ct;
2309          V317= Ct;          V317= Ct;
# Line 2011  T1350:; Line 2311  T1350:;
2311          {object V336;          {object V336;
2312          V336= car((V313));          V336= car((V313));
2313          V313= cdr((V313));          V313= cdr((V313));
2314          goto T1309;}          goto T1327;}
2315  T1348:;  goto T1366;
2316    T1366:;
2317          if(!(((V334))==(VV[72]))){          if(!(((V334))==(VV[72]))){
2318          goto T1366;}          goto T1384;}
2319          if(((V319))==Cnil){          if(((V319))==Cnil){
2320          goto T1369;}          goto T1387;}
2321          if(((V320))==Cnil){          if(((V320))==Cnil){
2322          goto T1368;}          goto T1386;}
2323  T1369:;  goto T1387;
2324    T1387:;
2325          base[4]= VV[72];          base[4]= VV[72];
2326          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2327          (void) (*Lnk111)();          (void) (*Lnk111)();
2328          vs_top=sup;          vs_top=sup;
2329  T1368:;  goto T1386;
2330    T1386:;
2331          V320= Ct;          V320= Ct;
2332          V328= Ct;          V328= Ct;
2333          {object V337;          {object V337;
2334          V337= car((V313));          V337= car((V313));
2335          V313= cdr((V313));          V313= cdr((V313));
2336          goto T1309;}          goto T1327;}
2337  T1366:;  goto T1384;
2338    T1384:;
2339          if(!(((V334))==(VV[73]))){          if(!(((V334))==(VV[73]))){
2340          goto T1382;}          goto T1400;}
2341          if(((V321))==Cnil){          if(((V321))==Cnil){
2342          goto T1384;}          goto T1402;}
2343          base[4]= VV[73];          base[4]= VV[73];
2344          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2345          (void) (*Lnk111)();          (void) (*Lnk111)();
2346          vs_top=sup;          vs_top=sup;
2347  T1384:;  goto T1402;
2348    T1402:;
2349          V321= Ct;          V321= Ct;
2350          V320= Ct;          V320= Ct;
2351          V319= Ct;          V319= Ct;
# Line 2049  T1384:; Line 2354  T1384:;
2354          {object V338;          {object V338;
2355          V338= car((V313));          V338= car((V313));
2356          V313= cdr((V313));          V313= cdr((V313));
2357          goto T1309;}          goto T1327;}
2358  T1382:;  goto T1400;
2359    T1400:;
2360          if(((V321))==Cnil){          if(((V321))==Cnil){
2361          goto T1402;}          goto T1420;}
2362          {object V339;          {object V339;
2363          object V340;          object V340;
2364          V339= Cnil;          V339= Cnil;
2365          V340= Cnil;          V340= Cnil;
2366          if(!(type_of((V334))==t_symbol)){          if(!(type_of((V334))==t_symbol)){
2367          goto T1407;}          goto T1425;}
2368          V339= (V334);          V339= (V334);
2369          V340= (*(LnkLI113))();          V340= (*(LnkLI113))();
2370          goto T1405;          goto T1423;
2371  T1407:;  goto T1425;
2372    T1425:;
2373          V339= car((V334));          V339= car((V334));
2374          if(!(endp(cdr((V334))))){          if(!(endp(cdr((V334))))){
2375          goto T1415;}          goto T1433;}
2376          V340= (*(LnkLI113))();          V340= (*(LnkLI113))();
2377          goto T1405;          goto T1423;
2378  T1415:;  goto T1433;
2379    T1433:;
2380          V340= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63]));          V340= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63]));
2381  T1405:;  goto T1423;
2382    T1423:;
2383          base[4]= (V339);          base[4]= (V339);
2384          base[5]= (V314);          base[5]= (V314);
2385          base[6]= (V315);          base[6]= (V315);
# Line 2084  T1405:; Line 2393  T1405:;
2393          {object V343;          {object V343;
2394          V343= car((V313));          V343= car((V313));
2395          V313= cdr((V313));          V313= cdr((V313));
2396          goto T1309;}          goto T1327;}
2397  T1402:;  goto T1420;
2398    T1420:;
2399          if(((V319))==Cnil){          if(((V319))==Cnil){
2400          goto T1429;}          goto T1447;}
2401          {object V344;          {object V344;
2402          object V345;          object V345;
2403          object V346;          object V346;
# Line 2097  T1402:; Line 2407  T1402:;
2407          V346= Cnil;          V346= Cnil;
2408          V347= Cnil;          V347= Cnil;
2409          if(!(type_of((V334))==t_symbol)){          if(!(type_of((V334))==t_symbol)){
2410          goto T1434;}          goto T1452;}
2411          V344= (V334);          V344= (V334);
2412          base[4]= coerce_to_string((V334));          base[4]= coerce_to_string((V334));
2413          base[5]= VV[38];          base[5]= VV[38];
# Line 2106  T1402:; Line 2416  T1402:;
2416          vs_top=sup;          vs_top=sup;
2417          V345= vs_base[0];          V345= vs_base[0];
2418          V346= (*(LnkLI113))();          V346= (*(LnkLI113))();
2419          goto T1432;          goto T1450;
2420  T1434:;  goto T1452;
2421    T1452:;
2422          if(!(type_of(car((V334)))==t_symbol)){          if(!(type_of(car((V334)))==t_symbol)){
2423          goto T1445;}          goto T1463;}
2424          V344= car((V334));          V344= car((V334));
2425          base[4]= coerce_to_string(car((V334)));          base[4]= coerce_to_string(car((V334)));
2426          base[5]= VV[38];          base[5]= VV[38];
# Line 2117  T1434:; Line 2428  T1434:;
2428          Lintern();          Lintern();
2429          vs_top=sup;          vs_top=sup;
2430          V345= vs_base[0];          V345= vs_base[0];
2431          goto T1443;          goto T1461;
2432  T1445:;  goto T1463;
2433    T1463:;
2434          V344= cadar((V334));          V344= cadar((V334));
2435          V345= caar((V334));          V345= caar((V334));
2436  T1443:;  goto T1461;
2437    T1461:;
2438          if(!(endp(cdr((V334))))){          if(!(endp(cdr((V334))))){
2439          goto T1456;}          goto T1474;}
2440          V346= (*(LnkLI113))();          V346= (*(LnkLI113))();
2441          goto T1432;          goto T1450;
2442  T1456:;  goto T1474;
2443    T1474:;
2444          V346= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63]));          V346= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63]));
2445          if(endp(cddr((V334)))){          if(endp(cddr((V334)))){
2446          goto T1432;}          goto T1450;}
2447          V347= caddr((V334));          V347= caddr((V334));
2448  T1432:;  goto T1450;
2449    T1450:;
2450          base[4]= (V344);          base[4]= (V344);
2451          base[5]= (V314);          base[5]= (V314);
2452          base[6]= (V315);          base[6]= (V315);
# Line 2141  T1432:; Line 2456  T1432:;
2456          vs_top=sup;          vs_top=sup;
2457          V348= vs_base[0];          V348= vs_base[0];
2458          if(((V347))==Cnil){          if(((V347))==Cnil){
2459          goto T1472;}          goto T1490;}
2460          base[4]= (V347);          base[4]= (V347);
2461          base[5]= (V314);          base[5]= (V314);
2462          base[6]= (V315);          base[6]= (V315);
# Line 2150  T1432:; Line 2465  T1432:;
2465          (void) (*Lnk112)();          (void) (*Lnk112)();
2466          vs_top=sup;          vs_top=sup;
2467          V349= vs_base[0];          V349= vs_base[0];
2468          goto T1470;          goto T1488;
2469  T1472:;  goto T1490;
2470    T1490:;
2471          V349= Cnil;          V349= Cnil;
2472  T1470:;  goto T1488;
2473    T1488:;
2474          V350= list(4,(V345),V348,(V346),V349);          V350= list(4,(V345),V348,(V346),V349);
2475          V326= make_cons(/* INLINE-ARGS */V350,(V326));}          V326= make_cons(/* INLINE-ARGS */V350,(V326));}
2476          {object V351;          {object V351;
2477          V351= car((V313));          V351= car((V313));
2478          V313= cdr((V313));          V313= cdr((V313));
2479          goto T1309;}          goto T1327;}
2480  T1429:;  goto T1447;
2481    T1447:;
2482          if(((V317))==Cnil){          if(((V317))==Cnil){
2483          goto T1482;}          goto T1500;}
2484          {object V352;          {object V352;
2485          object V353;          object V353;
2486          object V354;          object V354;
# Line 2170  T1429:; Line 2488  T1429:;
2488          V353= Cnil;          V353= Cnil;
2489          V354= Cnil;          V354= Cnil;
2490          if(!(type_of((V334))==t_symbol)){          if(!(type_of((V334))==t_symbol)){
2491          goto T1487;}          goto T1505;}
2492          V352= (V334);          V352= (V334);
2493          V353= (*(LnkLI113))();          V353= (*(LnkLI113))();
2494          goto T1485;          goto T1503;
2495  T1487:;  goto T1505;
2496    T1505:;
2497          V352= car((V334));          V352= car((V334));
2498          if(!(endp(cdr((V334))))){          if(!(endp(cdr((V334))))){
2499          goto T1495;}          goto T1513;}
2500          V353= (*(LnkLI113))();          V353= (*(LnkLI113))();
2501          goto T1485;          goto T1503;
2502  T1495:;  goto T1513;
2503    T1513:;
2504          V353= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63]));          V353= (*(LnkLI91))(cadr((V334)),symbol_value(VV[63]));
2505          if(endp(cddr((V334)))){          if(endp(cddr((V334)))){
2506          goto T1485;}          goto T1503;}
2507          V354= caddr((V334));          V354= caddr((V334));
2508  T1485:;  goto T1503;
2509    T1503:;
2510          base[4]= (V352);          base[4]= (V352);
2511          base[5]= (V314);          base[5]= (V314);
2512          base[6]= (V315);          base[6]= (V315);
# Line 2195  T1485:; Line 2516  T1485:;
2516          vs_top=sup;          vs_top=sup;
2517          V355= vs_base[0];          V355= vs_base[0];
2518          if(((V354))==Cnil){          if(((V354))==Cnil){
2519          goto T1511;}          goto T1529;}
2520          base[4]= (V354);          base[4]= (V354);
2521          base[5]= (V314);          base[5]= (V314);
2522          base[6]= (V315);          base[6]= (V315);
# Line 2204  T1485:; Line 2525  T1485:;
2525          (void) (*Lnk112)();          (void) (*Lnk112)();
2526          vs_top=sup;          vs_top=sup;
2527          V356= vs_base[0];          V356= vs_base[0];
2528          goto T1509;          goto T1527;
2529  T1511:;  goto T1529;
2530    T1529:;
2531          V356= Cnil;          V356= Cnil;
2532  T1509:;  goto T1527;
2533    T1527:;
2534          V357= list(3,V355,(V353),V356);          V357= list(3,V355,(V353),V356);
2535          V323= make_cons(/* INLINE-ARGS */V357,(V323));}          V323= make_cons(/* INLINE-ARGS */V357,(V323));}
2536          {object V358;          {object V358;
2537          V358= car((V313));          V358= car((V313));
2538          V313= cdr((V313));}          V313= cdr((V313));}
2539          V329= number_plus((V329),small_fixnum(1));          V329= number_plus((V329),small_fixnum(1));
2540          goto T1309;          goto T1327;
2541  T1482:;  goto T1500;
2542    T1500:;
2543          base[4]= (V334);          base[4]= (V334);
2544          base[5]= (V314);          base[5]= (V314);
2545          base[6]= (V315);          base[6]= (V315);
# Line 2229  T1482:; Line 2553  T1482:;
2553          V360= car((V313));          V360= car((V313));
2554          V313= cdr((V313));}          V313= cdr((V313));}
2555          V329= number_plus((V329),small_fixnum(1));}          V329= number_plus((V329),small_fixnum(1));}
2556  T1309:;  goto T1327;
2557          goto T1290;}  T1327:;
2558            goto T1308;}
2559          }          }
2560  }  }
2561  /*      function definition for C1DM-V  */  /*      function definition for C1DM-V  */
2562    
2563  static L20()  static void L20()
2564  {register object *base=vs_base;  {register object *base=vs_base;
2565          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
2566          vs_reserve(VM18);          vs_reserve(VM18);
# Line 2249  static L20() Line 2574  static L20()
2574          V363=(base[2]);          V363=(base[2]);
2575          V364=(base[3]);          V364=(base[3]);
2576          vs_top=sup;          vs_top=sup;
2577    goto TTL;
2578  TTL:;  TTL:;
2579          if(!(type_of((V361))==t_symbol)){          if(!(type_of((V361))==t_symbol)){
2580          goto T1537;}          goto T1555;}
2581          setq(VV[62],make_cons((V361),symbol_value(VV[62])));          setq(VV[62],make_cons((V361),symbol_value(VV[62])));
2582          V361= (*(LnkLI89))((V361),(V362),(V363),(V364));          V361= (*(LnkLI89))((V361),(V362),(V363),(V364));
2583          setq(VV[30],make_cons((V361),symbol_value(VV[30])));          setq(VV[30],make_cons((V361),symbol_value(VV[30])));
# Line 2259  TTL:; Line 2585  TTL:;
2585          base[4]= (V361);          base[4]= (V361);
2586          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2587          return;          return;
2588  T1537:;  goto T1555;
2589    T1555:;
2590          base[4]= (V361);          base[4]= (V361);
2591          base[5]= (V362);          base[5]= (V362);
2592          base[6]= (V363);          base[6]= (V363);
# Line 2275  static object LI21(V366) Line 2602  static object LI21(V366)
2602    
2603  object V366;  object V366;
2604  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
2605    goto TTL;
2606  TTL:;  TTL:;
2607          {object V367 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V366)));          {object V367 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V366)));
2608          VMR19(V367)}          VMR19(V367)}
2609            return Cnil;
2610  }  }
2611  /*      function definition for C2DM    */  /*      function definition for C2DM    */
2612    
2613  static L22()  static void L22()
2614  {register object *base=vs_base;  {register object *base=vs_base;
2615          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
2616          vs_reserve(VM20);          vs_reserve(VM20);
# Line 2295  static L22() Line 2624  static L22()
2624          V370=(base[2]);          V370=(base[2]);
2625          V371=(base[3]);          V371=(base[3]);
2626          vs_top=sup;          vs_top=sup;
2627    goto TTL;
2628  TTL:;  TTL:;
2629          {object V372;          {object V372;
2630          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
2631          V372= symbol_value(VV[54]);          V372= symbol_value(VV[54]);
2632          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
2633          goto T1554;}          goto T1572;}
2634          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
2635          goto T1553;}          goto T1571;}
2636  T1554:;  goto T1572;
2637    T1572:;
2638          princ_str("\n   check_arg(2);",VV[10]);          princ_str("\n   check_arg(2);",VV[10]);
2639  T1553:;  goto T1571;
2640    T1571:;
2641          if(((V368))==Cnil){          if(((V368))==Cnil){
2642          goto T1561;}          goto T1579;}
2643          V373= (*(LnkLI102))();          V373= (*(LnkLI102))();
2644          (void)(structure_set((V368),VV[6],2,/* INLINE-ARGS */V373));          (void)(structure_set((V368),VV[6],2,/* INLINE-ARGS */V373));
2645          goto T1559;          goto T1577;
2646  T1561:;  goto T1579;
2647    T1579:;
2648          (void)((*(LnkLI102))());          (void)((*(LnkLI102))());
2649  T1559:;  goto T1577;
2650    T1577:;
2651          if(((V369))==Cnil){          if(((V369))==Cnil){
2652          goto T1565;}          goto T1583;}
2653          V374= (*(LnkLI102))();          V374= (*(LnkLI102))();
2654          (void)(structure_set((V369),VV[6],2,/* INLINE-ARGS */V374));          (void)(structure_set((V369),VV[6],2,/* INLINE-ARGS */V374));
2655          goto T1563;          goto T1581;
2656  T1565:;  goto T1583;
2657    T1583:;
2658          (void)((*(LnkLI102))());          (void)((*(LnkLI102))());
2659  T1563:;  goto T1581;
2660    T1581:;
2661          (void)((*(LnkLI114))((V370)));          (void)((*(LnkLI114))((V370)));
2662          princ_str("\n   vs_top=sup;",VV[10]);          princ_str("\n   vs_top=sup;",VV[10]);
2663          if(((V368))==Cnil){          if(((V368))==Cnil){
2664          goto T1570;}          goto T1588;}
2665          (void)((*(LnkLI103))((V368)));          (void)((*(LnkLI103))((V368)));
2666  T1570:;  goto T1588;
2667    T1588:;
2668          if(((V369))==Cnil){          if(((V369))==Cnil){
2669          goto T1573;}          goto T1591;}
2670          (void)((*(LnkLI103))((V369)));          (void)((*(LnkLI103))((V369)));
2671  T1573:;  goto T1591;
2672    T1591:;
2673          princ_str("\n   {object V",VV[10]);          princ_str("\n   {object V",VV[10]);
2674          (void)((*(LnkLI80))((V372)));          (void)((*(LnkLI80))((V372)));
2675          princ_str("=base[0]->c.c_cdr;",VV[10]);          princ_str("=base[0]->c.c_cdr;",VV[10]);
# Line 2349  static object LI23(V376) Line 2687  static object LI23(V376)
2687    
2688  object V376;  object V376;
2689  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
2690    goto TTL;
2691  TTL:;  TTL:;
2692          {register object V377;          {register object V377;
2693          object V378;          object V378;
2694          V377= car((V376));          V377= car((V376));
2695          V378= car((V377));          V378= car((V377));
2696  T1588:;  goto T1606;
2697    T1606:;
2698          if(!(endp((V377)))){          if(!(endp((V377)))){
2699          goto T1589;}          goto T1607;}
2700          goto T1584;          goto T1602;
2701  T1589:;  goto T1607;
2702    T1607:;
2703          (void)((*(LnkLI116))((V378)));          (void)((*(LnkLI116))((V378)));
2704          V377= cdr((V377));          V377= cdr((V377));
2705          V378= car((V377));          V378= car((V377));
2706          goto T1588;}          goto T1606;}
2707  T1584:;  goto T1602;
2708    T1602:;
2709          {register object V379;          {register object V379;
2710          register object V380;          register object V380;
2711          V379= cadr((V376));          V379= cadr((V376));
2712          V380= car((V379));          V380= car((V379));
2713  T1603:;  goto T1621;
2714    T1621:;
2715          if(!(endp((V379)))){          if(!(endp((V379)))){
2716          goto T1604;}          goto T1622;}
2717          goto T1599;          goto T1617;
2718  T1604:;  goto T1622;
2719    T1622:;
2720          (void)((*(LnkLI116))(car((V380))));          (void)((*(LnkLI116))(car((V380))));
2721          if((caddr((V380)))==Cnil){          if((caddr((V380)))==Cnil){
2722          goto T1609;}          goto T1627;}
2723          (void)((*(LnkLI116))(caddr((V380))));          (void)((*(LnkLI116))(caddr((V380))));
2724  T1609:;  goto T1627;
2725    T1627:;
2726          V379= cdr((V379));          V379= cdr((V379));
2727          V380= car((V379));          V380= car((V379));
2728          goto T1603;}          goto T1621;}
2729  T1599:;  goto T1617;
2730    T1617:;
2731          if((caddr((V376)))==Cnil){          if((caddr((V376)))==Cnil){
2732          goto T1617;}          goto T1635;}
2733          (void)((*(LnkLI116))(caddr((V376))));          (void)((*(LnkLI116))(caddr((V376))));
2734  T1617:;  goto T1635;
2735    T1635:;
2736          {register object V381;          {register object V381;
2737          register object V382;          register object V382;
2738          V381= car(cddddr((V376)));          V381= car(cddddr((V376)));
2739          V382= car((V381));          V382= car((V381));
2740  T1624:;  goto T1642;
2741    T1642:;
2742          if(!(endp((V381)))){          if(!(endp((V381)))){
2743          goto T1625;}          goto T1643;}
2744          goto T1620;          goto T1638;
2745  T1625:;  goto T1643;
2746    T1643:;
2747          (void)((*(LnkLI116))(cadr((V382))));          (void)((*(LnkLI116))(cadr((V382))));
2748          if((cadddr((V382)))==Cnil){          if((cadddr((V382)))==Cnil){
2749          goto T1630;}          goto T1648;}
2750          (void)((*(LnkLI116))(cadddr((V382))));          (void)((*(LnkLI116))(cadddr((V382))));
2751  T1630:;  goto T1648;
2752    T1648:;
2753          V381= cdr((V381));          V381= cdr((V381));
2754          V382= car((V381));          V382= car((V381));
2755          goto T1624;}          goto T1642;}
2756  T1620:;  goto T1638;
2757    T1638:;
2758          {register object V383;          {register object V383;
2759          object V384;          object V384;
2760          V383= caddr(cddddr((V376)));          V383= caddr(cddddr((V376)));
2761          V384= car((V383));          V384= car((V383));
2762  T1641:;  goto T1659;
2763    T1659:;
2764          if(!(endp((V383)))){          if(!(endp((V383)))){
2765          goto T1642;}          goto T1660;}
2766          {object V385 = Cnil;          {object V385 = Cnil;
2767          VMR21(V385)}          VMR21(V385)}
2768  T1642:;  goto T1660;
2769    T1660:;
2770          (void)((*(LnkLI116))(car((V384))));          (void)((*(LnkLI116))(car((V384))));
2771          V383= cdr((V383));          V383= cdr((V383));
2772          V384= car((V383));          V384= car((V383));
2773          goto T1641;}          goto T1659;}
2774            base[0]=base[0];
2775            return Cnil;
2776  }  }
2777  /*      local entry for function C2DM-RESERVE-V */  /*      local entry for function C2DM-RESERVE-V */
2778    
# Line 2425  static object LI24(V387) Line 2780  static object LI24(V387)
2780    
2781  object V387;  object V387;
2782  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
2783    goto TTL;
2784  TTL:;  TTL:;
2785          if(!(type_of((V387))==t_cons)){          if(!(type_of((V387))==t_cons)){
2786          goto T1653;}          goto T1671;}
2787          {object V388 = (*(LnkLI114))((V387));          {object V388 = (*(LnkLI114))((V387));
2788          VMR22(V388)}          VMR22(V388)}
2789  T1653:;  goto T1671;
2790    T1671:;
2791          V389= (*(LnkLI102))();          V389= (*(LnkLI102))();
2792          {object V390 = structure_set((V387),VV[6],2,/* INLINE-ARGS */V389);          {object V390 = structure_set((V387),VV[6],2,/* INLINE-ARGS */V389);
2793          VMR22(V390)}          VMR22(V390)}
2794            return Cnil;
2795  }  }
2796  /*      local entry for function C2DM-BIND-VL   */  /*      local entry for function C2DM-BIND-VL   */
2797    
# Line 2442  static object LI25(V393,V394) Line 2800  static object LI25(V393,V394)
2800  object V393;register object V394;  object V393;register object V394;
2801  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
2802          bds_check;          bds_check;
2803    goto TTL;
2804  TTL:;  TTL:;
2805          {object V395;          {object V395;
2806          object V396;          object V396;
# Line 2459  TTL:; Line 2818  TTL:;
2818          V401= caddr(cddddr((V393)));          V401= caddr(cddddr((V393)));
2819          {register object V402;          {register object V402;
2820          V402= (V395);          V402= (V395);
2821  T1664:;  goto T1682;
2822    T1682:;
2823          if(!(endp((V402)))){          if(!(endp((V402)))){
2824          goto T1665;}          goto T1683;}
2825          goto T1662;          goto T1680;
2826  T1665:;  goto T1683;
2827    T1683:;
2828          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
2829          goto T1670;}          goto T1688;}
2830          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
2831          goto T1669;}          goto T1687;}
2832  T1670:;  goto T1688;
2833    T1688:;
2834          princ_str("\n   if(endp(V",VV[10]);          princ_str("\n   if(endp(V",VV[10]);
2835          (void)((*(LnkLI80))((V394)));          (void)((*(LnkLI80))((V394)));
2836          princ_str("))invalid_macro_call();",VV[10]);          princ_str("))invalid_macro_call();",VV[10]);
2837  T1669:;  goto T1687;
2838    T1687:;
2839          V403= car((V402));          V403= car((V402));
2840          V404= list(2,VV[75],(V394));          V404= list(2,VV[75],(V394));
2841          (void)((*(LnkLI117))(/* INLINE-ARGS */V403,/* INLINE-ARGS */V404));          (void)((*(LnkLI117))(/* INLINE-ARGS */V403,/* INLINE-ARGS */V404));
2842          if((cdr((V402)))!=Cnil){          if((cdr((V402)))!=Cnil){
2843          goto T1679;}          goto T1697;}
2844          if(((V396))!=Cnil){          if(((V396))!=Cnil){
2845          goto T1679;}          goto T1697;}
2846          if(((V397))!=Cnil){          if(((V397))!=Cnil){
2847          goto T1679;}          goto T1697;}
2848          if(((V398))!=Cnil){          if(((V398))!=Cnil){
2849          goto T1679;}          goto T1697;}
2850          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
2851          goto T1679;}          goto T1697;}
2852          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
2853          goto T1678;}          goto T1696;}
2854  T1679:;  goto T1697;
2855    T1697:;
2856          princ_str("\n   V",VV[10]);          princ_str("\n   V",VV[10]);
2857          (void)((*(LnkLI80))((V394)));          (void)((*(LnkLI80))((V394)));
2858          princ_str("=V",VV[10]);          princ_str("=V",VV[10]);
2859          (void)((*(LnkLI80))((V394)));          (void)((*(LnkLI80))((V394)));
2860          princ_str("->c.c_cdr;",VV[10]);          princ_str("->c.c_cdr;",VV[10]);
2861  T1678:;  goto T1696;
2862    T1696:;
2863          V402= cdr((V402));          V402= cdr((V402));
2864          goto T1664;}          goto T1682;}
2865  T1662:;  goto T1680;
2866    T1680:;
2867          {register object V405;          {register object V405;
2868          V405= (V396);          V405= (V396);
2869  T1701:;  goto T1719;
2870    T1719:;
2871          if(!(endp((V405)))){          if(!(endp((V405)))){
2872          goto T1702;}          goto T1720;}
2873          goto T1699;          goto T1717;
2874  T1702:;  goto T1720;
2875    T1720:;
2876          {register object V406;          {register object V406;
2877          V406= car((V405));          V406= car((V405));
2878          princ_str("\n   if(endp(V",VV[10]);          princ_str("\n   if(endp(V",VV[10]);
# Line 2518  T1702:; Line 2886  T1702:;
2886          bds_unwind1;          bds_unwind1;
2887          bds_unwind1;          bds_unwind1;
2888          bds_unwind1;          bds_unwind1;
2889          goto T1712;}          goto T1730;}
2890          V407= (*(LnkLI117))(caddr((V406)),Cnil);          V407= (*(LnkLI117))(caddr((V406)),Cnil);
2891          bds_unwind1;          bds_unwind1;
2892          bds_unwind1;          bds_unwind1;
2893          bds_unwind1;          bds_unwind1;
2894  T1712:;  goto T1730;
2895    T1730:;
2896          princ_str("\n   } else {",VV[10]);          princ_str("\n   } else {",VV[10]);
2897          V408= car((V406));          V408= car((V406));
2898          V409= list(2,VV[75],(V394));          V409= list(2,VV[75],(V394));
2899          (void)((*(LnkLI117))(/* INLINE-ARGS */V408,/* INLINE-ARGS */V409));          (void)((*(LnkLI117))(/* INLINE-ARGS */V408,/* INLINE-ARGS */V409));
2900          if((caddr((V406)))==Cnil){          if((caddr((V406)))==Cnil){
2901          goto T1706;}          goto T1724;}
2902          (void)((*(LnkLI117))(caddr((V406)),Ct));}          (void)((*(LnkLI117))(caddr((V406)),Ct));}
2903  T1706:;  goto T1724;
2904    T1724:;
2905          if((cdr((V405)))!=Cnil){          if((cdr((V405)))!=Cnil){
2906          goto T1722;}          goto T1740;}
2907          if(((V397))!=Cnil){          if(((V397))!=Cnil){
2908          goto T1722;}          goto T1740;}
2909          if(((V398))!=Cnil){          if(((V398))!=Cnil){
2910          goto T1722;}          goto T1740;}
2911          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
2912          goto T1722;}          goto T1740;}
2913          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
2914          goto T1721;}          goto T1739;}
2915  T1722:;  goto T1740;
2916    T1740:;
2917          princ_str("\n   V",VV[10]);          princ_str("\n   V",VV[10]);
2918          (void)((*(LnkLI80))((V394)));          (void)((*(LnkLI80))((V394)));
2919          princ_str("=V",VV[10]);          princ_str("=V",VV[10]);
2920          (void)((*(LnkLI80))((V394)));          (void)((*(LnkLI80))((V394)));
2921          princ_str("->c.c_cdr;",VV[10]);          princ_str("->c.c_cdr;",VV[10]);
2922  T1721:;  goto T1739;
2923    T1739:;
2924          princ_char(125,VV[10]);          princ_char(125,VV[10]);
2925          V405= cdr((V405));          V405= cdr((V405));
2926          goto T1701;}          goto T1719;}
2927  T1699:;  goto T1717;
2928    T1717:;
2929          if(((V397))==Cnil){          if(((V397))==Cnil){
2930          goto T1742;}          goto T1760;}
2931          V410= list(2,VV[76],(V394));          V410= list(2,VV[76],(V394));
2932          (void)((*(LnkLI117))((V397),/* INLINE-ARGS */V410));          (void)((*(LnkLI117))((V397),/* INLINE-ARGS */V410));
2933  T1742:;  goto T1760;
2934    T1760:;
2935          {object V411;          {object V411;
2936          register object V412;          register object V412;
2937          V411= (V399);          V411= (V399);
2938          V412= car((V411));          V412= car((V411));
2939  T1749:;  goto T1767;
2940    T1767:;
2941          if(!(endp((V411)))){          if(!(endp((V411)))){
2942          goto T1750;}          goto T1768;}
2943          goto T1745;          goto T1763;
2944  T1750:;  goto T1768;
2945    T1768:;
2946          {object V413;          {object V413;
2947          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
2948          V413= symbol_value(VV[54]);          V413= symbol_value(VV[54]);
# Line 2586  T1750:; Line 2962  T1750:;
2962          bds_bind(VV[26],symbol_value(VV[26]));          bds_bind(VV[26],symbol_value(VV[26]));
2963          (void)((*(LnkLI118))(cadr((V412)),caddr((V412))));          (void)((*(LnkLI118))(cadr((V412)),caddr((V412))));
2964          if((cadddr((V412)))==Cnil){          if((cadddr((V412)))==Cnil){
2965          goto T1771;}          goto T1789;}
2966          (void)((*(LnkLI117))(cadddr((V412)),Cnil));          (void)((*(LnkLI117))(cadddr((V412)),Cnil));
2967  T1771:;  goto T1789;
2968    T1789:;
2969          princ_str("\n   } else {",VV[10]);          princ_str("\n   } else {",VV[10]);
2970          bds_unwind1;          bds_unwind1;
2971          bds_unwind1;          bds_unwind1;
# Line 2597  T1771:; Line 2974  T1771:;
2974          V416= list(2,VV[76],(V413));          V416= list(2,VV[76],(V413));
2975          (void)((*(LnkLI117))(/* INLINE-ARGS */V415,/* INLINE-ARGS */V416));          (void)((*(LnkLI117))(/* INLINE-ARGS */V415,/* INLINE-ARGS */V416));
2976          if((cadddr((V412)))==Cnil){          if((cadddr((V412)))==Cnil){
2977          goto T1776;}          goto T1794;}
2978          (void)((*(LnkLI117))(cadddr((V412)),Ct));          (void)((*(LnkLI117))(cadddr((V412)),Ct));
2979  T1776:;  goto T1794;
2980    T1794:;
2981          princ_str("}}",VV[10]);}          princ_str("}}",VV[10]);}
2982          V411= cdr((V411));          V411= cdr((V411));
2983          V412= car((V411));          V412= car((V411));
2984          goto T1749;}          goto T1767;}
2985  T1745:;  goto T1763;
2986    T1763:;
2987          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
2988          goto T1787;}          goto T1805;}
2989          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
2990          goto T1785;}          goto T1803;}
2991  T1787:;  goto T1805;
2992    T1805:;
2993          if(((V397))!=Cnil){          if(((V397))!=Cnil){
2994          goto T1785;}          goto T1803;}
2995          if(((V398))!=Cnil){          if(((V398))!=Cnil){
2996          goto T1785;}          goto T1803;}
2997          princ_str("\n   if(!endp(V",VV[10]);          princ_str("\n   if(!endp(V",VV[10]);
2998          (void)((*(LnkLI80))((V394)));          (void)((*(LnkLI80))((V394)));
2999          princ_str("))invalid_macro_call();",VV[10]);          princ_str("))invalid_macro_call();",VV[10]);
3000  T1785:;  goto T1803;
3001    T1803:;
3002          if((symbol_value(VV[55]))!=Cnil){          if((symbol_value(VV[55]))!=Cnil){
3003          goto T1799;}          goto T1817;}
3004          if((symbol_value(VV[56]))==Cnil){          if((symbol_value(VV[56]))==Cnil){
3005          goto T1797;}          goto T1815;}
3006  T1799:;  goto T1817;
3007    T1817:;
3008          if(((V398))==Cnil){          if(((V398))==Cnil){
3009          goto T1797;}          goto T1815;}
3010          if(((V400))!=Cnil){          if(((V400))!=Cnil){
3011          goto T1797;}          goto T1815;}
3012          princ_str("\n   check_other_key(V",VV[10]);          princ_str("\n   check_other_key(V",VV[10]);
3013          (void)((*(LnkLI80))((V394)));          (void)((*(LnkLI80))((V394)));
3014          princ_char(44,VV[10]);          princ_char(44,VV[10]);
# Line 2636  T1799:; Line 3018  T1799:;
3018          object V419;          object V419;
3019          V418= (V399);          V418= (V399);
3020          V419= car((V418));          V419= car((V418));
3021  T1815:;  goto T1833;
3022    T1833:;
3023          if(!(endp((V418)))){          if(!(endp((V418)))){
3024          goto T1816;}          goto T1834;}
3025          goto T1811;          goto T1829;
3026  T1816:;  goto T1834;
3027    T1834:;
3028          princ_str(",VV[",VV[10]);          princ_str(",VV[",VV[10]);
3029          V420= (*(LnkLI108))(car((V419)));          V420= (*(LnkLI108))(car((V419)));
3030          (void)((*(LnkLI80))(/* INLINE-ARGS */V420));          (void)((*(LnkLI80))(/* INLINE-ARGS */V420));
3031          princ_char(93,VV[10]);          princ_char(93,VV[10]);
3032          V418= cdr((V418));          V418= cdr((V418));
3033          V419= car((V418));          V419= car((V418));
3034          goto T1815;}          goto T1833;}
3035  T1811:;  goto T1829;
3036    T1829:;
3037          princ_str(");",VV[10]);          princ_str(");",VV[10]);
3038  T1797:;  goto T1815;
3039    T1815:;
3040          {object V421;          {object V421;
3041          object V422;          object V422;
3042          V421= (V401);          V421= (V401);
3043          V422= car((V421));          V422= car((V421));
3044  T1833:;  goto T1851;
3045    T1851:;
3046          if(!(endp((V421)))){          if(!(endp((V421)))){
3047          goto T1834;}          goto T1852;}
3048          {object V423 = Cnil;          {object V423 = Cnil;
3049          VMR23(V423)}          VMR23(V423)}
3050  T1834:;  goto T1852;
3051    T1852:;
3052          (void)((*(LnkLI118))(car((V422)),cadr((V422))));          (void)((*(LnkLI118))(car((V422)),cadr((V422))));
3053          V421= cdr((V421));          V421= cdr((V421));
3054          V422= car((V421));          V422= car((V421));
3055          goto T1833;}}          goto T1851;}}
3056            base[0]=base[0];
3057            return Cnil;
3058  }  }
3059  /*      local entry for function C2DM-BIND-LOC  */  /*      local entry for function C2DM-BIND-LOC  */
3060    
# Line 2672  static object LI26(V426,V427) Line 3062  static object LI26(V426,V427)
3062    
3063  object V426;object V427;  object V426;object V427;
3064  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
3065    goto TTL;
3066  TTL:;  TTL:;
3067          if(!(type_of((V426))==t_cons)){          if(!(type_of((V426))==t_cons)){
3068          goto T1845;}          goto T1863;}
3069          {object V428;          {object V428;
3070          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
3071          V428= symbol_value(VV[54]);          V428= symbol_value(VV[54]);
# Line 2687  TTL:; Line 3078  TTL:;
3078          princ_char(125,VV[10]);          princ_char(125,VV[10]);
3079          {object V429 = Cnil;          {object V429 = Cnil;
3080          VMR24(V429)}}          VMR24(V429)}}
3081  T1845:;  goto T1863;
3082    T1863:;
3083          {object V430 = (*(LnkLI105))((V426),(V427));          {object V430 = (*(LnkLI105))((V426),(V427));
3084          VMR24(V430)}          VMR24(V430)}
3085            return Cnil;
3086  }  }
3087  /*      local entry for function C2DM-BIND-INIT */  /*      local entry for function C2DM-BIND-INIT */
3088    
# Line 2698  static object LI27(V433,V434) Line 3091  static object LI27(V433,V434)
3091  object V433;object V434;  object V433;object V434;
3092  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
3093          bds_check;          bds_check;
3094    goto TTL;
3095  TTL:;  TTL:;
3096          if(!(type_of((V433))==t_cons)){          if(!(type_of((V433))==t_cons)){
3097          goto T1858;}          goto T1876;}
3098          {object V435;          {object V435;
3099          object V436;          object V436;
3100          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],symbol_value(VV[53]));
# Line 2721  TTL:; Line 3115  TTL:;
3115          bds_unwind1;          bds_unwind1;
3116          bds_unwind1;          bds_unwind1;
3117          VMR25(V439)}}          VMR25(V439)}}
3118  T1858:;  goto T1876;
3119    T1876:;
3120          {object V440 = (*(LnkLI106))((V433),(V434));          {object V440 = (*(LnkLI106))((V433),(V434));
3121          VMR25(V440)}          VMR25(V440)}
3122            base[0]=base[0];
3123            return Cnil;
3124  }  }
3125  /*      local function DO-DECL  */  /*      local function DO-DECL  */
3126    
3127  static L16(base0)  static void L16(base0)
3128  register object *base0;  register object *base0;
3129  {       register object *base=vs_base;  {       register object *base=vs_base;
3130          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
# Line 2736  register object *base0; Line 3133  register object *base0;
3133          check_arg(1);          check_arg(1);
3134          V441=(base[0]);          V441=(base[0]);
3135          vs_top=sup;          vs_top=sup;
3136    goto TTL;
3137  TTL:;  TTL:;
3138          {object V442;          {object V442;
3139          V442= (*(LnkLI121))((V441));          V442= (*(LnkLI121))((V441));
3140          if(((V442))==Cnil){          if(((V442))==Cnil){
3141          goto T1874;}          goto T1892;}
3142          {object V443;          {object V443;
3143          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
3144          V443= symbol_value(VV[54]);          V443= symbol_value(VV[54]);
# Line 2748  TTL:; Line 3146  TTL:;
3146          (void)(structure_set((V441),VV[6],4,(V443)));          (void)(structure_set((V441),VV[6],4,(V443)));
3147          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
3148          if((base0[9])!=Cnil){          if((base0[9])!=Cnil){
3149          goto T1881;}          goto T1899;}
3150          princ_char(123,VV[10]);          princ_char(123,VV[10]);
3151          base0[9]= Ct;          base0[9]= Ct;
3152  T1881:;  goto T1899;
3153    T1899:;
3154          base[1]= (V441);          base[1]= (V441);
3155          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3156          (void) (*Lnk122)();          (void) (*Lnk122)();
3157          return;}          return;}
3158  T1874:;  goto T1892;
3159    T1892:;
3160          base[1]= Cnil;          base[1]= Cnil;
3161          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3162          return;}          return;}
# Line 2764  T1874:; Line 3164  T1874:;
3164  }  }
3165  /*      local function DO-DECL  */  /*      local function DO-DECL  */
3166    
3167  static L14(base0)  static void L14(base0)
3168  register object *base0;  register object *base0;
3169  {       register object *base=vs_base;  {       register object *base=vs_base;
3170          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
# Line 2773  register object *base0; Line 3173  register object *base0;
3173          check_arg(1);          check_arg(1);
3174          V444=(base[0]);          V444=(base[0]);
3175          vs_top=sup;          vs_top=sup;
3176    goto TTL;
3177  TTL:;  TTL:;
3178          {object V445;          {object V445;
3179          V445= (*(LnkLI121))((V444));          V445= (*(LnkLI121))((V444));
3180          if(((V445))==Cnil){          if(((V445))==Cnil){
3181          goto T1890;}          goto T1908;}
3182          {object V446;          {object V446;
3183          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));
3184          V446= symbol_value(VV[54]);          V446= symbol_value(VV[54]);
# Line 2785  TTL:; Line 3186  TTL:;
3186          (void)(structure_set((V444),VV[6],4,(V446)));          (void)(structure_set((V444),VV[6],4,(V446)));
3187          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
3188          if((base0[7])!=Cnil){          if((base0[7])!=Cnil){
3189          goto T1897;}          goto T1915;}
3190          princ_char(123,VV[10]);          princ_char(123,VV[10]);
3191          base0[7]= Ct;          base0[7]= Ct;
3192  T1897:;  goto T1915;
3193    T1915:;
3194          base[1]= (V444);          base[1]= (V444);
3195          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3196          (void) (*Lnk122)();          (void) (*Lnk122)();
3197          return;}          return;}
3198  T1890:;  goto T1908;
3199    T1908:;
3200          base[1]= Cnil;          base[1]= Cnil;
3201          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3202          return;}          return;}
3203          }          }
3204  }  }
3205  static LnkT122(){ call_or_link(VV[122],&Lnk122);} /* WT-VAR-DECL */  static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* WT-VAR-DECL */
3206  static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],&LnkLI121,1,ap);} /* C2VAR-KIND */  static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],(void **)&LnkLI121,1,ap);} /* C2VAR-KIND */
3207  static object  LnkTLI120(){return call_proc0(VV[120],&LnkLI120);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI120(){return call_proc0(VV[120],(void **)&LnkLI120);} /* CLOSE-INLINE-BLOCKS */
3208  static object  LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[119],&LnkLI119,ap);} /* INLINE-ARGS */  static object  LnkTLI119(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[119],(void **)&LnkLI119,ap);} /* INLINE-ARGS */
3209  static object  LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],&LnkLI118,2,ap);} /* C2DM-BIND-INIT */  static object  LnkTLI118(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[118],(void **)&LnkLI118,2,ap);} /* C2DM-BIND-INIT */
3210  static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],&LnkLI117,2,ap);} /* C2DM-BIND-LOC */  static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[117],(void **)&LnkLI117,2,ap);} /* C2DM-BIND-LOC */
3211  static object  LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],&LnkLI116,1,ap);} /* C2DM-RESERVE-V */  static object  LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],(void **)&LnkLI116,1,ap);} /* C2DM-RESERVE-V */
3212  static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],&LnkLI115,2,ap);} /* C2DM-BIND-VL */  static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],(void **)&LnkLI115,2,ap);} /* C2DM-BIND-VL */
3213  static object  LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],&LnkLI114,1,ap);} /* C2DM-RESERVE-VL */  static object  LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],(void **)&LnkLI114,1,ap);} /* C2DM-RESERVE-VL */
3214  static object  LnkTLI113(){return call_proc0(VV[113],&LnkLI113);} /* C1NIL */  static object  LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* C1NIL */
3215  static LnkT112(){ call_or_link(VV[112],&Lnk112);} /* C1DM-V */  static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* C1DM-V */
3216  static LnkT111(){ call_or_link(VV[111],&Lnk111);} /* DM-BAD-KEY */  static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* DM-BAD-KEY */
3217  static LnkT110(){ call_or_link(VV[110],&Lnk110);} /* C1DM-VL */  static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* C1DM-VL */
3218  static object  LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],&LnkLI109,1,ap);} /* WT-VS */  static object  LnkTLI109(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[109],(void **)&LnkLI109,1,ap);} /* WT-VS */
3219  static object  LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],&LnkLI108,1,ap);} /* ADD-SYMBOL */  static object  LnkTLI108(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[108],(void **)&LnkLI108,1,ap);} /* ADD-SYMBOL */
3220  static LnkT107(){ call_or_link(VV[107],&Lnk107);} /* C2EXPR */  static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* C2EXPR */
3221  static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],&LnkLI106,2,ap);} /* C2BIND-INIT */  static object  LnkTLI106(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[106],(void **)&LnkLI106,2,ap);} /* C2BIND-INIT */
3222  static object  LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],&LnkLI105,2,ap);} /* C2BIND-LOC */  static object  LnkTLI105(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[105],(void **)&LnkLI105,2,ap);} /* C2BIND-LOC */
3223  static object  LnkTLI104(){return call_proc0(VV[104],&LnkLI104);} /* RESET-TOP */  static object  LnkTLI104(){return call_proc0(VV[104],(void **)&LnkLI104);} /* RESET-TOP */
3224  static object  LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],&LnkLI103,1,ap);} /* C2BIND */  static object  LnkTLI103(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[103],(void **)&LnkLI103,1,ap);} /* C2BIND */
3225  static object  LnkTLI102(){return call_proc0(VV[102],&LnkLI102);} /* VS-PUSH */  static object  LnkTLI102(){return call_proc0(VV[102],(void **)&LnkLI102);} /* VS-PUSH */
3226  static object  LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],&LnkLI101,2,ap);} /* C2LAMBDA-EXPR-WITHOUT-KEY */  static object  LnkTLI101(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[101],(void **)&LnkLI101,2,ap);} /* C2LAMBDA-EXPR-WITHOUT-KEY */
3227  static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* C2LAMBDA-EXPR-WITH-KEY */  static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],(void **)&LnkLI100,2,ap);} /* C2LAMBDA-EXPR-WITH-KEY */
3228  static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,1,ap);} /* RECORD-ARG-INFO */  static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],(void **)&LnkLI99,1,ap);} /* RECORD-ARG-INFO */
3229  static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],&LnkLI98,3,ap);} /* FIX-DOWN-ARGS */  static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[98],(void **)&LnkLI98,3,ap);} /* FIX-DOWN-ARGS */
3230  static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,1,ap);} /* CHECK-VREF */  static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,1,ap);} /* CHECK-VREF */
3231  static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,2,ap);} /* C1DECL-BODY */  static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,2,ap);} /* C1DECL-BODY */
3232  static object  LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],&LnkLI95,3,ap);} /* CHECK-VDECL */  static object  LnkTLI95(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[95],(void **)&LnkLI95,3,ap);} /* CHECK-VDECL */
3233  static object  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],&LnkLI94,2,ap);} /* ADD-INFO */  static object  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],(void **)&LnkLI94,2,ap);} /* ADD-INFO */
3234  static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],&LnkLI93,ap);} /* MAKE-VAR */  static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[93],(void **)&LnkLI93,ap);} /* MAKE-VAR */
3235  static object  LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],&LnkLI92,3,ap);} /* AND-FORM-TYPE */  static object  LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],(void **)&LnkLI92,3,ap);} /* AND-FORM-TYPE */
3236  static object  LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],&LnkLI91,2,ap);} /* C1EXPR* */  static object  LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],(void **)&LnkLI91,2,ap);} /* C1EXPR* */
3237  static object  LnkTLI90(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[90],&LnkLI90,1,ap);} /* DEFAULT-INIT */  static object  LnkTLI90(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[90],(void **)&LnkLI90,1,ap);} /* DEFAULT-INIT */
3238  static object  LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[89],&LnkLI89,4,ap);} /* C1MAKE-VAR */  static object  LnkTLI89(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[89],(void **)&LnkLI89,4,ap);} /* C1MAKE-VAR */
3239  static object  LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[88],&LnkLI88,1,ap);} /* C1ADD-GLOBALS */  static object  LnkTLI88(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[88],(void **)&LnkLI88,1,ap);} /* C1ADD-GLOBALS */
3240  static LnkT87(){ call_or_link(VV[87],&Lnk87);} /* C1BODY */  static void LnkT87(){ call_or_link(VV[87],(void **)&Lnk87);} /* C1BODY */
3241  static object  LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[86],&LnkLI86,ap);} /* CMPERR */  static object  LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[86],(void **)&LnkLI86,ap);} /* CMPERR */
3242  static object  LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[85],&LnkLI85,ap);} /* MAKE-INFO */  static object  LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[85],(void **)&LnkLI85,ap);} /* MAKE-INFO */
3243  static object  LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[84],&LnkLI84,ap);} /* UNWIND-EXIT */  static object  LnkTLI84(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[84],(void **)&LnkLI84,ap);} /* UNWIND-EXIT */
3244  static object  LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[83],&LnkLI83,ap);} /* MAKE-FUN */  static object  LnkTLI83(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[83],(void **)&LnkLI83,ap);} /* MAKE-FUN */
3245  static object  LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],&LnkLI82,ap);} /* DELETE */  static object  LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],(void **)&LnkLI82,ap);} /* DELETE */
3246  static object  LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,1,ap);} /* WT-H1 */  static object  LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],(void **)&LnkLI81,1,ap);} /* WT-H1 */
3247  static object  LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,1,ap);} /* WT1 */  static object  LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],(void **)&LnkLI80,1,ap);} /* WT1 */
3248  static object  LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],&LnkLI79,1,ap);} /* C1EXPR */  static object  LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],(void **)&LnkLI79,1,ap);} /* C1EXPR */
3249    
3250  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3251  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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