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

Diff of /gcl/cmpnew/gcl_cmplam.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:25:19 2003 UTC
# Line 7  void init_gcl_cmplam(){do_init(VV);} Line 7  void init_gcl_cmplam(){do_init(VV);}
7  static void 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_check;
         check_arg(2);  
11          vs_top=sup;          vs_top=sup;
12          {object V1=base[0]->c.c_cdr;          {object V1=base[0]->c.c_cdr;
13          if(endp(V1))invalid_macro_call();          base[2]= (V1->c.c_car);}
         base[2]= (V1->c.c_car);  
         V1=V1->c.c_cdr;  
         if(!endp(V1))invalid_macro_call();}  
14          base[3]= list(3,VV[0],base[2],VV[1]);          base[3]= list(3,VV[0],base[2],VV[1]);
15          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
16          return;          return;
# Line 24  static void L1() Line 20  static void L1()
20  static void L2()  static void L2()
21  {register object *base=vs_base;  {register object *base=vs_base;
22          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
23          vs_reserve(VM2);          vs_check;
         check_arg(2);  
24          vs_top=sup;          vs_top=sup;
25          {object V2=base[0]->c.c_cdr;          {object V2=base[0]->c.c_cdr;
26          if(endp(V2))invalid_macro_call();          base[2]= (V2->c.c_car);}
         base[2]= (V2->c.c_car);  
         V2=V2->c.c_cdr;  
         if(!endp(V2))invalid_macro_call();}  
27          base[3]= list(3,VV[0],base[2],VV[2]);          base[3]= list(3,VV[0],base[2],VV[2]);
28          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
29          return;          return;
# Line 41  static void L2() Line 33  static void L2()
33  static void L3()  static void L3()
34  {register object *base=vs_base;  {register object *base=vs_base;
35          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
36          vs_reserve(VM3);          vs_check;
         check_arg(2);  
37          vs_top=sup;          vs_top=sup;
38          {object V3=base[0]->c.c_cdr;          {object V3=base[0]->c.c_cdr;
39          if(endp(V3))invalid_macro_call();          base[2]= (V3->c.c_car);}
         base[2]= (V3->c.c_car);  
         V3=V3->c.c_cdr;  
         if(!endp(V3))invalid_macro_call();}  
40          base[3]= list(2,VV[3],base[2]);          base[3]= list(2,VV[3],base[2]);
41          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
42          return;          return;
# Line 63  register object V5; Line 51  register object V5;
51  TTL:;  TTL:;
52          {register object V6;          {register object V6;
53          object V7;          object V7;
54          V8= list(2,VV[3],car((V5)));          V8= list(2,VV[3],CMPcar((V5)));
55          V6= (*(LnkLI79))(/* INLINE-ARGS */V8);          V6= (*(LnkLI89))(/* INLINE-ARGS */V8);
56          V7= cadr((V6));          V7= CMPcadr((V6));
57          if(!(type_of((V5))==t_cons)){          if(!(type_of((V5))==t_cons)){
58          goto T4;}          goto T4;}
59          if(!(type_of(car((V5)))==t_cons)){          if(!(type_of(CMPcar((V5)))==t_cons)){
60          goto T4;}          goto T4;}
61          if(!((caar((V5)))==(VV[4]))){          if(!((CMPcaar((V5)))==(VV[4]))){
62          goto T4;}          goto T4;}
63          if((cadr(car((V5))))!=Cnil){          if((CMPcadr(CMPcar((V5))))!=Cnil){
64          goto T4;}          goto T4;}
65          {register object V9;          {register object V9;
66          register object V10;          register object V10;
67          V9= structure_ref((V7),VV[5],1);          V9= STREF(object,(V7),4);
68          V10= car((V9));          V10= CMPcar((V9));
69          goto T16;          goto T16;
70  T16:;  T16:;
71          if(!(endp_prop((V9)))){          if(!(((V9))==Cnil)){
72          goto T17;}          goto T17;}
73          goto T12;          goto T12;
74          goto T17;          goto T17;
75  T17:;  T17:;
76          V11= structure_ref((V10),VV[6],1);          if(!((STREF(object,(V10),4))==(VV[7]))){
         if(!((/* INLINE-ARGS */V11)==(VV[7]))){  
77          goto T21;}          goto T21;}
78          if((structure_ref((V10),VV[6],3))==Cnil){          if((STREF(object,(V10),12))==Cnil){
79          goto T21;}          goto T21;}
80          (void)(structure_set((V10),VV[6],1,VV[8]));          V11= Ct;
81            STSET(object,(V10),4, VV[8]);
82            (void)(VV[8]);
83          goto T21;          goto T21;
84  T21:;  T21:;
85          V9= cdr((V9));          V9= CMPcdr((V9));
86          V10= car((V9));          V10= CMPcar((V9));
87          goto T16;}          goto T16;}
88          goto T12;          goto T12;
89  T12:;  T12:;
         if(type_of(V6)!=t_cons)FEwrong_type_argument(Scons,V6);  
90          (V6)->c.c_car = VV[9];          (V6)->c.c_car = VV[9];
91          {object V14 = (V6);          {object V14 = (V6);
92          VMR4(V14)}          VMR4(V14)}
# Line 118  register object V18;object V19; Line 106  register object V18;object V19;
106          goto TTL;          goto TTL;
107  TTL:;  TTL:;
108          princ_str("\n   (DownClose",VV[10]);          princ_str("\n   (DownClose",VV[10]);
109          (void)((*(LnkLI80))((V18)));          (void)((*(LnkLI90))((V18)));
110          princ_str(".t=t_dclosure,DownClose",VV[10]);          princ_str(".t=t_dclosure,DownClose",VV[10]);
111          (void)((*(LnkLI80))((V18)));          (void)((*(LnkLI90))((V18)));
112          princ_str(".dc_self=LC",VV[10]);          princ_str(".dc_self=LC",VV[10]);
113          (void)((*(LnkLI80))((V18)));          (void)((*(LnkLI90))((V18)));
114          princ_char(44,VV[10]);          princ_char(44,VV[10]);
115          princ_str("DownClose",VV[10]);          princ_str("DownClose",VV[10]);
116          (void)((*(LnkLI80))((V18)));          (void)((*(LnkLI90))((V18)));
117          princ_str(".dc_env=base0,(object)&DownClose",VV[10]);          princ_str(".dc_env=base0,(object)&DownClose",VV[10]);
118          (void)((*(LnkLI80))((V18)));          (void)((*(LnkLI90))((V18)));
119          princ_char(41,VV[10]);          princ_char(41,VV[10]);
120          {object V20 = Cnil;          {object V20 = Cnil;
121          VMR5(V20)}          VMR5(V20)}
# Line 157  object V23; Line 145  object V23;
145  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
146          goto TTL;          goto TTL;
147  TTL:;  TTL:;
148          if((symbol_value(VV[12]))==Cnil){          if(((VV[12]->s.s_dbind))==Cnil){
149          goto T49;}          goto T49;}
150          princ_str("\n#define DCnames",VV[13]);          princ_str("\n#define DCnames",VV[13]);
151          (void)((*(LnkLI81))((V23)));          (void)((*(LnkLI91))((V23)));
152          princ_char(32,VV[13]);          princ_char(32,VV[13]);
153          setq(VV[12],(VFUN_NARGS=2,(*(LnkLI82))(VV[14],symbol_value(VV[12]))));          (VV[12]->s.s_dbind)= (VFUN_NARGS=2,(*(LnkLI92))(VV[14],(VV[12]->s.s_dbind)));
154          if((symbol_value(VV[12]))==Cnil){          if(((VV[12]->s.s_dbind))==Cnil){
155          goto T58;}          goto T58;}
156          (void)((*(LnkLI81))(VV[15]));          (void)((*(LnkLI91))(VV[15]));
157          {register object V24;          {register object V24;
158          V24= symbol_value(VV[12]);          V24= (VV[12]->s.s_dbind);
159          goto T63;          goto T63;
160  T63:;  T63:;
161          if(((V24))!=Cnil){          if(((V24))!=Cnil){
# Line 175  T63:; Line 163  T63:;
163          goto T61;          goto T61;
164          goto T64;          goto T64;
165  T64:;  T64:;
166          (void)((*(LnkLI81))(VV[16]));          (void)((*(LnkLI91))(VV[16]));
167          (void)((*(LnkLI81))(car((V24))));          (void)((*(LnkLI91))(CMPcar((V24))));
168          if((cdr((V24)))==Cnil){          if((CMPcdr((V24)))==Cnil){
169          goto T70;}          goto T70;}
170          (void)((*(LnkLI81))(VV[17]));          (void)((*(LnkLI91))(VV[17]));
171          goto T70;          goto T70;
172  T70:;  T70:;
173          V24= cdr((V24));          V24= CMPcdr((V24));
174          goto T63;}          goto T63;}
175          goto T61;          goto T61;
176  T61:;  T61:;
177          {object V25 = (*(LnkLI81))(VV[18]);          {object V25 = (*(LnkLI91))(VV[18]);
178          VMR7(V25)}          VMR7(V25)}
179          goto T58;          goto T58;
180  T58:;  T58:;
# Line 207  object V29; Line 195  object V29;
195          goto TTL;          goto TTL;
196  TTL:;  TTL:;
197          {register object V30;          {register object V30;
198          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          (VV[22]->s.s_dbind)= number_plus((VV[22]->s.s_dbind),small_fixnum(1));
199          V30= (VFUN_NARGS=4,(*(LnkLI83))(VV[19],VV[20],VV[21],symbol_value(VV[22])));          V30= (VFUN_NARGS=4,(*(LnkLI93))(VV[19],VV[20],VV[21],(VV[22]->s.s_dbind)));
200          {object V31;          {object V31;
201          if((symbol_value(VV[24]))!=Cnil){          if(((VV[24]->s.s_dbind))!=Cnil){
202          goto T82;}          goto T82;}
203          V32= Cnil;          V32= Cnil;
204          goto T80;          goto T80;
# Line 219  T82:; Line 207  T82:;
207          V32= make_cons(small_fixnum(0),small_fixnum(0));          V32= make_cons(small_fixnum(0),small_fixnum(0));
208          goto T80;          goto T80;
209  T80:;  T80:;
210          V31= list(5,VV[23],V32,symbol_value(VV[25]),(V30),(V29));          V31= list(5,VV[23],V32,(VV[25]->s.s_dbind),(V30),(V29));
211          setq(VV[26],make_cons((V31),symbol_value(VV[26])));}          (VV[26]->s.s_dbind)= make_cons((V31),(VV[26]->s.s_dbind));}
212          setq(VV[27],make_cons(V30,symbol_value(VV[27])));          (VV[27]->s.s_dbind)= make_cons(V30,(VV[27]->s.s_dbind));
213          {object V34;          {object V34;
214          V34= structure_ref((V30),VV[28],3);          V34= STREF(object,(V30),12);
215          setq(VV[12],make_cons((V34),symbol_value(VV[12])));}          (VV[12]->s.s_dbind)= make_cons((V34),(VV[12]->s.s_dbind));}
216          V35= list(3,VV[29],structure_ref((V30),VV[28],3),symbol_value(VV[24]));          V35= list(3,VV[29],STREF(object,(V30),12),(VV[24]->s.s_dbind));
217          {object V36 = (VFUN_NARGS=1,(*(LnkLI84))(/* INLINE-ARGS */V35));          {object V36 = (VFUN_NARGS=1,(*(LnkLI94))(/* INLINE-ARGS */V35));
218          VMR8(V36)}}          VMR8(V36)}}
219          base[0]=base[0];          base[0]=base[0];
220          return Cnil;          return Cnil;
# Line 242  static object LI9(object V37,object firs Line 230  static object LI9(object V37,object firs
230          object V39;          object V39;
231          object V40;          object V40;
232          va_start(ap,first);          va_start(ap,first);
         if(narg <1) too_few_arguments();  
233          V38= V37;          V38= V37;
234          narg = narg - 1;          narg = narg - 1;
235          if (narg <= 0) goto T90;          if (narg <= 0) goto T90;
# Line 295  T91:; Line 282  T91:;
282          V56= Cnil;          V56= Cnil;
283          V57= Cnil;          V57= Cnil;
284          V58= Cnil;          V58= Cnil;
285          bds_bind(VV[30],symbol_value(VV[30]));          bds_bind(VV[30],(VV[30]->s.s_dbind));
286          V59= (VFUN_NARGS=0,(*(LnkLI85))());          V59= (VFUN_NARGS=0,(*(LnkLI95))());
287          V60= Cnil;          V60= Cnil;
288          V61= symbol_value(VV[31]);          V61= (VV[31]->s.s_dbind);
289          if(!(endp_prop((V38)))){          if(!(((V38))==Cnil)){
290          goto T114;}          goto T114;}
291          V62= make_cons(VV[4],(V38));          V62= make_cons(VV[4],(V38));
292          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[32],/* INLINE-ARGS */V62)));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[32],/* INLINE-ARGS */V62)));
293          goto T114;          goto T114;
294  T114:;  T114:;
295          base[2]= cdr((V38));          base[2]= CMPcdr((V38));
296          base[3]= Ct;          base[3]= Ct;
297          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
298          (void) (*Lnk87)();          (void) (*Lnk97)();
299          if(vs_base<vs_top){          if(vs_base<vs_top){
300          V53= vs_base[0];          V53= vs_base[0];
301          vs_base++;          vs_base++;
# Line 345  T114:; Line 332  T114:;
332          V53= make_cons(/* INLINE-ARGS */V63,Cnil);          V53= make_cons(/* INLINE-ARGS */V63,Cnil);
333          goto T121;          goto T121;
334  T121:;  T121:;
335          (void)((*(LnkLI88))((V54)));          (void)((*(LnkLI98))((V54)));
336          V51= car((V38));          V51= CMPcar((V38));
337          goto T130;          goto T130;
338  T130:;  T130:;
339          if(((V51))!=Cnil){          if(((V51))!=Cnil){
# Line 356  T130:; Line 343  T130:;
343  T136:;  T136:;
344          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
345          goto T139;}          goto T139;}
346          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51))));
347          goto T139;          goto T139;
348  T139:;  T139:;
349          {object V65;          {object V65;
350          V65= car((V51));          V65= CMPcar((V51));
351          V51= cdr((V51));          V51= CMPcdr((V51));
352          V52= (V65);}          V52= (V65);}
353          {object V64= (V52);          {object V64= (V52);
354          if((V64!= VV[69]))goto T147;          if((V64!= VV[69]))goto T147;
# Line 381  T149:; Line 368  T149:;
368          goto T150;          goto T150;
369  T150:;}  T150:;}
370          {object V66;          {object V66;
371          V66= (*(LnkLI89))((V52),(V54),(V55),(V56));          V66= (*(LnkLI99))((V52),(V54),(V55),(V56));
372          V58= make_cons(V52,(V58));          V58= make_cons(V52,(V58));
373          (VV[30]->s.s_dbind)= make_cons(V66,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V66,(VV[30]->s.s_dbind));
374          V41= make_cons(V66,(V41));}          V41= make_cons(V66,(V41));}
# Line 395  T131:; Line 382  T131:;
382  T158:;  T158:;
383          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
384          goto T161;}          goto T161;}
385          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51))));
386          goto T161;          goto T161;
387  T161:;  T161:;
388          {object V71;          {object V71;
389          V71= car((V51));          V71= CMPcar((V51));
390          V51= cdr((V51));          V51= CMPcdr((V51));
391          V52= (V71);}          V52= (V71);}
392          {object V70= (V52);          {object V70= (V52);
393          if((V70!= VV[68]))goto T169;          if((V70!= VV[68]))goto T169;
# Line 418  T171:;} Line 405  T171:;}
405          if(type_of((V52))==t_cons){          if(type_of((V52))==t_cons){
406          goto T174;}          goto T174;}
407          {object V72;          {object V72;
408          V72= (*(LnkLI89))((V52),(V54),(V55),(V56));          V72= (*(LnkLI99))((V52),(V54),(V55),(V56));
409          V58= make_cons(V52,(V58));          V58= make_cons(V52,(V58));
410          {object V74;          {object V74;
411          V75= structure_ref((V72),VV[6],5);          V75= (*(LnkLI100))(STREF(object,(V72),20));
412          V76= (*(LnkLI90))(/* INLINE-ARGS */V75);          V74= list(3,(V72),/* INLINE-ARGS */V75,Cnil);
         V74= list(3,(V72),/* INLINE-ARGS */V76,Cnil);  
413          V42= make_cons((V74),(V42));}          V42= make_cons((V74),(V42));}
414          (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));
415          goto T172;}          goto T172;}
416          goto T174;          goto T174;
417  T174:;  T174:;
418          if(type_of(cdr((V52)))==t_cons){          if(type_of(CMPcdr((V52)))==t_cons){
419          goto T184;}          goto T184;}
420          if((cdr((V52)))==Cnil){          if((CMPcdr((V52)))==Cnil){
421          goto T186;}          goto T186;}
422          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
423          goto T186;          goto T186;
424  T186:;  T186:;
425            {object V77;
426            V77= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56));
427          {object V78;          {object V78;
428          V78= (*(LnkLI89))(car((V52)),(V54),(V55),(V56));          V78= CMPcar((V52));
429            V58= make_cons((V78),(V58));}
430          {object V79;          {object V79;
431          V79= car((V52));          V80= (*(LnkLI100))(STREF(object,(V77),20));
432          V58= make_cons((V79),(V58));}          V79= list(3,(V77),/* INLINE-ARGS */V80,Cnil);
433          {object V80;          V42= make_cons((V79),(V42));}
434          V81= structure_ref((V78),VV[6],5);          (VV[30]->s.s_dbind)= make_cons(V77,(VV[30]->s.s_dbind));
         V82= (*(LnkLI90))(/* INLINE-ARGS */V81);  
         V80= list(3,(V78),/* INLINE-ARGS */V82,Cnil);  
         V42= make_cons((V80),(V42));}  
         (VV[30]->s.s_dbind)= make_cons(V78,(VV[30]->s.s_dbind));  
435          goto T172;}          goto T172;}
436          goto T184;          goto T184;
437  T184:;  T184:;
438          if(type_of(cddr((V52)))==t_cons){          if(type_of(CMPcddr((V52)))==t_cons){
439          goto T198;}          goto T198;}
440          if((cddr((V52)))==Cnil){          if((CMPcddr((V52)))==Cnil){
441          goto T200;}          goto T200;}
442          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
443          goto T200;          goto T200;
444  T200:;  T200:;
445            {object V82;
446            object V83;
447            V82= (*(LnkLI101))(CMPcadr((V52)),(V59));
448            V83= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56));
449          {object V84;          {object V84;
450          object V85;          V84= CMPcar((V52));
451          V84= (*(LnkLI91))(cadr((V52)),(V59));          V58= make_cons((V84),(V58));}
452          V85= (*(LnkLI89))(car((V52)),(V54),(V55),(V56));          {object V85;
453          {object V86;          V86= (*(LnkLI102))(STREF(object,(V83),20),(V82),CMPcadr((V52)));
454          V86= car((V52));          V85= list(3,(V83),/* INLINE-ARGS */V86,Cnil);
455          V58= make_cons((V86),(V58));}          V42= make_cons((V85),(V42));}
456          {object V87;          (VV[30]->s.s_dbind)= make_cons(V83,(VV[30]->s.s_dbind));
         V88= structure_ref((V85),VV[6],5);  
         V89= (*(LnkLI92))(/* INLINE-ARGS */V88,(V84),cadr((V52)));  
         V87= list(3,(V85),/* INLINE-ARGS */V89,Cnil);  
         V42= make_cons((V87),(V42));}  
         (VV[30]->s.s_dbind)= make_cons(V85,(VV[30]->s.s_dbind));  
457          goto T172;}          goto T172;}
458          goto T198;          goto T198;
459  T198:;  T198:;
460          if((cdddr((V52)))==Cnil){          if((CMPcdddr((V52)))==Cnil){
461          goto T212;}          goto T212;}
462          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
463          goto T212;          goto T212;
464  T212:;  T212:;
465            {object V88;
466            object V89;
467            object V90;
468            V88= (*(LnkLI101))(CMPcadr((V52)),(V59));
469            V89= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56));
470            V90= (*(LnkLI99))(CMPcaddr((V52)),(V54),(V55),(V56));
471          {object V91;          {object V91;
472          object V92;          V91= CMPcar((V52));
473          object V93;          V58= make_cons((V91),(V58));}
474          V91= (*(LnkLI91))(cadr((V52)),(V59));          {object V92;
475          V92= (*(LnkLI89))(car((V52)),(V54),(V55),(V56));          V92= CMPcaddr((V52));
476          V93= (*(LnkLI89))(caddr((V52)),(V54),(V55),(V56));          V58= make_cons((V92),(V58));}
477          {object V94;          {object V93;
478          V94= car((V52));          V94= (*(LnkLI102))(STREF(object,(V89),20),(V88),CMPcadr((V52)));
479          V58= make_cons((V94),(V58));}          V93= list(3,(V89),/* INLINE-ARGS */V94,(V90));
480          {object V95;          V42= make_cons((V93),(V42));}
481          V95= caddr((V52));          (VV[30]->s.s_dbind)= make_cons(V89,(VV[30]->s.s_dbind));
482          V58= make_cons((V95),(V58));}          (VV[30]->s.s_dbind)= make_cons(V90,(VV[30]->s.s_dbind));}
         {object V96;  
         V97= structure_ref((V92),VV[6],5);  
         V98= (*(LnkLI92))(/* INLINE-ARGS */V97,(V91),cadr((V52)));  
         V96= list(3,(V92),/* INLINE-ARGS */V98,(V93));  
         V42= make_cons((V96),(V42));}  
         (VV[30]->s.s_dbind)= make_cons(V92,(VV[30]->s.s_dbind));  
         (VV[30]->s.s_dbind)= make_cons(V93,(VV[30]->s.s_dbind));}  
483          goto T172;          goto T172;
484  T172:;  T172:;
485          goto T131;          goto T131;
# Line 504  T172:; Line 487  T172:;
487  T132:;  T132:;
488          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
489          goto T230;}          goto T230;}
490          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51))));
491          goto T230;          goto T230;
492  T230:;  T230:;
493          {object V101;          {object V97;
494          V101= car((V51));          V97= CMPcar((V51));
495          V58= make_cons((V101),(V58));}          V58= make_cons((V97),(V58));}
496          {object V103;          {object V99;
497          V103= car((V51));          V99= CMPcar((V51));
498          V51= cdr((V51));          V51= CMPcdr((V51));
499          V102= (V103);}          V98= (V99);}
500          V43= (*(LnkLI89))(V102,(V54),(V55),(V56));          V43= (*(LnkLI99))(V98,(V54),(V55),(V56));
501          (VV[30]->s.s_dbind)= make_cons(V43,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V43,(VV[30]->s.s_dbind));
502          if(((V51))!=Cnil){          if(((V51))!=Cnil){
503          goto T244;}          goto T244;}
# Line 523  T230:; Line 506  T230:;
506  T244:;  T244:;
507          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
508          goto T247;}          goto T247;}
509          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51))));
510          goto T247;          goto T247;
511  T247:;  T247:;
512          {object V106;          {object V102;
513          V106= car((V51));          V102= CMPcar((V51));
514          V51= cdr((V51));          V51= CMPcdr((V51));
515          V52= (V106);}          V52= (V102);}
516          {object V105= (V52);          {object V101= (V52);
517          if((V105!= VV[71]))goto T255;          if((V101!= VV[71]))goto T255;
518          goto T133;          goto T133;
519          goto T255;          goto T255;
520  T255:;  T255:;
521          if((V105!= VV[73]))goto T256;          if((V101!= VV[73]))goto T256;
522          goto T134;          goto T134;
523          goto T256;          goto T256;
524  T256:;}  T256:;}
525          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[36],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[36],(V52))));
526          goto T133;          goto T133;
527  T133:;  T133:;
528          V45= Ct;          V45= Ct;
# Line 550  T133:; Line 533  T133:;
533  T259:;  T259:;
534          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
535          goto T262;}          goto T262;}
536          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51))));
537          goto T262;          goto T262;
538  T262:;  T262:;
539          {object V108;          {object V104;
540          V108= car((V51));          V104= CMPcar((V51));
541          V51= cdr((V51));          V51= CMPcdr((V51));
542          V52= (V108);}          V52= (V104);}
543          {object V107= (V52);          {object V103= (V52);
544          if((V107!= VV[73]))goto T270;          if((V103!= VV[73]))goto T270;
545          goto T134;          goto T134;
546          goto T270;          goto T270;
547  T270:;  T270:;
548          if((V107!= VV[72]))goto T271;          if((V103!= VV[72]))goto T271;
549          V47= Ct;          V47= Ct;
550          if(((V51))!=Cnil){          if(((V51))!=Cnil){
551          goto T274;}          goto T274;}
# Line 571  T270:; Line 554  T270:;
554  T274:;  T274:;
555          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
556          goto T277;}          goto T277;}
557          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51))));
558          goto T277;          goto T277;
559  T277:;  T277:;
560          {object V110;          {object V106;
561          V110= car((V51));          V106= CMPcar((V51));
562          V51= cdr((V51));          V51= CMPcdr((V51));
563          V52= (V110);}          V52= (V106);}
564          {object V109= (V52);          {object V105= (V52);
565          if((V109!= VV[73]))goto T285;          if((V105!= VV[73]))goto T285;
566          goto T134;          goto T134;
567          goto T285;          goto T285;
568  T285:;}  T285:;}
569          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[37],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[37],(V52))));
570          goto T265;          goto T265;
571          goto T271;          goto T271;
572  T271:;}  T271:;}
# Line 594  T265:; Line 577  T265:;
577          V52= make_cons((V52),Cnil);          V52= make_cons((V52),Cnil);
578          goto T286;          goto T286;
579  T286:;  T286:;
580          if(!(type_of(car((V52)))==t_cons)){          if(!(type_of(CMPcar((V52)))==t_cons)){
581          goto T292;}          goto T292;}
582          {object V111= caar((V52));          {object V107= CMPcaar((V52));
583          if(!((type_of(V111)==t_symbol&&(V111)->s.s_hpack==keyword_package))){          if(!((type_of(V107)==t_symbol&&(V107)->s.s_hpack==keyword_package))){
584          goto T295;}}          goto T295;}}
585          if(!(type_of(cdar((V52)))==t_cons)){          if(!(type_of(CMPcdar((V52)))==t_cons)){
586          goto T295;}          goto T295;}
587          if((cddar((V52)))==Cnil){          if((CMPcddar((V52)))==Cnil){
588          goto T294;}          goto T294;}
589          goto T295;          goto T295;
590  T295:;  T295:;
591          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
592          goto T294;          goto T294;
593  T294:;  T294:;
594          V52= listA(3,caar((V52)),cadar((V52)),cdr((V52)));          V52= listA(3,CMPcaar((V52)),CMPcadar((V52)),CMPcdr((V52)));
595          goto T290;          goto T290;
596          goto T292;          goto T292;
597  T292:;  T292:;
598          if(type_of(car((V52)))==t_symbol){          if(type_of(CMPcar((V52)))==t_symbol){
599          goto T302;}          goto T302;}
600          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
601          goto T302;          goto T302;
602  T302:;  T302:;
603          base[2]= coerce_to_string(car((V52)));          base[2]= coerce_to_string(CMPcar((V52)));
604          base[3]= VV[38];          base[3]= VV[38];
605          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
606          Lintern();          Lintern();
607          vs_top=sup;          vs_top=sup;
608          V112= vs_base[0];          V108= vs_base[0];
609          V52= listA(3,V112,car((V52)),cdr((V52)));          V52= listA(3,V108,CMPcar((V52)),CMPcdr((V52)));
610          goto T290;          goto T290;
611  T290:;  T290:;
612          if(type_of(cddr((V52)))==t_cons){          if(type_of(CMPcddr((V52)))==t_cons){
613          goto T311;}          goto T311;}
614          if((cddr((V52)))==Cnil){          if((CMPcddr((V52)))==Cnil){
615          goto T313;}          goto T313;}
616          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
617          goto T313;          goto T313;
618  T313:;  T313:;
619          {object V113;          {object V109;
620          V113= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56));          V109= (*(LnkLI99))(CMPcadr((V52)),(V54),(V55),(V56));
621          {object V114;          {object V110;
622          V114= cadr((V52));          V110= CMPcadr((V52));
623          V58= make_cons((V114),(V58));}          V58= make_cons((V110),(V58));}
624          {object V115;          {object V111;
625          V116= car((V52));          V112= CMPcar((V52));
626          V117= structure_ref((V113),VV[6],5);          V113= (*(LnkLI100))(STREF(object,(V109),20));
627          V118= (*(LnkLI90))(/* INLINE-ARGS */V117);          V111= list(4,/* INLINE-ARGS */V112,(V109),/* INLINE-ARGS */V113,(VFUN_NARGS=2,(*(LnkLI103))(VV[39],VV[40])));
628          V115= list(4,/* INLINE-ARGS */V116,(V113),/* INLINE-ARGS */V118,(VFUN_NARGS=2,(*(LnkLI93))(VV[39],VV[40])));          V44= make_cons((V111),(V44));}
629          V44= make_cons((V115),(V44));}          (VV[30]->s.s_dbind)= make_cons(V109,(VV[30]->s.s_dbind));
         (VV[30]->s.s_dbind)= make_cons(V113,(VV[30]->s.s_dbind));  
630          goto T309;}          goto T309;}
631          goto T311;          goto T311;
632  T311:;  T311:;
633          if(type_of(cdddr((V52)))==t_cons){          if(type_of(CMPcdddr((V52)))==t_cons){
634          goto T325;}          goto T325;}
635          if((cdddr((V52)))==Cnil){          if((CMPcdddr((V52)))==Cnil){
636          goto T327;}          goto T327;}
637          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
638          goto T327;          goto T327;
639  T327:;  T327:;
640          {object V120;          {object V115;
641          object V121;          object V116;
642          V120= (*(LnkLI91))(caddr((V52)),(V59));          V115= (*(LnkLI101))(CMPcaddr((V52)),(V59));
643          V121= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56));          V116= (*(LnkLI99))(CMPcadr((V52)),(V54),(V55),(V56));
644          {object V122;          {object V117;
645          V122= cadr((V52));          V117= CMPcadr((V52));
646          V58= make_cons((V122),(V58));}          V58= make_cons((V117),(V58));}
647          {object V123;          {object V118;
648          V124= car((V52));          V119= CMPcar((V52));
649          V125= structure_ref((V121),VV[6],5);          V120= (*(LnkLI102))(STREF(object,(V116),20),(V115),CMPcaddr((V52)));
650          V126= (*(LnkLI92))(/* INLINE-ARGS */V125,(V120),caddr((V52)));          V118= list(4,/* INLINE-ARGS */V119,(V116),/* INLINE-ARGS */V120,(VFUN_NARGS=2,(*(LnkLI103))(VV[39],VV[40])));
651          V123= list(4,/* INLINE-ARGS */V124,(V121),/* INLINE-ARGS */V126,(VFUN_NARGS=2,(*(LnkLI93))(VV[39],VV[40])));          V44= make_cons((V118),(V44));}
652          V44= make_cons((V123),(V44));}          (VV[30]->s.s_dbind)= make_cons(V116,(VV[30]->s.s_dbind));
         (VV[30]->s.s_dbind)= make_cons(V121,(VV[30]->s.s_dbind));  
653          goto T309;}          goto T309;}
654          goto T325;          goto T325;
655  T325:;  T325:;
656          if((cddddr((V52)))==Cnil){          if((CMPcddddr((V52)))==Cnil){
657          goto T339;}          goto T339;}
658          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
659          goto T339;          goto T339;
660  T339:;  T339:;
661          {object V128;          {object V122;
662          object V129;          object V123;
663          object V130;          object V124;
664          V128= (*(LnkLI91))(caddr((V52)),(V59));          V122= (*(LnkLI101))(CMPcaddr((V52)),(V59));
665          V129= (*(LnkLI89))(cadr((V52)),(V54),(V55),(V56));          V123= (*(LnkLI99))(CMPcadr((V52)),(V54),(V55),(V56));
666          V130= (*(LnkLI89))(cadddr((V52)),(V54),(V55),(V56));          V124= (*(LnkLI99))(CMPcadddr((V52)),(V54),(V55),(V56));
667          {object V131;          {object V125;
668          V131= cadr((V52));          V125= CMPcadr((V52));
669          V58= make_cons((V131),(V58));}          V58= make_cons((V125),(V58));}
670          {object V132;          {object V126;
671          V132= cadddr((V52));          V126= CMPcadddr((V52));
672          V58= make_cons((V132),(V58));}          V58= make_cons((V126),(V58));}
673          {object V133;          {object V127;
674          V134= car((V52));          V128= CMPcar((V52));
675          V135= structure_ref((V129),VV[6],5);          V129= (*(LnkLI102))(STREF(object,(V123),20),(V122),CMPcaddr((V52)));
676          V136= (*(LnkLI92))(/* INLINE-ARGS */V135,(V128),caddr((V52)));          V127= list(4,/* INLINE-ARGS */V128,(V123),/* INLINE-ARGS */V129,(V124));
677          V133= list(4,/* INLINE-ARGS */V134,(V129),/* INLINE-ARGS */V136,(V130));          V44= make_cons((V127),(V44));}
678          V44= make_cons((V133),(V44));}          (VV[30]->s.s_dbind)= make_cons(V123,(VV[30]->s.s_dbind));
679          (VV[30]->s.s_dbind)= make_cons(V129,(VV[30]->s.s_dbind));          (VV[30]->s.s_dbind)= make_cons(V124,(VV[30]->s.s_dbind));}
         (VV[30]->s.s_dbind)= make_cons(V130,(VV[30]->s.s_dbind));}  
680          goto T309;          goto T309;
681  T309:;  T309:;
682          goto T133;          goto T133;
683          goto T134;          goto T134;
684  T134:;  T134:;
685          V60= (VFUN_NARGS=0,(*(LnkLI85))());          V60= (VFUN_NARGS=0,(*(LnkLI95))());
686          goto T135;          goto T135;
687  T135:;  T135:;
688          if(((V51))!=Cnil){          if(((V51))!=Cnil){
689          goto T358;}          goto T358;}
690          (void)((*(LnkLI94))((V59),(V60)));          (void)((*(LnkLI104))((V59),(V60)));
691          goto T128;          goto T128;
692          goto T358;          goto T358;
693  T358:;  T358:;
694          if(type_of((V51))==t_cons){          if(type_of((V51))==t_cons){
695          goto T362;}          goto T362;}
696          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[34],(V51))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[34],(V51))));
697          goto T362;          goto T362;
698  T362:;  T362:;
699          {object V139;          {object V132;
700          V139= car((V51));          V132= CMPcar((V51));
701          V51= cdr((V51));          V51= CMPcdr((V51));
702          V52= (V139);}          V52= (V132);}
703          if(!(type_of((V52))==t_cons)){          if(!(type_of((V52))==t_cons)){
704          goto T372;}          goto T372;}
705          if(type_of(cdr((V52)))==t_cons){          if(type_of(CMPcdr((V52)))==t_cons){
706          goto T375;}          goto T375;}
707          if((cdr((V52)))==Cnil){          if((CMPcdr((V52)))==Cnil){
708          goto T377;}          goto T377;}
709          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
710          goto T377;          goto T377;
711  T377:;  T377:;
712          {object V140;          {object V133;
713          V140= (*(LnkLI89))(car((V52)),(V54),(V55),(V56));          V133= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56));
714          {object V141;          {object V134;
715          V141= car((V52));          V134= CMPcar((V52));
716          V58= make_cons((V141),(V58));}          V58= make_cons((V134),(V58));}
717          {object V142;          {object V135;
718          V143= structure_ref((V140),VV[6],5);          V135= (*(LnkLI100))(STREF(object,(V133),20));
719          V142= (*(LnkLI90))(/* INLINE-ARGS */V143);          V49= make_cons((V135),(V49));}
720          V49= make_cons((V142),(V49));}          V48= make_cons(V133,(V48));
721          V48= make_cons(V140,(V48));          (VV[30]->s.s_dbind)= make_cons(V133,(VV[30]->s.s_dbind));
         (VV[30]->s.s_dbind)= make_cons(V140,(VV[30]->s.s_dbind));  
722          goto T370;}          goto T370;}
723          goto T375;          goto T375;
724  T375:;  T375:;
725          if((cddr((V52)))==Cnil){          if((CMPcddr((V52)))==Cnil){
726          goto T390;}          goto T390;}
727          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[35],(V52))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[35],(V52))));
728          goto T390;          goto T390;
729  T390:;  T390:;
730          {object V146;          {object V138;
731          object V147;          object V139;
732          V146= (*(LnkLI91))(cadr((V52)),(V60));          V138= (*(LnkLI101))(CMPcadr((V52)),(V60));
733          V147= (*(LnkLI89))(car((V52)),(V54),(V55),(V56));          V139= (*(LnkLI99))(CMPcar((V52)),(V54),(V55),(V56));
734          {object V148;          {object V140;
735          V148= car((V52));          V140= CMPcar((V52));
736          V58= make_cons((V148),(V58));}          V58= make_cons((V140),(V58));}
737          {object V149;          {object V141;
738          V150= structure_ref((V147),VV[6],5);          V141= (*(LnkLI102))(STREF(object,(V139),20),(V138),CMPcadr((V52)));
739          V149= (*(LnkLI92))(/* INLINE-ARGS */V150,(V146),cadr((V52)));          V49= make_cons((V141),(V49));}
740          V49= make_cons((V149),(V49));}          V48= make_cons(V139,(V48));
741          V48= make_cons(V147,(V48));          (VV[30]->s.s_dbind)= make_cons(V139,(VV[30]->s.s_dbind));
         (VV[30]->s.s_dbind)= make_cons(V147,(VV[30]->s.s_dbind));  
742          goto T370;}          goto T370;}
743          goto T372;          goto T372;
744  T372:;  T372:;
745          {object V153;          {object V144;
746          V153= (*(LnkLI89))((V52),(V54),(V55),(V56));          V144= (*(LnkLI99))((V52),(V54),(V55),(V56));
747          V58= make_cons(V52,(V58));          V58= make_cons(V52,(V58));
748          {object V155;          {object V146;
749          V156= structure_ref((V153),VV[6],5);          V146= (*(LnkLI100))(STREF(object,(V144),20));
750          V155= (*(LnkLI90))(/* INLINE-ARGS */V156);          V49= make_cons((V146),(V49));}
751          V49= make_cons((V155),(V49));}          V48= make_cons(V144,(V48));
752          V48= make_cons(V153,(V48));          (VV[30]->s.s_dbind)= make_cons(V144,(VV[30]->s.s_dbind));}
         (VV[30]->s.s_dbind)= make_cons(V153,(VV[30]->s.s_dbind));}  
753          goto T370;          goto T370;
754  T370:;  T370:;
755          goto T135;          goto T135;
# Line 783  T128:; Line 760  T128:;
760          V44= reverse((V44));          V44= reverse((V44));
761          V48= reverse((V48));          V48= reverse((V48));
762          V49= reverse((V49));          V49= reverse((V49));
763          (void)((*(LnkLI95))((V58),(V56),(V55)));          (void)((*(LnkLI105))((V58),(V56),(V55)));
764          V53= (*(LnkLI96))((V57),(V53));          V53= (*(LnkLI106))((V57),(V53));
765          (void)((*(LnkLI94))((V59),cadr((V53))));          (void)((*(LnkLI104))((V59),CMPcadr((V53))));
766          {object V159;          {object V149;
767          object V160;          object V150;
768          V159= (V41);          V149= (V41);
769          V160= car((V159));          V150= CMPcar((V149));
770          goto T432;          goto T432;
771  T432:;  T432:;
772          if(!(endp_prop((V159)))){          if(!(((V149))==Cnil)){
773          goto T433;}          goto T433;}
774          goto T428;          goto T428;
775          goto T433;          goto T433;
776  T433:;  T433:;
777          (void)((*(LnkLI97))((V160)));          (void)((*(LnkLI107))((V150)));
778          V159= cdr((V159));          V149= CMPcdr((V149));
779          V160= car((V159));          V150= CMPcar((V149));
780          goto T432;}          goto T432;}
781          goto T428;          goto T428;
782  T428:;  T428:;
783          {object V161;          {object V151;
784          object V162;          object V152;
785          V161= (V42);          V151= (V42);
786          V162= car((V161));          V152= CMPcar((V151));
787          goto T447;          goto T447;
788  T447:;  T447:;
789          if(!(endp_prop((V161)))){          if(!(((V151))==Cnil)){
790          goto T448;}          goto T448;}
791          goto T443;          goto T443;
792          goto T448;          goto T448;
793  T448:;  T448:;
794          (void)((*(LnkLI97))(car((V162))));          (void)((*(LnkLI107))(CMPcar((V152))));
795          if((caddr((V162)))==Cnil){          if((CMPcaddr((V152)))==Cnil){
796          goto T453;}          goto T453;}
797          (void)((*(LnkLI97))(caddr((V162))));          (void)((*(LnkLI107))(CMPcaddr((V152))));
798          goto T453;          goto T453;
799  T453:;  T453:;
800          V161= cdr((V161));          V151= CMPcdr((V151));
801          V162= car((V161));          V152= CMPcar((V151));
802          goto T447;}          goto T447;}
803          goto T443;          goto T443;
804  T443:;  T443:;
805          if(((V43))==Cnil){          if(((V43))==Cnil){
806          goto T461;}          goto T461;}
807          (void)((*(LnkLI97))((V43)));          (void)((*(LnkLI107))((V43)));
808          goto T461;          goto T461;
809  T461:;  T461:;
810          {object V163;          {object V153;
811          object V164;          object V154;
812          V163= (V44);          V153= (V44);
813          V164= car((V163));          V154= CMPcar((V153));
814          goto T468;          goto T468;
815  T468:;  T468:;
816          if(!(endp_prop((V163)))){          if(!(((V153))==Cnil)){
817          goto T469;}          goto T469;}
818          goto T464;          goto T464;
819          goto T469;          goto T469;
820  T469:;  T469:;
821          (void)((*(LnkLI97))(cadr((V164))));          (void)((*(LnkLI107))(CMPcadr((V154))));
822          if((cadddr((V164)))==Cnil){          if((CMPcadddr((V154)))==Cnil){
823          goto T474;}          goto T474;}
824          (void)((*(LnkLI97))(cadddr((V164))));          (void)((*(LnkLI107))(CMPcadddr((V154))));
825          goto T474;          goto T474;
826  T474:;  T474:;
827          V163= cdr((V163));          V153= CMPcdr((V153));
828          V164= car((V163));          V154= CMPcar((V153));
829          goto T468;}          goto T468;}
830          goto T464;          goto T464;
831  T464:;  T464:;
832          {object V165;          {object V155;
833          object V166;          object V156;
834          V165= (V48);          V155= (V48);
835          V166= car((V165));          V156= CMPcar((V155));
836          goto T486;          goto T486;
837  T486:;  T486:;
838          if(!(endp_prop((V165)))){          if(!(((V155))==Cnil)){
839          goto T487;}          goto T487;}
840          goto T482;          goto T482;
841          goto T487;          goto T487;
842  T487:;  T487:;
843          (void)((*(LnkLI97))((V166)));          (void)((*(LnkLI107))((V156)));
844          V165= cdr((V165));          V155= CMPcdr((V155));
845          V166= car((V165));          V156= CMPcar((V155));
846          goto T486;}          goto T486;}
847          goto T482;          goto T482;
848  T482:;  T482:;
849          if(((V48))==Cnil){          if(((V48))==Cnil){
850          goto T497;}          goto T497;}
851          (void)((*(LnkLI94))((V60),cadr((V53))));          (void)((*(LnkLI104))((V60),CMPcadr((V53))));
852          V53= list(5,VV[41],(V60),(V48),(V49),(V53));          V53= list(5,VV[41],(V60),(V48),(V49),(V53));
853          if(!(eql((V61),symbol_value(VV[31])))){          if(!(eql((V61),(VV[31]->s.s_dbind)))){
854          goto T503;}          goto T503;}
855          goto T497;          goto T497;
856          goto T503;          goto T503;
857  T503:;  T503:;
858          (void)(structure_set((V60),VV[5],4,Ct));          V157= Ct;
859            STSET(object,(V60),16, Ct);
860            (void)(Ct);
861          goto T497;          goto T497;
862  T497:;  T497:;
863          V53= (*(LnkLI98))((V41),(V53),(V39));          V53= (*(LnkLI108))((V41),(V53),(V39));
864          V46= list(6,(V41),(V42),(V43),(V45),(V44),(V47));          V46= list(6,(V41),(V42),(V43),(V45),(V44),(V47));
865          if(symbol_value(VV[42])==Cnil){          if((VV[42]->s.s_dbind)==Cnil){
866          goto T509;}          goto T509;}
867          (void)((*(LnkLI99))((V46)));          base[2]= (V46);
868            vs_top=(vs_base=base+2)+1;
869            (void) (*Lnk109)();
870            vs_top=sup;
871          goto T509;          goto T509;
872  T509:;  T509:;
873          {object V167 = list(5,VV[4],(V59),(V46),(V50),(V53));          {object V158 = list(5,VV[4],(V59),(V46),(V50),(V53));
874          bds_unwind1;          bds_unwind1;
875          VMR9(V167)}}          VMR9(V158)}}
876          va_end(ap);          va_end(ap);
877          base[0]=base[0];          base[0]=base[0];
878          return Cnil;}          return Cnil;}
879          }          }
880  /*      local entry for function FIX-DOWN-ARGS  */  /*      local entry for function FIX-DOWN-ARGS  */
881    
882  static object LI10(V171,V172,V173)  static object LI10(V162,V163,V164)
883    
884  object V171;object V172;object V173;  object V162;object V163;object V164;
885  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
886          goto TTL;          goto TTL;
887  TTL:;  TTL:;
888          {object V174;          {object V165;
889          object V175;          object V166;
890          register object V176;          register object V167;
891          register object V177;          register object V168;
892          V174= Cnil;          V165= Cnil;
893          V175= Cnil;          V166= Cnil;
894          V176= Cnil;          V167= Cnil;
895          V177= Cnil;          V168= Cnil;
896          {object V178;          {object V169;
897          object V179;          object V170;
898          V178= get((V173),VV[43],Cnil);          {object V171 =((V164))->s.s_plist;
899          V179= get((V173),VV[44],Cnil);           object ind= VV[43];
900          {register object V180;          while(V171!=Cnil){
901          register object V181;          if(V171->c.c_car==ind){
902          V180= (V171);          V169= (V171->c.c_cdr->c.c_car);
903          V181= (V178);          goto T515;
904          goto T518;          }else V171=V171->c.c_cdr->c.c_cdr;}
905  T518:;          V169= Cnil;}
906          if(((V180))!=Cnil){          goto T515;
907          goto T519;}  T515:;
908            {object V172 =((V164))->s.s_plist;
909             object ind= VV[44];
910            while(V172!=Cnil){
911            if(V172->c.c_car==ind){
912            V170= (V172->c.c_cdr->c.c_car);
913          goto T516;          goto T516;
914          goto T519;          }else V172=V172->c.c_cdr->c.c_cdr;}
915  T519:;          V170= Cnil;}
         V177= car((V180));  
         if(((V179))!=Cnil){  
         goto T527;}  
         if((car((V181)))==(Ct)){  
         goto T527;}  
         {object V182 = (V172);  
         VMR10(V182)}  
         goto T527;  
 T527:;  
         V183= structure_ref((V177),VV[6],1);  
         if(!((/* INLINE-ARGS */V183)==(VV[8]))){  
         goto T525;}  
         V184= structure_ref((V177),VV[6],4);  
         if(!((/* INLINE-ARGS */V184)==(VV[45]))){  
         goto T525;}  
         {register object V185;  
         object V186;  
         V187= structure_ref((V177),VV[6],0);  
         V185= (*(LnkLI89))(/* INLINE-ARGS */V187,Cnil,Cnil,Cnil);  
         if((V176)!=Cnil){  
         V188= (V176);  
         goto T537;}  
         V176= (VFUN_NARGS=0,(*(LnkLI85))());  
         V188= (V176);  
         goto T537;  
 T537:;  
         V186= list(3,VV[6],V188,list(2,(V185),Cnil));  
         V174= make_cons(V177,(V174));  
         {register object V191;  
         V191= (V185);  
         if(type_of(V180)!=t_cons)FEwrong_type_argument(Scons,V180);  
         (V180)->c.c_car = (V191);}  
         {register object V193;  
         object V194;  
         V193= (V176);  
         V195= structure_ref((V193),VV[5],1);  
         V194= make_cons(V185,/* INLINE-ARGS */V195);  
         (void)(structure_set((V193),VV[5],1,(V194)));}  
         V175= make_cons(V186,(V175));}  
         goto T525;  
 T525:;  
         V180= cdr((V180));  
         V181= cdr((V181));  
         goto T518;}  
916          goto T516;          goto T516;
917  T516:;  T516:;
918          if(((V174))==Cnil){          {register object V173;
919          goto T553;}          register object V174;
920          {object V197 = list(5,VV[41],(V176),(V174),(V175),(V172));          V173= (V162);
921          VMR10(V197)}          V174= (V169);
922          goto T553;          goto T519;
923  T553:;  T519:;
924          {object V198 = (V172);          if(((V173))!=Cnil){
925          VMR10(V198)}}}          goto T520;}
926            goto T517;
927            goto T520;
928    T520:;
929            V168= CMPcar((V173));
930            if(((V170))!=Cnil){
931            goto T528;}
932            if((CMPcar((V174)))==(Ct)){
933            goto T528;}
934            {object V175 = (V163);
935            VMR10(V175)}
936            goto T528;
937    T528:;
938            if(!((STREF(object,(V168),4))==(VV[8]))){
939            goto T526;}
940            if(!((STREF(object,(V168),16))==(VV[45]))){
941            goto T526;}
942            {register object V176;
943            object V177;
944            V176= (*(LnkLI99))(STREF(object,(V168),0),Cnil,Cnil,Cnil);
945            if((V167)!=Cnil){
946            V178= (V167);
947            goto T538;}
948            V167= (VFUN_NARGS=0,(*(LnkLI95))());
949            V178= (V167);
950            goto T538;
951    T538:;
952            V177= list(3,VV[6],V178,list(2,(V176),Cnil));
953            V165= make_cons(V168,(V165));
954            {register object V181;
955            V181= (V176);
956            (V173)->c.c_car = (V181);}
957            {register object V183;
958            object V184;
959            V183= (V167);
960            V184= make_cons(V176,STREF(object,(V183),4));
961            V185= Ct;
962            STSET(object,(V183),4, (V184));
963            (void)((V184));}
964            V166= make_cons(V177,(V166));}
965            goto T526;
966    T526:;
967            V173= CMPcdr((V173));
968            V174= CMPcdr((V174));
969            goto T519;}
970            goto T517;
971    T517:;
972            if(((V165))==Cnil){
973            goto T554;}
974            {object V187 = list(5,VV[41],(V167),(V165),(V166),(V163));
975            VMR10(V187)}
976            goto T554;
977    T554:;
978            {object V188 = (V163);
979            VMR10(V188)}}}
980          base[0]=base[0];          base[0]=base[0];
981          return Cnil;          return Cnil;
982  }  }
983  /*      local entry for function THE-PARAMETER  */  /*      local entry for function THE-PARAMETER  */
984    
985  static object LI11(V200)  static object LI11(V190)
986    
987  register object V200;  register object V190;
988  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
989          goto TTL;          goto TTL;
990  TTL:;  TTL:;
991          if(type_of((V200))==t_symbol){          if(type_of((V190))==t_symbol){
992          goto T555;}          goto T556;}
993          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[46],(V200))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[46],(V190))));
994          goto T555;          goto T556;
995  T555:;  T556:;
996          base[0]= (V200);          base[0]= (V190);
997          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
998          Lconstantp();          Lconstantp();
999          vs_top=sup;          vs_top=sup;
1000          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1001          goto T558;}          goto T559;}
1002          (void)((VFUN_NARGS=2,(*(LnkLI86))(VV[47],(V200))));          (void)((VFUN_NARGS=2,(*(LnkLI96))(VV[47],(V190))));
1003          goto T558;          goto T559;
1004  T558:;  T559:;
1005          {object V201 = (V200);          {object V191 = (V190);
1006          VMR11(V201)}          VMR11(V191)}
1007          base[0]=base[0];          base[0]=base[0];
1008          return Cnil;          return Cnil;
1009  }  }
1010  /*      local entry for function C2LAMBDA-EXPR  */  /*      local entry for function C2LAMBDA-EXPR  */
1011    
1012  static object LI12(object V203,object V202,object first,...)  static object LI12(object V193,object V192,object first,...)
1013  {        {      
1014          va_list ap;          va_list ap;
1015          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
1016          bds_check;          bds_check;
1017          {register object V204;          {register object V194;
1018          object V205;          object V195;
1019          object V206;          object V196;
1020          object V207;          object V197;
1021          va_start(ap,first);          va_start(ap,first);
1022          if(narg <2) too_few_arguments();          V194= V193;
1023          V204= V203;          V195= V192;
         V205= V202;  
1024          narg = narg - 2;          narg = narg - 2;
1025          if (narg <= 0) goto T562;          if (narg <= 0) goto T563;
1026          else {          else {
1027          V206= first;}          V196= first;}
1028          V207= Ct;          V197= Ct;
1029          --narg; goto T563;          --narg; goto T564;
         goto T562;  
 T562:;  
         V206= Cnil;  
         V207= Cnil;  
1030          goto T563;          goto T563;
1031  T563:;  T563:;
1032          if((symbol_value(VV[49]))==Cnil){          V196= Cnil;
1033          goto T567;}          V197= Cnil;
1034          if(((V207))==Cnil){          goto T564;
1035          goto T567;}  T564:;
1036          {register object V208;          if(((VV[49]->s.s_dbind))==Cnil){
1037          register object V209;          goto T568;}
1038          V208= car((V204));          if(((V197))==Cnil){
1039          V209= car((V208));          goto T568;}
1040          goto T577;          {register object V198;
1041  T577:;          register object V199;
1042          if(!(endp_prop((V208)))){          V198= CMPcar((V194));
1043          goto T578;}          V199= CMPcar((V198));
         goto T573;  
1044          goto T578;          goto T578;
1045  T578:;  T578:;
1046          if((structure_ref((V209),VV[6],3))==Cnil){          if(!(((V198))==Cnil)){
1047          goto T582;}          goto T579;}
1048          goto T567;          goto T574;
1049          goto T582;          goto T579;
1050  T582:;  T579:;
1051          V208= cdr((V208));          if((STREF(object,(V199),12))==Cnil){
1052          V209= car((V208));          goto T583;}
1053          goto T577;}          goto T568;
1054          goto T573;          goto T583;
1055  T573:;  T583:;
1056          if((cadr((V204)))!=Cnil){          V198= CMPcdr((V198));
1057          goto T567;}          V199= CMPcar((V198));
1058          if((caddr((V204)))!=Cnil){          goto T578;}
1059          goto T567;}          goto T574;
1060          if((cadddr((V204)))!=Cnil){  T574:;
1061          goto T567;}          if((CMPcadr((V194)))!=Cnil){
1062          base[0]= make_cons((V206),car((V204)));          goto T568;}
1063          goto T565;          if((CMPcaddr((V194)))!=Cnil){
1064          goto T567;          goto T568;}
1065  T567:;          if((CMPcadddr((V194)))!=Cnil){
1066            goto T568;}
1067            base[0]= make_cons((V196),CMPcar((V194)));
1068            goto T566;
1069            goto T568;
1070    T568:;
1071          base[0]= Cnil;          base[0]= Cnil;
1072          goto T565;          goto T566;
1073  T565:;  T566:;
1074          bds_bind(VV[48],base[0]);          bds_bind(VV[48],base[0]);
1075          if((caddr((V204)))==Cnil){          if((CMPcaddr((V194)))==Cnil){
1076          goto T597;}          goto T598;}
1077          V210= structure_ref(caddr((V204)),VV[6],5);          if(!((STREF(object,CMPcaddr((V194)),20))==(VV[51]))){
1078          if(!((/* INLINE-ARGS */V210)==(VV[51]))){          goto T598;}
         goto T597;}  
1079          base[1]= Ct;          base[1]= Ct;
1080          goto T595;          goto T596;
1081          goto T597;          goto T598;
1082  T597:;  T598:;
1083          base[1]= symbol_value(VV[50]);          base[1]= (VV[50]->s.s_dbind);
1084          goto T595;          goto T596;
1085  T595:;  T596:;
1086          bds_bind(VV[50],base[1]);          bds_bind(VV[50],base[1]);
1087          if((cadddr((V204)))==Cnil){          if((CMPcadddr((V194)))==Cnil){
1088          goto T602;}          goto T603;}
1089          {object V211 = (*(LnkLI100))((V204),(V205));          {object V200 = (*(LnkLI110))((V194),(V195));
1090          bds_unwind1;          bds_unwind1;
1091          bds_unwind1;          bds_unwind1;
1092          VMR12(V211)}          VMR12(V200)}
1093          goto T602;          goto T603;
1094  T602:;  T603:;
1095          {object V212 = (*(LnkLI101))((V204),(V205));          {object V201 = (*(LnkLI111))((V194),(V195));
1096          bds_unwind1;          bds_unwind1;
1097          bds_unwind1;          bds_unwind1;
1098          VMR12(V212)}          VMR12(V201)}
1099          va_end(ap);          va_end(ap);
1100          base[0]=base[0];          base[0]=base[0];
1101          return Cnil;}          return Cnil;}
1102          }          }
1103  /*      local entry for function C2LAMBDA-EXPR-WITHOUT-KEY      */  /*      local entry for function C2LAMBDA-EXPR-WITHOUT-KEY      */
1104    
1105  static object LI13(V215,V216)  static object LI13(V204,V205)
1106    
1107  object V215;object V216;  object V204;object V205;
1108  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1109          bds_check;          bds_check;
1110          goto TTL;          goto TTL;
1111  TTL:;  TTL:;
1112          {object V217;          {object V206;
1113          object V218;          object V207;
1114          object V219;          object V208;
1115          register object V220;          register object V209;
1116          V217= car((V215));          V206= CMPcar((V204));
1117          V218= cadr((V215));          V207= CMPcadr((V204));
1118          V219= caddr((V215));          V208= CMPcaddr((V204));
1119          V220= Cnil;          V209= Cnil;
1120          bds_bind(VV[52],symbol_value(VV[52]));          bds_bind(VV[52],(VV[52]->s.s_dbind));
1121          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],(VV[53]->s.s_dbind));
1122          bds_bind(VV[24],symbol_value(VV[24]));          bds_bind(VV[24],(VV[24]->s.s_dbind));
1123          bds_bind(VV[25],symbol_value(VV[25]));          bds_bind(VV[25],(VV[25]->s.s_dbind));
1124          base[7]= Cnil;          base[7]= Cnil;
1125          {register object V221;          {register object V210;
1126          object V222;          object V211;
1127          V221= (V217);          V210= (V206);
1128          V222= car((V221));          V211= CMPcar((V210));
         goto T613;  
 T613:;  
         if(!(endp_prop((V221)))){  
         goto T614;}  
         goto T609;  
1129          goto T614;          goto T614;
1130  T614:;  T614:;
1131          base[9]= (V222);          if(!(((V210))==Cnil)){
1132            goto T615;}
1133            goto T610;
1134            goto T615;
1135    T615:;
1136            base[9]= (V211);
1137          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1138          L14(base);          L14(base);
1139          vs_top=sup;          vs_top=sup;
1140          V221= cdr((V221));          V210= CMPcdr((V210));
1141          V222= car((V221));          V211= CMPcar((V210));
1142          goto T613;}          goto T614;}
1143          goto T609;          goto T610;
1144  T609:;  T610:;
1145          {register object V223;          {register object V212;
1146          object V224;          object V213;
1147          V223= (V218);          V212= (V207);
1148          V224= car((V223));          V213= CMPcar((V212));
         goto T629;  
 T629:;  
         if(!(endp_prop((V223)))){  
         goto T630;}  
         goto T625;  
1149          goto T630;          goto T630;
1150  T630:;  T630:;
1151          base[9]= car((V224));          if(!(((V212))==Cnil)){
1152            goto T631;}
1153            goto T626;
1154            goto T631;
1155    T631:;
1156            base[9]= CMPcar((V213));
1157          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1158          L14(base);          L14(base);
1159          vs_top=sup;          vs_top=sup;
1160          if((caddr((V224)))==Cnil){          if((CMPcaddr((V213)))==Cnil){
1161          goto T636;}          goto T637;}
1162          base[9]= caddr((V224));          base[9]= CMPcaddr((V213));
1163          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1164          L14(base);          L14(base);
1165          vs_top=sup;          vs_top=sup;
1166          goto T636;          goto T637;
1167  T636:;  T637:;
1168          V223= cdr((V223));          V212= CMPcdr((V212));
1169          V224= car((V223));          V213= CMPcar((V212));
1170          goto T629;}          goto T630;}
1171          goto T625;          goto T626;
1172  T625:;  T626:;
1173          if(((V219))==Cnil){          if(((V208))==Cnil){
1174          goto T608;}          goto T609;}
1175          base[8]= (V219);          base[8]= (V208);
1176          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1177          L14(base);          L14(base);
1178          vs_top=sup;          vs_top=sup;
1179          goto T608;          goto T609;
1180  T608:;  T609:;
1181          if((symbol_value(VV[55]))!=Cnil){          if(((VV[55]->s.s_dbind))!=Cnil){
1182            goto T650;}
1183            if(((VV[56]->s.s_dbind))==Cnil){
1184          goto T649;}          goto T649;}
1185          if((symbol_value(VV[56]))==Cnil){          goto T650;
1186          goto T648;}  T650:;
1187          goto T649;          if(((V208))!=Cnil){
 T649:;  
         if(((V219))!=Cnil){  
         goto T653;}  
         if(((V218))==Cnil){  
1188          goto T654;}          goto T654;}
1189          goto T653;          if(((V207))==Cnil){
1190  T653:;          goto T655;}
1191          if(((V217))==Cnil){          goto T654;
1192          goto T658;}  T654:;
1193            if(((V206))==Cnil){
1194            goto T659;}
1195          princ_str("\n   if(vs_top-vs_base<",VV[10]);          princ_str("\n   if(vs_top-vs_base<",VV[10]);
1196          V225 = make_fixnum((long)length((V217)));          V214 = CMPmake_fixnum((long)length((V206)));
1197          (void)((*(LnkLI80))(V225));          (void)((*(LnkLI90))(V214));
1198          princ_str(") too_few_arguments();",VV[10]);          princ_str(") too_few_arguments();",VV[10]);
1199          goto T658;          goto T659;
1200  T658:;  T659:;
1201          if(((V219))!=Cnil){          if(((V208))!=Cnil){
1202          goto T648;}          goto T649;}
1203          princ_str("\n   if(vs_top-vs_base>",VV[10]);          princ_str("\n   if(vs_top-vs_base>",VV[10]);
1204          V226 = make_fixnum((long)length((V217)));          V215 = CMPmake_fixnum((long)length((V206)));
1205          V227 = make_fixnum((long)length((V218)));          V216 = CMPmake_fixnum((long)length((V207)));
1206          V228= number_plus(V226,V227);          V217= number_plus(V215,V216);
1207          (void)((*(LnkLI80))(/* INLINE-ARGS */V228));          (void)((*(LnkLI90))(/* INLINE-ARGS */V217));
1208          princ_str(") too_many_arguments();",VV[10]);          princ_str(") too_many_arguments();",VV[10]);
1209          goto T648;          goto T649;
1210          goto T654;          goto T655;
1211  T654:;  T655:;
1212          princ_str("\n   check_arg(",VV[10]);          princ_str("\n   check_arg(",VV[10]);
1213          V229 = make_fixnum((long)length((V217)));          V218 = CMPmake_fixnum((long)length((V206)));
1214          (void)((*(LnkLI80))(V229));          (void)((*(LnkLI90))(V218));
1215          princ_str(");",VV[10]);          princ_str(");",VV[10]);
1216          goto T648;          goto T649;
1217  T648:;  T649:;
1218          {register object V230;          {register object V219;
1219          object V231;          object V220;
1220          V230= (V217);          V219= (V206);
1221          V231= car((V230));          V220= CMPcar((V219));
         goto T676;  
 T676:;  
         if(!(endp_prop((V230)))){  
         goto T677;}  
         goto T672;  
1222          goto T677;          goto T677;
1223  T677:;  T677:;
1224          V232= (*(LnkLI102))();          if(!(((V219))==Cnil)){
1225          (void)(structure_set((V231),VV[6],2,/* INLINE-ARGS */V232));          goto T678;}
1226          V230= cdr((V230));          goto T673;
1227          V231= car((V230));          goto T678;
1228          goto T676;}  T678:;
1229          goto T672;          V221= (*(LnkLI112))();
1230  T672:;          V222= Ct;
1231          {register object V233;          STSET(object,(V220),8, /* INLINE-ARGS */V221);
1232          object V234;          (void)(/* INLINE-ARGS */V221);
1233          V233= (V218);          V219= CMPcdr((V219));
1234          V234= car((V233));          V220= CMPcar((V219));
1235          goto T691;          goto T677;}
1236  T691:;          goto T673;
1237          if(!(endp_prop((V233)))){  T673:;
1238          goto T692;}          {register object V223;
1239          goto T687;          object V224;
1240            V223= (V207);
1241            V224= CMPcar((V223));
1242          goto T692;          goto T692;
1243  T692:;  T692:;
1244          V235= car((V234));          if(!(((V223))==Cnil)){
1245          V236= (*(LnkLI102))();          goto T693;}
1246          (void)(structure_set(/* INLINE-ARGS */V235,VV[6],2,/* INLINE-ARGS */V236));          goto T688;
1247          V233= cdr((V233));          goto T693;
1248          V234= car((V233));  T693:;
1249          goto T691;}          V225= CMPcar((V224));
1250          goto T687;          V226= (*(LnkLI112))();
1251  T687:;          V227= Ct;
1252          if(((V219))==Cnil){          STSET(object,/* INLINE-ARGS */V225,8, /* INLINE-ARGS */V226);
1253          goto T702;}          (void)(/* INLINE-ARGS */V226);
1254          V237= (*(LnkLI102))();          V223= CMPcdr((V223));
1255          (void)(structure_set((V219),VV[6],2,/* INLINE-ARGS */V237));          V224= CMPcar((V223));
1256          goto T702;          goto T692;}
1257  T702:;          goto T688;
1258          {register object V238;  T688:;
1259          object V239;          if(((V208))==Cnil){
1260          V238= (V218);          goto T703;}
1261          V239= car((V238));          V228= (*(LnkLI112))();
1262          goto T709;          V229= Ct;
1263  T709:;          STSET(object,(V208),8, /* INLINE-ARGS */V228);
1264          if(!(endp_prop((V238)))){          (void)(/* INLINE-ARGS */V228);
1265          goto T710;}          goto T703;
1266          goto T705;  T703:;
1267            {register object V230;
1268            object V231;
1269            V230= (V207);
1270            V231= CMPcar((V230));
1271          goto T710;          goto T710;
1272  T710:;  T710:;
1273          if((caddr((V239)))==Cnil){          if(!(((V230))==Cnil)){
1274          goto T714;}          goto T711;}
1275          V240= caddr((V239));          goto T706;
1276          V241= (*(LnkLI102))();          goto T711;
1277          (void)(structure_set(/* INLINE-ARGS */V240,VV[6],2,/* INLINE-ARGS */V241));  T711:;
1278          goto T714;          if((CMPcaddr((V231)))==Cnil){
1279  T714:;          goto T715;}
1280          V238= cdr((V238));          V232= CMPcaddr((V231));
1281          V239= car((V238));          V233= (*(LnkLI112))();
1282          goto T709;}          V234= Ct;
1283          goto T705;          STSET(object,/* INLINE-ARGS */V232,8, /* INLINE-ARGS */V233);
1284  T705:;          (void)(/* INLINE-ARGS */V233);
1285          {register object V242;          goto T715;
1286          object V243;  T715:;
1287          V242= (V217);          V230= CMPcdr((V230));
1288          V243= car((V242));          V231= CMPcar((V230));
1289          goto T726;          goto T710;}
1290  T726:;          goto T706;
1291          if(!(endp_prop((V242)))){  T706:;
1292          goto T727;}          {register object V235;
1293          goto T722;          object V236;
1294            V235= (V206);
1295            V236= CMPcar((V235));
1296          goto T727;          goto T727;
1297  T727:;  T727:;
1298          (void)((*(LnkLI103))((V243)));          if(!(((V235))==Cnil)){
1299          V242= cdr((V242));          goto T728;}
1300          V243= car((V242));          goto T723;
1301          goto T726;}          goto T728;
1302          goto T722;  T728:;
1303  T722:;          (void)((*(LnkLI113))((V236)));
1304          if(((V218))!=Cnil){          V235= CMPcdr((V235));
1305          goto T739;}          V236= CMPcar((V235));
1306          if(((V219))==Cnil){          goto T727;}
1307          goto T737;}          goto T723;
1308          goto T739;  T723:;
1309  T739:;          if(((V207))!=Cnil){
1310          if(((V217))==Cnil){          goto T740;}
1311          goto T737;}          if(((V208))==Cnil){
1312            goto T738;}
1313            goto T740;
1314    T740:;
1315            if(((V206))==Cnil){
1316            goto T738;}
1317          princ_str("\n   vs_base=vs_base+",VV[10]);          princ_str("\n   vs_base=vs_base+",VV[10]);
1318          V244 = make_fixnum((long)length((V217)));          V237 = CMPmake_fixnum((long)length((V206)));
1319          (void)((*(LnkLI80))(V244));          (void)((*(LnkLI90))(V237));
1320          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1321          goto T737;          goto T738;
1322  T737:;  T738:;
1323          if(((V218))==Cnil){          if(((V207))==Cnil){
1324          goto T749;}          goto T750;}
1325          bds_bind(VV[24],(VV[24]->s.s_dbind));          bds_bind(VV[24],(VV[24]->s.s_dbind));
1326          bds_bind(VV[52],(VV[52]->s.s_dbind));          bds_bind(VV[52],(VV[52]->s.s_dbind));
1327          bds_bind(VV[25],(VV[25]->s.s_dbind));          bds_bind(VV[25],(VV[25]->s.s_dbind));
1328          if(((V219))==Cnil){          if(((V208))==Cnil){
1329          goto T752;}          goto T753;}
1330          princ_str("\n   vs_top[0]=Cnil;",VV[10]);          princ_str("\n   vs_top[0]=Cnil;",VV[10]);
1331          princ_str("\n   {object *p=vs_top, *q=vs_base+",VV[10]);          princ_str("\n   {object *p=vs_top, *q=vs_base+",VV[10]);
1332          V245 = make_fixnum((long)length((V218)));          V238 = CMPmake_fixnum((long)length((V207)));
1333          (void)((*(LnkLI80))(V245));          (void)((*(LnkLI90))(V238));
1334          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1335          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]);
1336          goto T752;          goto T753;
1337  T752:;  T753:;
1338          {register object V246;          {register object V239;
1339          V246= (V218);          V239= (V207);
         goto T764;  
 T764:;  
         if(!(endp_prop((V246)))){  
         goto T765;}  
         goto T762;  
1340          goto T765;          goto T765;
1341  T765:;  T765:;
1342          {object V247;          if(!(((V239))==Cnil)){
1343          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));          goto T766;}
1344          V247= make_cons(symbol_value(VV[57]),Cnil);          goto T763;
1345          V220= make_cons((V247),(V220));}          goto T766;
1346    T766:;
1347            {object V240;
1348            (VV[57]->s.s_dbind)= number_plus((VV[57]->s.s_dbind),small_fixnum(1));
1349            V240= make_cons((VV[57]->s.s_dbind),Cnil);
1350            V209= make_cons((V240),(V209));}
1351          princ_str("\n   if(vs_base>=vs_top){",VV[10]);          princ_str("\n   if(vs_base>=vs_top){",VV[10]);
1352          (void)((*(LnkLI104))());          (void)((*(LnkLI114))());
1353          if(type_of(car((V220)))!=t_cons)FEwrong_type_argument(Scons,car((V220)));          (CMPcar((V209)))->c.c_cdr = Ct;
1354          (car((V220)))->c.c_cdr = Ct;          (void)(CMPcar((V209)));
         (void)(car((V220)));  
1355          princ_str("goto T",VV[10]);          princ_str("goto T",VV[10]);
1356          (void)((*(LnkLI80))(car(car((V220)))));          (void)((*(LnkLI90))(CMPcar(CMPcar((V209)))));
1357          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1358          princ_char(125,VV[10]);          princ_char(125,VV[10]);
1359          (void)((*(LnkLI103))(caar((V246))));          (void)((*(LnkLI113))(CMPcaar((V239))));
1360          if((caddar((V246)))==Cnil){          if((CMPcaddar((V239)))==Cnil){
1361          goto T784;}          goto T785;}
1362          (void)((*(LnkLI105))(caddar((V246)),Ct));          (void)((*(LnkLI115))(CMPcaddar((V239)),Ct));
1363          goto T784;          goto T785;
1364  T784:;  T785:;
1365          if((cdr((V246)))==Cnil){          if((CMPcdr((V239)))==Cnil){
1366          goto T787;}          goto T788;}
1367          princ_str("\n   vs_base++;",VV[10]);          princ_str("\n   vs_base++;",VV[10]);
1368          goto T787;          goto T788;
1369  T787:;  T788:;
1370          V246= cdr((V246));          V239= CMPcdr((V239));
1371          goto T764;}          goto T765;}
1372          goto T762;          goto T763;
1373  T762:;  T763:;
1374          if(((V219))==Cnil){          if(((V208))==Cnil){
1375          bds_unwind1;          bds_unwind1;
1376          bds_unwind1;          bds_unwind1;
1377          bds_unwind1;          bds_unwind1;
1378          goto T751;}          goto T752;}
1379          V248= (*(LnkLI103))((V219));          V241= (*(LnkLI113))((V208));
1380          bds_unwind1;          bds_unwind1;
1381          bds_unwind1;          bds_unwind1;
1382          bds_unwind1;          bds_unwind1;
1383          goto T751;          goto T752;
1384  T751:;  T752:;
1385          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1386          (void)((*(LnkLI104))());          (void)((*(LnkLI114))());
1387          {object V249;          {object V242;
1388          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));          (VV[57]->s.s_dbind)= number_plus((VV[57]->s.s_dbind),small_fixnum(1));
1389          V249= make_cons(symbol_value(VV[57]),Cnil);          V242= make_cons((VV[57]->s.s_dbind),Cnil);
1390          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1391          if(type_of((V249))!=t_cons)FEwrong_type_argument(Scons,(V249));          ((V242))->c.c_cdr = Ct;
         ((V249))->c.c_cdr = Ct;  
1392          princ_str("goto T",VV[10]);          princ_str("goto T",VV[10]);
1393          (void)((*(LnkLI80))(car((V249))));          (void)((*(LnkLI90))(CMPcar((V242))));
1394          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1395          V220= reverse((V220));          V209= reverse((V209));
1396          {register object V250;          {register object V243;
1397          register object V251;          register object V244;
1398          V250= (V218);          V243= (V207);
1399          V251= car((V250));          V244= CMPcar((V243));
         goto T812;  
 T812:;  
         if(!(endp_prop((V250)))){  
         goto T813;}  
         goto T808;  
1400          goto T813;          goto T813;
1401  T813:;  T813:;
1402          if((cdr(car((V220))))==Cnil){          if(!(((V243))==Cnil)){
1403          goto T817;}          goto T814;}
1404            goto T809;
1405            goto T814;
1406    T814:;
1407            if((CMPcdr(CMPcar((V209))))==Cnil){
1408            goto T818;}
1409          princ_str("\n   goto T",VV[10]);          princ_str("\n   goto T",VV[10]);
1410          (void)((*(LnkLI80))(car(car((V220)))));          (void)((*(LnkLI90))(CMPcar(CMPcar((V209)))));
1411          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1412          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1413          (void)((*(LnkLI80))(car(car((V220)))));          (void)((*(LnkLI90))(CMPcar(CMPcar((V209)))));
1414          princ_str(":;",VV[10]);          princ_str(":;",VV[10]);
1415          goto T817;          goto T818;
1416  T817:;  T818:;
1417          {object V252;          {object V245;
1418          V252= car((V220));          V245= CMPcar((V209));
1419          V220= cdr((V220));}          V209= CMPcdr((V209));}
1420          (void)((*(LnkLI106))(car((V251)),cadr((V251))));          (void)((*(LnkLI116))(CMPcar((V244)),CMPcadr((V244))));
1421          if((caddr((V251)))==Cnil){          if((CMPcaddr((V244)))==Cnil){
1422          goto T832;}          goto T833;}
1423          (void)((*(LnkLI105))(caddr((V251)),Cnil));          (void)((*(LnkLI115))(CMPcaddr((V244)),Cnil));
1424          goto T832;          goto T833;
1425  T832:;  T833:;
1426          V250= cdr((V250));          V243= CMPcdr((V243));
1427          V251= car((V250));          V244= CMPcar((V243));
1428          goto T812;}          goto T813;}
1429          goto T808;          goto T809;
1430  T808:;  T809:;
1431          if(((V219))==Cnil){          if(((V208))==Cnil){
1432          goto T840;}          goto T841;}
1433          (void)((*(LnkLI105))((V219),Cnil));          (void)((*(LnkLI115))((V208),Cnil));
1434          goto T840;          goto T841;
1435  T840:;  T841:;
1436          if((cdr((V249)))==Cnil){          if((CMPcdr((V242)))==Cnil){
1437          goto T747;}          goto T748;}
1438          princ_str("\n   goto T",VV[10]);          princ_str("\n   goto T",VV[10]);
1439          (void)((*(LnkLI80))(car((V249))));          (void)((*(LnkLI90))(CMPcar((V242))));
1440          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1441          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1442          (void)((*(LnkLI80))(car((V249))));          (void)((*(LnkLI90))(CMPcar((V242))));
1443          princ_str(":;",VV[10]);          princ_str(":;",VV[10]);
1444          goto T747;}          goto T748;}
1445          goto T749;          goto T750;
1446  T749:;  T750:;
1447          if(((V219))==Cnil){          if(((V208))==Cnil){
1448          goto T853;}          goto T854;}
1449          princ_str("\n   vs_top[0]=Cnil;",VV[10]);          princ_str("\n   vs_top[0]=Cnil;",VV[10]);
1450          princ_str("\n   {object *p=vs_top;",VV[10]);          princ_str("\n   {object *p=vs_top;",VV[10]);
1451          princ_str("\n    for(;p>vs_base;p--)p[-1]=",VV[10]);          princ_str("\n    for(;p>vs_base;p--)p[-1]=",VV[10]);
1452          if((symbol_value(VV[50]))==Cnil){          if(((VV[50]->s.s_dbind))==Cnil){
1453          goto T864;}          goto T865;}
1454          V253= VV[58];          V246= VV[58];
1455          goto T862;          goto T863;
1456          goto T864;          goto T865;
1457  T864:;  T865:;
1458          V253= VV[59];          V246= VV[59];
1459          goto T862;          goto T863;
1460  T862:;  T863:;
1461          (void)((*(LnkLI80))(V253));          (void)((*(LnkLI90))(V246));
1462          princ_str("(p[-1],p[0]);}",VV[10]);          princ_str("(p[-1],p[0]);}",VV[10]);
1463          (void)((*(LnkLI103))((V219)));          (void)((*(LnkLI113))((V208)));
1464          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1465          (void)((*(LnkLI104))());          (void)((*(LnkLI114))());
1466          goto T747;          goto T748;
1467          goto T853;          goto T854;
1468  T853:;  T854:;
1469          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
1470          (void)((*(LnkLI104))());          (void)((*(LnkLI114))());
1471          goto T747;          goto T748;
1472  T747:;  T748:;
1473          if((symbol_value(VV[48]))==Cnil){          if(((VV[48]->s.s_dbind))==Cnil){
1474          goto T870;}          goto T871;}
1475          (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));
1476          princ_str("\n   goto TTL;",VV[10]);          princ_str("\n   goto TTL;",VV[10]);
1477          princ_str("\nTTL:;",VV[10]);          princ_str("\nTTL:;",VV[10]);
1478          goto T870;          goto T871;
1479  T870:;  T871:;
1480          base[8]= (V216);          base[8]= (V205);
1481          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1482          (void) (*Lnk107)();          (void) (*Lnk117)();
1483          vs_top=sup;          vs_top=sup;
1484          if((base[7])==Cnil){          if((base[7])==Cnil){
1485          goto T881;}          goto T882;}
1486          princ_str("\n   }",VV[10]);          princ_str("\n   }",VV[10]);
1487          {object V255 = Cnil;          {object V248 = Cnil;
1488          bds_unwind1;          bds_unwind1;
1489          bds_unwind1;          bds_unwind1;
1490          bds_unwind1;          bds_unwind1;
1491          bds_unwind1;          bds_unwind1;
1492          VMR13(V255)}          VMR13(V248)}
1493          goto T881;          goto T882;
1494  T881:;  T882:;
1495          {object V256 = Cnil;          {object V249 = Cnil;
1496          bds_unwind1;          bds_unwind1;
1497          bds_unwind1;          bds_unwind1;
1498          bds_unwind1;          bds_unwind1;
1499          bds_unwind1;          bds_unwind1;
1500          VMR13(V256)}}          VMR13(V249)}}
1501          base[0]=base[0];          base[0]=base[0];
1502          return Cnil;          return Cnil;
1503  }  }
1504  /*      local entry for function C2LAMBDA-EXPR-WITH-KEY */  /*      local entry for function C2LAMBDA-EXPR-WITH-KEY */
1505    
1506  static object LI15(V259,V260)  static object LI15(V252,V253)
1507    
1508  object V259;object V260;  object V252;object V253;
1509  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1510          bds_check;          bds_check;
1511          goto TTL;          goto TTL;
1512  TTL:;  TTL:;
1513          {object V261;          {object V254;
1514          object V262;          object V255;
1515          object V263;          object V256;
1516          object V264;          object V257;
1517          object V265;          object V258;
1518          register object V266;          register object V259;
1519          V261= car((V259));          V254= CMPcar((V252));
1520          V262= cadr((V259));          V255= CMPcadr((V252));
1521          V263= caddr((V259));          V256= CMPcaddr((V252));
1522          V264= car(cddddr((V259)));          V257= CMPcar(CMPcddddr((V252)));
1523          V265= cadr(cddddr((V259)));          V258= CMPcadr(CMPcddddr((V252)));
1524          V266= Cnil;          V259= Cnil;
1525          bds_bind(VV[52],symbol_value(VV[52]));          bds_bind(VV[52],(VV[52]->s.s_dbind));
1526          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],(VV[53]->s.s_dbind));
1527          bds_bind(VV[24],symbol_value(VV[24]));          bds_bind(VV[24],(VV[24]->s.s_dbind));
1528          bds_bind(VV[25],symbol_value(VV[25]));          bds_bind(VV[25],(VV[25]->s.s_dbind));
1529          base[9]= Cnil;          base[9]= Cnil;
1530          {register object V267;          {register object V260;
1531          object V268;          object V261;
1532          V267= (V261);          V260= (V254);
1533          V268= car((V267));          V261= CMPcar((V260));
         goto T895;  
 T895:;  
         if(!(endp_prop((V267)))){  
         goto T896;}  
         goto T891;  
1534          goto T896;          goto T896;
1535  T896:;  T896:;
1536          base[11]= (V268);          if(!(((V260))==Cnil)){
1537            goto T897;}
1538            goto T892;
1539            goto T897;
1540    T897:;
1541            base[11]= (V261);
1542          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1543          L16(base);          L16(base);
1544          vs_top=sup;          vs_top=sup;
1545          V267= cdr((V267));          V260= CMPcdr((V260));
1546          V268= car((V267));          V261= CMPcar((V260));
1547          goto T895;}          goto T896;}
1548          goto T891;          goto T892;
1549  T891:;  T892:;
1550          {register object V269;          {register object V262;
1551          object V270;          object V263;
1552          V269= (V262);          V262= (V255);
1553          V270= car((V269));          V263= CMPcar((V262));
         goto T911;  
 T911:;  
         if(!(endp_prop((V269)))){  
         goto T912;}  
         goto T907;  
1554          goto T912;          goto T912;
1555  T912:;  T912:;
1556          base[11]= car((V270));          if(!(((V262))==Cnil)){
1557            goto T913;}
1558            goto T908;
1559            goto T913;
1560    T913:;
1561            base[11]= CMPcar((V263));
1562          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1563          L16(base);          L16(base);
1564          vs_top=sup;          vs_top=sup;
1565          if((caddr((V270)))==Cnil){          if((CMPcaddr((V263)))==Cnil){
1566          goto T918;}          goto T919;}
1567          base[11]= caddr((V270));          base[11]= CMPcaddr((V263));
1568          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1569          L16(base);          L16(base);
1570          vs_top=sup;          vs_top=sup;
1571          goto T918;          goto T919;
1572  T918:;  T919:;
1573          V269= cdr((V269));          V262= CMPcdr((V262));
1574          V270= car((V269));          V263= CMPcar((V262));
1575          goto T911;}          goto T912;}
1576          goto T907;          goto T908;
1577  T907:;  T908:;
1578          if(((V263))==Cnil){          if(((V256))==Cnil){
1579          goto T927;}          goto T928;}
1580          base[10]= (V263);          base[10]= (V256);
1581          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1582          L16(base);          L16(base);
1583          vs_top=sup;          vs_top=sup;
1584          goto T927;          goto T928;
1585  T927:;  T928:;
1586          {register object V271;          {register object V264;
1587          object V272;          object V265;
1588          V271= (V264);          V264= (V257);
1589          V272= car((V271));          V265= CMPcar((V264));
         goto T934;  
 T934:;  
         if(!(endp_prop((V271)))){  
         goto T935;}  
         goto T890;  
1590          goto T935;          goto T935;
1591  T935:;  T935:;
1592          base[11]= cadr((V272));          if(!(((V264))==Cnil)){
1593            goto T936;}
1594            goto T891;
1595            goto T936;
1596    T936:;
1597            base[11]= CMPcadr((V265));
1598          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1599          L16(base);          L16(base);
1600          vs_top=sup;          vs_top=sup;
1601          if((cadddr((V272)))==Cnil){          if((CMPcadddr((V265)))==Cnil){
1602          goto T941;}          goto T942;}
1603          base[11]= cadddr((V272));          base[11]= CMPcadddr((V265));
1604          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
1605          L16(base);          L16(base);
1606          vs_top=sup;          vs_top=sup;
1607          goto T941;          goto T942;
1608  T941:;  T942:;
1609          V271= cdr((V271));          V264= CMPcdr((V264));
1610          V272= car((V271));          V265= CMPcar((V264));
1611          goto T934;}          goto T935;}
1612          goto T890;          goto T891;
1613  T890:;  T891:;
1614          if((symbol_value(VV[55]))!=Cnil){          if(((VV[55]->s.s_dbind))!=Cnil){
1615          goto T952;}          goto T953;}
1616          if((symbol_value(VV[56]))==Cnil){          if(((VV[56]->s.s_dbind))==Cnil){
1617          goto T950;}          goto T951;}
1618          goto T952;          goto T953;
1619  T952:;  T953:;
1620          if(((V261))==Cnil){          if(((V254))==Cnil){
1621          goto T950;}          goto T951;}
1622          if(((V261))==Cnil){          if(((V254))==Cnil){
1623          goto T950;}          goto T951;}
1624          princ_str("\n   if(vs_top-vs_base<",VV[10]);          princ_str("\n   if(vs_top-vs_base<",VV[10]);
1625          V273 = make_fixnum((long)length((V261)));          V266 = CMPmake_fixnum((long)length((V254)));
1626          (void)((*(LnkLI80))(V273));          (void)((*(LnkLI90))(V266));
1627          princ_str(") too_few_arguments();",VV[10]);          princ_str(") too_few_arguments();",VV[10]);
1628          goto T950;          goto T951;
1629  T950:;  T951:;
1630          {register object V274;          {register object V267;
1631          object V275;          object V268;
1632          V274= (V261);          V267= (V254);
1633          V275= car((V274));          V268= CMPcar((V267));
         goto T966;  
 T966:;  
         if(!(endp_prop((V274)))){  
         goto T967;}  
         goto T962;  
1634          goto T967;          goto T967;
1635  T967:;  T967:;
1636          V276= (*(LnkLI102))();          if(!(((V267))==Cnil)){
1637          (void)(structure_set((V275),VV[6],2,/* INLINE-ARGS */V276));          goto T968;}
1638          V274= cdr((V274));          goto T963;
1639          V275= car((V274));          goto T968;
1640          goto T966;}  T968:;
1641          goto T962;          V269= (*(LnkLI112))();
1642  T962:;          V270= Ct;
1643          {register object V277;          STSET(object,(V268),8, /* INLINE-ARGS */V269);
1644          object V278;          (void)(/* INLINE-ARGS */V269);
1645          V277= (V262);          V267= CMPcdr((V267));
1646          V278= car((V277));          V268= CMPcar((V267));
1647          goto T981;          goto T967;}
1648  T981:;          goto T963;
1649          if(!(endp_prop((V277)))){  T963:;
1650          goto T982;}          {register object V271;
1651          goto T977;          object V272;
1652            V271= (V255);
1653            V272= CMPcar((V271));
1654          goto T982;          goto T982;
1655  T982:;  T982:;
1656          V279= car((V278));          if(!(((V271))==Cnil)){
1657          V280= (*(LnkLI102))();          goto T983;}
1658          (void)(structure_set(/* INLINE-ARGS */V279,VV[6],2,/* INLINE-ARGS */V280));          goto T978;
1659          V277= cdr((V277));          goto T983;
1660          V278= car((V277));  T983:;
1661          goto T981;}          V273= CMPcar((V272));
1662          goto T977;          V274= (*(LnkLI112))();
1663  T977:;          V275= Ct;
1664          if(((V263))==Cnil){          STSET(object,/* INLINE-ARGS */V273,8, /* INLINE-ARGS */V274);
1665          goto T992;}          (void)(/* INLINE-ARGS */V274);
1666          V281= (*(LnkLI102))();          V271= CMPcdr((V271));
1667          (void)(structure_set((V263),VV[6],2,/* INLINE-ARGS */V281));          V272= CMPcar((V271));
1668          goto T992;          goto T982;}
1669  T992:;          goto T978;
1670          {register object V282;  T978:;
1671          object V283;          if(((V256))==Cnil){
1672          V282= (V264);          goto T993;}
1673          V283= car((V282));          V276= (*(LnkLI112))();
1674          goto T999;          V277= Ct;
1675  T999:;          STSET(object,(V256),8, /* INLINE-ARGS */V276);
1676          if(!(endp_prop((V282)))){          (void)(/* INLINE-ARGS */V276);
1677          goto T1000;}          goto T993;
1678          goto T995;  T993:;
1679            {register object V278;
1680            object V279;
1681            V278= (V257);
1682            V279= CMPcar((V278));
1683          goto T1000;          goto T1000;
1684  T1000:;  T1000:;
1685          V284= cadr((V283));          if(!(((V278))==Cnil)){
1686          V285= (*(LnkLI102))();          goto T1001;}
1687          (void)(structure_set(/* INLINE-ARGS */V284,VV[6],2,/* INLINE-ARGS */V285));          goto T996;
1688          V282= cdr((V282));          goto T1001;
1689          V283= car((V282));  T1001:;
1690          goto T999;}          V280= CMPcadr((V279));
1691          goto T995;          V281= (*(LnkLI112))();
1692  T995:;          V282= Ct;
1693          {register object V286;          STSET(object,/* INLINE-ARGS */V280,8, /* INLINE-ARGS */V281);
1694          object V287;          (void)(/* INLINE-ARGS */V281);
1695          V286= (V264);          V278= CMPcdr((V278));
1696          V287= car((V286));          V279= CMPcar((V278));
1697          goto T1014;          goto T1000;}
1698  T1014:;          goto T996;
1699          if(!(endp_prop((V286)))){  T996:;
1700          goto T1015;}          {register object V283;
1701          goto T1010;          object V284;
1702            V283= (V257);
1703            V284= CMPcar((V283));
1704          goto T1015;          goto T1015;
1705  T1015:;  T1015:;
1706          V288= cadddr((V287));          if(!(((V283))==Cnil)){
1707          V289= (*(LnkLI102))();          goto T1016;}
1708          (void)(structure_set(/* INLINE-ARGS */V288,VV[6],2,/* INLINE-ARGS */V289));          goto T1011;
1709          V286= cdr((V286));          goto T1016;
1710          V287= car((V286));  T1016:;
1711          goto T1014;}          V285= CMPcadddr((V284));
1712          goto T1010;          V286= (*(LnkLI112))();
1713  T1010:;          V287= Ct;
1714          {register object V290;          STSET(object,/* INLINE-ARGS */V285,8, /* INLINE-ARGS */V286);
1715          object V291;          (void)(/* INLINE-ARGS */V286);
1716          V290= (V262);          V283= CMPcdr((V283));
1717          V291= car((V290));          V284= CMPcar((V283));
1718          goto T1029;          goto T1015;}
1719  T1029:;          goto T1011;
1720          if(!(endp_prop((V290)))){  T1011:;
1721          goto T1030;}          {register object V288;
1722          goto T1025;          object V289;
1723            V288= (V255);
1724            V289= CMPcar((V288));
1725          goto T1030;          goto T1030;
1726  T1030:;  T1030:;
1727          if((caddr((V291)))==Cnil){          if(!(((V288))==Cnil)){
1728          goto T1034;}          goto T1031;}
1729          V292= caddr((V291));          goto T1026;
1730          V293= (*(LnkLI102))();          goto T1031;
1731          (void)(structure_set(/* INLINE-ARGS */V292,VV[6],2,/* INLINE-ARGS */V293));  T1031:;
1732          goto T1034;          if((CMPcaddr((V289)))==Cnil){
1733  T1034:;          goto T1035;}
1734          V290= cdr((V290));          V290= CMPcaddr((V289));
1735          V291= car((V290));          V291= (*(LnkLI112))();
1736          goto T1029;}          V292= Ct;
1737          goto T1025;          STSET(object,/* INLINE-ARGS */V290,8, /* INLINE-ARGS */V291);
1738  T1025:;          (void)(/* INLINE-ARGS */V291);
1739            goto T1035;
1740    T1035:;
1741            V288= CMPcdr((V288));
1742            V289= CMPcar((V288));
1743            goto T1030;}
1744            goto T1026;
1745    T1026:;
1746          princ_str("\n   parse_key(vs_base",VV[10]);          princ_str("\n   parse_key(vs_base",VV[10]);
1747          if(((V261))!=Cnil){          if(((V254))!=Cnil){
1748            goto T1046;}
1749            if(((V255))==Cnil){
1750          goto T1045;}          goto T1045;}
1751          if(((V262))==Cnil){          goto T1046;
1752          goto T1044;}  T1046:;
1753            princ_char(43,VV[10]);
1754            V293 = CMPmake_fixnum((long)length((V254)));
1755            V294 = CMPmake_fixnum((long)length((V255)));
1756            V295= number_plus(V293,V294);
1757            (void)((*(LnkLI90))(/* INLINE-ARGS */V295));
1758          goto T1045;          goto T1045;
1759  T1045:;  T1045:;
1760          princ_char(43,VV[10]);          if(((V256))==Cnil){
1761          V294 = make_fixnum((long)length((V261)));          goto T1054;}
         V295 = make_fixnum((long)length((V262)));  
         V296= number_plus(V294,V295);  
         (void)((*(LnkLI80))(/* INLINE-ARGS */V296));  
         goto T1044;  
 T1044:;  
         if(((V263))==Cnil){  
         goto T1053;}  
1762          princ_str(",TRUE,",VV[10]);          princ_str(",TRUE,",VV[10]);
1763          goto T1051;          goto T1052;
1764          goto T1053;          goto T1054;
1765  T1053:;  T1054:;
1766          princ_str(",FALSE,",VV[10]);          princ_str(",FALSE,",VV[10]);
1767          goto T1051;          goto T1052;
1768  T1051:;  T1052:;
1769          if(((V265))==Cnil){          if(((V258))==Cnil){
1770          goto T1059;}          goto T1060;}
1771          princ_str("TRUE,",VV[10]);          princ_str("TRUE,",VV[10]);
1772          goto T1057;          goto T1058;
1773          goto T1059;          goto T1060;
1774  T1059:;  T1060:;
1775          princ_str("FALSE,",VV[10]);          princ_str("FALSE,",VV[10]);
1776          goto T1057;          goto T1058;
1777  T1057:;  T1058:;
1778          V297 = make_fixnum((long)length((V264)));          V296 = CMPmake_fixnum((long)length((V257)));
1779          (void)((*(LnkLI80))(V297));          (void)((*(LnkLI90))(V296));
1780          {register object V298;          {register object V297;
1781          object V299;          object V298;
1782          V298= (V264);          V297= (V257);
1783          V299= car((V298));          V298= CMPcar((V297));
         goto T1069;  
 T1069:;  
         if(!(endp_prop((V298)))){  
         goto T1070;}  
         goto T1065;  
1784          goto T1070;          goto T1070;
1785  T1070:;  T1070:;
1786            if(!(((V297))==Cnil)){
1787            goto T1071;}
1788            goto T1066;
1789            goto T1071;
1790    T1071:;
1791          princ_str(",VV[",VV[10]);          princ_str(",VV[",VV[10]);
1792          V300= (*(LnkLI108))(car((V299)));          V299= (*(LnkLI118))(CMPcar((V298)));
1793          (void)((*(LnkLI80))(/* INLINE-ARGS */V300));          (void)((*(LnkLI90))(/* INLINE-ARGS */V299));
1794          princ_char(93,VV[10]);          princ_char(93,VV[10]);
1795          V298= cdr((V298));          V297= CMPcdr((V297));
1796          V299= car((V298));          V298= CMPcar((V297));
1797          goto T1069;}          goto T1070;}
1798          goto T1065;          goto T1066;
1799  T1065:;  T1066:;
1800          princ_str(");",VV[10]);          princ_str(");",VV[10]);
1801          {register object V301;          {register object V300;
1802          object V302;          object V301;
1803          V301= (V261);          V300= (V254);
1804          V302= car((V301));          V301= CMPcar((V300));
         goto T1089;  
 T1089:;  
         if(!(endp_prop((V301)))){  
         goto T1090;}  
         goto T1085;  
1805          goto T1090;          goto T1090;
1806  T1090:;  T1090:;
1807          (void)((*(LnkLI103))((V302)));          if(!(((V300))==Cnil)){
1808          V301= cdr((V301));          goto T1091;}
1809          V302= car((V301));          goto T1086;
1810          goto T1089;}          goto T1091;
1811          goto T1085;  T1091:;
1812  T1085:;          (void)((*(LnkLI113))((V301)));
1813          if(((V262))==Cnil){          V300= CMPcdr((V300));
1814          goto T1100;}          V301= CMPcar((V300));
1815          if(((V261))==Cnil){          goto T1090;}
1816          goto T1103;}          goto T1086;
1817    T1086:;
1818            if(((V255))==Cnil){
1819            goto T1101;}
1820            if(((V254))==Cnil){
1821            goto T1104;}
1822          princ_str("\n   vs_base += ",VV[10]);          princ_str("\n   vs_base += ",VV[10]);
1823          V303 = make_fixnum((long)length((V261)));          V302 = CMPmake_fixnum((long)length((V254)));
1824          (void)((*(LnkLI80))(V303));          (void)((*(LnkLI90))(V302));
1825          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1826          goto T1103;          goto T1104;
1827  T1103:;  T1104:;
1828          bds_bind(VV[24],(VV[24]->s.s_dbind));          bds_bind(VV[24],(VV[24]->s.s_dbind));
1829          bds_bind(VV[52],(VV[52]->s.s_dbind));          bds_bind(VV[52],(VV[52]->s.s_dbind));
1830          bds_bind(VV[25],(VV[25]->s.s_dbind));          bds_bind(VV[25],(VV[25]->s.s_dbind));
1831          {register object V304;          {register object V303;
1832          V304= (V262);          V303= (V255);
1833          goto T1111;          goto T1112;
1834  T1111:;  T1112:;
1835          if(!(endp_prop((V304)))){          if(!(((V303))==Cnil)){
1836          goto T1112;}          goto T1113;}
1837          bds_unwind1;          bds_unwind1;
1838          bds_unwind1;          bds_unwind1;
1839          bds_unwind1;          bds_unwind1;
1840          goto T1109;          goto T1110;
1841          goto T1112;          goto T1113;
1842  T1112:;  T1113:;
1843          {object V305;          {object V304;
1844          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));          (VV[57]->s.s_dbind)= number_plus((VV[57]->s.s_dbind),small_fixnum(1));
1845          V305= make_cons(symbol_value(VV[57]),Cnil);          V304= make_cons((VV[57]->s.s_dbind),Cnil);
1846          V266= make_cons((V305),(V266));}          V259= make_cons((V304),(V259));}
1847          princ_str("\n   if(vs_base>=vs_top){vs_top=sup;",VV[10]);          princ_str("\n   if(vs_base>=vs_top){vs_top=sup;",VV[10]);
1848          if(type_of(car((V266)))!=t_cons)FEwrong_type_argument(Scons,car((V266)));          (CMPcar((V259)))->c.c_cdr = Ct;
1849          (car((V266)))->c.c_cdr = Ct;          (void)(CMPcar((V259)));
         (void)(car((V266)));  
1850          princ_str("goto T",VV[10]);          princ_str("goto T",VV[10]);
1851          (void)((*(LnkLI80))(car(car((V266)))));          (void)((*(LnkLI90))(CMPcar(CMPcar((V259)))));
1852          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1853          princ_char(125,VV[10]);          princ_char(125,VV[10]);
1854          (void)((*(LnkLI103))(caar((V304))));          (void)((*(LnkLI113))(CMPcaar((V303))));
1855          if((caddar((V304)))==Cnil){          if((CMPcaddar((V303)))==Cnil){
1856          goto T1130;}          goto T1131;}
1857          (void)((*(LnkLI105))(caddar((V304)),Ct));          (void)((*(LnkLI115))(CMPcaddar((V303)),Ct));
1858          goto T1130;          goto T1131;
1859  T1130:;  T1131:;
1860          if((cdr((V304)))==Cnil){          if((CMPcdr((V303)))==Cnil){
1861          goto T1133;}          goto T1134;}
1862          princ_str("\n   vs_base++;",VV[10]);          princ_str("\n   vs_base++;",VV[10]);
1863          goto T1133;          goto T1134;
1864  T1133:;  T1134:;
1865          V304= cdr((V304));          V303= CMPcdr((V303));
1866          goto T1111;}          goto T1112;}
1867          goto T1109;          goto T1110;
1868  T1109:;  T1110:;
1869          V266= reverse((V266));          V259= reverse((V259));
1870          goto T1100;          goto T1101;
1871  T1100:;  T1101:;
1872          princ_str("\n   vs_top=sup;",VV[10]);          princ_str("\n   vs_top=sup;",VV[10]);
1873          if(((V262))==Cnil){          if(((V255))==Cnil){
1874          goto T1143;}          goto T1144;}
1875          {object V306;          {object V305;
1876          setq(VV[57],number_plus(symbol_value(VV[57]),small_fixnum(1)));          (VV[57]->s.s_dbind)= number_plus((VV[57]->s.s_dbind),small_fixnum(1));
1877          V306= make_cons(symbol_value(VV[57]),Cnil);          V305= make_cons((VV[57]->s.s_dbind),Cnil);
1878          if(type_of((V306))!=t_cons)FEwrong_type_argument(Scons,(V306));          ((V305))->c.c_cdr = Ct;
         ((V306))->c.c_cdr = Ct;  
1879          princ_str("goto T",VV[10]);          princ_str("goto T",VV[10]);
1880          (void)((*(LnkLI80))(car((V306))));          (void)((*(LnkLI90))(CMPcar((V305))));
1881          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1882          {register object V307;          {register object V306;
1883          register object V308;          register object V307;
1884          V307= (V262);          V306= (V255);
1885          V308= car((V307));          V307= CMPcar((V306));
         goto T1157;  
 T1157:;  
         if(!(endp_prop((V307)))){  
         goto T1158;}  
         goto T1153;  
1886          goto T1158;          goto T1158;
1887  T1158:;  T1158:;
1888          if((cdr(car((V266))))==Cnil){          if(!(((V306))==Cnil)){
1889          goto T1162;}          goto T1159;}
1890            goto T1154;
1891            goto T1159;
1892    T1159:;
1893            if((CMPcdr(CMPcar((V259))))==Cnil){
1894            goto T1163;}
1895          princ_str("\n   goto T",VV[10]);          princ_str("\n   goto T",VV[10]);
1896          (void)((*(LnkLI80))(car(car((V266)))));          (void)((*(LnkLI90))(CMPcar(CMPcar((V259)))));
1897          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1898          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1899          (void)((*(LnkLI80))(car(car((V266)))));          (void)((*(LnkLI90))(CMPcar(CMPcar((V259)))));
1900          princ_str(":;",VV[10]);          princ_str(":;",VV[10]);
1901          goto T1162;          goto T1163;
1902  T1162:;  T1163:;
1903          {object V309;          {object V308;
1904          V309= car((V266));          V308= CMPcar((V259));
1905          V266= cdr((V266));}          V259= CMPcdr((V259));}
1906          (void)((*(LnkLI106))(car((V308)),cadr((V308))));          (void)((*(LnkLI116))(CMPcar((V307)),CMPcadr((V307))));
1907          if((caddr((V308)))==Cnil){          if((CMPcaddr((V307)))==Cnil){
1908          goto T1177;}          goto T1178;}
1909          (void)((*(LnkLI105))(caddr((V308)),Cnil));          (void)((*(LnkLI115))(CMPcaddr((V307)),Cnil));
1910          goto T1177;          goto T1178;
1911  T1177:;  T1178:;
1912          V307= cdr((V307));          V306= CMPcdr((V306));
1913          V308= car((V307));          V307= CMPcar((V306));
1914          goto T1157;}          goto T1158;}
1915          goto T1153;          goto T1154;
1916  T1153:;  T1154:;
1917          if((cdr((V306)))==Cnil){          if((CMPcdr((V305)))==Cnil){
1918          goto T1143;}          goto T1144;}
1919          princ_str("\n   goto T",VV[10]);          princ_str("\n   goto T",VV[10]);
1920          (void)((*(LnkLI80))(car((V306))));          (void)((*(LnkLI90))(CMPcar((V305))));
1921          princ_char(59,VV[10]);          princ_char(59,VV[10]);
1922          princ_str("\nT",VV[10]);          princ_str("\nT",VV[10]);
1923          (void)((*(LnkLI80))(car((V306))));          (void)((*(LnkLI90))(CMPcar((V305))));
1924          princ_str(":;",VV[10]);}          princ_str(":;",VV[10]);}
1925          goto T1143;          goto T1144;
1926  T1143:;  T1144:;
1927          if(((V263))==Cnil){          if(((V256))==Cnil){
1928          goto T1194;}          goto T1195;}
1929          (void)((*(LnkLI103))((V263)));          (void)((*(LnkLI113))((V256)));
1930          goto T1194;          goto T1195;
1931  T1194:;  T1195:;
1932          {register object V310;          {register object V309;
1933          register object V311;          register object V310;
1934          V310= (V264);          V309= (V257);
1935          V311= car((V310));          V310= CMPcar((V309));
         goto T1201;  
 T1201:;  
         if(!(endp_prop((V310)))){  
         goto T1202;}  
         goto T1197;  
1936          goto T1202;          goto T1202;
1937  T1202:;  T1202:;
1938          if(!((caaddr((V311)))==(VV[61]))){          if(!(((V309))==Cnil)){
1939          goto T1208;}          goto T1203;}
1940          if((caddr(caddr((V311))))!=Cnil){          goto T1198;
1941          goto T1208;}          goto T1203;
1942          (void)((*(LnkLI103))(cadr((V311))));  T1203:;
1943          goto T1206;          if(!((CMPcaaddr((V310)))==(VV[61]))){
1944          goto T1208;          goto T1209;}
1945  T1208:;          if((CMPcaddr(CMPcaddr((V310))))!=Cnil){
1946            goto T1209;}
1947            (void)((*(LnkLI113))(CMPcadr((V310))));
1948            goto T1207;
1949            goto T1209;
1950    T1209:;
1951          princ_str("\n   if(",VV[10]);          princ_str("\n   if(",VV[10]);
1952          V312= structure_ref(cadddr((V311)),VV[6],2);          (void)((*(LnkLI119))(STREF(object,CMPcadddr((V310)),8)));
         (void)((*(LnkLI109))(/* INLINE-ARGS */V312));  
1953          princ_str("==Cnil){",VV[10]);          princ_str("==Cnil){",VV[10]);
1954          bds_bind(VV[24],(VV[24]->s.s_dbind));          bds_bind(VV[24],(VV[24]->s.s_dbind));
1955          bds_bind(VV[52],(VV[52]->s.s_dbind));          bds_bind(VV[52],(VV[52]->s.s_dbind));
1956          bds_bind(VV[25],(VV[25]->s.s_dbind));          bds_bind(VV[25],(VV[25]->s.s_dbind));
1957          V313= (*(LnkLI106))(cadr((V311)),caddr((V311)));          V311= (*(LnkLI116))(CMPcadr((V310)),CMPcaddr((V310)));
1958          bds_unwind1;          bds_unwind1;
1959          bds_unwind1;          bds_unwind1;
1960          bds_unwind1;          bds_unwind1;
1961          princ_str("\n   }else{",VV[10]);          princ_str("\n   }else{",VV[10]);
1962          (void)((*(LnkLI103))(cadr((V311))));          (void)((*(LnkLI113))(CMPcadr((V310))));
1963          princ_char(125,VV[10]);          princ_char(125,VV[10]);
1964          goto T1206;          goto T1207;
1965  T1206:;  T1207:;
1966          V314= structure_ref(cadddr((V311)),VV[6],1);          if((STREF(object,CMPcadddr((V310)),4))==(VV[40])){
1967          if((/* INLINE-ARGS */V314)==(VV[40])){          goto T1223;}
1968          goto T1222;}          (void)((*(LnkLI113))(CMPcadddr((V310))));
1969          (void)((*(LnkLI103))(cadddr((V311))));          goto T1223;
1970          goto T1222;  T1223:;
1971  T1222:;          V309= CMPcdr((V309));
1972          V310= cdr((V310));          V310= CMPcar((V309));
1973          V311= car((V310));          goto T1202;}
1974          goto T1201;}          goto T1198;
1975          goto T1197;  T1198:;
1976  T1197:;          base[10]= (V253);
         base[10]= (V260);  
1977          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
1978          (void) (*Lnk107)();          (void) (*Lnk117)();
1979          vs_top=sup;          vs_top=sup;
1980          if((base[9])==Cnil){          if((base[9])==Cnil){
1981          goto T1233;}          goto T1234;}
1982          princ_str("\n   }",VV[10]);          princ_str("\n   }",VV[10]);
1983          {object V315 = Cnil;          {object V312 = Cnil;
1984          bds_unwind1;          bds_unwind1;
1985          bds_unwind1;          bds_unwind1;
1986          bds_unwind1;          bds_unwind1;
1987          bds_unwind1;          bds_unwind1;
1988          VMR14(V315)}          VMR14(V312)}
1989          goto T1233;          goto T1234;
1990  T1233:;  T1234:;
1991          {object V316 = Cnil;          {object V313 = Cnil;
1992          bds_unwind1;          bds_unwind1;
1993          bds_unwind1;          bds_unwind1;
1994          bds_unwind1;          bds_unwind1;
1995          bds_unwind1;          bds_unwind1;
1996          VMR14(V316)}}          VMR14(V313)}}
1997          base[0]=base[0];          base[0]=base[0];
1998          return Cnil;          return Cnil;
1999  }  }
2000  /*      local entry for function NEED-TO-SET-VS-POINTERS        */  /*      local entry for function NEED-TO-SET-VS-POINTERS        */
2001    
2002  static object LI17(V318)  static object LI17(V315)
2003    
2004  object V318;  object V315;
2005  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
2006          goto TTL;          goto TTL;
2007  TTL:;  TTL:;
2008          if(symbol_value(VV[55])!=Cnil){          if((VV[55]->s.s_dbind)!=Cnil){
2009          {object V319 = symbol_value(VV[55]);          {object V316 = (VV[55]->s.s_dbind);
2010          VMR15(V319)}}          VMR15(V316)}}
2011          if(symbol_value(VV[56])!=Cnil){          if((VV[56]->s.s_dbind)!=Cnil){
2012          {object V320 = symbol_value(VV[56]);          {object V317 = (VV[56]->s.s_dbind);
2013          VMR15(V320)}}{object V321;          VMR15(V317)}}{object V318;
2014          V321= cadr((V318));          V318= CMPcadr((V315));
2015          if(V321==Cnil)goto T1236;          if(V318==Cnil)goto T1237;
2016          {object V322 = V321;          {object V319 = V318;
2017            VMR15(V319)}
2018            goto T1237;
2019    T1237:;}{object V320;
2020            V320= CMPcaddr((V315));
2021            if(V320==Cnil)goto T1239;
2022            {object V321 = V320;
2023            VMR15(V321)}
2024            goto T1239;
2025    T1239:;}
2026            {object V322 = CMPcadddr((V315));
2027          VMR15(V322)}          VMR15(V322)}
         goto T1236;  
 T1236:;}{object V323;  
         V323= caddr((V318));  
         if(V323==Cnil)goto T1238;  
         {object V324 = V323;  
         VMR15(V324)}  
         goto T1238;  
 T1238:;}  
         {object V325 = cadddr((V318));  
         VMR15(V325)}  
2028          return Cnil;          return Cnil;
2029  }  }
2030  /*      local entry for function C1DM   */  /*      local entry for function C1DM   */
2031    
2032  static object LI18(V329,V330,V331)  static object LI18(V326,V327,V328)
2033    
2034  object V329;register object V330;register object V331;  object V326;register object V327;register object V328;
2035  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
2036          bds_check;          bds_check;
2037          goto TTL;          goto TTL;
2038  TTL:;  TTL:;
2039          {object V332;          {object V329;
2040          object V333;          object V330;
2041          object V334;          object V331;
2042          object V335;          object V332;
2043          register object V336;          register object V333;
2044          register object V337;          register object V334;
2045          register object V338;          register object V335;
2046          object V339;          object V336;
2047          object V340;          object V337;
2048          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],(VV[53]->s.s_dbind));
2049          V332= Cnil;          V329= Cnil;
2050          V333= Cnil;          V330= Cnil;
2051          V334= symbol_value(VV[31]);          V331= (VV[31]->s.s_dbind);
2052          bds_bind(VV[62],Cnil);          bds_bind(VV[62],Cnil);
2053          bds_bind(VV[63],(VFUN_NARGS=0,(*(LnkLI85))()));          bds_bind(VV[63],(VFUN_NARGS=0,(*(LnkLI95))()));
2054          bds_bind(VV[64],Cnil);          bds_bind(VV[64],Cnil);
2055            V332= Cnil;
2056            V333= Cnil;
2057            V334= Cnil;
2058          V335= Cnil;          V335= Cnil;
2059          V336= Cnil;          V336= Cnil;
2060          V337= Cnil;          V337= Cnil;
2061          V338= Cnil;          base[4]= (V328);
         V339= Cnil;  
         V340= Cnil;  
         base[4]= (V331);  
2062          base[5]= Ct;          base[5]= Ct;
2063          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2064          (void) (*Lnk87)();          (void) (*Lnk97)();
2065          if(vs_base<vs_top){          if(vs_base<vs_top){
2066          V331= vs_base[0];          V328= vs_base[0];
2067          vs_base++;          vs_base++;
2068          }else{          }else{
2069          V331= Cnil;}          V328= Cnil;}
2070          if(vs_base<vs_top){          if(vs_base<vs_top){
2071          V336= vs_base[0];          V333= vs_base[0];
2072          vs_base++;          vs_base++;
2073          }else{          }else{
2074          V336= Cnil;}          V333= Cnil;}
2075          if(vs_base<vs_top){          if(vs_base<vs_top){
2076          V338= vs_base[0];          V335= vs_base[0];
2077          vs_base++;          vs_base++;
2078          }else{          }else{
2079          V338= Cnil;}          V335= Cnil;}
2080          if(vs_base<vs_top){          if(vs_base<vs_top){
2081          V337= vs_base[0];          V334= vs_base[0];
2082          vs_base++;          vs_base++;
2083          }else{          }else{
2084          V337= Cnil;}          V334= Cnil;}
2085          if(vs_base<vs_top){          if(vs_base<vs_top){
2086          V339= vs_base[0];          V336= vs_base[0];
2087          vs_base++;          vs_base++;
2088          }else{          }else{
2089          V339= Cnil;}          V336= Cnil;}
2090          if(vs_base<vs_top){          if(vs_base<vs_top){
2091          V335= vs_base[0];          V332= vs_base[0];
2092          }else{          }else{
2093          V335= Cnil;}          V332= Cnil;}
2094          vs_top=sup;          vs_top=sup;
2095          V341= listA(3,VV[33],(V329),(V331));          V338= listA(3,VV[33],(V326),(V328));
2096          V331= make_cons(/* INLINE-ARGS */V341,Cnil);          V328= make_cons(/* INLINE-ARGS */V338,Cnil);
2097          (void)((*(LnkLI88))((V336)));          (void)((*(LnkLI98))((V333)));
2098          if(!(type_of((V330))==t_cons||((V330))==Cnil)){          if(!(type_of((V327))==t_cons||((V327))==Cnil)){
2099          goto T1257;}          goto T1258;}
2100          if(!((car((V330)))==(VV[65]))){          if(!((CMPcar((V327)))==(VV[65]))){
2101          goto T1257;}          goto T1258;}
2102          {object V342;          {object V339;
2103          V342= cadr((V330));          V339= CMPcadr((V327));
2104          (VV[62]->s.s_dbind)= make_cons((V342),(VV[62]->s.s_dbind));}          (VV[62]->s.s_dbind)= make_cons((V339),(VV[62]->s.s_dbind));}
2105          V332= (*(LnkLI89))(cadr((V330)),(V336),(V337),(V338));          V329= (*(LnkLI99))(CMPcadr((V327)),(V333),(V334),(V335));
2106          (VV[64]->s.s_dbind)= make_cons(V332,(VV[64]->s.s_dbind));          (VV[64]->s.s_dbind)= make_cons(V329,(VV[64]->s.s_dbind));
2107          setq(VV[30],make_cons(V332,symbol_value(VV[30])));          (VV[30]->s.s_dbind)= make_cons(V329,(VV[30]->s.s_dbind));
2108          V330= cddr((V330));          V327= CMPcddr((V327));
2109          goto T1257;          goto T1258;
2110  T1257:;  T1258:;
2111          {register object V345;          {register object V342;
2112          if(type_of((V330))==t_cons||((V330))==Cnil){          if(type_of((V327))==t_cons||((V327))==Cnil){
2113          goto T1274;}          goto T1275;}
2114          V345= Cnil;          V342= Cnil;
         goto T1273;  
2115          goto T1274;          goto T1274;
2116  T1274:;          goto T1275;
2117          {register object V346;  T1275:;
2118          V346= (V330);          {register object V343;
2119          goto T1277;          V343= (V327);
 T1277:;  
         if(type_of((V346))==t_cons){  
         goto T1278;}  
         V345= Cnil;  
         goto T1273;  
2120          goto T1278;          goto T1278;
2121  T1278:;  T1278:;
2122          if(!((VV[66])==(car((V346))))){          if(type_of((V343))==t_cons){
2123          goto T1282;}          goto T1279;}
2124          V345= (V346);          V342= Cnil;
2125          goto T1273;          goto T1274;
2126          goto T1282;          goto T1279;
2127  T1282:;  T1279:;
2128          V346= cdr((V346));          if(!((VV[66])==(CMPcar((V343))))){
2129          goto T1277;}          goto T1283;}
2130          goto T1273;          V342= (V343);
2131  T1273:;          goto T1274;
2132          if(((V345))==Cnil){          goto T1283;
2133          goto T1272;}  T1283:;
2134          {object V347;          V343= CMPcdr((V343));
2135          V347= cadr((V345));          goto T1278;}
2136          (VV[62]->s.s_dbind)= make_cons((V347),(VV[62]->s.s_dbind));}          goto T1274;
2137          V333= (*(LnkLI89))(cadr((V345)),(V336),(V337),(V338));  T1274:;
2138          (VV[64]->s.s_dbind)= make_cons(V333,(VV[64]->s.s_dbind));          if(((V342))==Cnil){
2139          setq(VV[30],make_cons(V333,symbol_value(VV[30])));          goto T1273;}
2140          base[4]= (V330);          {object V344;
2141          base[5]= (V345);          V344= CMPcadr((V342));
2142            (VV[62]->s.s_dbind)= make_cons((V344),(VV[62]->s.s_dbind));}
2143            V330= (*(LnkLI99))(CMPcadr((V342)),(V333),(V334),(V335));
2144            (VV[64]->s.s_dbind)= make_cons(V330,(VV[64]->s.s_dbind));
2145            (VV[30]->s.s_dbind)= make_cons(V330,(VV[30]->s.s_dbind));
2146            base[4]= (V327);
2147            base[5]= (V342);
2148          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2149          Lldiff();          Lldiff();
2150          vs_top=sup;          vs_top=sup;
2151          V350= vs_base[0];          V347= vs_base[0];
2152          V330= append(V350,cddr((V345)));}          V327= append(V347,CMPcddr((V342)));}
2153          goto T1272;          goto T1273;
2154  T1272:;  T1273:;
2155          base[4]= (V330);          base[4]= (V327);
2156          base[5]= (V336);          base[5]= (V333);
2157          base[6]= (V337);          base[6]= (V334);
2158          base[7]= (V338);          base[7]= (V335);
2159          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2160          (void) (*Lnk110)();          (void) (*Lnk120)();
2161          if(vs_base<vs_top){          if(vs_base<vs_top){
2162          V330= vs_base[0];          V327= vs_base[0];
2163          vs_base++;          vs_base++;
2164          }else{          }else{
2165          V330= Cnil;}          V327= Cnil;}
2166          if(vs_base<vs_top){          if(vs_base<vs_top){
2167          V340= vs_base[0];          V337= vs_base[0];
2168          }else{          }else{
2169          V340= Cnil;}          V337= Cnil;}
2170          vs_top=sup;          vs_top=sup;
2171          (void)((*(LnkLI95))((VV[62]->s.s_dbind),(V338),(V337)));          (void)((*(LnkLI105))((VV[62]->s.s_dbind),(V335),(V334)));
2172          V331= (*(LnkLI96))((V339),(V331));{object V351;          V328= (*(LnkLI106))((V336),(V328));{object V348;
2173          V351= (VV[63]->s.s_dbind);          V348= (VV[63]->s.s_dbind);
2174          (void)((*(LnkLI94))(V351,cadr((V331))));}          (void)((*(LnkLI104))(V348,CMPcadr((V328))));}
2175          {object V352;          {object V349;
2176          V352= (eql((V334),symbol_value(VV[31]))?Ct:Cnil);          V349= (eql((V331),(VV[31]->s.s_dbind))?Ct:Cnil);
2177          if(((V352))==Cnil){          if(((V349))==Cnil){
2178          goto T1316;}          goto T1317;}
2179          goto T1313;          goto T1314;
2180          goto T1316;          goto T1317;
2181  T1316:;  T1317:;
2182          (void)(structure_set((VV[63]->s.s_dbind),VV[5],4,Ct));          V350= Ct;
2183          (void)(sputprop((V329),VV[67],Ct));}          STSET(object,(VV[63]->s.s_dbind),16, Ct);
2184          goto T1313;          (void)(Ct);
2185  T1313:;          (void)(sputprop((V326),VV[67],Ct));}
2186          {register object V353;          goto T1314;
2187          register object V354;  T1314:;
2188          V353= (VV[64]->s.s_dbind);          {register object V351;
2189          V354= car((V353));          register object V352;
2190          goto T1323;          V351= (VV[64]->s.s_dbind);
2191  T1323:;          V352= CMPcar((V351));
         if(!(endp_prop((V353)))){  
         goto T1324;}  
         goto T1319;  
2192          goto T1324;          goto T1324;
2193  T1324:;  T1324:;
2194          (void)((*(LnkLI97))((V354)));          if(!(((V351))==Cnil)){
2195          V353= cdr((V353));          goto T1325;}
2196          V354= car((V353));          goto T1320;
2197          goto T1323;}          goto T1325;
2198          goto T1319;  T1325:;
2199  T1319:;          (void)((*(LnkLI107))((V352)));
2200          {object V355 = list(7,(V335),(V340),(V332),(V333),(V330),(V331),(VV[63]->s.s_dbind));          V351= CMPcdr((V351));
2201            V352= CMPcar((V351));
2202            goto T1324;}
2203            goto T1320;
2204    T1320:;
2205            {object V353 = list(7,(V332),(V337),(V329),(V330),(V327),(V328),(VV[63]->s.s_dbind));
2206          bds_unwind1;          bds_unwind1;
2207          bds_unwind1;          bds_unwind1;
2208          bds_unwind1;          bds_unwind1;
2209          bds_unwind1;          bds_unwind1;
2210          VMR16(V355)}}          VMR16(V353)}}
2211          base[0]=base[0];          base[0]=base[0];
2212          return Cnil;          return Cnil;
2213  }  }
# Line 2205  T1319:; Line 2216  T1319:;
2216  static void L19()  static void L19()
2217  {register object *base=vs_base;  {register object *base=vs_base;
2218          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
2219          vs_reserve(VM17);          vs_check;
2220          {register object V356;          {register object V354;
2221            register object V355;
2222            register object V356;
2223          register object V357;          register object V357;
2224          register object V358;          V354=(base[0]);
2225          register object V359;          V355=(base[1]);
2226          check_arg(4);          V356=(base[2]);
2227          V356=(base[0]);          V357=(base[3]);
         V357=(base[1]);  
         V358=(base[2]);  
         V359=(base[3]);  
2228          vs_top=sup;          vs_top=sup;
2229          goto TTL;          goto TTL;
2230  TTL:;  TTL:;
2231          {register object V360;          {register object V358;
2232            object V359;
2233            object V360;
2234          object V361;          object V361;
2235          object V362;          object V362;
2236          object V363;          object V363;
# Line 2230  TTL:; Line 2242  TTL:;
2242          object V369;          object V369;
2243          object V370;          object V370;
2244          object V371;          object V371;
2245          object V372;          V358= Cnil;
2246          object V373;          V359= Cnil;
2247          V360= Cnil;          V360= Cnil;
2248          V361= Cnil;          V361= Cnil;
2249          V362= Cnil;          V362= Cnil;
# Line 2242  TTL:; Line 2254  TTL:;
2254          V367= Cnil;          V367= Cnil;
2255          V368= Cnil;          V368= Cnil;
2256          V369= Cnil;          V369= Cnil;
2257          V370= Cnil;          V370= small_fixnum(0);
2258          V371= Cnil;          V371= Cnil;
2259          V372= small_fixnum(0);          goto T1336;
2260          V373= Cnil;  T1336:;
2261          goto T1335;          if(type_of((V354))==t_cons){
2262  T1335:;          goto T1337;}
2263          if(type_of((V356))==t_cons){          if(((V354))==Cnil){
2264          goto T1336;}          goto T1340;}
2265          if(((V356))==Cnil){          if(((V359))==Cnil){
2266          goto T1339;}          goto T1343;}
         if(((V361))==Cnil){  
         goto T1342;}  
2267          base[4]= VV[68];          base[4]= VV[68];
2268          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2269          (void) (*Lnk111)();          (void) (*Lnk121)();
2270          vs_top=sup;          vs_top=sup;
2271          goto T1342;          goto T1343;
2272  T1342:;  T1343:;
2273          base[4]= (V356);          base[4]= (V354);
2274          base[5]= (V357);          base[5]= (V355);
2275          base[6]= (V358);          base[6]= (V356);
2276          base[7]= (V359);          base[7]= (V357);
2277          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2278          (void) (*Lnk112)();          (void) (*Lnk122)();
2279          vs_top=sup;          vs_top=sup;
2280          V367= vs_base[0];          V365= vs_base[0];
2281          goto T1339;          goto T1340;
2282  T1339:;  T1340:;
2283          V374= reverse((V365));          V372= reverse((V363));
2284          V375= reverse((V366));          V373= reverse((V364));
2285          V376= reverse((V369));          V374= reverse((V367));
2286          base[4]= list(7,/* INLINE-ARGS */V374,/* INLINE-ARGS */V375,(V367),(V368),/* INLINE-ARGS */V376,(V371),reverse((V370)));          base[4]= list(7,/* INLINE-ARGS */V372,/* INLINE-ARGS */V373,(V365),(V366),/* INLINE-ARGS */V374,(V369),reverse((V368)));
2287          base[5]= (V373);          base[5]= (V371);
2288          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2289          return;          return;
2290          goto T1336;          goto T1337;
2291  T1336:;  T1337:;
2292          {register object V377;          {register object V375;
2293          V377= car((V356));          V375= CMPcar((V354));
2294          if(!(((V377))==(VV[69]))){          if(!(((V375))==(VV[69]))){
2295          goto T1357;}          goto T1358;}
2296          if(((V360))==Cnil){          if(((V358))==Cnil){
2297          goto T1359;}          goto T1360;}
2298          base[4]= VV[69];          base[4]= VV[69];
2299          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2300          (void) (*Lnk111)();          (void) (*Lnk121)();
2301          vs_top=sup;          vs_top=sup;
2302          goto T1359;          goto T1360;
2303  T1359:;  T1360:;
2304          V360= Ct;          V358= Ct;
2305          {object V378;          {object V376;
2306          V378= car((V356));          V376= CMPcar((V354));
2307          V356= cdr((V356));          V354= CMPcdr((V354));
2308          goto T1354;}          goto T1355;}
2309          goto T1357;          goto T1358;
2310  T1357:;  T1358:;
2311          if(((V377))==(VV[68])){          if(((V375))==(VV[68])){
         goto T1368;}  
         if(!(((V377))==(VV[70]))){  
2312          goto T1369;}          goto T1369;}
2313          goto T1368;          if(!(((V375))==(VV[70]))){
2314  T1368:;          goto T1370;}
2315          if(((V361))==Cnil){          goto T1369;
2316          goto T1373;}  T1369:;
2317          base[4]= (V377);          if(((V359))==Cnil){
2318            goto T1374;}
2319            base[4]= (V375);
2320          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2321          (void) (*Lnk111)();          (void) (*Lnk121)();
2322          vs_top=sup;          vs_top=sup;
2323          goto T1373;          goto T1374;
2324  T1373:;  T1374:;
2325          base[4]= cadr((V356));          base[4]= CMPcadr((V354));
2326          base[5]= (V357);          base[5]= (V355);
2327          base[6]= (V358);          base[6]= (V356);
2328          base[7]= (V359);          base[7]= (V357);
2329          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2330          (void) (*Lnk112)();          (void) (*Lnk122)();
2331          vs_top=sup;          vs_top=sup;
2332          V367= vs_base[0];          V365= vs_base[0];
2333          V361= Ct;          V359= Ct;
2334          V360= Ct;          V358= Ct;
2335          V356= cddr((V356));          V354= CMPcddr((V354));
2336          if(!(((V377))==(VV[70]))){          if(!(((V375))==(VV[70]))){
2337          goto T1354;}          goto T1355;}
2338          V373= (V372);          V371= (V370);
2339          goto T1354;          goto T1355;
2340          goto T1369;          goto T1370;
2341  T1369:;  T1370:;
2342          if(!(((V377))==(VV[71]))){          if(!(((V375))==(VV[71]))){
2343          goto T1393;}          goto T1394;}
2344          if(((V362))==Cnil){          if(((V360))==Cnil){
2345          goto T1395;}          goto T1396;}
2346          base[4]= VV[71];          base[4]= VV[71];
2347          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2348          (void) (*Lnk111)();          (void) (*Lnk121)();
2349          vs_top=sup;          vs_top=sup;
2350          goto T1395;          goto T1396;
2351  T1395:;  T1396:;
         V362= Ct;  
         V361= Ct;  
2352          V360= Ct;          V360= Ct;
2353          V368= Ct;          V359= Ct;
2354          {object V379;          V358= Ct;
2355          V379= car((V356));          V366= Ct;
2356          V356= cdr((V356));          {object V377;
2357          goto T1354;}          V377= CMPcar((V354));
2358          goto T1393;          V354= CMPcdr((V354));
2359  T1393:;          goto T1355;}
2360          if(!(((V377))==(VV[72]))){          goto T1394;
2361          goto T1411;}  T1394:;
2362          if(((V362))==Cnil){          if(!(((V375))==(VV[72]))){
2363            goto T1412;}
2364            if(((V360))==Cnil){
2365            goto T1415;}
2366            if(((V361))==Cnil){
2367          goto T1414;}          goto T1414;}
2368          if(((V363))==Cnil){          goto T1415;
2369          goto T1413;}  T1415:;
         goto T1414;  
 T1414:;  
2370          base[4]= VV[72];          base[4]= VV[72];
2371          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2372          (void) (*Lnk111)();          (void) (*Lnk121)();
2373          vs_top=sup;          vs_top=sup;
2374          goto T1413;          goto T1414;
2375  T1413:;  T1414:;
2376          V363= Ct;          V361= Ct;
2377          V371= Ct;          V369= Ct;
2378          {object V380;          {object V378;
2379          V380= car((V356));          V378= CMPcar((V354));
2380          V356= cdr((V356));          V354= CMPcdr((V354));
2381          goto T1354;}          goto T1355;}
2382          goto T1411;          goto T1412;
2383  T1411:;  T1412:;
2384          if(!(((V377))==(VV[73]))){          if(!(((V375))==(VV[73]))){
2385          goto T1427;}          goto T1428;}
2386          if(((V364))==Cnil){          if(((V362))==Cnil){
2387          goto T1429;}          goto T1430;}
2388          base[4]= VV[73];          base[4]= VV[73];
2389          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2390          (void) (*Lnk111)();          (void) (*Lnk121)();
2391          vs_top=sup;          vs_top=sup;
2392          goto T1429;          goto T1430;
2393  T1429:;  T1430:;
         V364= Ct;  
         V363= Ct;  
2394          V362= Ct;          V362= Ct;
2395          V361= Ct;          V361= Ct;
2396          V360= Ct;          V360= Ct;
2397          {object V381;          V359= Ct;
2398          V381= car((V356));          V358= Ct;
2399          V356= cdr((V356));          {object V379;
2400          goto T1354;}          V379= CMPcar((V354));
2401          goto T1427;          V354= CMPcdr((V354));
2402  T1427:;          goto T1355;}
2403          if(((V364))==Cnil){          goto T1428;
2404          goto T1447;}  T1428:;
2405            if(((V362))==Cnil){
2406            goto T1448;}
2407            {object V380;
2408            object V381;
2409            V380= Cnil;
2410            V381= Cnil;
2411            if(!(type_of((V375))==t_symbol)){
2412            goto T1453;}
2413            V380= (V375);
2414            V381= (*(LnkLI123))();
2415            goto T1451;
2416            goto T1453;
2417    T1453:;
2418            V380= CMPcar((V375));
2419            if(!((CMPcdr((V375)))==Cnil)){
2420            goto T1461;}
2421            V381= (*(LnkLI123))();
2422            goto T1451;
2423            goto T1461;
2424    T1461:;
2425            V381= (*(LnkLI101))(CMPcadr((V375)),(VV[63]->s.s_dbind));
2426            goto T1451;
2427    T1451:;
2428          {object V382;          {object V382;
2429          object V383;          base[5]= (V380);
2430          V382= Cnil;          base[6]= (V355);
2431          V383= Cnil;          base[7]= (V356);
2432          if(!(type_of((V377))==t_symbol)){          base[8]= (V357);
         goto T1452;}  
         V382= (V377);  
         V383= (*(LnkLI113))();  
         goto T1450;  
         goto T1452;  
 T1452:;  
         V382= car((V377));  
         if(!(endp_prop(cdr((V377))))){  
         goto T1460;}  
         V383= (*(LnkLI113))();  
         goto T1450;  
         goto T1460;  
 T1460:;  
         V383= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63]));  
         goto T1450;  
 T1450:;  
         {object V384;  
         base[5]= (V382);  
         base[6]= (V357);  
         base[7]= (V358);  
         base[8]= (V359);  
2433          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2434          (void) (*Lnk112)();          (void) (*Lnk122)();
2435          vs_top=sup;          vs_top=sup;
2436          V385= vs_base[0];          V383= vs_base[0];
2437          V384= list(2,V385,(V383));          V382= list(2,V383,(V381));
2438          V370= make_cons((V384),(V370));}}          V368= make_cons((V382),(V368));}}
2439          {object V386;          {object V384;
2440          V386= car((V356));          V384= CMPcar((V354));
2441          V356= cdr((V356));          V354= CMPcdr((V354));
2442          goto T1354;}          goto T1355;}
2443          goto T1447;          goto T1448;
2444  T1447:;  T1448:;
2445          if(((V362))==Cnil){          if(((V360))==Cnil){
2446          goto T1475;}          goto T1476;}
2447          {object V387;          {object V385;
2448            object V386;
2449            object V387;
2450          object V388;          object V388;
2451          object V389;          V385= Cnil;
2452          object V390;          V386= Cnil;
2453          V387= Cnil;          V387= Cnil;
2454          V388= Cnil;          V388= Cnil;
2455          V389= Cnil;          if(!(type_of((V375))==t_symbol)){
2456          V390= Cnil;          goto T1481;}
2457          if(!(type_of((V377))==t_symbol)){          V385= (V375);
2458          goto T1480;}          base[4]= coerce_to_string((V375));
         V387= (V377);  
         base[4]= coerce_to_string((V377));  
2459          base[5]= VV[38];          base[5]= VV[38];
2460          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2461          Lintern();          Lintern();
2462          vs_top=sup;          vs_top=sup;
2463          V388= vs_base[0];          V386= vs_base[0];
2464          V389= (*(LnkLI113))();          V387= (*(LnkLI123))();
2465          goto T1478;          goto T1479;
2466          goto T1480;          goto T1481;
2467  T1480:;  T1481:;
2468          if(!(type_of(car((V377)))==t_symbol)){          if(!(type_of(CMPcar((V375)))==t_symbol)){
2469          goto T1491;}          goto T1492;}
2470          V387= car((V377));          V385= CMPcar((V375));
2471          base[4]= coerce_to_string(car((V377)));          base[4]= coerce_to_string(CMPcar((V375)));
2472          base[5]= VV[38];          base[5]= VV[38];
2473          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2474          Lintern();          Lintern();
2475          vs_top=sup;          vs_top=sup;
2476          V388= vs_base[0];          V386= vs_base[0];
2477          goto T1489;          goto T1490;
2478          goto T1491;          goto T1492;
2479  T1491:;  T1492:;
2480          V387= cadar((V377));          V385= CMPcadar((V375));
2481          V388= caar((V377));          V386= CMPcaar((V375));
2482          goto T1489;          goto T1490;
2483  T1489:;  T1490:;
2484          if(!(endp_prop(cdr((V377))))){          if(!((CMPcdr((V375)))==Cnil)){
2485          goto T1502;}          goto T1503;}
2486          V389= (*(LnkLI113))();          V387= (*(LnkLI123))();
2487          goto T1478;          goto T1479;
2488          goto T1502;          goto T1503;
2489  T1502:;  T1503:;
2490          V389= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63]));          V387= (*(LnkLI101))(CMPcadr((V375)),(VV[63]->s.s_dbind));
2491          if(endp_prop(cddr((V377)))){          if((CMPcddr((V375)))==Cnil){
2492          goto T1478;}          goto T1479;}
2493          V390= caddr((V377));          V388= CMPcaddr((V375));
2494          goto T1478;          goto T1479;
2495  T1478:;  T1479:;
2496          {object V391;          {object V389;
2497          base[5]= (V387);          base[5]= (V385);
2498          base[6]= (V357);          base[6]= (V355);
2499          base[7]= (V358);          base[7]= (V356);
2500          base[8]= (V359);          base[8]= (V357);
2501          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2502          (void) (*Lnk112)();          (void) (*Lnk122)();
2503          vs_top=sup;          vs_top=sup;
2504          V392= vs_base[0];          V390= vs_base[0];
2505          if(((V390))==Cnil){          if(((V388))==Cnil){
2506          goto T1518;}          goto T1519;}
2507          base[5]= (V390);          base[5]= (V388);
2508          base[6]= (V357);          base[6]= (V355);
2509          base[7]= (V358);          base[7]= (V356);
2510          base[8]= (V359);          base[8]= (V357);
2511          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2512          (void) (*Lnk112)();          (void) (*Lnk122)();
2513          vs_top=sup;          vs_top=sup;
2514          V393= vs_base[0];          V391= vs_base[0];
2515          goto T1516;          goto T1517;
2516          goto T1518;          goto T1519;
2517  T1518:;  T1519:;
2518            V391= Cnil;
2519            goto T1517;
2520    T1517:;
2521            V389= list(4,(V386),V390,(V387),V391);
2522            V367= make_cons((V389),(V367));}}
2523            {object V392;
2524            V392= CMPcar((V354));
2525            V354= CMPcdr((V354));
2526            goto T1355;}
2527            goto T1476;
2528    T1476:;
2529            if(((V358))==Cnil){
2530            goto T1530;}
2531            {object V393;
2532            object V394;
2533            object V395;
2534          V393= Cnil;          V393= Cnil;
2535          goto T1516;          V394= Cnil;
 T1516:;  
         V391= list(4,(V388),V392,(V389),V393);  
         V369= make_cons((V391),(V369));}}  
         {object V394;  
         V394= car((V356));  
         V356= cdr((V356));  
         goto T1354;}  
         goto T1475;  
 T1475:;  
         if(((V360))==Cnil){  
         goto T1529;}  
         {object V395;  
         object V396;  
         object V397;  
2536          V395= Cnil;          V395= Cnil;
2537          V396= Cnil;          if(!(type_of((V375))==t_symbol)){
2538          V397= Cnil;          goto T1535;}
2539          if(!(type_of((V377))==t_symbol)){          V393= (V375);
2540          goto T1534;}          V394= (*(LnkLI123))();
2541          V395= (V377);          goto T1533;
2542          V396= (*(LnkLI113))();          goto T1535;
2543          goto T1532;  T1535:;
2544          goto T1534;          V393= CMPcar((V375));
2545  T1534:;          if(!((CMPcdr((V375)))==Cnil)){
2546          V395= car((V377));          goto T1543;}
2547          if(!(endp_prop(cdr((V377))))){          V394= (*(LnkLI123))();
2548          goto T1542;}          goto T1533;
2549          V396= (*(LnkLI113))();          goto T1543;
2550          goto T1532;  T1543:;
2551          goto T1542;          V394= (*(LnkLI101))(CMPcadr((V375)),(VV[63]->s.s_dbind));
2552  T1542:;          if((CMPcddr((V375)))==Cnil){
2553          V396= (*(LnkLI91))(cadr((V377)),symbol_value(VV[63]));          goto T1533;}
2554          if(endp_prop(cddr((V377)))){          V395= CMPcaddr((V375));
2555          goto T1532;}          goto T1533;
2556          V397= caddr((V377));  T1533:;
2557          goto T1532;          {object V396;
2558  T1532:;          base[5]= (V393);
2559          {object V398;          base[6]= (V355);
2560            base[7]= (V356);
2561            base[8]= (V357);
2562            vs_top=(vs_base=base+5)+4;
2563            (void) (*Lnk122)();
2564            vs_top=sup;
2565            V397= vs_base[0];
2566            if(((V395))==Cnil){
2567            goto T1559;}
2568          base[5]= (V395);          base[5]= (V395);
2569          base[6]= (V357);          base[6]= (V355);
2570          base[7]= (V358);          base[7]= (V356);
2571          base[8]= (V359);          base[8]= (V357);
2572          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2573          (void) (*Lnk112)();          (void) (*Lnk122)();
2574          vs_top=sup;          vs_top=sup;
2575          V399= vs_base[0];          V398= vs_base[0];
2576          if(((V397))==Cnil){          goto T1557;
2577          goto T1558;}          goto T1559;
2578          base[5]= (V397);  T1559:;
2579          base[6]= (V357);          V398= Cnil;
2580          base[7]= (V358);          goto T1557;
2581          base[8]= (V359);  T1557:;
2582            V396= list(3,V397,(V394),V398);
2583            V364= make_cons((V396),(V364));}}
2584            {object V399;
2585            V399= CMPcar((V354));
2586            V354= CMPcdr((V354));}
2587            V370= number_plus((V370),small_fixnum(1));
2588            goto T1355;
2589            goto T1530;
2590    T1530:;
2591            {object V400;
2592            base[5]= (V375);
2593            base[6]= (V355);
2594            base[7]= (V356);
2595            base[8]= (V357);
2596          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2597          (void) (*Lnk112)();          (void) (*Lnk122)();
2598          vs_top=sup;          vs_top=sup;
2599          V400= vs_base[0];          V400= vs_base[0];
2600          goto T1556;          V363= make_cons((V400),(V363));}
         goto T1558;  
 T1558:;  
         V400= Cnil;  
         goto T1556;  
 T1556:;  
         V398= list(3,V399,(V396),V400);  
         V366= make_cons((V398),(V366));}}  
2601          {object V401;          {object V401;
2602          V401= car((V356));          V401= CMPcar((V354));
2603          V356= cdr((V356));}          V354= CMPcdr((V354));}
2604          V372= number_plus((V372),small_fixnum(1));          V370= number_plus((V370),small_fixnum(1));}
2605          goto T1354;          goto T1355;
2606          goto T1529;  T1355:;
2607  T1529:;          goto T1336;}
         {object V402;  
         base[5]= (V377);  
         base[6]= (V357);  
         base[7]= (V358);  
         base[8]= (V359);  
         vs_top=(vs_base=base+5)+4;  
         (void) (*Lnk112)();  
         vs_top=sup;  
         V402= vs_base[0];  
         V365= make_cons((V402),(V365));}  
         {object V403;  
         V403= car((V356));  
         V356= cdr((V356));}  
         V372= number_plus((V372),small_fixnum(1));}  
         goto T1354;  
 T1354:;  
         goto T1335;}  
2608          }          }
2609  }  }
2610  /*      function definition for C1DM-V  */  /*      function definition for C1DM-V  */
# Line 2602  T1354:; Line 2612  T1354:;
2612  static void L20()  static void L20()
2613  {register object *base=vs_base;  {register object *base=vs_base;
2614          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
2615          vs_reserve(VM18);          vs_check;
2616          {register object V404;          {register object V402;
2617            object V403;
2618            object V404;
2619          object V405;          object V405;
2620          object V406;          V402=(base[0]);
2621          object V407;          V403=(base[1]);
2622          check_arg(4);          V404=(base[2]);
2623          V404=(base[0]);          V405=(base[3]);
         V405=(base[1]);  
         V406=(base[2]);  
         V407=(base[3]);  
2624          vs_top=sup;          vs_top=sup;
2625          goto TTL;          goto TTL;
2626  TTL:;  TTL:;
2627          if(!(type_of((V404))==t_symbol)){          if(!(type_of((V402))==t_symbol)){
2628          goto T1585;}          goto T1586;}
2629          setq(VV[62],make_cons(V404,symbol_value(VV[62])));          (VV[62]->s.s_dbind)= make_cons(V402,(VV[62]->s.s_dbind));
2630          V404= (*(LnkLI89))((V404),(V405),(V406),(V407));          V402= (*(LnkLI99))((V402),(V403),(V404),(V405));
2631          setq(VV[30],make_cons(V404,symbol_value(VV[30])));          (VV[30]->s.s_dbind)= make_cons(V402,(VV[30]->s.s_dbind));
2632          setq(VV[64],make_cons(V404,symbol_value(VV[64])));          (VV[64]->s.s_dbind)= make_cons(V402,(VV[64]->s.s_dbind));
2633          base[4]= (V404);          base[4]= (V402);
2634          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2635          return;          return;
2636          goto T1585;          goto T1586;
2637  T1585:;  T1586:;
2638          base[4]= (V404);          base[4]= (V402);
2639          base[5]= (V405);          base[5]= (V403);
2640          base[6]= (V406);          base[6]= (V404);
2641          base[7]= (V407);          base[7]= (V405);
2642          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2643          (void) (*Lnk110)();          (void) (*Lnk120)();
2644          return;          return;
2645          }          }
2646  }  }
2647  /*      local entry for function C1DM-BAD-KEY   */  /*      local entry for function C1DM-BAD-KEY   */
2648    
2649  static object LI21(V412)  static object LI21(V410)
2650    
2651  object V412;  object V410;
2652  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
2653          goto TTL;          goto TTL;
2654  TTL:;  TTL:;
2655          {object V413 = (VFUN_NARGS=2,(*(LnkLI86))(VV[74],(V412)));          {object V411 = (VFUN_NARGS=2,(*(LnkLI96))(VV[74],(V410)));
2656          VMR19(V413)}          VMR19(V411)}
2657          return Cnil;          return Cnil;
2658  }  }
2659  /*      function definition for C2DM    */  /*      macro definition for MAYBE-WT-C2DM-BIND-VL      */
2660    
2661  static void L22()  static void L22()
2662  {register object *base=vs_base;  {register object *base=vs_base;
2663          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
2664          vs_reserve(VM20);          vs_check;
2665            vs_top=sup;
2666            {object V412=base[0]->c.c_cdr;
2667            base[2]= (V412->c.c_car);
2668            V412=V412->c.c_cdr;
2669            base[3]= (V412->c.c_car);
2670            V412=V412->c.c_cdr;
2671            base[4]= (V412->c.c_car);
2672            V412=V412->c.c_cdr;
2673            base[5]= (V412->c.c_car);}
2674            V413= list(3,VV[78],base[2],base[3]);
2675            base[6]= list(4,VV[75],VV[76],base[4],list(4,VV[75],VV[77],/* INLINE-ARGS */V413,list(4,VV[79],VV[80],VV[81],base[5])));
2676            vs_top=(vs_base=base+6)+1;
2677            return;
2678    }
2679    /*      function definition for C2DM    */
2680    
2681    static void L23()
2682    {register object *base=vs_base;
2683            register object *sup=base+VM21; VC21
2684            vs_check;
2685          {register object V414;          {register object V414;
2686          register object V415;          register object V415;
2687          object V416;          object V416;
2688          object V417;          object V417;
         check_arg(4);  
2689          V414=(base[0]);          V414=(base[0]);
2690          V415=(base[1]);          V415=(base[1]);
2691          V416=(base[2]);          V416=(base[2]);
# Line 2666  static void L22() Line 2694  static void L22()
2694          goto TTL;          goto TTL;
2695  TTL:;  TTL:;
2696          {object V418;          {object V418;
2697          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          (VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1));
2698          V418= symbol_value(VV[54]);          V418= (VV[54]->s.s_dbind);
2699          if((symbol_value(VV[55]))!=Cnil){          if(((VV[55]->s.s_dbind))!=Cnil){
2700            goto T1603;}
2701            if(((VV[56]->s.s_dbind))==Cnil){
2702          goto T1602;}          goto T1602;}
2703          if((symbol_value(VV[56]))==Cnil){          goto T1603;
2704          goto T1601;}  T1603:;
2705            princ_str("\n   check_arg(2);",VV[10]);
2706          goto T1602;          goto T1602;
2707  T1602:;  T1602:;
         princ_str("\n   check_arg(2);",VV[10]);  
         goto T1601;  
 T1601:;  
2708          if(((V414))==Cnil){          if(((V414))==Cnil){
2709          goto T1609;}          goto T1610;}
2710          V419= (*(LnkLI102))();          V419= (*(LnkLI112))();
2711          (void)(structure_set((V414),VV[6],2,/* INLINE-ARGS */V419));          V420= Ct;
2712          goto T1607;          STSET(object,(V414),8, /* INLINE-ARGS */V419);
2713          goto T1609;          (void)(/* INLINE-ARGS */V419);
2714  T1609:;          goto T1608;
2715          (void)((*(LnkLI102))());          goto T1610;
2716          goto T1607;  T1610:;
2717  T1607:;          (void)((*(LnkLI112))());
2718            goto T1608;
2719    T1608:;
2720          if(((V415))==Cnil){          if(((V415))==Cnil){
2721          goto T1613;}          goto T1614;}
2722          V420= (*(LnkLI102))();          V421= (*(LnkLI112))();
2723          (void)(structure_set((V415),VV[6],2,/* INLINE-ARGS */V420));          V422= Ct;
2724          goto T1611;          STSET(object,(V415),8, /* INLINE-ARGS */V421);
2725          goto T1613;          (void)(/* INLINE-ARGS */V421);
2726  T1613:;          goto T1612;
2727          (void)((*(LnkLI102))());          goto T1614;
2728          goto T1611;  T1614:;
2729  T1611:;          (void)((*(LnkLI112))());
2730          (void)((*(LnkLI114))((V416)));          goto T1612;
2731    T1612:;
2732            (void)((*(LnkLI124))((V416)));
2733          princ_str("\n   vs_top=sup;",VV[10]);          princ_str("\n   vs_top=sup;",VV[10]);
2734          if(((V414))==Cnil){          if(((V414))==Cnil){
2735          goto T1618;}          goto T1619;}
2736          (void)((*(LnkLI103))((V414)));          (void)((*(LnkLI113))((V414)));
2737          goto T1618;          goto T1619;
2738  T1618:;  T1619:;
2739          if(((V415))==Cnil){          if(((V415))==Cnil){
2740          goto T1621;}          goto T1622;}
2741          (void)((*(LnkLI103))((V415)));          (void)((*(LnkLI113))((V415)));
2742          goto T1621;          goto T1622;
2743  T1621:;  T1622:;
2744            {object V423;
2745            base[5]= (VV[10]->s.s_dbind);
2746            vs_top=(vs_base=base+5)+1;
2747            Lfile_position();
2748            vs_top=sup;
2749            V423= vs_base[0];
2750          princ_str("\n   {object V",VV[10]);          princ_str("\n   {object V",VV[10]);
2751          (void)((*(LnkLI80))((V418)));          (void)((*(LnkLI90))((V418)));
2752          princ_str("=base[0]->c.c_cdr;",VV[10]);          princ_str("=base[0]->c.c_cdr;",VV[10]);
2753          (void)((*(LnkLI115))((V416),(V418)));          {object V424;
2754          princ_char(125,VV[10]);          base[5]= (VV[10]->s.s_dbind);
2755            vs_top=(vs_base=base+5)+1;
2756            Lfile_position();
2757            vs_top=sup;
2758            V424= vs_base[0];
2759            base[5]= (V416);
2760            base[6]= (V418);
2761            vs_top=(vs_base=base+5)+2;
2762            (void) (*Lnk78)();
2763            vs_top=sup;
2764            base[5]= (VV[10]->s.s_dbind);
2765            vs_top=(vs_base=base+5)+1;
2766            Lfile_position();
2767            vs_top=sup;
2768            V425= vs_base[0];
2769            if(!(eql((V424),V425))){
2770            goto T1638;}
2771            base[5]= (VV[10]->s.s_dbind);
2772            base[6]= (V423);
2773            vs_top=(vs_base=base+5)+2;
2774            Lfile_position();
2775            vs_top=sup;
2776            goto T1625;
2777            goto T1638;
2778    T1638:;
2779            princ_char(125,VV[10]);}}
2780            goto T1625;
2781    T1625:;
2782          base[5]= (V417);          base[5]= (V417);
2783          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2784          (void) (*Lnk107)();          (void) (*Lnk117)();
2785          return;}          return;}
2786          }          }
2787  }  }
2788  /*      local entry for function C2DM-RESERVE-VL        */  /*      local entry for function C2DM-RESERVE-VL        */
2789    
2790  static object LI23(V422)  static object LI24(V427)
2791    
2792  object V422;  object V427;
2793  {        VMB21 VMS21 VMV21  {        VMB22 VMS22 VMV22
2794          goto TTL;          goto TTL;
2795  TTL:;  TTL:;
2796          {register object V423;          {register object V428;
2797          object V424;          object V429;
2798          V423= car((V422));          V428= CMPcar((V427));
2799          V424= car((V423));          V429= CMPcar((V428));
2800          goto T1636;          goto T1650;
2801  T1636:;  T1650:;
2802          if(!(endp_prop((V423)))){          if(!(((V428))==Cnil)){
2803          goto T1637;}          goto T1651;}
2804          goto T1632;          goto T1646;
         goto T1637;  
 T1637:;  
         (void)((*(LnkLI116))((V424)));  
         V423= cdr((V423));  
         V424= car((V423));  
         goto T1636;}  
         goto T1632;  
 T1632:;  
         {register object V425;  
         register object V426;  
         V425= cadr((V422));  
         V426= car((V425));  
2805          goto T1651;          goto T1651;
2806  T1651:;  T1651:;
2807          if(!(endp_prop((V425)))){          (void)((*(LnkLI125))((V429)));
2808          goto T1652;}          V428= CMPcdr((V428));
2809          goto T1647;          V429= CMPcar((V428));
2810          goto T1652;          goto T1650;}
2811  T1652:;          goto T1646;
2812          (void)((*(LnkLI116))(car((V426))));  T1646:;
2813          if((caddr((V426)))==Cnil){          {register object V430;
2814          goto T1657;}          register object V431;
2815          (void)((*(LnkLI116))(caddr((V426))));          V430= CMPcadr((V427));
2816          goto T1657;          V431= CMPcar((V430));
 T1657:;  
         V425= cdr((V425));  
         V426= car((V425));  
         goto T1651;}  
         goto T1647;  
 T1647:;  
         if((caddr((V422)))==Cnil){  
         goto T1665;}  
         (void)((*(LnkLI116))(caddr((V422))));  
2817          goto T1665;          goto T1665;
2818  T1665:;  T1665:;
2819          {register object V427;          if(!(((V430))==Cnil)){
2820          register object V428;          goto T1666;}
2821          V427= car(cddddr((V422)));          goto T1661;
2822          V428= car((V427));          goto T1666;
2823          goto T1672;  T1666:;
2824  T1672:;          (void)((*(LnkLI125))(CMPcar((V431))));
2825          if(!(endp_prop((V427)))){          if((CMPcaddr((V431)))==Cnil){
2826          goto T1673;}          goto T1671;}
2827          goto T1668;          (void)((*(LnkLI125))(CMPcaddr((V431))));
2828          goto T1673;          goto T1671;
2829  T1673:;  T1671:;
2830          (void)((*(LnkLI116))(cadr((V428))));          V430= CMPcdr((V430));
2831          if((cadddr((V428)))==Cnil){          V431= CMPcar((V430));
2832          goto T1678;}          goto T1665;}
2833          (void)((*(LnkLI116))(cadddr((V428))));          goto T1661;
2834          goto T1678;  T1661:;
2835  T1678:;          if((CMPcaddr((V427)))==Cnil){
2836          V427= cdr((V427));          goto T1679;}
2837          V428= car((V427));          (void)((*(LnkLI125))(CMPcaddr((V427))));
2838          goto T1672;}          goto T1679;
2839          goto T1668;  T1679:;
2840  T1668:;          {register object V432;
2841          {register object V429;          register object V433;
2842          object V430;          V432= CMPcar(CMPcddddr((V427)));
2843          V429= caddr(cddddr((V422)));          V433= CMPcar((V432));
2844          V430= car((V429));          goto T1686;
2845          goto T1689;  T1686:;
2846  T1689:;          if(!(((V432))==Cnil)){
2847          if(!(endp_prop((V429)))){          goto T1687;}
2848          goto T1690;}          goto T1682;
2849          {object V431 = Cnil;          goto T1687;
2850          VMR21(V431)}  T1687:;
2851          goto T1690;          (void)((*(LnkLI125))(CMPcadr((V433))));
2852  T1690:;          if((CMPcadddr((V433)))==Cnil){
2853          (void)((*(LnkLI116))(car((V430))));          goto T1692;}
2854          V429= cdr((V429));          (void)((*(LnkLI125))(CMPcadddr((V433))));
2855          V430= car((V429));          goto T1692;
2856          goto T1689;}  T1692:;
2857            V432= CMPcdr((V432));
2858            V433= CMPcar((V432));
2859            goto T1686;}
2860            goto T1682;
2861    T1682:;
2862            {register object V434;
2863            object V435;
2864            V434= CMPcaddr(CMPcddddr((V427)));
2865            V435= CMPcar((V434));
2866            goto T1703;
2867    T1703:;
2868            if(!(((V434))==Cnil)){
2869            goto T1704;}
2870            {object V436 = Cnil;
2871            VMR22(V436)}
2872            goto T1704;
2873    T1704:;
2874            (void)((*(LnkLI125))(CMPcar((V435))));
2875            V434= CMPcdr((V434));
2876            V435= CMPcar((V434));
2877            goto T1703;}
2878          base[0]=base[0];          base[0]=base[0];
2879          return Cnil;          return Cnil;
2880  }  }
2881  /*      local entry for function C2DM-RESERVE-V */  /*      local entry for function C2DM-RESERVE-V */
2882    
2883  static object LI24(V433)  static object LI25(V438)
2884    
2885  object V433;  object V438;
2886  {        VMB22 VMS22 VMV22  {        VMB23 VMS23 VMV23
2887          goto TTL;          goto TTL;
2888  TTL:;  TTL:;
2889          if(!(type_of((V433))==t_cons)){          if(!(type_of((V438))==t_cons)){
2890          goto T1701;}          goto T1715;}
2891          {object V434 = (*(LnkLI114))((V433));          {object V439 = (*(LnkLI124))((V438));
2892          VMR22(V434)}          VMR23(V439)}
2893          goto T1701;          goto T1715;
2894  T1701:;  T1715:;
2895          V435= (*(LnkLI102))();          V440= (*(LnkLI112))();
2896          {object V436 = structure_set((V433),VV[6],2,/* INLINE-ARGS */V435);          V441= Ct;
2897          VMR22(V436)}          STSET(object,(V438),8, /* INLINE-ARGS */V440);
2898            {object V442 = /* INLINE-ARGS */V440;
2899            VMR23(V442)}
2900          return Cnil;          return Cnil;
2901  }  }
2902  /*      local entry for function C2DM-BIND-VL   */  /*      macro definition for WT-OR-REPORT-REF   */
2903    
2904  static object LI25(V439,V440)  static void L26()
2905    {register object *base=vs_base;
2906            register object *sup=base+VM24; VC24
2907            vs_check;
2908            vs_top=sup;
2909            {object V443=base[0]->c.c_cdr;
2910            base[2]= V443;}
2911            base[3]= list(3,VV[82],VV[83],make_cons(VV[84],base[2]));
2912            vs_top=(vs_base=base+3)+1;
2913            return;
2914    }
2915    /*      function definition for C2DM-BIND-VL    */
2916    
2917  object V439;register object V440;  static void L27()
2918  {        VMB23 VMS23 VMV23  {register object *base=vs_base;
2919            register object *sup=base+VM25; VC25
2920            vs_check;
2921          bds_check;          bds_check;
2922            {object V444;
2923            register object V445;
2924            V444=(base[0]);
2925            V445=(base[1]);
2926            vs_top=sup;
2927          goto TTL;          goto TTL;
2928  TTL:;  TTL:;
2929          {object V441;          {object V446;
         object V442;  
         object V443;  
         object V444;  
         object V445;  
         object V446;  
2930          object V447;          object V447;
2931          V441= car((V439));          object V448;
2932          V442= cadr((V439));          object V449;
2933          V443= caddr((V439));          object V450;
2934          V444= cadddr((V439));          object V451;
2935          V445= car(cddddr((V439)));          object V452;
2936          V446= cadr(cddddr((V439)));          V446= CMPcar((V444));
2937          V447= caddr(cddddr((V439)));          V447= CMPcadr((V444));
2938          {register object V448;          V448= CMPcaddr((V444));
2939          V448= (V441);          V449= CMPcadddr((V444));
2940          goto T1712;          V450= CMPcar(CMPcddddr((V444)));
2941  T1712:;          V451= CMPcadr(CMPcddddr((V444)));
2942          if(!(endp_prop((V448)))){          V452= CMPcaddr(CMPcddddr((V444)));
2943          goto T1713;}          {register object V453;
2944          goto T1710;          V453= (V446);
2945          goto T1713;          goto T1726;
2946  T1713:;  T1726:;
2947          if((symbol_value(VV[55]))!=Cnil){          if(!(((V453))==Cnil)){
         goto T1718;}  
         if((symbol_value(VV[56]))==Cnil){  
         goto T1717;}  
         goto T1718;  
 T1718:;  
         princ_str("\n   if(endp(V",VV[10]);  
         (void)((*(LnkLI80))((V440)));  
         princ_str("))invalid_macro_call();",VV[10]);  
         goto T1717;  
 T1717:;  
         V449= car((V448));  
         V450= list(2,VV[75],(V440));  
         (void)((*(LnkLI117))(/* INLINE-ARGS */V449,/* INLINE-ARGS */V450));  
         if((cdr((V448)))!=Cnil){  
         goto T1727;}  
         if(((V442))!=Cnil){  
         goto T1727;}  
         if(((V443))!=Cnil){  
         goto T1727;}  
         if(((V444))!=Cnil){  
         goto T1727;}  
         if((symbol_value(VV[55]))!=Cnil){  
2948          goto T1727;}          goto T1727;}
2949          if((symbol_value(VV[56]))==Cnil){          goto T1724;
         goto T1726;}  
2950          goto T1727;          goto T1727;
2951  T1727:;  T1727:;
2952            if(((VV[55]->s.s_dbind))!=Cnil){
2953            goto T1732;}
2954            if(((VV[56]->s.s_dbind))==Cnil){
2955            goto T1731;}
2956            goto T1732;
2957    T1732:;
2958            princ_str("\n   if(endp(V",VV[10]);
2959            (void)((*(LnkLI90))((V445)));
2960            princ_str("))invalid_macro_call();",VV[10]);
2961            goto T1731;
2962    T1731:;
2963            V454= CMPcar((V453));
2964            V455= list(2,VV[85],(V445));
2965            (void)((*(LnkLI126))(/* INLINE-ARGS */V454,/* INLINE-ARGS */V455));
2966            if((CMPcdr((V453)))!=Cnil){
2967            goto T1741;}
2968            if(((V447))!=Cnil){
2969            goto T1741;}
2970            if(((V448))!=Cnil){
2971            goto T1741;}
2972            if(((V449))!=Cnil){
2973            goto T1741;}
2974            if(((VV[55]->s.s_dbind))!=Cnil){
2975            goto T1741;}
2976            if(((VV[56]->s.s_dbind))==Cnil){
2977            goto T1740;}
2978            goto T1741;
2979    T1741:;
2980          princ_str("\n   V",VV[10]);          princ_str("\n   V",VV[10]);
2981          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI90))((V445)));
2982          princ_str("=V",VV[10]);          princ_str("=V",VV[10]);
2983          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI90))((V445)));
2984          princ_str("->c.c_cdr;",VV[10]);          princ_str("->c.c_cdr;",VV[10]);
2985          goto T1726;          goto T1740;
2986  T1726:;  T1740:;
2987          V448= cdr((V448));          V453= CMPcdr((V453));
2988          goto T1712;}          goto T1726;}
2989          goto T1710;          goto T1724;
2990  T1710:;  T1724:;
2991          {register object V451;          {register object V456;
2992          V451= (V442);          V456= (V447);
2993          goto T1749;          goto T1763;
2994  T1749:;  T1763:;
2995          if(!(endp_prop((V451)))){          if(!(((V456))==Cnil)){
2996          goto T1750;}          goto T1764;}
2997          goto T1747;          goto T1761;
2998          goto T1750;          goto T1764;
2999  T1750:;  T1764:;
3000          {register object V452;          {register object V457;
3001          V452= car((V451));          V457= CMPcar((V456));
3002          princ_str("\n   if(endp(V",VV[10]);          princ_str("\n   if(endp(V",VV[10]);
3003          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI90))((V445)));
3004          princ_str(")){",VV[10]);          princ_str(")){",VV[10]);
3005          bds_bind(VV[24],symbol_value(VV[24]));          bds_bind(VV[24],(VV[24]->s.s_dbind));
3006          bds_bind(VV[52],symbol_value(VV[52]));          bds_bind(VV[52],(VV[52]->s.s_dbind));
3007          bds_bind(VV[25],symbol_value(VV[25]));          bds_bind(VV[25],(VV[25]->s.s_dbind));
3008          (void)((*(LnkLI118))(car((V452)),cadr((V452))));          (void)((*(LnkLI127))(CMPcar((V457)),CMPcadr((V457))));
3009          if((caddr((V452)))==Cnil){          if((CMPcaddr((V457)))==Cnil){
3010          bds_unwind1;          bds_unwind1;
3011          bds_unwind1;          bds_unwind1;
3012          bds_unwind1;          bds_unwind1;
3013          goto T1760;}          goto T1774;}
3014          V453= (*(LnkLI117))(caddr((V452)),Cnil);          V458= (*(LnkLI126))(CMPcaddr((V457)),Cnil);
3015          bds_unwind1;          bds_unwind1;
3016          bds_unwind1;          bds_unwind1;
3017          bds_unwind1;          bds_unwind1;
3018          goto T1760;          goto T1774;
3019  T1760:;  T1774:;
3020          princ_str("\n   } else {",VV[10]);          princ_str("\n   } else {",VV[10]);
3021          V454= car((V452));          V459= CMPcar((V457));
3022          V455= list(2,VV[75],(V440));          V460= list(2,VV[85],(V445));
3023          (void)((*(LnkLI117))(/* INLINE-ARGS */V454,/* INLINE-ARGS */V455));          (void)((*(LnkLI126))(/* INLINE-ARGS */V459,/* INLINE-ARGS */V460));
3024          if((caddr((V452)))==Cnil){          if((CMPcaddr((V457)))==Cnil){
3025          goto T1754;}          goto T1768;}
3026          (void)((*(LnkLI117))(caddr((V452)),Ct));}          (void)((*(LnkLI126))(CMPcaddr((V457)),Ct));}
3027          goto T1754;          goto T1768;
3028  T1754:;  T1768:;
3029          if((cdr((V451)))!=Cnil){          if((CMPcdr((V456)))!=Cnil){
3030          goto T1770;}          goto T1784;}
3031          if(((V443))!=Cnil){          if(((V448))!=Cnil){
3032          goto T1770;}          goto T1784;}
3033          if(((V444))!=Cnil){          if(((V449))!=Cnil){
3034          goto T1770;}          goto T1784;}
3035          if((symbol_value(VV[55]))!=Cnil){          if(((VV[55]->s.s_dbind))!=Cnil){
3036          goto T1770;}          goto T1784;}
3037          if((symbol_value(VV[56]))==Cnil){          if(((VV[56]->s.s_dbind))==Cnil){
3038          goto T1769;}          goto T1783;}
3039          goto T1770;          goto T1784;
3040  T1770:;  T1784:;
3041          princ_str("\n   V",VV[10]);          princ_str("\n   V",VV[10]);
3042          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI90))((V445)));
3043          princ_str("=V",VV[10]);          princ_str("=V",VV[10]);
3044          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI90))((V445)));
3045          princ_str("->c.c_cdr;",VV[10]);          princ_str("->c.c_cdr;",VV[10]);
3046          goto T1769;          goto T1783;
3047  T1769:;  T1783:;
3048          princ_char(125,VV[10]);          princ_str("\n   }",VV[10]);
3049          V451= cdr((V451));          V456= CMPcdr((V456));
3050          goto T1749;}          goto T1763;}
3051          goto T1747;          goto T1761;
3052  T1747:;  T1761:;
3053          if(((V443))==Cnil){          if(((V448))==Cnil){
3054          goto T1790;}          goto T1804;}
3055          V456= list(2,VV[76],(V440));          V461= list(2,VV[86],(V445));
3056          (void)((*(LnkLI117))((V443),/* INLINE-ARGS */V456));          (void)((*(LnkLI126))((V448),/* INLINE-ARGS */V461));
3057          goto T1790;          goto T1804;
3058  T1790:;  T1804:;
3059          {object V457;          {object V462;
3060          register object V458;          register object V463;
3061          V457= (V445);          V462= (V450);
3062          V458= car((V457));          V463= CMPcar((V462));
3063          goto T1797;          goto T1811;
3064  T1797:;  T1811:;
3065          if(!(endp_prop((V457)))){          if(!(((V462))==Cnil)){
3066          goto T1798;}          goto T1812;}
3067          goto T1793;          goto T1807;
3068          goto T1798;          goto T1812;
3069  T1798:;  T1812:;
3070          {object V459;          {object V464;
3071          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          (VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1));
3072          V459= symbol_value(VV[54]);          V464= (VV[54]->s.s_dbind);
3073          princ_str("\n   {object V",VV[10]);          princ_str("\n   {object V",VV[10]);
3074          (void)((*(LnkLI80))((V459)));          (void)((*(LnkLI90))((V464)));
3075          princ_str("=getf(V",VV[10]);          princ_str("=getf(V",VV[10]);
3076          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI90))((V445)));
3077          princ_str(",VV[",VV[10]);          princ_str(",VV[",VV[10]);
3078          V460= (*(LnkLI108))(car((V458)));          V465= (*(LnkLI118))(CMPcar((V463)));
3079          (void)((*(LnkLI80))(/* INLINE-ARGS */V460));          (void)((*(LnkLI90))(/* INLINE-ARGS */V465));
3080          princ_str("],OBJNULL);",VV[10]);          princ_str("],OBJNULL);",VV[10]);
3081          princ_str("\n   if(V",VV[10]);          princ_str("\n   if(V",VV[10]);
3082          (void)((*(LnkLI80))((V459)));          (void)((*(LnkLI90))((V464)));
3083          princ_str("==OBJNULL){",VV[10]);          princ_str("==OBJNULL){",VV[10]);
3084          bds_bind(VV[24],symbol_value(VV[24]));          bds_bind(VV[24],(VV[24]->s.s_dbind));
3085          bds_bind(VV[52],symbol_value(VV[52]));          bds_bind(VV[52],(VV[52]->s.s_dbind));
3086          bds_bind(VV[25],symbol_value(VV[25]));          bds_bind(VV[25],(VV[25]->s.s_dbind));
3087          (void)((*(LnkLI118))(cadr((V458)),caddr((V458))));          (void)((*(LnkLI127))(CMPcadr((V463)),CMPcaddr((V463))));
3088          if((cadddr((V458)))==Cnil){          if((CMPcadddr((V463)))==Cnil){
3089          goto T1819;}          goto T1833;}
3090          (void)((*(LnkLI117))(cadddr((V458)),Cnil));          (void)((*(LnkLI126))(CMPcadddr((V463)),Cnil));
3091          goto T1819;          goto T1833;
3092  T1819:;  T1833:;
3093          princ_str("\n   } else {",VV[10]);          princ_str("\n   } else {",VV[10]);
3094          bds_unwind1;          bds_unwind1;
3095          bds_unwind1;          bds_unwind1;
3096          bds_unwind1;          bds_unwind1;
3097          V461= cadr((V458));          V466= CMPcadr((V463));
3098          V462= list(2,VV[76],(V459));          V467= list(2,VV[86],(V464));
3099          (void)((*(LnkLI117))(/* INLINE-ARGS */V461,/* INLINE-ARGS */V462));          (void)((*(LnkLI126))(/* INLINE-ARGS */V466,/* INLINE-ARGS */V467));
3100          if((cadddr((V458)))==Cnil){          if((CMPcadddr((V463)))==Cnil){
3101          goto T1824;}          goto T1838;}
3102          (void)((*(LnkLI117))(cadddr((V458)),Ct));          (void)((*(LnkLI126))(CMPcadddr((V463)),Ct));
3103          goto T1824;          goto T1838;
3104  T1824:;  T1838:;
3105          princ_str("}}",VV[10]);}          princ_str("\n   }}",VV[10]);}
3106          V457= cdr((V457));          V462= CMPcdr((V462));
3107          V458= car((V457));          V463= CMPcar((V462));
3108          goto T1797;}          goto T1811;}
3109          goto T1793;          goto T1807;
3110  T1793:;  T1807:;
3111          if((symbol_value(VV[55]))!=Cnil){          if(((VV[55]->s.s_dbind))!=Cnil){
3112          goto T1835;}          goto T1849;}
3113          if((symbol_value(VV[56]))==Cnil){          if(((VV[56]->s.s_dbind))==Cnil){
3114          goto T1833;}          goto T1847;}
3115          goto T1835;          goto T1849;
3116  T1835:;  T1849:;
3117          if(((V443))!=Cnil){          if(((V448))!=Cnil){
3118          goto T1833;}          goto T1847;}
3119          if(((V444))!=Cnil){          if(((V449))!=Cnil){
3120          goto T1833;}          goto T1847;}
3121          princ_str("\n   if(!endp(V",VV[10]);          princ_str("\n   if(!endp(V",VV[10]);
3122          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI90))((V445)));
3123          princ_str("))invalid_macro_call();",VV[10]);          princ_str("))invalid_macro_call();",VV[10]);
         goto T1833;  
 T1833:;  
         if((symbol_value(VV[55]))!=Cnil){  
         goto T1847;}  
         if((symbol_value(VV[56]))==Cnil){  
         goto T1845;}  
3124          goto T1847;          goto T1847;
3125  T1847:;  T1847:;
3126          if(((V444))==Cnil){          if(((VV[55]->s.s_dbind))!=Cnil){
3127          goto T1845;}          goto T1861;}
3128          if(((V446))!=Cnil){          if(((VV[56]->s.s_dbind))==Cnil){
3129          goto T1845;}          goto T1859;}
3130            goto T1861;
3131    T1861:;
3132            if(((V449))==Cnil){
3133            goto T1859;}
3134            if(((V451))!=Cnil){
3135            goto T1859;}
3136          princ_str("\n   check_other_key(V",VV[10]);          princ_str("\n   check_other_key(V",VV[10]);
3137          (void)((*(LnkLI80))((V440)));          (void)((*(LnkLI90))((V445)));
3138          princ_char(44,VV[10]);          princ_char(44,VV[10]);
3139          V463 = make_fixnum((long)length((V445)));          V468 = CMPmake_fixnum((long)length((V450)));
3140          (void)((*(LnkLI80))(V463));          (void)((*(LnkLI90))(V468));
3141          {object V464;          {object V469;
3142          object V465;          object V470;
3143          V464= (V445);          V469= (V450);
3144          V465= car((V464));          V470= CMPcar((V469));
3145          goto T1863;          goto T1877;
3146  T1863:;  T1877:;
3147          if(!(endp_prop((V464)))){          if(!(((V469))==Cnil)){
3148          goto T1864;}          goto T1878;}
3149          goto T1859;          goto T1873;
3150          goto T1864;          goto T1878;
3151  T1864:;  T1878:;
3152          princ_str(",VV[",VV[10]);          princ_str("\n   ,VV[",VV[10]);
3153          V466= (*(LnkLI108))(car((V465)));          V471= (*(LnkLI118))(CMPcar((V470)));
3154          (void)((*(LnkLI80))(/* INLINE-ARGS */V466));          (void)((*(LnkLI90))(/* INLINE-ARGS */V471));
3155          princ_char(93,VV[10]);          princ_char(93,VV[10]);
3156          V464= cdr((V464));          V469= CMPcdr((V469));
3157          V465= car((V464));          V470= CMPcar((V469));
3158          goto T1863;}          goto T1877;}
3159            goto T1873;
3160    T1873:;
3161            princ_str("\n   );",VV[10]);
3162          goto T1859;          goto T1859;
3163  T1859:;  T1859:;
3164          princ_str(");",VV[10]);          {object V472;
3165          goto T1845;          object V473;
3166  T1845:;          V472= (V452);
3167          {object V467;          V473= CMPcar((V472));
3168          object V468;          goto T1895;
3169          V467= (V447);  T1895:;
3170          V468= car((V467));          if(!(((V472))==Cnil)){
3171          goto T1881;          goto T1896;}
3172  T1881:;          base[10]= Cnil;
3173          if(!(endp_prop((V467)))){          vs_top=(vs_base=base+10)+1;
3174          goto T1882;}          return;
3175          {object V469 = Cnil;          goto T1896;
3176          VMR23(V469)}  T1896:;
3177          goto T1882;          (void)((*(LnkLI127))(CMPcar((V473)),CMPcadr((V473))));
3178  T1882:;          V472= CMPcdr((V472));
3179          (void)((*(LnkLI118))(car((V468)),cadr((V468))));          V473= CMPcar((V472));
3180          V467= cdr((V467));          goto T1895;}}
3181          V468= car((V467));          }
         goto T1881;}}  
         base[0]=base[0];  
         return Cnil;  
3182  }  }
3183  /*      local entry for function C2DM-BIND-LOC  */  /*      local entry for function C2DM-BIND-LOC  */
3184    
3185  static object LI26(V472,V473)  static object LI28(V476,V477)
3186    
3187  object V472;object V473;  object V476;object V477;
3188  {        VMB24 VMS24 VMV24  {        VMB26 VMS26 VMV26
3189          goto TTL;          goto TTL;
3190  TTL:;  TTL:;
3191          if(!(type_of((V472))==t_cons)){          if(!(type_of((V476))==t_cons)){
3192          goto T1893;}          goto T1907;}
3193          {object V474;          {object V478;
3194          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          (VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1));
3195          V474= symbol_value(VV[54]);          V478= (VV[54]->s.s_dbind);
3196            {object V479;
3197            base[0]= (VV[10]->s.s_dbind);
3198            vs_top=(vs_base=base+0)+1;
3199            Lfile_position();
3200            vs_top=sup;
3201            V479= vs_base[0];
3202          princ_str("\n   {object V",VV[10]);          princ_str("\n   {object V",VV[10]);
3203          (void)((*(LnkLI80))((V474)));          (void)((*(LnkLI90))((V478)));
3204          princ_str("= ",VV[10]);          princ_str("= ",VV[10]);
3205          (void)((*(LnkLI80))((V473)));          (void)((*(LnkLI90))((V477)));
3206          princ_char(59,VV[10]);          princ_char(59,VV[10]);
3207          (void)((*(LnkLI115))((V472),(V474)));          {object V480;
3208            base[0]= (VV[10]->s.s_dbind);
3209            vs_top=(vs_base=base+0)+1;
3210            Lfile_position();
3211            vs_top=sup;
3212            V480= vs_base[0];
3213            base[0]= (V476);
3214            base[1]= (V478);
3215            vs_top=(vs_base=base+0)+2;
3216            (void) (*Lnk78)();
3217            vs_top=sup;
3218            base[0]= (VV[10]->s.s_dbind);
3219            vs_top=(vs_base=base+0)+1;
3220            Lfile_position();
3221            vs_top=sup;
3222            V481= vs_base[0];
3223            if(!(eql((V480),V481))){
3224            goto T1925;}
3225            base[0]= (VV[10]->s.s_dbind);
3226            base[1]= (V479);
3227            vs_top=(vs_base=base+0)+2;
3228            Lfile_position();
3229            vs_top=sup;
3230            {object V482 = vs_base[0];
3231            VMR26(V482)}
3232            goto T1925;
3233    T1925:;
3234          princ_char(125,VV[10]);          princ_char(125,VV[10]);
3235          {object V475 = Cnil;          {object V483 = Cnil;
3236          VMR24(V475)}}          VMR26(V483)}}}}
3237          goto T1893;          goto T1907;
3238  T1893:;  T1907:;
3239          {object V476 = (*(LnkLI105))((V472),(V473));          {object V484 = (*(LnkLI115))((V476),(V477));
3240          VMR24(V476)}          VMR26(V484)}
3241            base[0]=base[0];
3242          return Cnil;          return Cnil;
3243  }  }
3244  /*      local entry for function C2DM-BIND-INIT */  /*      local entry for function C2DM-BIND-INIT */
3245    
3246  static object LI27(V479,V480)  static object LI29(V487,V488)
3247    
3248  object V479;object V480;  object V487;object V488;
3249  {        VMB25 VMS25 VMV25  {        VMB27 VMS27 VMV27
3250          bds_check;          bds_check;
3251          goto TTL;          goto TTL;
3252  TTL:;  TTL:;
3253          if(!(type_of((V479))==t_cons)){          if(!(type_of((V487))==t_cons)){
3254          goto T1906;}          goto T1933;}
3255          {object V481;          {object V489;
3256          object V482;          object V490;
3257          bds_bind(VV[53],symbol_value(VV[53]));          bds_bind(VV[53],(VV[53]->s.s_dbind));
3258          bds_bind(VV[77],small_fixnum(0));          bds_bind(VV[87],small_fixnum(0));
3259          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          (VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1));
3260          V481= symbol_value(VV[54]);          V489= (VV[54]->s.s_dbind);
3261          V483= make_cons((V480),Cnil);          V491= make_cons((V488),Cnil);
3262          V484= (VFUN_NARGS=2,(*(LnkLI119))(/* INLINE-ARGS */V483,VV[78]));          V492= (VFUN_NARGS=2,(*(LnkLI128))(/* INLINE-ARGS */V491,VV[88]));
3263          V482= car(/* INLINE-ARGS */V484);          V490= CMPcar(/* INLINE-ARGS */V492);
3264            {object V493;
3265            base[4]= (VV[10]->s.s_dbind);
3266            vs_top=(vs_base=base+4)+1;
3267            Lfile_position();
3268            vs_top=sup;
3269            V493= vs_base[0];
3270          princ_str("\n   {object V",VV[10]);          princ_str("\n   {object V",VV[10]);
3271          (void)((*(LnkLI80))((V481)));          (void)((*(LnkLI90))((V489)));
3272          princ_str("= ",VV[10]);          princ_str("= ",VV[10]);
3273          (void)((*(LnkLI80))((V482)));          (void)((*(LnkLI90))((V490)));
3274          princ_char(59,VV[10]);          princ_char(59,VV[10]);
3275          (void)((*(LnkLI115))((V479),(V481)));          {object V494;
3276          princ_char(125,VV[10]);          base[4]= (VV[10]->s.s_dbind);
3277          {object V485 = (*(LnkLI120))();          vs_top=(vs_base=base+4)+1;
3278            Lfile_position();
3279            vs_top=sup;
3280            V494= vs_base[0];
3281            base[4]= (V487);
3282            base[5]= (V489);
3283            vs_top=(vs_base=base+4)+2;
3284            (void) (*Lnk78)();
3285            vs_top=sup;
3286            base[4]= (VV[10]->s.s_dbind);
3287            vs_top=(vs_base=base+4)+1;
3288            Lfile_position();
3289            vs_top=sup;
3290            V495= vs_base[0];
3291            if(!(eql((V494),V495))){
3292            goto T1953;}
3293            base[4]= (VV[10]->s.s_dbind);
3294            base[5]= (V493);
3295            vs_top=(vs_base=base+4)+2;
3296            Lfile_position();
3297            vs_top=sup;
3298            goto T1938;
3299            goto T1953;
3300    T1953:;
3301            princ_char(125,VV[10]);}}
3302            goto T1938;
3303    T1938:;
3304            {object V496 = (*(LnkLI129))();
3305          bds_unwind1;          bds_unwind1;
3306          bds_unwind1;          bds_unwind1;
3307          VMR25(V485)}}          VMR27(V496)}}
3308          goto T1906;          goto T1933;
3309  T1906:;  T1933:;
3310          {object V486 = (*(LnkLI106))((V479),(V480));          {object V497 = (*(LnkLI116))((V487),(V488));
3311          VMR25(V486)}          VMR27(V497)}
3312          base[0]=base[0];          base[0]=base[0];
3313          return Cnil;          return Cnil;
3314  }  }
# Line 3166  T1906:; Line 3317  T1906:;
3317  static void L16(base0)  static void L16(base0)
3318  register object *base0;  register object *base0;
3319  {       register object *base=vs_base;  {       register object *base=vs_base;
3320          register object *sup=base+VM26; VC26          register object *sup=base+VM28; VC28
3321          vs_reserve(VM26);          vs_check;
3322          {object V487;          {object V498;
3323          check_arg(1);          V498=(base[0]);
         V487=(base[0]);  
3324          vs_top=sup;          vs_top=sup;
3325          goto TTL;          goto TTL;
3326  TTL:;  TTL:;
3327          {object V488;          {object V499;
3328          V488= (*(LnkLI121))((V487));          V499= (*(LnkLI130))((V498));
3329          if(((V488))==Cnil){          if(((V499))==Cnil){
3330          goto T1922;}          goto T1962;}
3331          {object V489;          {object V500;
3332          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          (VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1));
3333          V489= symbol_value(VV[54]);          V500= (VV[54]->s.s_dbind);
3334          (void)(structure_set((V487),VV[6],1,(V488)));          V501= Ct;
3335          (void)(structure_set((V487),VV[6],4,(V489)));          STSET(object,(V498),4, (V499));
3336            (void)((V499));
3337            V502= Ct;
3338            STSET(object,(V498),16, (V500));
3339            (void)((V500));
3340          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
3341          if((base0[9])!=Cnil){          if((base0[9])!=Cnil){
3342          goto T1929;}          goto T1969;}
3343          princ_char(123,VV[10]);          princ_char(123,VV[10]);
3344          base0[9]= Ct;          base0[9]= Ct;
3345          goto T1929;          goto T1969;
3346  T1929:;  T1969:;
3347          base[1]= (V487);          base[1]= (*(LnkLI131))((V498));
3348          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
         (void) (*Lnk122)();  
3349          return;}          return;}
3350          goto T1922;          goto T1962;
3351  T1922:;  T1962:;
3352          base[1]= Cnil;          base[1]= Cnil;
3353          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3354          return;}          return;}
# Line 3206  T1922:; Line 3359  T1922:;
3359  static void L14(base0)  static void L14(base0)
3360  register object *base0;  register object *base0;
3361  {       register object *base=vs_base;  {       register object *base=vs_base;
3362          register object *sup=base+VM27; VC27          register object *sup=base+VM29; VC29
3363          vs_reserve(VM27);          vs_check;
3364          {object V490;          {object V503;
3365          check_arg(1);          V503=(base[0]);
         V490=(base[0]);  
3366          vs_top=sup;          vs_top=sup;
3367          goto TTL;          goto TTL;
3368  TTL:;  TTL:;
3369          {object V491;          {object V504;
3370          V491= (*(LnkLI121))((V490));          V504= (*(LnkLI130))((V503));
3371          if(((V491))==Cnil){          if(((V504))==Cnil){
3372          goto T1938;}          goto T1977;}
3373          {object V492;          {object V505;
3374          setq(VV[54],number_plus(symbol_value(VV[54]),small_fixnum(1)));          (VV[54]->s.s_dbind)= number_plus((VV[54]->s.s_dbind),small_fixnum(1));
3375          V492= symbol_value(VV[54]);          V505= (VV[54]->s.s_dbind);
3376          (void)(structure_set((V490),VV[6],1,(V491)));          V506= Ct;
3377          (void)(structure_set((V490),VV[6],4,(V492)));          STSET(object,(V503),4, (V504));
3378            (void)((V504));
3379            V507= Ct;
3380            STSET(object,(V503),16, (V505));
3381            (void)((V505));
3382          princ_str("\n   ",VV[10]);          princ_str("\n   ",VV[10]);
3383          if((base0[7])!=Cnil){          if((base0[7])!=Cnil){
3384          goto T1945;}          goto T1984;}
3385          princ_char(123,VV[10]);          princ_char(123,VV[10]);
3386          base0[7]= Ct;          base0[7]= Ct;
3387          goto T1945;          goto T1984;
3388  T1945:;  T1984:;
3389          base[1]= (V490);          base[1]= (*(LnkLI131))((V503));
3390          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
         (void) (*Lnk122)();  
3391          return;}          return;}
3392          goto T1938;          goto T1977;
3393  T1938:;  T1977:;
3394          base[1]= Cnil;          base[1]= Cnil;
3395          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3396          return;}          return;}
3397          }          }
3398  }  }
3399  static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* WT-VAR-DECL */  static object  LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[131],(void **)(void *)&LnkLI131,1,first,ap);va_end(ap);return V1;} /* WT-VAR-DECL */
3400  static object  LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */  static object  LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
3401  static object  LnkTLI120(){return call_proc0(VV[120],(void **)(void *)&LnkLI120);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI129(){return call_proc0(VV[129],(void **)(void *)&LnkLI129);} /* CLOSE-INLINE-BLOCKS */
3402  static object  LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)(void *)&LnkLI119,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */  static object  LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[128],(void **)(void *)&LnkLI128,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
3403  static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-INIT */  static object  LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-INIT */
3404  static object  LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-LOC */  static object  LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)(void *)&LnkLI126,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-LOC */
3405  static object  LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-V */  static object  LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-V */
3406  static object  LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-VL */  static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* C2DM-BIND-VL */
3407  static object  LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-VL */  static object  LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-VL */
3408  static object  LnkTLI113(){return call_proc0(VV[113],(void **)(void *)&LnkLI113);} /* C1NIL */  static object  LnkTLI123(){return call_proc0(VV[123],(void **)(void *)&LnkLI123);} /* C1NIL */
3409  static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* C1DM-V */  static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* C1DM-V */
3410  static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* DM-BAD-KEY */  static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* DM-BAD-KEY */
3411  static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* C1DM-VL */  static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* C1DM-VL */
3412  static object  LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* WT-VS */  static object  LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[119],(void **)(void *)&LnkLI119,1,first,ap);va_end(ap);return V1;} /* WT-VS */
3413  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */  static object  LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
3414  static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* C2EXPR */  static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* C2EXPR */
3415  static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */  static object  LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
3416  static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */  static object  LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
3417  static object  LnkTLI104(){return call_proc0(VV[104],(void **)(void *)&LnkLI104);} /* RESET-TOP */  static object  LnkTLI114(){return call_proc0(VV[114],(void **)(void *)&LnkLI114);} /* RESET-TOP */
3418  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,1,first,ap);va_end(ap);return V1;} /* C2BIND */  static object  LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* C2BIND */
3419  static object  LnkTLI102(){return call_proc0(VV[102],(void **)(void *)&LnkLI102);} /* VS-PUSH */  static object  LnkTLI112(){return call_proc0(VV[112],(void **)(void *)&LnkLI112);} /* VS-PUSH */
3420  static object  LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITHOUT-KEY */  static object  LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITHOUT-KEY */
3421  static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITH-KEY */  static object  LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITH-KEY */
3422  static object  LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)(void *)&LnkLI99,1,first,ap);va_end(ap);return V1;} /* RECORD-ARG-INFO */  static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* RECORD-ARG-INFO */
3423  static object  LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,3,first,ap);va_end(ap);return V1;} /* FIX-DOWN-ARGS */  static object  LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,3,first,ap);va_end(ap);return V1;} /* FIX-DOWN-ARGS */
3424  static object  LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */  static object  LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */
3425  static object  LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */  static object  LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
3426  static object  LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */  static object  LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
3427  static object  LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[94],(void **)(void *)&LnkLI94,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
3428  static object  LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[93],(void **)(void *)&LnkLI93,first,ap);va_end(ap);return V1;} /* MAKE-VAR */  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[103],(void **)(void *)&LnkLI103,first,ap);va_end(ap);return V1;} /* MAKE-VAR */
3429  static object  LnkTLI92(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[92],(void **)(void *)&LnkLI92,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */  static object  LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */
3430  static object  LnkTLI91(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[91],(void **)(void *)&LnkLI91,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */  static object  LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
3431  static object  LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[90],(void **)(void *)&LnkLI90,1,first,ap);va_end(ap);return V1;} /* DEFAULT-INIT */  static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* DEFAULT-INIT */
3432  static object  LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)(void *)&LnkLI89,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */  static object  LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)(void *)&LnkLI99,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */
3433  static object  LnkTLI88(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[88],(void **)(void *)&LnkLI88,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */  static object  LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
3434  static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* C1BODY */  static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* C1BODY */
3435  static object  LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[86],(void **)(void *)&LnkLI86,first,ap);va_end(ap);return V1;} /* CMPERR */  static object  LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[96],(void **)(void *)&LnkLI96,first,ap);va_end(ap);return V1;} /* CMPERR */
3436  static object  LnkTLI85(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[85],(void **)(void *)&LnkLI85,first,ap);va_end(ap);return V1;} /* MAKE-INFO */  static object  LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[95],(void **)(void *)&LnkLI95,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
3437  static object  LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[84],(void **)(void *)&LnkLI84,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */  static object  LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[94],(void **)(void *)&LnkLI94,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
3438  static object  LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[83],(void **)(void *)&LnkLI83,first,ap);va_end(ap);return V1;} /* MAKE-FUN */  static object  LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[93],(void **)(void *)&LnkLI93,first,ap);va_end(ap);return V1;} /* MAKE-FUN */
3439  static object  LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)(void *)&LnkLI82,first,ap);va_end(ap);return V1;} /* DELETE */  static object  LnkTLI92(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[92],(void **)(void *)&LnkLI92,first,ap);va_end(ap);return V1;} /* DELETE */
3440  static object  LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)(void *)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* WT-H1 */  static object  LnkTLI91(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[91],(void **)(void *)&LnkLI91,1,first,ap);va_end(ap);return V1;} /* WT-H1 */
3441  static object  LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[90],(void **)(void *)&LnkLI90,1,first,ap);va_end(ap);return V1;} /* WT1 */
3442  static object  LnkTLI79(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[79],(void **)(void *)&LnkLI79,1,first,ap);va_end(ap);return V1;} /* C1EXPR */  static object  LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)(void *)&LnkLI89,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
3443    
3444  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3445  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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