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

Diff of /gcl/cmpnew/gcl_cmptop.c

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:28 2003 UTC
# Line 7  void init_gcl_cmptop(){do_init(VV);} Line 7  void init_gcl_cmptop(){do_init(VV);}
7  static void L1()  static void L1()
8  {register object *VOL base=vs_base;  {register object *VOL base=vs_base;
9          register object *VOL sup=base+VM1; VC1          register object *VOL sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_check;
11          bds_check;          bds_check;
12          {VOL object V1;          {VOL object V1;
         check_arg(1);  
13          V1=(base[0]);          V1=(base[0]);
14          vs_top=sup;          vs_top=sup;
15          goto TTL;          goto TTL;
# Line 29  TTL:; Line 28  TTL:;
28          {register object V2;          {register object V2;
29          object V3;          object V3;
30          register object V4;          register object V4;
31          V2= car((V1));          V2= CMPcar((V1));
32          V3= cdr((V1));          V3= CMPcdr((V1));
33          V4= Cnil;          V4= Cnil;
34          if(!(type_of((V2))==t_symbol)){          if(!(type_of((V2))==t_symbol)){
35          goto T8;}          goto T8;}
# Line 45  TTL:; Line 44  TTL:;
44          return;          return;
45          goto T11;          goto T11;
46  T11:;  T11:;
47          if((get((V2),VV[5],Cnil))==Cnil){          {object V6 =((V2))->s.s_plist;
48             object ind= VV[5];
49            while(V6!=Cnil){
50            if(V6->c.c_car==ind){
51            if(((V6->c.c_cdr->c.c_car))==Cnil){
52          goto T14;}          goto T14;}
53          if((symbol_value(VV[6]))==Cnil){          goto T15;
54            }else V6=V6->c.c_cdr->c.c_cdr;}
55            goto T14;}
56            goto T15;
57    T15:;
58            if(((VV[6]->s.s_dbind))==Cnil){
59          goto T16;}          goto T16;}
60          (void)((VFUN_NARGS=2,(*(LnkLI267))(VV[7],(V1))));          (void)((VFUN_NARGS=2,(*(LnkLI267))(VV[7],(V1))));
61          goto T16;          goto T16;
62  T16:;  T16:;
63          {object V6;          {object V7;
64          base[3]= (V2);          base[3]= (V2);
65          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
66          Lmacro_function();          Lmacro_function();
# Line 60  T16:; Line 68  T16:;
68          V4= vs_base[0];          V4= vs_base[0];
69          if(((V4))==Cnil){          if(((V4))==Cnil){
70          goto T21;}          goto T21;}
71          base[3]= cdr((V1));          base[3]= CMPcdr((V1));
72          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
73          Lcopy_list();          Lcopy_list();
74          vs_top=sup;          vs_top=sup;
75          V7= vs_base[0];          V8= vs_base[0];
76          V6= (*(LnkLI268))((V4),(V2),V7);          V7= (*(LnkLI268))((V4),(V2),V8);
77          goto T19;          goto T19;
78          goto T21;          goto T21;
79  T21:;  T21:;
80          V6= (V1);          V7= (V1);
81          goto T19;          goto T19;
82  T19:;  T19:;
83          (void)((*(LnkLI269))(Ct,(V6)));          (void)((*(LnkLI269))(Ct,(V7)));
84          V8= (*(LnkLI270))((V6));          V9= (*(LnkLI270))((V7));
85          frs_pop();          frs_pop();
86          base[3]= V8;          base[3]= V9;
87          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
88          bds_unwind1;          bds_unwind1;
89          bds_unwind1;          bds_unwind1;
90          return;}          return;}
91          goto T14;          goto T14;
92  T14:;  T14:;
93          V4= get((V2),VV[8],Cnil);          {object V10 =((V2))->s.s_plist;
94             object ind= VV[8];
95            while(V10!=Cnil){
96            if(V10->c.c_car==ind){
97            V4= (V10->c.c_cdr->c.c_car);
98            goto T31;
99            }else V10=V10->c.c_cdr->c.c_cdr;}
100            V4= Cnil;}
101            goto T31;
102    T31:;
103          if(((V4))==Cnil){          if(((V4))==Cnil){
104          goto T29;}          goto T29;}
105          if((symbol_value(VV[9]))==Cnil){          if(((VV[9]->s.s_dbind))==Cnil){
106          goto T32;}          goto T32;}
107          (void)((*(LnkLI271))());          (void)((*(LnkLI271))());
108          goto T32;          goto T32;
# Line 99  T32:; Line 116  T32:;
116          return;          return;
117          goto T29;          goto T29;
118  T29:;  T29:;
119          if((get((V2),VV[10],Cnil))==Cnil){          {object V11 =((V2))->s.s_plist;
120             object ind= VV[10];
121            while(V11!=Cnil){
122            if(V11->c.c_car==ind){
123            if(((V11->c.c_cdr->c.c_car))==Cnil){
124            goto T37;}
125            goto T38;
126            }else V11=V11->c.c_cdr->c.c_cdr;}
127          goto T37;}          goto T37;}
128          if((symbol_value(VV[9]))==Cnil){          goto T38;
129    T38:;
130            if(((VV[9]->s.s_dbind))==Cnil){
131          goto T39;}          goto T39;}
132          (void)((*(LnkLI271))());          (void)((*(LnkLI271))());
133          goto T39;          goto T39;
# Line 115  T39:; Line 141  T39:;
141          return;          return;
142          goto T37;          goto T37;
143  T37:;  T37:;
144          if((get((V2),VV[11],Cnil))==Cnil){          {object V12 =((V2))->s.s_plist;
145             object ind= VV[11];
146            while(V12!=Cnil){
147            if(V12->c.c_car==ind){
148            if(((V12->c.c_cdr->c.c_car))==Cnil){
149          goto T44;}          goto T44;}
150          V9= (*(LnkLI274))((V1));          goto T45;
151            }else V12=V12->c.c_cdr->c.c_cdr;}
152            goto T44;}
153            goto T45;
154    T45:;
155            V13= (*(LnkLI274))((V1));
156          frs_pop();          frs_pop();
157          base[3]= V9;          base[3]= V13;
158          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
159          bds_unwind1;          bds_unwind1;
160          bds_unwind1;          bds_unwind1;
# Line 133  T44:; Line 168  T44:;
168          V4= vs_base[0];          V4= vs_base[0];
169          if(((V4))==Cnil){          if(((V4))==Cnil){
170          goto T47;}          goto T47;}
171          {object V10;          {object V14;
172          base[3]= cdr((V1));          base[3]= CMPcdr((V1));
173          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
174          Lcopy_list();          Lcopy_list();
175          vs_top=sup;          vs_top=sup;
176          V11= vs_base[0];          V15= vs_base[0];
177          V10= (*(LnkLI268))((V4),(V2),V11);          V14= (*(LnkLI268))((V4),(V2),V15);
178          base[3]= (V10);          base[3]= (V14);
179          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
180          (void) (*Lnk273)();          (void) (*Lnk273)();
181          frs_pop();          frs_pop();
# Line 149  T44:; Line 184  T44:;
184          return;}          return;}
185          goto T47;          goto T47;
186  T47:;  T47:;
187          V12= (*(LnkLI274))((V1));          V16= (*(LnkLI274))((V1));
188          frs_pop();          frs_pop();
189          base[3]= V12;          base[3]= V16;
190          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
191          bds_unwind1;          bds_unwind1;
192          bds_unwind1;          bds_unwind1;
# Line 160  T47:; Line 195  T47:;
195  T8:;  T8:;
196          if(!(type_of((V2))==t_cons)){          if(!(type_of((V2))==t_cons)){
197          goto T56;}          goto T56;}
198          V13= (*(LnkLI274))((V1));          V17= (*(LnkLI274))((V1));
199          frs_pop();          frs_pop();
200          base[3]= V13;          base[3]= V17;
201          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
202          bds_unwind1;          bds_unwind1;
203          bds_unwind1;          bds_unwind1;
204          return;          return;
205          goto T56;          goto T56;
206  T56:;  T56:;
207          V14= (VFUN_NARGS=2,(*(LnkLI266))(VV[12],(V2)));          V18= (VFUN_NARGS=2,(*(LnkLI266))(VV[12],(V2)));
208          frs_pop();          frs_pop();
209          base[3]= V14;          base[3]= V18;
210          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
211          bds_unwind1;          bds_unwind1;
212          bds_unwind1;          bds_unwind1;
# Line 186  T3:; Line 221  T3:;
221          return;}          return;}
222          }          }
223  }  }
224  /*      function definition for DECLARATION-TYPE        */  /*      local entry for function DECLARATION-TYPE       */
225    
226  static void L2()  static object LI2(V20)
227  {register object *base=vs_base;  
228          register object *sup=base+VM2; VC2  object V20;
229          vs_reserve(VM2);  {        VMB2 VMS2 VMV2
         {object V15;  
         check_arg(1);  
         V15=(base[0]);  
         vs_top=sup;  
230          goto TTL;          goto TTL;
231  TTL:;  TTL:;
232          if(!(equal((V15),VV[13]))){          if(!(equal((V20),VV[13]))){
233          goto T59;}          goto T59;}
234          base[1]= VV[14];          {object V21 = VV[14];
235          vs_top=(vs_base=base+1)+1;          VMR2(V21)}
         return;  
236          goto T59;          goto T59;
237  T59:;  T59:;
238          if(!(equal((V15),VV[15]))){          if(!(equal((V20),VV[15]))){
239          goto T62;}          goto T62;}
240          base[1]= VV[16];          {object V22 = VV[16];
241          vs_top=(vs_base=base+1)+1;          VMR2(V22)}
         return;  
242          goto T62;          goto T62;
243  T62:;  T62:;
244          base[1]= (V15);          {object V23 = (V20);
245          vs_top=(vs_base=base+1)+1;          VMR2(V23)}
246          return;          return Cnil;
         }  
247  }  }
248  /*      local entry for function CTOP-WRITE     */  /*      local entry for function CTOP-WRITE     */
249    
250  static object LI3(V17)  static object LI3(V25)
251    
252  object V17;  object V25;
253  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
254          bds_check;          bds_check;
255          goto TTL;          goto TTL;
256  TTL:;  TTL:;
257          {object V18;          {object V26;
258          V18= Cnil;          V26= Cnil;
259          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
260          bds_bind(VV[19],Cnil);          bds_bind(VV[19],Cnil);
261          bds_bind(VV[21],VV[20]);          bds_bind(VV[21],VV[20]);
# Line 236  TTL:; Line 264  TTL:;
264          bds_bind(VV[24],Cnil);          bds_bind(VV[24],Cnil);
265          bds_bind(VV[0],Cnil);          bds_bind(VV[0],Cnil);
266          bds_bind(VV[17],Cnil);          bds_bind(VV[17],Cnil);
267          setq(VV[25],reverse(symbol_value(VV[25])));          (VV[25]->s.s_dbind)= reverse((VV[25]->s.s_dbind));
268          princ_str("\nvoid init_",VV[26]);          princ_str("\nvoid init_",VV[26]);
269          (void)((*(LnkLI275))((V17)));          (void)((*(LnkLI275))((V25)));
270          princ_str("(){",VV[26]);          princ_str("(){",VV[26]);
271          princ_str("do_init(VV);",VV[26]);          princ_str("do_init(VV);",VV[26]);
272          princ_char(125,VV[26]);          princ_char(125,VV[26]);
273          {object V19;          {object V27;
274          V19= symbol_value(VV[25]);          V27= (VV[25]->s.s_dbind);
275          bds_bind(VV[0],car((V19)));          bds_bind(VV[0],CMPcar((V27)));
276          goto T77;          goto T77;
277  T77:;  T77:;
278          if(!(endp_prop((V19)))){          if(!(((V27))==Cnil)){
279          goto T78;}          goto T78;}
280          bds_unwind1;          bds_unwind1;
281          goto T73;          goto T73;
282          goto T78;          goto T78;
283  T78:;  T78:;
284          setq(VV[1],Ct);          (VV[1]->s.s_dbind)= Ct;
285          (VV[17]->s.s_dbind)= Cnil;          (VV[17]->s.s_dbind)= Cnil;
286          V18= get(car((VV[0]->s.s_dbind)),VV[27],Cnil);          {object V28 =(CMPcar((VV[0]->s.s_dbind)))->s.s_plist;
287          if(((V18))==Cnil){           object ind= VV[27];
288            while(V28!=Cnil){
289            if(V28->c.c_car==ind){
290            V26= (V28->c.c_cdr->c.c_car);
291            goto T89;
292            }else V28=V28->c.c_cdr->c.c_cdr;}
293            V26= Cnil;}
294            goto T89;
295    T89:;
296            if(((V26))==Cnil){
297          goto T86;}          goto T86;}
298          base[9]= (V18);          base[9]= (V26);
299          {object V20;          {object V29;
300          V20= cdr((VV[0]->s.s_dbind));          V29= CMPcdr((VV[0]->s.s_dbind));
301           vs_top=base+10;           vs_top=base+10;
302           while(!endp(V20))           while(V29!=Cnil)
303           {vs_push(car(V20));V20=cdr(V20);}           {vs_push((V29)->c.c_car);V29=(V29)->c.c_cdr;}
304          vs_base=base+10;}          vs_base=base+10;}
305          super_funcall_no_event(base[9]);          super_funcall_no_event(base[9]);
306          vs_top=sup;          vs_top=sup;
307          goto T86;          goto T86;
308  T86:;  T86:;
309          V19= cdr((V19));          V27= CMPcdr((V27));
310          (VV[0]->s.s_dbind)= car((V19));          (VV[0]->s.s_dbind)= CMPcar((V27));
311          goto T77;}          goto T77;}
312          goto T73;          goto T73;
313  T73:;  T73:;
314          {object V21;          {object V30;
315          V21= symbol_value(VV[25]);          V30= (VV[25]->s.s_dbind);
316          bds_bind(VV[0],car((V21)));          bds_bind(VV[0],CMPcar((V30)));
317          goto T101;          goto T101;
318  T101:;  T101:;
319          if(!(endp_prop((V21)))){          if(!(((V30))==Cnil)){
320          goto T102;}          goto T102;}
321          bds_unwind1;          bds_unwind1;
322          goto T97;          goto T97;
323          goto T102;          goto T102;
324  T102:;  T102:;
325          setq(VV[1],Ct);          (VV[1]->s.s_dbind)= Ct;
326          (VV[17]->s.s_dbind)= Cnil;          (VV[17]->s.s_dbind)= Cnil;
327          V18= get(car((VV[0]->s.s_dbind)),VV[28],Cnil);          {object V31 =(CMPcar((VV[0]->s.s_dbind)))->s.s_plist;
328          if(((V18))==Cnil){           object ind= VV[28];
329            while(V31!=Cnil){
330            if(V31->c.c_car==ind){
331            V26= (V31->c.c_cdr->c.c_car);
332            goto T113;
333            }else V31=V31->c.c_cdr->c.c_cdr;}
334            V26= Cnil;}
335            goto T113;
336    T113:;
337            if(((V26))==Cnil){
338          goto T110;}          goto T110;}
339          base[9]= (V18);          base[9]= (V26);
340          {object V22;          {object V32;
341          V22= cdr((VV[0]->s.s_dbind));          V32= CMPcdr((VV[0]->s.s_dbind));
342           vs_top=base+10;           vs_top=base+10;
343           while(!endp(V22))           while(V32!=Cnil)
344           {vs_push(car(V22));V22=cdr(V22);}           {vs_push((V32)->c.c_car);V32=(V32)->c.c_cdr;}
345          vs_base=base+10;}          vs_base=base+10;}
346          super_funcall_no_event(base[9]);          super_funcall_no_event(base[9]);
347          vs_top=sup;          vs_top=sup;
348          goto T110;          goto T110;
349  T110:;  T110:;
350          V21= cdr((V21));          V30= CMPcdr((V30));
351          (VV[0]->s.s_dbind)= car((V21));          (VV[0]->s.s_dbind)= CMPcar((V30));
352          goto T101;}          goto T101;}
353          goto T97;          goto T97;
354  T97:;  T97:;
355          {object V23;          {object V33;
356          V23= Cnil;          V33= Cnil;
357          goto T123;          goto T123;
358  T123:;  T123:;
359          if(!(endp_prop(symbol_value(VV[29])))){          if(!(((VV[29]->s.s_dbind))==Cnil)){
360          goto T125;}          goto T125;}
361          goto T121;          goto T121;
362          goto T125;          goto T125;
363  T125:;  T125:;
364          V23= car(symbol_value(VV[29]));          V33= CMPcar((VV[29]->s.s_dbind));
365          {object V24;          {object V34;
366          V24= car(symbol_value(VV[29]));          V34= CMPcar((VV[29]->s.s_dbind));
367          setq(VV[29],cdr(symbol_value(VV[29])));}          (VV[29]->s.s_dbind)= CMPcdr((VV[29]->s.s_dbind));}
368          (VV[17]->s.s_dbind)= Cnil;          (VV[17]->s.s_dbind)= Cnil;
369          {object V25;          {object V35;
370          V25= (V23);          V35= (V33);
371           vs_top=base+8;           vs_top=base+8;
372           while(!endp(V25))           while(V35!=Cnil)
373           {vs_push(car(V25));V25=cdr(V25);}           {vs_push((V35)->c.c_car);V35=(V35)->c.c_cdr;}
374          vs_base=base+8;}          vs_base=base+8;}
375          (void) (*Lnk258)();          (void) (*Lnk258)();
376          vs_top=sup;          vs_top=sup;
377          goto T123;}          goto T123;}
378          goto T121;          goto T121;
379  T121:;  T121:;
380          {object V26;          {object V36;
381          object V27;          object V37;
382          V26= symbol_value(VV[30]);          V36= (VV[30]->s.s_dbind);
383          V27= car((V26));          V37= CMPcar((V36));
384          goto T142;          goto T142;
385  T142:;  T142:;
386          if(!(endp_prop((V26)))){          if(!(((V36))==Cnil)){
387          goto T143;}          goto T143;}
388          goto T138;          goto T138;
389          goto T143;          goto T143;
390  T143:;  T143:;
391          (VV[17]->s.s_dbind)= Cnil;          (VV[17]->s.s_dbind)= Cnil;
392          {object V28;          {object V38;
393          V28= (V27);          V38= (V37);
394           vs_top=base+9;           vs_top=base+9;
395           while(!endp(V28))           while(V38!=Cnil)
396           {vs_push(car(V28));V28=cdr(V28);}           {vs_push((V38)->c.c_car);V38=(V38)->c.c_cdr;}
397          vs_base=base+9;}          vs_base=base+9;}
398          (void) (*Lnk276)();          (void) (*Lnk276)();
399          vs_top=sup;          vs_top=sup;
400          V26= cdr((V26));          V36= CMPcdr((V36));
401          V27= car((V26));          V37= CMPcar((V36));
402          goto T142;}          goto T142;}
403          goto T138;          goto T138;
404  T138:;  T138:;
405          {object V29;          {object V39;
406          object V30;          object V40;
407          V29= (VV[18]->s.s_dbind);          V39= (VV[18]->s.s_dbind);
408          V30= car((V29));          V40= CMPcar((V39));
409          goto T160;          goto T160;
410  T160:;  T160:;
411          if(!(endp_prop((V29)))){          if(!(((V39))==Cnil)){
412          goto T161;}          goto T161;}
413          goto T156;          goto T156;
414          goto T161;          goto T161;
415  T161:;  T161:;
416          (VV[17]->s.s_dbind)= Cnil;          (VV[17]->s.s_dbind)= Cnil;
417          (void)((*(LnkLI277))((V30)));          (void)((*(LnkLI277))((V40)));
418          V29= cdr((V29));          V39= CMPcdr((V39));
419          V30= car((V29));          V40= CMPcar((V39));
420          goto T160;}          goto T160;}
421          goto T156;          goto T156;
422  T156:;  T156:;
423          {object V31;          {object V41;
424          object V32;          object V42;
425          V31= symbol_value(VV[31]);          V41= (VV[31]->s.s_dbind);
426          V32= car((V31));          V42= CMPcar((V41));
427          goto T177;          goto T177;
428  T177:;  T177:;
429          if(!(endp_prop((V31)))){          if(!(((V41))==Cnil)){
430          goto T178;}          goto T178;}
431          goto T173;          goto T173;
432          goto T178;          goto T178;
433  T178:;  T178:;
434          princ_str("\nstatic void LC",VV[32]);          princ_str("\nstatic void LC",VV[32]);
435          V33= structure_ref((V32),VV[33],3);          (void)((*(LnkLI278))(STREF(object,(V42),12)));
         (void)((*(LnkLI278))(/* INLINE-ARGS */V33));  
436          princ_str("();",VV[32]);          princ_str("();",VV[32]);
437          V31= cdr((V31));          V41= CMPcdr((V41));
438          V32= car((V31));          V42= CMPcar((V41));
439          goto T177;}          goto T177;}
440          goto T173;          goto T173;
441  T173:;  T173:;
442          {object V34;          {object V43;
443          object V35;          object V44;
444          V34= symbol_value(VV[34]);          V43= (VV[34]->s.s_dbind);
445          V35= car((V34));          V44= CMPcar((V43));
446          goto T195;          goto T195;
447  T195:;  T195:;
448          if(!(endp_prop((V34)))){          if(!(((V43))==Cnil)){
449          goto T196;}          goto T196;}
450          goto T191;          goto T191;
451          goto T196;          goto T196;
452  T196:;  T196:;
453          princ_str("\n#define VM",VV[32]);          princ_str("\n#define VM",VV[32]);
454          (void)((*(LnkLI278))(car((V35))));          (void)((*(LnkLI278))(CMPcar((V44))));
455          princ_char(32,VV[32]);          princ_char(32,VV[32]);
456          (void)((*(LnkLI278))(cdr((V35))));          (void)((*(LnkLI278))(CMPcdr((V44))));
457          V34= cdr((V34));          V43= CMPcdr((V43));
458          V35= car((V34));          V44= CMPcar((V43));
459          goto T195;}          goto T195;}
460          goto T191;          goto T191;
461  T191:;  T191:;
462          (void)((*(LnkLI279))(Cnil));          (void)((*(LnkLI279))(Cnil));
463          {object V36;          {object V45;
464          object V37;          object V46;
465          base[9]= (VV[23]->s.s_dbind);          base[9]= (VV[23]->s.s_dbind);
466          base[10]= symbol_value(VV[35]);          base[10]= (VV[35]->s.s_dbind);
467          base[11]= small_fixnum(1);          base[11]= small_fixnum(1);
468          vs_top=(vs_base=base+9)+3;          vs_top=(vs_base=base+9)+3;
469          Lminus();          Lminus();
470          vs_top=sup;          vs_top=sup;
471          V36= vs_base[0];          V45= vs_base[0];
472          V37= small_fixnum(0);          V46= small_fixnum(0);
473          goto T218;          goto T218;
474  T218:;  T218:;
475          if(!(number_compare((V37),(V36))>=0)){          if(!(number_compare((V46),(V45))>=0)){
476          goto T219;}          goto T219;}
477          goto T211;          goto T211;
478          goto T219;          goto T219;
479  T219:;  T219:;
480          (void)((*(LnkLI279))(Cnil));          (void)((*(LnkLI279))(Cnil));
481          V37= one_plus((V37));          V46= one_plus((V46));
482          goto T218;}          goto T218;}
483          goto T211;          goto T211;
484  T211:;  T211:;
485          princ_str("\nstatic char * VVi[",VV[32]);          princ_str("\nstatic char * VVi[",VV[32]);
486          V38= number_plus(small_fixnum(1),symbol_value(VV[35]));          V47= number_plus(small_fixnum(1),(VV[35]->s.s_dbind));
487          (void)((*(LnkLI278))(/* INLINE-ARGS */V38));          (void)((*(LnkLI278))(/* INLINE-ARGS */V47));
488          princ_str("]={",VV[32]);          princ_str("]={",VV[32]);
489          princ_str("\n#define Cdata VV[",VV[32]);          princ_str("\n#define Cdata VV[",VV[32]);
490          (void)((*(LnkLI278))(symbol_value(VV[35])));          (void)((*(LnkLI278))((VV[35]->s.s_dbind)));
491          princ_char(93,VV[32]);          princ_char(93,VV[32]);
492          if((VV[22]->s.s_dbind)!=Cnil){          if((VV[22]->s.s_dbind)!=Cnil){
493          goto T235;}          goto T235;}
# Line 450  T211:; Line 495  T211:;
495          (void)((*(LnkLI278))(small_fixnum(0)));          (void)((*(LnkLI278))(small_fixnum(0)));
496          goto T235;          goto T235;
497  T235:;  T235:;
498          {register object V39;          {register object V48;
499          V39= nreverse((VV[22]->s.s_dbind));          V48= nreverse((VV[22]->s.s_dbind));
500          goto T241;          goto T241;
501  T241:;  T241:;
502          if(((V39))!=Cnil){          if(((V48))!=Cnil){
503          goto T242;}          goto T242;}
504          princ_str("\n};",VV[32]);          princ_str("\n};",VV[32]);
505          goto T238;          goto T238;
506          goto T242;          goto T242;
507  T242:;  T242:;
508          princ_str("\n(char *)(",VV[32]);          princ_str("\n(char *)(",VV[32]);
509          (void)((*(LnkLI278))(caar((V39))));          (void)((*(LnkLI278))(CMPcaar((V48))));
510          (void)((*(LnkLI278))(cadar((V39))));          (void)((*(LnkLI278))(CMPcadar((V48))));
511          if((cdr((V39)))==Cnil){          if((CMPcdr((V48)))==Cnil){
512          goto T254;}          goto T254;}
513          V40= VV[36];          V49= VV[36];
514          goto T252;          goto T252;
515          goto T254;          goto T254;
516  T254:;  T254:;
517          V40= VV[37];          V49= VV[37];
518          goto T252;          goto T252;
519  T252:;  T252:;
520          (void)((*(LnkLI278))(V40));          (void)((*(LnkLI278))(V49));
521          V39= cdr((V39));          V48= CMPcdr((V48));
522          goto T241;}          goto T241;}
523          goto T238;          goto T238;
524  T238:;  T238:;
# Line 481  T238:; Line 526  T238:;
526          vs_base=vs_top;          vs_base=vs_top;
527          (void) (*Lnk280)();          (void) (*Lnk280)();
528          vs_top=sup;          vs_top=sup;
529          {object V41;          {object V50;
530          object V42;          object V51;
531          V41= (VV[18]->s.s_dbind);          V50= (VV[18]->s.s_dbind);
532          V42= car((V41));          V51= CMPcar((V50));
533          goto T265;          goto T265;
534  T265:;  T265:;
535          if(!(endp_prop((V41)))){          if(!(((V50))==Cnil)){
536          goto T266;}          goto T266;}
537          {object V43 = Cnil;          {object V52 = Cnil;
538          bds_unwind1;          bds_unwind1;
539          bds_unwind1;          bds_unwind1;
540          bds_unwind1;          bds_unwind1;
# Line 498  T265:; Line 543  T265:;
543          bds_unwind1;          bds_unwind1;
544          bds_unwind1;          bds_unwind1;
545          bds_unwind1;          bds_unwind1;
546          VMR3(V43)}          VMR3(V52)}
547          goto T266;          goto T266;
548  T266:;  T266:;
549          {register object V44;          {register object V53;
550          register object V45;          register object V54;
551          object V46;          object V55;
552          register object V47;          register object V56;
553          V44= cadr((V42));          V53= CMPcadr((V51));
554          V45= caddr((V42));          V54= CMPcaddr((V51));
555          V46= cadddr((V42));          V55= CMPcadddr((V51));
556          V47= Cnil;          V56= Cnil;
557          if(!(((V45))==(VV[38]))){          if(!(((V54))==(VV[38]))){
558          goto T276;}          goto T276;}
559          princ_str("\nstatic object *Lclptr",VV[32]);          princ_str("\nstatic object *Lclptr",VV[32]);
560          (void)((*(LnkLI278))((V44)));          (void)((*(LnkLI278))((V53)));
561          princ_char(59,VV[32]);          princ_char(59,VV[32]);
562          V47= VV[39];          V56= VV[39];
563          goto T274;          goto T274;
564          goto T276;          goto T276;
565  T276:;  T276:;
566          if(((V45))==Cnil){          if(((V54))==Cnil){
567          goto T285;}          goto T285;}
568          V47= (*(LnkLI281))((V45));          V56= (*(LnkLI281))((V54));
569          goto T283;          goto T283;
570          goto T285;          goto T285;
571  T285:;  T285:;
572          V47= VV[40];          V56= VV[40];
573          goto T283;          goto T283;
574  T283:;  T283:;
575          goto T274;          goto T274;
576  T274:;  T274:;
577          if(((V45))==Cnil){          if(((V54))==Cnil){
578          goto T288;}          goto T288;}
579          if(((V45))==(VV[38])){          if(((V54))==(VV[38])){
580          goto T288;}          goto T288;}
581          if(((V46))!=Cnil){          if(((V55))!=Cnil){
582          goto T287;}          goto T287;}
583          if((Ct)==((V45))){          if((Ct)==((V54))){
584          goto T288;}          goto T288;}
585          goto T287;          goto T287;
586  T287:;  T287:;
587          princ_str("\nstatic ",VV[32]);          princ_str("\nstatic ",VV[32]);
588          base[9]= (V47);          V57= (*(LnkLI282))((V56));
589          vs_top=(vs_base=base+9)+1;          (void)((*(LnkLI278))(/* INLINE-ARGS */V57));
         (void) (*Lnk282)();  
         vs_top=sup;  
         V48= vs_base[0];  
         (void)((*(LnkLI278))(V48));  
590          princ_str(" LnkT",VV[32]);          princ_str(" LnkT",VV[32]);
591          (void)((*(LnkLI278))((V44)));          (void)((*(LnkLI278))((V53)));
592          princ_str("(object,...);",VV[32]);          princ_str("(object,...);",VV[32]);
593          princ_str("\nstatic ",VV[32]);          princ_str("\nstatic ",VV[32]);
594          base[9]= (V47);          V58= (*(LnkLI282))((V56));
595          vs_top=(vs_base=base+9)+1;          (void)((*(LnkLI278))(/* INLINE-ARGS */V58));
         (void) (*Lnk282)();  
         vs_top=sup;  
         V49= vs_base[0];  
         (void)((*(LnkLI278))(V49));  
596          princ_str(" (*Lnk",VV[32]);          princ_str(" (*Lnk",VV[32]);
597          (void)((*(LnkLI278))((V44)));          (void)((*(LnkLI278))((V53)));
598          princ_str(")() = (",VV[32]);          princ_str(")() = (",VV[32]);
599          base[9]= (V47);          V59= (*(LnkLI282))((V56));
600          vs_top=(vs_base=base+9)+1;          (void)((*(LnkLI278))(/* INLINE-ARGS */V59));
         (void) (*Lnk282)();  
         vs_top=sup;  
         V50= vs_base[0];  
         (void)((*(LnkLI278))(V50));  
601          princ_str("(*)()) LnkT",VV[32]);          princ_str("(*)()) LnkT",VV[32]);
602          (void)((*(LnkLI278))((V44)));          (void)((*(LnkLI278))((V53)));
603          princ_char(59,VV[32]);          princ_char(59,VV[32]);
604          goto T270;          goto T270;
605          goto T288;          goto T288;
606  T288:;  T288:;
607          princ_str("\nstatic ",VV[32]);          princ_str("\nstatic ",VV[32]);
608          base[9]= (V47);          V60= (*(LnkLI282))((V56));
609          vs_top=(vs_base=base+9)+1;          (void)((*(LnkLI278))(/* INLINE-ARGS */V60));
         (void) (*Lnk282)();  
         vs_top=sup;  
         V51= vs_base[0];  
         (void)((*(LnkLI278))(V51));  
610          princ_str(" LnkT",VV[32]);          princ_str(" LnkT",VV[32]);
611          (void)((*(LnkLI278))((V44)));          (void)((*(LnkLI278))((V53)));
612          princ_str("();",VV[32]);          princ_str("();",VV[32]);
613          princ_str("\nstatic ",VV[32]);          princ_str("\nstatic ",VV[32]);
614          base[9]= (V47);          V61= (*(LnkLI282))((V56));
615          vs_top=(vs_base=base+9)+1;          (void)((*(LnkLI278))(/* INLINE-ARGS */V61));
         (void) (*Lnk282)();  
         vs_top=sup;  
         V52= vs_base[0];  
         (void)((*(LnkLI278))(V52));  
616          princ_str(" (*Lnk",VV[32]);          princ_str(" (*Lnk",VV[32]);
617          (void)((*(LnkLI278))((V44)));          (void)((*(LnkLI278))((V53)));
618          princ_str(")() = LnkT",VV[32]);          princ_str(")() = LnkT",VV[32]);
619          (void)((*(LnkLI278))((V44)));          (void)((*(LnkLI278))((V53)));
620          princ_char(59,VV[32]);}          princ_char(59,VV[32]);}
621          goto T270;          goto T270;
622  T270:;  T270:;
623          V41= cdr((V41));          V50= CMPcdr((V50));
624          V42= car((V41));          V51= CMPcar((V50));
625          goto T265;}}          goto T265;}}
626          base[0]=base[0];          base[0]=base[0];
627          return Cnil;          return Cnil;
628  }  }
629  /*      local entry for function MAYBE-EVAL     */  /*      local entry for function MAYBE-EVAL     */
630    
631  static object LI4(V55,V56)  static object LI4(V64,V65)
632    
633  object V55;register object V56;  object V64;register object V65;
634  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
635          goto TTL;          goto TTL;
636  TTL:;  TTL:;
637          if((V55)!=Cnil){          if((V64)!=Cnil){
638          goto T339;}          goto T329;}
639          if(type_of(car((V56)))==t_symbol){          if(type_of(CMPcar((V65)))==t_symbol){
640          goto T340;}          goto T330;}
641          goto T339;          goto T329;
642          goto T340;          goto T330;
643  T340:;  T330:;
644          V55= get(car((V56)),VV[41],Cnil);          {object V66 =(CMPcar((V65)))->s.s_plist;
645          goto T339;           object ind= VV[41];
646  T339:;          while(V66!=Cnil){
647          if(((V55))==Cnil){          if(V66->c.c_car==ind){
648          goto T345;}          V64= (V66->c.c_cdr->c.c_car);
649          if((VV[42])==(symbol_value(VV[43]))){          goto T332;
650          goto T343;}          }else V66=V66->c.c_cdr->c.c_cdr;}
651          goto T345;          V64= Cnil;}
652  T345:;          goto T332;
653          if(!(type_of(symbol_value(VV[43]))==t_cons)){  T332:;
654          goto T344;}          goto T329;
655          {register object x= VV[44],V57= symbol_value(VV[43]);  T329:;
656          while(!endp(V57))          if(((V64))==Cnil){
657          if(eql(x,V57->c.c_car)){          goto T335;}
658          goto T351;          if((VV[42])==((VV[43]->s.s_dbind))){
659          }else V57=V57->c.c_cdr;          goto T333;}
660          goto T344;}          goto T335;
661          goto T351;  T335:;
662  T351:;          if(!(type_of((VV[43]->s.s_dbind))==t_cons)){
663          goto T343;          goto T334;}
664  T343:;          {register object x= VV[44],V67= (VV[43]->s.s_dbind);
665          if(((V56))==Cnil){          while(V67!=Cnil)
666          goto T352;}          if(eql(x,V67->c.c_car)){
667          base[0]= (V56);          goto T341;
668            }else V67=V67->c.c_cdr;
669            goto T334;}
670            goto T341;
671    T341:;
672            goto T333;
673    T333:;
674            if(((V65))==Cnil){
675            goto T342;}
676            base[0]= (V65);
677          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
678          (void) (*Lnk283)();          (void) (*Lnk283)();
679          vs_top=sup;          vs_top=sup;
680          goto T352;          goto T342;
681  T352:;  T342:;
682          {object V58 = Ct;          {object V68 = Ct;
683          VMR4(V58)}          VMR4(V68)}
684          goto T344;          goto T334;
685  T344:;  T334:;
686          {object V59 = Cnil;          {object V69 = Cnil;
687          VMR4(V59)}          VMR4(V69)}
688          base[0]=base[0];          base[0]=base[0];
689          return Cnil;          return Cnil;
690  }  }
# Line 659  T344:; Line 693  T344:;
693  static void L5()  static void L5()
694  {register object *base=vs_base;  {register object *base=vs_base;
695          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
696          vs_reserve(VM5);          vs_check;
697          bds_check;          bds_check;
698          {register object V60;          {register object V70;
699          check_arg(1);          V70=(base[0]);
         V60=(base[0]);  
700          vs_top=sup;          vs_top=sup;
701          goto TTL;          goto TTL;
702  TTL:;  TTL:;
703          {register object V61;          {register object V71;
704          register object V62;          register object V72;
705          V61= Cnil;          V71= Cnil;
706          V62= Cnil;          V72= Cnil;
707          if(!(endp_prop((V60)))){          if(!(((V70))==Cnil)){
708          goto T358;}          goto T348;}
709          (void)((*(LnkLI284))(VV[45],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI284))(VV[45],small_fixnum(1),small_fixnum(0)));
710          goto T358;          goto T348;
711  T358:;  T348:;
712          {register object V63;          {register object V73;
713          register object V64;          register object V74;
714          V63= car((V60));          V73= CMPcar((V70));
715          V64= car((V63));          V74= CMPcar((V73));
716            goto T355;
717    T355:;
718            if(!(((V73))==Cnil)){
719            goto T356;}
720            goto T351;
721            goto T356;
722    T356:;
723            {object V75= (V74);
724            if((V75!= VV[285]))goto T361;
725            V71= Ct;
726            goto T360;
727            goto T361;
728    T361:;
729            if((V75!= VV[286]))goto T363;
730            V71= Ct;
731            goto T360;
732            goto T363;
733    T363:;
734            if((V75!= VV[44]))goto T365;
735            V72= Ct;
736            goto T360;
737          goto T365;          goto T365;
738  T365:;  T365:;
739          if(!(endp_prop((V63)))){          if((V75!= VV[287]))goto T367;
740          goto T366;}          V72= Ct;
741          goto T361;          goto T360;
742          goto T366;          goto T367;
743  T366:;  T367:;
744          {object V65= (V64);          if((V75!= VV[288]))goto T369;
745          if((V65!= VV[285]))goto T371;          goto T360;
746          V61= Ct;          goto T369;
747          goto T370;  T369:;
748          goto T371;          if((V75!= VV[289]))goto T370;
749  T371:;          goto T360;
         if((V65!= VV[44]))goto T373;  
         V62= Ct;  
         goto T370;  
         goto T373;  
 T373:;  
         if((V65!= VV[286]))goto T375;  
         goto T370;  
         goto T375;  
 T375:;  
         (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[46],(V64))));}  
750          goto T370;          goto T370;
751  T370:;  T370:;
752          V63= cdr((V63));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[46],(V74))));}
753          V64= car((V63));          goto T360;
754          goto T365;}  T360:;
755          goto T361;          V73= CMPcdr((V73));
756  T361:;          V74= CMPcar((V73));
757          base[1]= car((V60));          goto T355;}
758            goto T351;
759    T351:;
760            base[1]= CMPcar((V70));
761          bds_bind(VV[43],base[1]);          bds_bind(VV[43],base[1]);
762          if(((V61))==Cnil){          if(((V71))==Cnil){
763          goto T383;}          goto T378;}
764          base[2]= (*(LnkLI287))(cdr((V60)));          base[2]= (*(LnkLI290))(CMPcdr((V70)));
765          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
766          bds_unwind1;          bds_unwind1;
767          return;          return;
768          goto T383;          goto T378;
769  T383:;  T378:;
770          if(((V62))==Cnil){          if(((V72))==Cnil){
771          goto T386;}          goto T381;}
772          base[2]= make_cons(VV[47],cdr((V60)));          base[2]= make_cons(VV[47],CMPcdr((V70)));
773          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
774          (void) (*Lnk283)();          (void) (*Lnk283)();
775          bds_unwind1;          bds_unwind1;
776          return;          return;
777          goto T386;          goto T381;
778  T386:;  T381:;
779          base[2]= Cnil;          base[2]= Cnil;
780          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
781          bds_unwind1;          bds_unwind1;
# Line 737  T386:; Line 784  T386:;
784  }  }
785  /*      local entry for function T1PROGN        */  /*      local entry for function T1PROGN        */
786    
787  static object LI6(V67)  static object LI6(V77)
788    
789  object V67;  object V77;
790  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
791          bds_check;          bds_check;
792          goto TTL;          goto TTL;
793  TTL:;  TTL:;
794          if(!(equal(car((V67)),VV[48]))){          if(!(equal(CMPcar((V77)),VV[48]))){
795          goto T390;}          goto T385;}
796          bds_bind(VV[49],Ct);          bds_bind(VV[49],Ct);
797          {object V68 = (*(LnkLI287))(cdr((V67)));          {object V78 = (*(LnkLI290))(CMPcdr((V77)));
798          bds_unwind1;          bds_unwind1;
799          VMR6(V68)}          VMR6(V78)}
800            goto T385;
801    T385:;
802            {register object V79;
803            register object V80;
804            V79= (V77);
805            V80= CMPcar((V79));
806          goto T390;          goto T390;
807  T390:;  T390:;
808          {register object V69;          if(!(((V79))==Cnil)){
809          register object V70;          goto T391;}
810          V69= (V67);          {object V81 = Cnil;
811          V70= car((V69));          VMR6(V81)}
812          goto T395;          goto T391;
813  T395:;  T391:;
814          if(!(endp_prop((V69)))){          base[1]= (V80);
         goto T396;}  
         {object V71 = Cnil;  
         VMR6(V71)}  
         goto T396;  
 T396:;  
         base[1]= (V70);  
815          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
816          (void) (*Lnk273)();          (void) (*Lnk273)();
817          vs_top=sup;          vs_top=sup;
818          V69= cdr((V69));          V79= CMPcdr((V79));
819          V70= car((V69));          V80= CMPcar((V79));
820          goto T395;}          goto T390;}
821          base[0]=base[0];          base[0]=base[0];
822          return Cnil;          return Cnil;
823  }  }
824  /*      local entry for function CMPFIX-ARGS    */  /*      local entry for function CMPFIX-ARGS    */
825    
826  static object LI7(V74,V75)  static object LI7(V84,V85)
827    
828  object V74;object V75;  object V84;object V85;
829  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
830          goto TTL;          goto TTL;
831  TTL:;  TTL:;
832          {register object V76;          {register object V86;
833          register object V77;          register object V87;
834          V76= Cnil;          V86= Cnil;
835          base[1]= cadr((V74));          base[1]= CMPcadr((V84));
836          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
837          Lcopy_list();          Lcopy_list();
838          vs_top=sup;          vs_top=sup;
839          V77= vs_base[0];          V87= vs_base[0];
840          {register object V78;          {register object V88;
841          register object V79;          register object V89;
842          V78= (V75);          V88= (V85);
843          V79= car((V78));          V89= CMPcar((V88));
844          goto T414;          goto T409;
845  T414:;  T409:;
846          if(!(endp_prop((V78)))){          if(!(((V88))==Cnil)){
847          goto T415;}          goto T410;}
848            goto T405;
849          goto T410;          goto T410;
850    T410:;
851            {register object x= CMPcar((V89)),V90= (V87);
852            while(V90!=Cnil)
853            if(eql(x,V90->c.c_car)){
854            V86= V90;
855            goto T415;
856            }else V90=V90->c.c_cdr;
857            V86= Cnil;}
858          goto T415;          goto T415;
859  T415:;  T415:;
860          {register object x= car((V79)),V80= (V77);          if((V86)==Cnil){
861          while(!endp(V80))          goto T416;}
862          if(eql(x,V80->c.c_car)){          {register object V91;
863          V76= V80;          register object V92;
864          goto T420;          V91= (V86);
865          }else V80=V80->c.c_cdr;          V92= CMPcadr((V89));
866          V76= Cnil;}          ((V91))->c.c_car = (V92);}
867          goto T420;          goto T416;
868  T420:;  T416:;
869          if((V76)==Cnil){          V88= CMPcdr((V88));
870          goto T421;}          V89= CMPcar((V88));
871          {register object V81;          goto T409;}
872          register object V82;          goto T405;
873          V81= (V76);  T405:;
874          V82= cadr((V79));          {register object x= VV[50],V93= (V87);
875          if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81));          while(V93!=Cnil)
876          ((V81))->c.c_car = (V82);}          if(eql(x,V93->c.c_car)){
877          goto T421;          V86= V93;
878  T421:;          goto T429;
879          V78= cdr((V78));          }else V93=V93->c.c_cdr;
880          V79= car((V78));          V86= Cnil;}
881          goto T414;}          goto T429;
882          goto T410;  T429:;
883  T410:;          if(((V86))==Cnil){
884          {register object x= VV[50],V83= (V77);          goto T427;}
885          while(!endp(V83))          {object V95;
886          if(eql(x,V83->c.c_car)){          V95= append((V85),CMPcdr((V86)));
887          V76= V83;          (V86)->c.c_cdr = (V95);
888          goto T434;          goto T425;}
889          }else V83=V83->c.c_cdr;          goto T427;
890          V76= Cnil;}  T427:;
891          goto T434;          V96= make_cons(VV[50],(V85));
892  T434:;          V87= append((V87),/* INLINE-ARGS */V96);
893          if(((V76))==Cnil){          goto T425;
894          goto T432;}  T425:;
895          {object V85;          {object V97 = listA(3,CMPcar((V84)),(V87),CMPcddr((V84)));
896          V85= append((V75),cdr((V76)));          VMR7(V97)}}
         if(type_of(V76)!=t_cons)FEwrong_type_argument(Scons,V76);  
         (V76)->c.c_cdr = (V85);  
         goto T430;}  
         goto T432;  
 T432:;  
         V86= make_cons(VV[50],(V75));  
         V77= append((V77),/* INLINE-ARGS */V86);  
         goto T430;  
 T430:;  
         {object V87 = listA(3,car((V74)),(V77),cddr((V74)));  
         VMR7(V87)}}  
897          base[0]=base[0];          base[0]=base[0];
898          return Cnil;          return Cnil;
899  }  }
900  /*      local entry for function T1DEFUN        */  /*      local entry for function T1DEFUN        */
901    
902  static object LI8(V89)  static object LI8(V99)
903    
904  object V89;  object V99;
905  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
906          bds_check;          bds_check;
907          goto TTL;          goto TTL;
908  TTL:;  TTL:;
909          {object V90;          {object V100;
910          V90= symbol_value(VV[51]);          V100= (VV[51]->s.s_dbind);
911          bds_bind(VV[53],Cnil);          bds_bind(VV[53],Cnil);
912          if(endp_prop((V89))){          if(((V99))==Cnil){
913          goto T440;}          goto T435;}
914          if(!(endp_prop(cdr((V89))))){          if(!((CMPcdr((V99)))==Cnil)){
915            goto T434;}
916            goto T435;
917    T435:;
918            V102 = CMPmake_fixnum((long)length((V99)));
919            (void)((*(LnkLI284))(VV[52],small_fixnum(2),V102));
920            goto T434;
921    T434:;
922            if(type_of(CMPcar((V99)))==t_symbol){
923          goto T439;}          goto T439;}
924          goto T440;          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[54],CMPcar((V99)))));
 T440:;  
         V92 = make_fixnum((long)length((V89)));  
         (void)((*(LnkLI284))(VV[52],small_fixnum(2),V92));  
925          goto T439;          goto T439;
926  T439:;  T439:;
927          if(type_of(car((V89)))==t_symbol){          V103= make_cons(VV[52],(V99));
928          goto T444;}          (void)((*(LnkLI269))(Cnil,/* INLINE-ARGS */V103));
         (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[54],car((V89)))));  
929          goto T444;          goto T444;
930  T444:;  T444:;
931          V93= make_cons(VV[52],(V89));          (VV[6]->s.s_dbind)= Ct;
932          (void)((*(LnkLI269))(Cnil,/* INLINE-ARGS */V93));          (VV[55]->s.s_dbind)= Cnil;
933          goto T449;          {register object V104;
934  T449:;          object V105;
935          setq(VV[6],Ct);          object V106;
936          setq(VV[55],Cnil);          register object V107;{object V108;
937          {register object V94;          {object V109 =(CMPcar((V99)))->s.s_plist;
938          object V95;           object ind= VV[61];
939          object V96;          while(V109!=Cnil){
940          register object V97;{object V98;          if(V109->c.c_car==ind){
941          V98= get(car((V89)),VV[61],Cnil);          V108= (V109->c.c_cdr->c.c_car);
942          if(V98==Cnil)goto T456;          goto T452;
943          V95= V98;          }else V109=V109->c.c_cdr->c.c_cdr;}
944          goto T455;          V108= Cnil;}
945          goto T456;          goto T452;
946  T456:;}  T452:;
947          setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1)));          if(V108==Cnil)goto T451;
948          V95= symbol_value(VV[62]);          V105= V108;
949          goto T455;          goto T450;
950  T455:;          goto T451;
951          V97= car((V89));  T451:;}
952            (VV[62]->s.s_dbind)= number_plus((VV[62]->s.s_dbind),small_fixnum(1));
953            V105= (VV[62]->s.s_dbind);
954            goto T450;
955    T450:;
956            V107= CMPcar((V99));
957          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
958          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
959          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
960          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
961          V94= Cnil;          V104= Cnil;
962          bds_bind(VV[60],Cnil);          bds_bind(VV[60],Cnil);
963          V96= Cnil;          V106= Cnil;
964          V94= (VFUN_NARGS=2,(*(LnkLI288))(cdr((V89)),(V97)));          V104= (VFUN_NARGS=2,(*(LnkLI291))(CMPcdr((V99)),(V107)));
965          if(!(eql((V90),symbol_value(VV[51])))){          if(!(eql((V100),(VV[51]->s.s_dbind)))){
966          goto T463;}          goto T458;}
967          goto T462;          goto T457;
968            goto T458;
969    T458:;
970            V110= CMPcadr((V104));
971            V111= Ct;
972            STSET(object,/* INLINE-ARGS */V110,16, Ct);
973            (void)(Ct);
974            goto T457;
975    T457:;
976            (void)((*(LnkLI292))(STREF(object,CMPcadr((V104)),4)));
977            {object V112 =((V107))->s.s_plist;
978             object ind= VV[64];
979            while(V112!=Cnil){
980            if(V112->c.c_car==ind){
981            if(((V112->c.c_cdr->c.c_car))==Cnil){
982            goto T461;}
983            goto T463;
984            }else V112=V112->c.c_cdr->c.c_cdr;}
985            goto T461;}
986          goto T463;          goto T463;
987  T463:;  T463:;
988          (void)(structure_set(cadr((V94)),VV[63],4,Ct));          {object V113;
989          goto T462;          V113= CMPmake_fixnum((long)length(CMPcar(CMPcaddr((V104)))));
990  T462:;          (void)(sputprop((V107),VV[64],(V113)));
991          V99= structure_ref(cadr((V94)),VV[63],1);          base[6]= (V113);
         (void)((*(LnkLI289))(/* INLINE-ARGS */V99));  
         if((get((V97),VV[64],Cnil))==Cnil){  
         goto T466;}  
         {object V100;  
         V100= make_fixnum((long)length(car(caddr((V94)))));  
         (void)(sputprop((V97),VV[64],(V100)));  
         base[6]= (V100);  
992          base[7]= VV[66];          base[7]= VV[66];
993          base[8]= Ct;          base[8]= Ct;
994          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
995          Lmake_list();          Lmake_list();
996          vs_top=sup;          vs_top=sup;
997          V101= vs_base[0];          V114= vs_base[0];
998          V102= list(4,VV[65],(V97),V101,Ct);          V115= list(4,VV[65],(V107),V114,Ct);
999          (void)((*(LnkLI290))(/* INLINE-ARGS */V102));}          (void)((*(LnkLI293))(/* INLINE-ARGS */V115));}
1000          goto T466;          goto T461;
1001  T466:;  T461:;
1002          if((get((V97),VV[67],Cnil))==Cnil){          {object V116 =((V107))->s.s_plist;
1003             object ind= VV[67];
1004            while(V116!=Cnil){
1005            if(V116->c.c_car==ind){
1006            if(((V116->c.c_cdr->c.c_car))==Cnil){
1007            goto T472;}
1008            goto T474;
1009            }else V116=V116->c.c_cdr->c.c_cdr;}
1010            goto T472;}
1011            goto T474;
1012    T474:;
1013            {object V117;
1014            register object V118;
1015            V117= CMPcaddr((V104));
1016            V118= Cnil;
1017            if((CMPcadr((V117)))==Cnil){
1018          goto T477;}          goto T477;}
1019          {object V103;          goto T472;
         register object V104;  
         V103= caddr((V94));  
         V104= Cnil;  
         if((cadr((V103)))==Cnil){  
         goto T482;}  
         goto T477;  
         goto T482;  
 T482:;  
         if((caddr((V103)))==Cnil){  
         goto T484;}  
         goto T477;  
         goto T484;  
 T484:;  
         if((cadddr((V103)))==Cnil){  
         goto T486;}  
         goto T477;  
         goto T486;  
 T486:;  
         if(((long)length(car((V103))))<(64)){  
         goto T488;}  
1020          goto T477;          goto T477;
1021    T477:;
1022            if((CMPcaddr((V117)))==Cnil){
1023            goto T479;}
1024            goto T472;
1025            goto T479;
1026    T479:;
1027            if((CMPcadddr((V117)))==Cnil){
1028            goto T481;}
1029            goto T472;
1030            goto T481;
1031    T481:;
1032            if(((long)length(CMPcar((V117))))<(64)){
1033            goto T483;}
1034            goto T472;
1035            goto T483;
1036    T483:;
1037            {register object V119;
1038            register object V120;
1039            object V121;
1040            V119= CMPcar((V117));
1041            {object V122 =((V107))->s.s_plist;
1042             object ind= VV[68];
1043            while(V122!=Cnil){
1044            if(V122->c.c_car==ind){
1045            V120= (V122->c.c_cdr->c.c_car);
1046            goto T488;
1047            }else V122=V122->c.c_cdr->c.c_cdr;}
1048            V120= Cnil;}
1049          goto T488;          goto T488;
1050  T488:;  T488:;
1051          {register object V105;          V121= Cnil;
1052          register object V106;          goto T490;
1053          object V107;  T490:;
1054          V105= car((V103));          if(!(((V119))==Cnil)){
1055          V106= get((V97),VV[68],Cnil);          goto T491;}
1056          V107= Cnil;          if(((V120))==Cnil){
1057          goto T495;          goto T494;}
1058  T495:;          goto T486;
1059          if(!(endp_prop((V105)))){          goto T494;
1060          goto T496;}  T494:;
1061          if(endp_prop((V106))){          if(((V118))==Cnil){
1062          goto T499;}          goto T497;}
1063          goto T491;          V99= (*(LnkLI294))((V99),(V118));
         goto T499;  
 T499:;  
         if(((V104))==Cnil){  
         goto T502;}  
         V89= (*(LnkLI291))((V89),(V104));  
1064          bds_unwind1;          bds_unwind1;
1065          bds_unwind1;          bds_unwind1;
1066          bds_unwind1;          bds_unwind1;
1067          bds_unwind1;          bds_unwind1;
1068          bds_unwind1;          bds_unwind1;
1069          goto T449;          goto T444;
1070          goto T502;          goto T497;
1071  T502:;  T497:;
1072          if(((V107))==Cnil){          if(((V121))==Cnil){
1073          goto T490;}          goto T485;}
1074            goto T486;
1075          goto T491;          goto T491;
1076          goto T496;  T491:;
1077  T496:;          {register object V123;
1078          {register object V108;          V123= CMPcar((V119));
1079          V108= car((V105));          if(!(equal(CMPcar((V120)),VV[69]))){
1080          if(!(equal(car((V106)),VV[69]))){          goto T504;}
1081            goto T486;
1082            goto T504;
1083    T504:;
1084            if((STREF(object,(V123),4))==(VV[71])){
1085            goto T510;}
1086            if(!((STREF(object,(V123),4))==(VV[72]))){
1087          goto T509;}          goto T509;}
1088          goto T491;          if(!((CMPcar((V120)))==(Ct))){
1089            goto T509;}
1090            goto T510;
1091    T510:;
1092            if((STREF(object,(V123),12))!=Cnil){
1093            goto T509;}
1094            if(!((STREF(object,(V123),16))==(VV[73]))){
1095            goto T508;}
1096          goto T509;          goto T509;
1097  T509:;  T509:;
1098          V109= structure_ref((V108),VV[70],1);          {object V124;
         if((/* INLINE-ARGS */V109)==(VV[71])){  
         goto T515;}  
         V110= structure_ref((V108),VV[70],1);  
         if(!((/* INLINE-ARGS */V110)==(VV[72]))){  
         goto T514;}  
         if(!((car((V106)))==(Ct))){  
         goto T514;}  
         goto T515;  
 T515:;  
         if((structure_ref((V108),VV[70],3))!=Cnil){  
         goto T514;}  
         V111= structure_ref((V108),VV[70],4);  
         if(!((/* INLINE-ARGS */V111)==(VV[73]))){  
         goto T513;}  
         goto T514;  
 T514:;  
         {object V112;  
         V113= structure_ref((V108),VV[70],0);  
1099          vs_base=vs_top;          vs_base=vs_top;
1100          Lgensym();          Lgensym();
1101          vs_top=sup;          vs_top=sup;
1102          V114= vs_base[0];          V125= vs_base[0];
1103          V112= list(2,/* INLINE-ARGS */V113,V114);          V124= list(2,STREF(object,(V123),0),V125);
1104          V104= make_cons((V112),(V104));}          V118= make_cons((V124),(V118));}
1105          goto T513;          goto T508;
1106  T513:;  T508:;
1107          V115= car((V106));          if(((*(LnkLI295))(CMPcar((V120)),STREF(object,(V123),20)))==Cnil){
         V116= structure_ref((V108),VV[70],5);  
         if(((*(LnkLI292))(/* INLINE-ARGS */V115,/* INLINE-ARGS */V116))==Cnil){  
         goto T512;}  
         {register object x= car((V106)),V117= VV[74];  
         while(!endp(V117))  
         if(eql(x,V117->c.c_car)){  
         goto T507;  
         }else V117=V117->c.c_cdr;}  
         V118= structure_ref((V108),VV[70],4);  
         if((/* INLINE-ARGS */V118)==(VV[75])){  
1108          goto T507;}          goto T507;}
1109          if((symbol_value(VV[76]))!=Cnil){          {register object x= CMPcar((V120)),V126= VV[74];
1110          goto T507;}          while(V126!=Cnil)
1111          V120= structure_ref(cadr((V94)),VV[63],0);          if(eql(x,V126->c.c_car)){
1112          {register object x= (V108),V119= /* INLINE-ARGS */V120;          goto T502;
1113          while(!endp(V119))          }else V126=V126->c.c_cdr;}
1114          if(eql(x,V119->c.c_car)){          if((STREF(object,(V123),16))==(VV[75])){
1115          goto T537;          goto T502;}
1116          }else V119=V119->c.c_cdr;          if(((VV[76]->s.s_dbind))!=Cnil){
1117          goto T507;}          goto T502;}
1118          goto T537;          {register object x= (V123),V127= STREF(object,CMPcadr((V104)),0);
1119  T537:;          while(V127!=Cnil)
1120          goto T512;          if(eql(x,V127->c.c_car)){
1121  T512:;          goto T532;
1122          if(((V104))!=Cnil){          }else V127=V127->c.c_cdr;
1123          goto T538;}          goto T502;}
1124          V121= structure_ref((V108),VV[70],0);          goto T532;
1125          (void)((VFUN_NARGS=3,(*(LnkLI267))(VV[77],(V97),/* INLINE-ARGS */V121)));  T532:;
         goto T538;  
 T538:;  
         V107= Ct;}  
1126          goto T507;          goto T507;
1127  T507:;  T507:;
1128          V105= cdr((V105));          if(((V118))!=Cnil){
1129          V106= cdr((V106));          goto T533;}
1130          goto T495;}          (void)((VFUN_NARGS=3,(*(LnkLI267))(VV[77],(V107),STREF(object,(V123),0))));
1131          goto T491;          goto T533;
1132  T491:;  T533:;
1133          goto T477;          V121= Ct;}
1134          goto T490;          goto T502;
1135  T490:;  T502:;
1136          if(!(type_of((V95))==t_fixnum||          V119= CMPcdr((V119));
1137  type_of((V95))==t_bignum||          V120= CMPcdr((V120));
1138  type_of((V95))==t_ratio||          goto T490;}
1139  type_of((V95))==t_shortfloat||          goto T486;
1140  type_of((V95))==t_longfloat||  T486:;
1141  type_of((V95))==t_complex)){          goto T472;
1142          goto T477;}}          goto T485;
1143          {object V122;  T485:;
1144          V123= get((V97),VV[68],Cnil);          if(!(type_of((V105))==t_fixnum||
1145          V124= get((V97),VV[78],Cnil);  type_of((V105))==t_bignum||
1146          V125= get((V97),VV[68],Cnil);  type_of((V105))==t_ratio||
1147          V122= list(5,(V97),V123,V124,small_fixnum(3),(*(LnkLI293))((V95),V125));  type_of((V105))==t_shortfloat||
1148          setq(VV[79],make_cons((V122),symbol_value(VV[79])));  type_of((V105))==t_longfloat||
1149          goto T475;}  type_of((V105))==t_complex)){
1150          goto T477;          goto T472;}}
 T477:;  
         {object V126;  
         V127= get((V97),VV[78],Cnil);  
         V126= ((V127)==(Ct)?Ct:Cnil);  
         if(((V126))==Cnil){  
         goto T475;}}  
         goto T475;  
 T475:;  
         if((cadddr((V94)))==Cnil){  
         goto T555;}  
         V96= cadddr((V94));  
         goto T555;  
 T555:;  
         (void)((*(LnkLI294))());  
1151          {object V128;          {object V128;
1152          V128= list(6,VV[52],(V97),(V95),(V94),(V96),(VV[60]->s.s_dbind));          {object V130 =((V107))->s.s_plist;
1153          setq(VV[25],make_cons((V128),symbol_value(VV[25])));}           object ind= VV[68];
1154          {object V129;          while(V130!=Cnil){
1155          V129= make_cons((V97),(V95));          if(V130->c.c_car==ind){
1156          setq(VV[80],make_cons((V129),symbol_value(VV[80])));          V129= (V130->c.c_cdr->c.c_car);
1157          V130= symbol_value(VV[80]);          goto T542;
1158            }else V130=V130->c.c_cdr->c.c_cdr;}
1159            V129= Cnil;}
1160            goto T542;
1161    T542:;
1162            {object V132 =((V107))->s.s_plist;
1163             object ind= VV[78];
1164            while(V132!=Cnil){
1165            if(V132->c.c_car==ind){
1166            V131= (V132->c.c_cdr->c.c_car);
1167            goto T543;
1168            }else V132=V132->c.c_cdr->c.c_cdr;}
1169            V131= Cnil;}
1170            goto T543;
1171    T543:;
1172            {object V134 =((V107))->s.s_plist;
1173             object ind= VV[68];
1174            while(V134!=Cnil){
1175            if(V134->c.c_car==ind){
1176            V133= (V134->c.c_cdr->c.c_car);
1177            goto T544;
1178            }else V134=V134->c.c_cdr->c.c_cdr;}
1179            V133= Cnil;}
1180            goto T544;
1181    T544:;
1182            V128= list(5,(V107),V129,V131,small_fixnum(3),(*(LnkLI296))((V105),V133));
1183            (VV[79]->s.s_dbind)= make_cons((V128),(VV[79]->s.s_dbind));
1184            goto T470;}
1185            goto T472;
1186    T472:;
1187            {object V135;
1188            {object V137 =((V107))->s.s_plist;
1189             object ind= VV[78];
1190            while(V137!=Cnil){
1191            if(V137->c.c_car==ind){
1192            V136= (V137->c.c_cdr->c.c_car);
1193            goto T547;
1194            }else V137=V137->c.c_cdr->c.c_cdr;}
1195            V136= Cnil;}
1196            goto T547;
1197    T547:;
1198            V135= ((V136)==(Ct)?Ct:Cnil);
1199            if(((V135))==Cnil){
1200            goto T470;}}
1201            goto T470;
1202    T470:;
1203            if((CMPcadddr((V104)))==Cnil){
1204            goto T550;}
1205            V106= CMPcadddr((V104));
1206            goto T550;
1207    T550:;
1208            (void)((*(LnkLI297))());
1209            {object V138;
1210            V138= list(6,VV[52],(V107),(V105),(V104),(V106),(VV[60]->s.s_dbind));
1211            (VV[25]->s.s_dbind)= make_cons((V138),(VV[25]->s.s_dbind));}
1212            {object V139;
1213            V139= make_cons((V107),(V105));
1214            (VV[80]->s.s_dbind)= make_cons((V139),(VV[80]->s.s_dbind));
1215            V140= (VV[80]->s.s_dbind);
1216          bds_unwind1;          bds_unwind1;
1217          bds_unwind1;          bds_unwind1;
1218          bds_unwind1;          bds_unwind1;
1219          bds_unwind1;          bds_unwind1;
1220          bds_unwind1;}}          bds_unwind1;}}
1221          {object V131 = Cnil;          {object V141 = Cnil;
1222          bds_unwind1;          bds_unwind1;
1223          VMR8(V131)}}          VMR8(V141)}}
1224          base[0]=base[0];          base[0]=base[0];
1225          return Cnil;          return Cnil;
1226  }  }
1227  /*      local entry for function MAKE-INLINE-STRING     */  /*      local entry for function MAKE-INLINE-STRING     */
1228    
1229  static object LI9(V134,V135)  static object LI9(V144,V145)
1230    
1231  object V134;object V135;  object V144;object V145;
1232  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1233          goto TTL;          goto TTL;
1234  TTL:;  TTL:;
1235          if(((V135))!=Cnil){          if(((V145))!=Cnil){
1236          goto T566;}          goto T561;}
1237          base[0]= Cnil;          base[0]= Cnil;
1238          base[1]= VV[81];          base[1]= VV[81];
1239          base[2]= (V134);          base[2]= (V144);
1240          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1241          Lformat();          Lformat();
1242          vs_top=sup;          vs_top=sup;
1243          {object V136 = vs_base[0];          {object V146 = vs_base[0];
1244          VMR9(V136)}          VMR9(V146)}
1245          goto T566;          goto T561;
1246  T566:;  T561:;
1247          {register object V137;          {register object V147;
1248          V137= (VFUN_NARGS=7,(*(LnkLI295))(small_fixnum(100),VV[82],VV[83],VV[84],small_fixnum(0),VV[85],Ct));          V147= (VFUN_NARGS=7,(*(LnkLI298))(small_fixnum(100),VV[82],VV[83],VV[84],small_fixnum(0),VV[85],Ct));
1249          base[0]= (V137);          base[0]= (V147);
1250          base[1]= VV[86];          base[1]= VV[86];
1251          base[2]= (V134);          base[2]= (V144);
1252          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1253          Lformat();          Lformat();
1254          vs_top=sup;          vs_top=sup;
1255          {register object V138;          {register object V148;
1256          register long V139;          register long V149;
1257          V139= 0;          V149= 0;
1258          V138= (V135);          V148= (V145);
1259          goto T579;          goto T574;
1260  T579:;  T574:;
1261          if(!(endp_prop(cdr((V138))))){          if(!((CMPcdr((V148)))==Cnil)){
1262          goto T580;}          goto T575;}
1263          base[0]= (V137);          base[0]= (V147);
1264          base[1]= VV[87];          base[1]= VV[87];
1265          base[2]= make_fixnum(V139);          base[2]= CMPmake_fixnum(V149);
1266          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1267          Lformat();          Lformat();
1268          vs_top=sup;          vs_top=sup;
1269          goto T576;          goto T571;
1270          goto T580;          goto T575;
1271  T580:;  T575:;
1272          base[0]= (V137);          base[0]= (V147);
1273          base[1]= VV[88];          base[1]= VV[88];
1274          base[2]= make_fixnum(V139);          base[2]= CMPmake_fixnum(V149);
1275          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1276          Lformat();          Lformat();
1277          vs_top=sup;          vs_top=sup;
1278          V138= cdr((V138));          V148= CMPcdr((V148));
1279          V139= (long)(V139)+1;          V149= (long)(V149)+1;
1280          goto T579;}          goto T574;}
1281          goto T576;          goto T571;
1282  T576:;  T571:;
1283          {object V140 = (V137);          {object V150 = (V147);
1284          VMR9(V140)}}          VMR9(V150)}}
1285          base[0]=base[0];          base[0]=base[0];
1286          return Cnil;          return Cnil;
1287  }  }
# Line 1181  static object LI10(object first,...) Line 1291  static object LI10(object first,...)
1291  {        {      
1292          va_list ap;          va_list ap;
1293          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
1294          {object V141;          {object V151;
1295          va_start(ap,first);          va_start(ap,first);
1296          narg = narg - 0;          narg = narg - 0;
1297          if (narg <= 0) goto T595;          if (narg <= 0) goto T590;
1298          else {          else {
1299          V141= first;}          V151= first;}
1300          --narg; goto T596;          --narg; goto T591;
1301          goto T595;          goto T590;
1302  T595:;  T590:;
1303          V141= Cnil;          V151= Cnil;
1304            goto T591;
1305    T591:;
1306            {object V152;
1307            (VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1));
1308            V152= (VV[89]->s.s_dbind);
1309            {object V153;
1310            if(((V151))==Cnil){
1311            goto T598;}
1312            V153= make_cons((V151),(V152));
1313            goto T596;
1314            goto T598;
1315    T598:;
1316            V153= (V152);
1317          goto T596;          goto T596;
1318  T596:;  T596:;
1319          {object V142;          (VV[19]->s.s_dbind)= make_cons((V153),(VV[19]->s.s_dbind));}
1320          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));          {object V154 = (V152);
1321          V142= symbol_value(VV[89]);          VMR10(V154)}}
         {object V143;  
         if(((V141))==Cnil){  
         goto T603;}  
         V143= make_cons((V141),(V142));  
         goto T601;  
         goto T603;  
 T603:;  
         V143= (V142);  
         goto T601;  
 T601:;  
         setq(VV[19],make_cons((V143),symbol_value(VV[19])));}  
         {object V144 = (V142);  
         VMR10(V144)}}  
1322          va_end(ap);          va_end(ap);
1323          base[0]=base[0];          base[0]=base[0];
1324          return Cnil;}          return Cnil;}
1325          }          }
1326  /*      local entry for function F-TYPE */  /*      local entry for function F-TYPE */
1327    
1328  static object LI11(V146)  static object LI11(V156)
1329    
1330  register object V146;  register object V156;
1331  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
1332          goto TTL;          goto TTL;
1333  TTL:;  TTL:;
1334          base[0]= (V146);          base[0]= (V156);
1335          base[1]= VV[70];          base[1]= VV[70];
1336          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1337          (void) (*Lnk296)();          (void) (*Lnk299)();
1338          vs_top=sup;          vs_top=sup;
1339          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1340          goto T606;}          goto T601;}
1341          V146= structure_ref((V146),VV[70],5);          V156= STREF(object,(V156),20);
1342          goto T606;          goto T601;
1343  T606:;  T601:;
1344          if(((V146))==Cnil){          if(((V156))==Cnil){
1345          goto T613;}          goto T608;}
1346          base[0]= (V146);          base[0]= (V156);
1347          base[1]= VV[90];          base[1]= VV[90];
1348          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1349          (void) (*Lnk297)();          (void) (*Lnk300)();
1350          vs_top=sup;          vs_top=sup;
1351          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1352          goto T613;}          goto T608;}
1353          {long V147 = 1;          {long V157 = 1;
1354          VMR11((object)V147)}          VMR11((object)V157)}
1355          goto T613;          goto T608;
1356  T613:;  T608:;
1357          {long V148 = 0;          {long V158 = 0;
1358          VMR11((object)V148)}          VMR11((object)V158)}
1359          base[0]=base[0];          base[0]=base[0];
1360  }  }
1361  /*      local entry for function PROCLAIMED-ARGD        */  /*      local entry for function PROCLAIMED-ARGD        */
1362    
1363  static object LI12(V151,V152)  static object LI12(V161,V162)
1364    
1365  register object V151;object V152;  register object V161;object V162;
1366  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1367          goto TTL;          goto TTL;
1368  TTL:;  TTL:;
1369          {register long V153;          {register long V163;
1370          register long V154;          register long V164;
1371          register object V155;          register object V165;
1372          register object V156;          register object V166;
1373          V153= (long)length((V151));          V163= (long)length((V161));
1374          V154= 8;          V164= 8;
1375          V155= make_fixnum((long)(*(LnkLI298))((V152)));          V165= CMPmake_fixnum((long)(*(LnkLI301))((V162)));
1376          V156= Ct;          V166= Ct;
1377          goto T623;          goto T618;
1378  T623:;  T618:;
1379          if(eql(small_fixnum(0),(V155))){          if(eql(small_fixnum(0),(V165))){
1380          goto T625;}          goto T620;}
1381          V153= (long)(V153)+((long)((fix((V155))) << (V154)));          V163= (long)(V163)+((long)((fix((V165))) << (V164)));
1382          goto T625;          goto T620;
1383  T625:;  T620:;
1384          if(((V156))==Cnil){          if(((V166))==Cnil){
1385          goto T629;}          goto T624;}
1386          V154= 10;          V164= 10;
1387          V156= Cnil;          V166= Cnil;
1388          goto T629;          goto T624;
1389  T629:;  T624:;
1390          if(((V151))!=Cnil){          if(((V161))!=Cnil){
1391          goto T635;}          goto T630;}
1392          {long V157 = V153;          {long V167 = V163;
1393          VMR12((object)V157)}          VMR12((object)V167)}
1394          goto T635;          goto T630;
1395  T635:;  T630:;
1396          V154= (long)(V154)+(2);          V164= (long)(V164)+(2);
1397          {register object V159;          {register object V169;
1398          V159= car((V151));          V169= CMPcar((V161));
1399          V151= cdr((V151));          V161= CMPcdr((V161));
1400          V158= (V159);}          V168= (V169);}
1401          V155= make_fixnum((long)(*(LnkLI298))(V158));          V165= CMPmake_fixnum((long)(*(LnkLI301))(V168));
1402          goto T623;}          goto T618;}
1403  }  }
1404  /*      local entry for function WT-IF-PROCLAIMED       */  /*      local entry for function WT-IF-PROCLAIMED       */
1405    
1406  static object LI13(V163,V164,V165)  static object LI13(V173,V174,V175)
1407    
1408  register object V163;object V164;object V165;  register object V173;object V174;object V175;
1409  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1410          goto TTL;          goto TTL;
1411  TTL:;  TTL:;
1412          if(((VFUN_NARGS=1,(*(LnkLI300))((V163))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI303))((V173))))==Cnil){
1413          goto T647;}          goto T642;}
1414          {register object x= (V163),V166= symbol_value(VV[79]);          {register object x= (V173),V176= (VV[79]->s.s_dbind);
1415          while(!endp(V166))          while(V176!=Cnil)
1416          if(type_of(V166->c.c_car)==t_cons &&eql(x,V166->c.c_car->c.c_car)){          if(eql(x,V176->c.c_car->c.c_car) &&V176->c.c_car != Cnil){
1417          goto T651;          goto T646;
1418          }else V166=V166->c.c_cdr;          }else V176=V176->c.c_cdr;
1419          goto T650;}          goto T645;}
1420          goto T651;          goto T646;
1421  T651:;  T646:;
1422          V167= list(2,VV[92],(V163));          V177= list(2,VV[92],(V173));
1423          V168= (*(LnkLI302))(VV[93],(V164));          V178= (*(LnkLI305))(VV[93],(V174));
1424          V169= get((V163),VV[68],Cnil);          {object V180 =((V173))->s.s_plist;
1425          V170= get((V163),VV[78],Cnil);           object ind= VV[68];
1426          V171 = make_fixnum((long)(*(LnkLI303))(V169,V170));          while(V180!=Cnil){
1427          V172= list(4,VV[91],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,V171);          if(V180->c.c_car==ind){
1428          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V172)));          V179= (V180->c.c_cdr->c.c_car);
1429          {object V173 = Ct;          goto T648;
1430          VMR13(V173)}          }else V180=V180->c.c_cdr->c.c_cdr;}
1431          goto T650;          V179= Cnil;}
1432  T650:;          goto T648;
1433          {register object V174;  T648:;
1434          register object V175;          {object V182 =((V173))->s.s_plist;
1435          object V176;           object ind= VV[78];
1436          V174= make_fixnum((long)length(car(caddr((V165)))));          while(V182!=Cnil){
1437          V177= get((V163),VV[68],Cnil);          if(V182->c.c_car==ind){
1438          V175= make_fixnum((long)length(V177));          V181= (V182->c.c_cdr->c.c_car);
1439          V179= get((V163),VV[68],Cnil);          goto T649;
1440          {register object x= VV[69],V178= V179;          }else V182=V182->c.c_cdr->c.c_cdr;}
1441          while(!endp(V178))          V181= Cnil;}
1442          if(eql(x,V178->c.c_car)){          goto T649;
1443          V176= V178;  T649:;
1444          goto T659;          V183 = CMPmake_fixnum((long)(*(LnkLI306))(V179,V181));
1445          }else V178=V178->c.c_cdr;          V184= list(4,VV[91],/* INLINE-ARGS */V177,/* INLINE-ARGS */V178,V183);
1446          V176= Cnil;}          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V184)));
1447          goto T659;          {object V185 = Ct;
1448  T659:;          VMR13(V185)}
1449          if(((V176))==Cnil){          goto T645;
1450          goto T662;}  T645:;
1451          base[0]= (V174);          {register object V186;
1452            register object V187;
1453            object V188;
1454            V186= CMPmake_fixnum((long)length(CMPcar(CMPcaddr((V175)))));
1455            {object V190 =((V173))->s.s_plist;
1456             object ind= VV[68];
1457            while(V190!=Cnil){
1458            if(V190->c.c_car==ind){
1459            V189= (V190->c.c_cdr->c.c_car);
1460            goto T653;
1461            }else V190=V190->c.c_cdr->c.c_cdr;}
1462            V189= Cnil;}
1463            goto T653;
1464    T653:;
1465            V187= CMPmake_fixnum((long)length(V189));
1466            {object V193 =((V173))->s.s_plist;
1467             object ind= VV[68];
1468            while(V193!=Cnil){
1469            if(V193->c.c_car==ind){
1470            V192= (V193->c.c_cdr->c.c_car);
1471            goto T655;
1472            }else V193=V193->c.c_cdr->c.c_cdr;}
1473            V192= Cnil;}
1474            goto T655;
1475    T655:;
1476            {register object x= VV[69],V191= V192;
1477            while(V191!=Cnil)
1478            if(eql(x,V191->c.c_car)){
1479            V188= V191;
1480            goto T654;
1481            }else V191=V191->c.c_cdr;
1482            V188= Cnil;}
1483            goto T654;
1484    T654:;
1485            if(((V188))==Cnil){
1486            goto T657;}
1487            base[0]= (V186);
1488          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1489          Lmonotonically_nonincreasing();          Lmonotonically_nonincreasing();
1490          vs_top=sup;          vs_top=sup;
1491          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1492          goto T664;}          goto T659;}
1493          goto T655;          goto T650;
1494          goto T664;          goto T659;
1495  T664:;{object V180;  T659:;{object V194;
1496          V181 = make_fixnum((long)length((V176)));          V195 = CMPmake_fixnum((long)length((V188)));
1497          V180= number_minus((V175),V181);          V194= number_minus((V187),V195);
1498          if(V180==Cnil)goto T667;          if(V194==Cnil)goto T662;
1499          goto T655;          goto T650;
         goto T667;  
 T667:;}  
         V182 = make_fixnum((long)length((V176)));  
         V183= number_minus((V175),V182);  
         (void)((VFUN_NARGS=4,(*(LnkLI267))(VV[94],(V163),/* INLINE-ARGS */V183,(V174))));  
         goto T655;  
1500          goto T662;          goto T662;
1501  T662:;  T662:;}
1502          if(eql((V174),(V175))){          V196 = CMPmake_fixnum((long)length((V188)));
1503          goto T670;}          V197= number_minus((V187),V196);
1504          (void)((VFUN_NARGS=4,(*(LnkLI267))(VV[95],(V163),(V175),(V174))));          (void)((VFUN_NARGS=4,(*(LnkLI267))(VV[94],(V173),/* INLINE-ARGS */V197,(V186))));
1505          goto T655;          goto T650;
1506          goto T670;          goto T657;
1507  T670:;  T657:;
1508          (void)((VFUN_NARGS=2,(*(LnkLI267))(VV[96],(V163))));}          if(eql((V186),(V187))){
1509          goto T655;          goto T665;}
1510  T655:;          (void)((VFUN_NARGS=4,(*(LnkLI267))(VV[95],(V173),(V187),(V186))));
1511          {object V184 = Cnil;          goto T650;
1512          VMR13(V184)}          goto T665;
1513          goto T647;  T665:;
1514  T647:;          (void)((VFUN_NARGS=2,(*(LnkLI267))(VV[96],(V173))));}
1515          {object V185 = Cnil;          goto T650;
1516          VMR13(V185)}  T650:;
1517            {object V198 = Cnil;
1518            VMR13(V198)}
1519            goto T642;
1520    T642:;
1521            {object V199 = Cnil;
1522            VMR13(V199)}
1523          base[0]=base[0];          base[0]=base[0];
1524          return Cnil;          return Cnil;
1525  }  }
1526  /*      local entry for function VOLATILE       */  /*      local entry for function VOLATILE       */
1527    
1528  static object LI14(V187)  static object LI14(V201)
1529    
1530  object V187;  object V201;
1531  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1532          goto TTL;          goto TTL;
1533  TTL:;  TTL:;
1534          if((structure_ref((V187),VV[63],4))==Cnil){          if((STREF(object,(V201),16))==Cnil){
1535          goto T673;}          goto T668;}
1536          {object V188 = VV[97];          {object V202 = VV[97];
1537          VMR14(V188)}          VMR14(V202)}
1538          goto T673;          goto T668;
1539  T673:;  T668:;
1540          {object V189 = VV[98];          {object V203 = VV[98];
1541          VMR14(V189)}          VMR14(V203)}
1542          return Cnil;          return Cnil;
1543  }  }
1544  /*      local entry for function REGISTER       */  /*      local entry for function REGISTER       */
1545    
1546  static object LI15(V191)  static object LI15(V205)
1547    
1548  object V191;  object V205;
1549  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1550          goto TTL;          goto TTL;
1551  TTL:;  TTL:;
1552          if(!(equal(symbol_value(VV[21]),VV[99]))){          if(!(equal((VV[21]->s.s_dbind),VV[99]))){
1553          goto T676;}          goto T671;}
1554          {long V192= fix(structure_ref((V191),VV[70],6));          if(!((fix(STREF(object,(V205),24)))>=(fix((VV[100]->s.s_dbind))))){
1555          if(!((/* INLINE-ARGS */V192)>=(fix(symbol_value(VV[100]))))){          goto T671;}
1556          goto T676;}}          {object V206 = VV[101];
1557          {object V193 = VV[101];          VMR15(V206)}
1558          VMR15(V193)}          goto T671;
1559          goto T676;  T671:;
1560  T676:;          {object V207 = VV[102];
1561          {object V194 = VV[102];          VMR15(V207)}
         VMR15(V194)}  
1562          return Cnil;          return Cnil;
1563  }  }
1564  /*      local entry for function VARARG-P       */  /*      local entry for function VARARG-P       */
1565    
1566  static object LI16(V196)  static object LI16(V209)
1567    
1568  object V196;  object V209;
1569  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1570          goto TTL;          goto TTL;
1571  TTL:;  TTL:;
1572          V197= get((V196),VV[78],Cnil);          {object V211 =((V209))->s.s_plist;
1573          if(equal(V197,Ct)){           object ind= VV[78];
1574          goto T680;}          while(V211!=Cnil){
1575          {object V198 = Cnil;          if(V211->c.c_car==ind){
1576          VMR16(V198)}          V210= (V211->c.c_cdr->c.c_car);
1577            goto T677;
1578            }else V211=V211->c.c_cdr->c.c_cdr;}
1579            V210= Cnil;}
1580            goto T677;
1581    T677:;
1582            if(equal(V210,Ct)){
1583            goto T675;}
1584            {object V212 = Cnil;
1585            VMR16(V212)}
1586            goto T675;
1587    T675:;
1588            {register object V213;
1589            {object V214 =((V209))->s.s_plist;
1590             object ind= VV[68];
1591            while(V214!=Cnil){
1592            if(V214->c.c_car==ind){
1593            V213= (V214->c.c_cdr->c.c_car);
1594            goto T678;
1595            }else V214=V214->c.c_cdr->c.c_cdr;}
1596            V213= Cnil;}
1597            goto T678;
1598    T678:;
1599          goto T680;          goto T680;
1600  T680:;  T680:;
1601          {register object V199;          if(((V213))!=Cnil){
1602          V199= get((V196),VV[68],Cnil);          goto T681;}
1603          goto T685;          {object V215 = Ct;
1604  T685:;          VMR16(V215)}
1605          if(((V199))!=Cnil){          goto T681;
1606    T681:;
1607            if(!(type_of((V213))==t_cons)){
1608          goto T686;}          goto T686;}
1609          {object V200 = Ct;          goto T685;
         VMR16(V200)}  
1610          goto T686;          goto T686;
1611  T686:;  T686:;
1612          if(!(type_of((V199))==t_cons)){          {object V216 = Cnil;
1613            VMR16(V216)}
1614            goto T685;
1615    T685:;
1616            if(!((CMPcar((V213)))==(Ct))){
1617            goto T689;}
1618            goto T688;
1619            goto T689;
1620    T689:;
1621            if(!((CMPcar((V213)))==(VV[69]))){
1622          goto T691;}          goto T691;}
1623          goto T690;          goto T688;
1624          goto T691;          goto T691;
1625  T691:;  T691:;
1626          {object V201 = Cnil;          {object V217 = Cnil;
1627          VMR16(V201)}          VMR16(V217)}
1628          goto T690;          goto T688;
1629  T690:;  T688:;
1630          if(!((car((V199)))==(Ct))){          V213= CMPcdr((V213));
1631          goto T694;}          goto T680;}
         goto T693;  
         goto T694;  
 T694:;  
         if(!((car((V199)))==(VV[69]))){  
         goto T696;}  
         goto T693;  
         goto T696;  
 T696:;  
         {object V202 = Cnil;  
         VMR16(V202)}  
         goto T693;  
 T693:;  
         V199= cdr((V199));  
         goto T685;}  
1632          return Cnil;          return Cnil;
1633  }  }
1634  /*      local entry for function MAXARGS        */  /*      local entry for function MAXARGS        */
1635    
1636  static object LI17(V204)  static object LI17(V219)
1637    
1638  register object V204;  register object V219;
1639  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1640          goto TTL;          goto TTL;
1641  TTL:;  TTL:;
1642          if((cadddr((V204)))!=Cnil){          if((CMPcadddr((V219)))!=Cnil){
1643          goto T701;}          goto T696;}
1644          if((caddr((V204)))==Cnil){          if((CMPcaddr((V219)))==Cnil){
1645          goto T702;}          goto T697;}
1646          goto T701;          goto T696;
1647  T701:;  T696:;
1648          {object V205 = small_fixnum(64);          {object V220 = small_fixnum(64);
1649          VMR17(V205)}          VMR17(V220)}
1650          goto T702;          goto T697;
1651  T702:;  T697:;
1652          base[0]= make_fixnum((long)length(car((V204))));          base[0]= CMPmake_fixnum((long)length(CMPcar((V219))));
1653          base[1]= make_fixnum((long)length(cadr((V204))));          base[1]= CMPmake_fixnum((long)length(CMPcadr((V219))));
1654          V206 = make_fixnum((long)length(car(cddddr((V204)))));          V221 = CMPmake_fixnum((long)length(CMPcar(CMPcddddr((V219)))));
1655          base[2]= number_times(small_fixnum(2),V206);          base[2]= number_times(small_fixnum(2),V221);
1656          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1657          Lplus();          Lplus();
1658          vs_top=sup;          vs_top=sup;
1659          {object V207 = vs_base[0];          {object V222 = vs_base[0];
1660          VMR17(V207)}          VMR17(V222)}
1661          base[0]=base[0];          base[0]=base[0];
1662          return Cnil;          return Cnil;
1663  }  }
1664  /*      local entry for function ADD-ADDRESS    */  /*      local entry for function ADD-ADDRESS    */
1665    
1666  static object LI18(V210,V211)  static object LI18(V225,V226)
1667    
1668  object V210;object V211;  object V225;object V226;
1669  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1670          goto TTL;          goto TTL;
1671  TTL:;  TTL:;
1672          {object V212;          {object V227;
1673          V212= list(2,(V210),(V211));          V227= list(2,(V225),(V226));
1674          setq(VV[22],make_cons((V212),symbol_value(VV[22])));}          (VV[22]->s.s_dbind)= make_cons((V227),(VV[22]->s.s_dbind));}
1675          {object V213;          {object V228;
1676          V213= symbol_value(VV[23]);          V228= (VV[23]->s.s_dbind);
1677          setq(VV[23],number_plus(symbol_value(VV[23]),small_fixnum(1)));          (VV[23]->s.s_dbind)= number_plus((VV[23]->s.s_dbind),small_fixnum(1));
1678          {object V214 = (V213);          {object V229 = (V228);
1679          VMR18(V214)}}          VMR18(V229)}}
1680          base[0]=base[0];          base[0]=base[0];
1681          return Cnil;          return Cnil;
1682  }  }
1683  /*      local entry for function T2DEFUN        */  /*      local entry for function T2DEFUN        */
1684    
1685  static object LI19(V220,V221,V222,V223,V224)  static object LI19(V235,V236,V237,V238,V239)
1686    
1687  register object V220;register object V221;register object V222;object V223;object V224;  register object V235;register object V236;register object V237;object V238;object V239;
1688  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1689          goto TTL;          goto TTL;
1690  TTL:;  TTL:;
1691          if((get((V220),VV[103],Cnil))==Cnil){          {object V240 =((V235))->s.s_plist;
1692          goto T714;}           object ind= VV[103];
1693          {object V225 = Cnil;          while(V240!=Cnil){
1694          VMR19(V225)}          if(V240->c.c_car==ind){
1695          goto T714;          if(((V240->c.c_cdr->c.c_car))==Cnil){
1696  T714:;          goto T709;}
1697          if(((V223))==Cnil){          goto T711;
1698          goto T717;}          }else V240=V240->c.c_cdr->c.c_cdr;}
1699          V226= list(4,VV[104],list(2,VV[92],(V220)),(V223),VV[105]);          goto T709;}
1700          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V226)));          goto T711;
1701          goto T717;  T711:;
1702  T717:;          {object V241 = Cnil;
1703          {object V227;          VMR19(V241)}
1704          V227= (*(LnkLI304))((V220),(V221),(V222));          goto T709;
1705          if(((V227))==Cnil){  T709:;
1706          goto T723;}          if(((V238))==Cnil){
1707          goto T720;          goto T712;}
1708          goto T723;          V242= list(4,VV[104],list(2,VV[92],(V235)),(V238),VV[105]);
1709  T723:;          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V242)));
1710          if(((*(LnkLI305))((V220)))==Cnil){          goto T712;
1711          goto T726;}  T712:;
1712          {object V228;          {object V243;
1713          V228= cadddr(caddr((V222)));          V243= (*(LnkLI307))((V235),(V236),(V237));
1714          if(((V228))==Cnil){          if(((V243))==Cnil){
1715          goto T730;}          goto T718;}
1716          V229= list(2,VV[92],(V220));          goto T715;
1717          V230= (*(LnkLI302))(VV[107],(V221));          goto T718;
1718          V231 = make_fixnum((long)length(car(caddr((V222)))));  T718:;
1719          V232= (*(LnkLI306))(caddr((V222)));          if(((*(LnkLI308))((V235)))==Cnil){
1720          V233= (*(LnkLI299))(/* INLINE-ARGS */V232,small_fixnum(8));          goto T721;}
1721          V234= number_plus(V231,/* INLINE-ARGS */V233);          {object V244;
1722            V244= CMPcadddr(CMPcaddr((V237)));
1723            if(((V244))==Cnil){
1724            goto T725;}
1725            V245= list(2,VV[92],(V235));
1726            V246= (*(LnkLI305))(VV[107],(V236));
1727            V247 = CMPmake_fixnum((long)length(CMPcar(CMPcaddr((V237)))));
1728            V248= (*(LnkLI309))(CMPcaddr((V237)));
1729            V249= (*(LnkLI302))(/* INLINE-ARGS */V248,small_fixnum(8));
1730            V250= number_plus(V247,/* INLINE-ARGS */V249);
1731          base[0]= Cnil;          base[0]= Cnil;
1732          base[1]= VV[108];          base[1]= VV[108];
1733          base[2]= (V221);          base[2]= (V236);
1734          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1735          Lformat();          Lformat();
1736          vs_top=sup;          vs_top=sup;
1737          V235= vs_base[0];          V251= vs_base[0];
1738          V236= list(5,VV[106],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,/* INLINE-ARGS */V234,(*(LnkLI302))(V235,VV[109]));          V252= list(5,VV[106],/* INLINE-ARGS */V245,/* INLINE-ARGS */V246,/* INLINE-ARGS */V250,(*(LnkLI305))(V251,VV[109]));
1739          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V236)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V252)));
1740          goto T720;          goto T715;
1741          goto T730;          goto T725;
1742  T730:;  T725:;
1743          V237= list(2,VV[92],(V220));          V253= list(2,VV[92],(V235));
1744          V238= (*(LnkLI302))(VV[111],(V221));          V254= (*(LnkLI305))(VV[111],(V236));
1745          V239 = make_fixnum((long)length(car(caddr((V222)))));          V255 = CMPmake_fixnum((long)length(CMPcar(CMPcaddr((V237)))));
1746          V240= (*(LnkLI306))(caddr((V222)));          V256= (*(LnkLI309))(CMPcaddr((V237)));
1747          V241= (*(LnkLI299))(/* INLINE-ARGS */V240,small_fixnum(8));          V257= (*(LnkLI302))(/* INLINE-ARGS */V256,small_fixnum(8));
1748          V242= list(4,VV[110],/* INLINE-ARGS */V237,/* INLINE-ARGS */V238,number_plus(V239,/* INLINE-ARGS */V241));          V258= list(4,VV[110],/* INLINE-ARGS */V253,/* INLINE-ARGS */V254,number_plus(V255,/* INLINE-ARGS */V257));
1749          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V242)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V258)));
1750          goto T720;}          goto T715;}
1751          goto T726;          goto T721;
1752  T726:;  T721:;
1753          if(!(type_of((V221))==t_fixnum||          if(!(type_of((V236))==t_fixnum||
1754  type_of((V221))==t_bignum||  type_of((V236))==t_bignum||
1755  type_of((V221))==t_ratio||  type_of((V236))==t_ratio||
1756  type_of((V221))==t_shortfloat||  type_of((V236))==t_shortfloat||
1757  type_of((V221))==t_longfloat||  type_of((V236))==t_longfloat||
1758  type_of((V221))==t_complex)){  type_of((V236))==t_complex)){
1759          goto T737;}          goto T732;}
1760          princ_str("\nstatic void L",VV[32]);          princ_str("\nstatic void L",VV[32]);
1761          (void)((*(LnkLI278))((V221)));          (void)((*(LnkLI278))((V236)));
1762          princ_str("();",VV[32]);          princ_str("();",VV[32]);
1763          V243= list(2,VV[92],(V220));          V259= list(2,VV[92],(V235));
1764          V244= list(3,VV[112],/* INLINE-ARGS */V243,(*(LnkLI302))(VV[113],(V221)));          V260= list(3,VV[112],/* INLINE-ARGS */V259,(*(LnkLI305))(VV[113],(V236)));
1765          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V244)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V260)));
1766          goto T720;          goto T715;
1767          goto T737;          goto T732;
1768  T737:;  T732:;
1769          princ_char(10,VV[32]);          princ_char(10,VV[32]);
1770          (void)((*(LnkLI278))((V221)));          (void)((*(LnkLI278))((V236)));
1771          princ_str("();",VV[32]);          princ_str("();",VV[32]);
1772          V245= list(2,VV[92],(V220));          V261= list(2,VV[92],(V235));
1773          V246= list(3,VV[112],/* INLINE-ARGS */V245,(*(LnkLI302))(VV[114],(V221)));          V262= list(3,VV[112],/* INLINE-ARGS */V261,(*(LnkLI305))(VV[114],(V236)));
1774          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V246)));}          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V262)));}
1775          goto T720;          goto T715;
1776  T720:;  T715:;
1777          if(!(number_compare(symbol_value(VV[115]),small_fixnum(2))<0)){          if(!(number_compare((VV[115]->s.s_dbind),small_fixnum(2))<0)){
1778          goto T748;}          goto T743;}
1779          {object V247 = sputprop((V220),VV[116],Ct);          {object V263 = sputprop((V235),VV[116],Ct);
1780          VMR19(V247)}          VMR19(V263)}
1781          goto T748;          goto T743;
1782  T748:;  T743:;
1783          {object V248 = Cnil;          {object V264 = Cnil;
1784          VMR19(V248)}          VMR19(V264)}
1785          base[0]=base[0];          base[0]=base[0];
1786          return Cnil;          return Cnil;
1787  }  }
1788  /*      local entry for function ADD-DEBUG      */  /*      local entry for function ADD-DEBUG      */
1789    
1790  static object LI20(V251,V252)  static object LI20(V267,V268)
1791    
1792  object V251;object V252;  object V267;object V268;
1793  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1794          goto TTL;          goto TTL;
1795  TTL:;  TTL:;
1796          {object V253 = putprop((V251),(V252),VV[117]);          {object V269 = putprop((V267),(V268),VV[117]);
1797          VMR20(V253)}          VMR20(V269)}
1798          return Cnil;          return Cnil;
1799  }  }
1800  /*      local entry for function T3DEFUN        */  /*      local entry for function T3DEFUN        */
1801    
1802  static object LI21(V259,V260,V261,V262,V263)  static object LI21(V275,V276,V277,V278,V279)
1803    
1804  register object V259;register object V260;register object V261;object V262;object V263;  register object V275;register object V276;register object V277;object V278;object V279;
1805  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1806          bds_check;          bds_check;
1807          goto TTL;          goto TTL;
1808  TTL:;  TTL:;
1809          {register object V264;          {register object V280;
1810          V264= Cnil;          V280= Cnil;
1811          bds_bind(VV[0],list(2,VV[52],(V259)));          bds_bind(VV[0],list(2,VV[52],(V275)));
1812          bds_bind(VV[21],(*(LnkLI307))(cadr((V261))));          bds_bind(VV[21],(*(LnkLI310))(CMPcadr((V277))));
1813          bds_bind(VV[118],Cnil);          bds_bind(VV[118],Cnil);
1814          {register object V265;          {register object V281;
1815          register object V266;          register object V282;
1816          V265= symbol_value(VV[79]);          V281= (VV[79]->s.s_dbind);
1817          V266= car((V265));          V282= CMPcar((V281));
         goto T760;  
 T760:;  
         if(!(endp_prop((V265)))){  
         goto T761;}  
1818          goto T755;          goto T755;
1819          goto T761;  T755:;
1820  T761:;{object V267;          if(!(((V281))==Cnil)){
1821          base[4]= cadddr((V266));          goto T756;}
1822            goto T750;
1823            goto T756;
1824    T756:;{object V283;
1825            base[4]= CMPcadddr((V282));
1826          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1827          (void) (*Lnk308)();          (void) (*Lnk311)();
1828          vs_top=sup;          vs_top=sup;
1829          V267= vs_base[0];          V283= vs_base[0];
1830          if(V267==Cnil)goto T766;          if(V283==Cnil)goto T761;
1831          goto T765;          goto T760;
1832          goto T766;          goto T761;
1833  T766:;}  T761:;}
1834          base[4]= VV[119];          base[4]= VV[119];
1835          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1836          Lerror();          Lerror();
1837          vs_top=sup;          vs_top=sup;
1838            goto T760;
1839    T760:;
1840            if((CMPcar((V282)))==((V275))){
1841            goto T766;}
1842            goto T765;
1843            goto T766;
1844    T766:;
1845            if((CMPcadr(CMPcddddr((V282))))==Cnil){
1846            goto T768;}
1847            goto T765;
1848            goto T768;
1849    T768:;
1850            V280= (V282);
1851            if(((V280))==Cnil){
1852            goto T750;}
1853            goto T751;
1854          goto T765;          goto T765;
1855  T765:;  T765:;
1856          if((car((V266)))==((V259))){          V281= CMPcdr((V281));
1857          goto T771;}          V282= CMPcar((V281));
         goto T770;  
         goto T771;  
 T771:;  
         if((cadr(cddddr((V266))))==Cnil){  
         goto T773;}  
         goto T770;  
         goto T773;  
 T773:;  
         V264= (V266);  
         if(((V264))==Cnil){  
1858          goto T755;}          goto T755;}
1859          goto T756;          goto T751;
1860          goto T770;  T751:;
1861  T770:;          if(((VFUN_NARGS=1,(*(LnkLI303))((V275))))!=Cnil){
1862          V265= cdr((V265));          goto T776;}
1863          V266= car((V265));          {object V284;
1864          goto T760;}          V284= list(4,(V275),(V276),CMPcadr((V280)),CMPcaddr((V280)));
1865          goto T756;          (VV[30]->s.s_dbind)= make_cons((V284),(VV[30]->s.s_dbind));}
1866  T756:;          goto T776;
1867          if(((VFUN_NARGS=1,(*(LnkLI300))((V259))))!=Cnil){  T776:;
1868          goto T781;}          (void)((*(LnkLI312))(STREF(object,CMPcadr((V277)),4),small_fixnum(0)));
         {object V268;  
         V268= list(4,(V259),(V260),cadr((V264)),caddr((V264)));  
         setq(VV[30],make_cons((V268),symbol_value(VV[30])));}  
         goto T781;  
 T781:;  
         V269= structure_ref(cadr((V261)),VV[63],1);  
         (void)((*(LnkLI309))(/* INLINE-ARGS */V269,small_fixnum(0)));  
1869          base[3]= VV[120];          base[3]= VV[120];
1870          {object V270= caddr((V264));          {object V285= CMPcaddr((V280));
1871          if((V270!= VV[90]))goto T789;          if((V285!= VV[90]))goto T784;
1872          base[4]= VV[121];          base[4]= VV[121];
1873          goto T788;          goto T783;
1874          goto T789;          goto T784;
1875  T789:;  T784:;
1876          if((V270!= VV[143]))goto T790;          if((V285!= VV[143]))goto T785;
1877          base[4]= VV[122];          base[4]= VV[122];
1878          goto T788;          goto T783;
1879          goto T790;          goto T785;
1880  T790:;  T785:;
1881          if((V270!= VV[144]))goto T791;          if((V285!= VV[144]))goto T786;
1882          base[4]= VV[123];          base[4]= VV[123];
1883          goto T788;          goto T783;
1884          goto T791;          goto T786;
1885  T791:;  T786:;
1886          if((V270!= VV[145]))goto T792;          if((V285!= VV[145]))goto T787;
1887          base[4]= VV[124];          base[4]= VV[124];
1888          goto T788;          goto T783;
1889          goto T792;          goto T787;
1890  T792:;  T787:;
1891          base[4]= VV[125];}          base[4]= VV[125];}
1892          goto T788;          goto T783;
1893  T788:;  T783:;
1894          base[5]= (V259);          base[5]= (V275);
1895          base[6]= (V260);          base[6]= (V276);
1896          base[7]= (V261);          base[7]= (V277);
1897          base[8]= (V263);          base[8]= (V279);
1898          base[9]= (V264);          base[9]= (V280);
1899          vs_top=(vs_base=base+3)+7;          vs_top=(vs_base=base+3)+7;
1900          (void) (*Lnk310)();          (void) (*Lnk313)();
1901          vs_top=sup;          vs_top=sup;
1902          goto T753;          goto T748;
1903          goto T755;          goto T750;
1904  T755:;  T750:;
1905          if(((*(LnkLI305))((V259)))==Cnil){          if(((*(LnkLI308))((V275)))==Cnil){
1906          goto T799;}          goto T794;}
1907          V271= structure_ref(cadr((V261)),VV[63],1);          (void)((*(LnkLI312))(STREF(object,CMPcadr((V277)),4),small_fixnum(0)));
         (void)((*(LnkLI309))(/* INLINE-ARGS */V271,small_fixnum(0)));  
1908          base[3]= VV[126];          base[3]= VV[126];
1909          base[4]= VV[125];          base[4]= VV[125];
1910          base[5]= (V259);          base[5]= (V275);
1911          base[6]= (V260);          base[6]= (V276);
1912          base[7]= (V261);          base[7]= (V277);
1913          base[8]= (V263);          base[8]= (V279);
1914          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1915          (void) (*Lnk310)();          (void) (*Lnk313)();
1916          vs_top=sup;          vs_top=sup;
1917          goto T753;          goto T748;
1918          goto T799;          goto T794;
1919  T799:;  T794:;
1920          V272= structure_ref(cadr((V261)),VV[63],1);          (void)((*(LnkLI312))(STREF(object,CMPcadr((V277)),4),small_fixnum(2)));
         (void)((*(LnkLI309))(/* INLINE-ARGS */V272,small_fixnum(2)));  
1921          base[3]= VV[127];          base[3]= VV[127];
1922          base[4]= VV[128];          base[4]= VV[128];
1923          base[5]= (V259);          base[5]= (V275);
1924          base[6]= (V260);          base[6]= (V276);
1925          base[7]= (V261);          base[7]= (V277);
1926          base[8]= (V263);          base[8]= (V279);
1927          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1928          (void) (*Lnk310)();          (void) (*Lnk313)();
1929          vs_top=sup;          vs_top=sup;
1930          goto T753;          goto T748;
1931  T753:;  T748:;
1932          (void)((*(LnkLI311))((V260)));          (void)((*(LnkLI314))((V276)));
1933          {object V273 = (*(LnkLI312))((V259),(V261));          {object V286 = (*(LnkLI315))((V275),(V277));
1934          bds_unwind1;          bds_unwind1;
1935          bds_unwind1;          bds_unwind1;
1936          bds_unwind1;          bds_unwind1;
1937          VMR21(V273)}}          VMR21(V286)}}
1938          base[0]=base[0];          base[0]=base[0];
1939          return Cnil;          return Cnil;
1940  }  }
# Line 1774  T753:; Line 1943  T753:;
1943  static void L22()  static void L22()
1944  {register object *base=vs_base;  {register object *base=vs_base;
1945          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1946          vs_reserve(VM22);          vs_check;
1947          bds_check;          bds_check;
1948          {object V274;          {object V287;
1949          object V275;          object V288;
1950          if(vs_top-vs_base<2) too_few_arguments();          V287=(base[0]);
         V274=(base[0]);  
1951          bds_bind(VV[129],base[1]);          bds_bind(VV[129],base[1]);
1952          vs_base=vs_base+2;          vs_base=vs_base+2;
1953          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1954          {object *p=vs_top;          {object *p=vs_top;
1955           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1956          V275=(base[2]);          V288=(base[2]);
1957          vs_top=sup;          vs_top=sup;
1958          bds_bind(VV[19],Cnil);          bds_bind(VV[19],Cnil);
1959          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
# Line 1795  static void L22() Line 1963  static void L22()
1963          bds_bind(VV[134],Cnil);          bds_bind(VV[134],Cnil);
1964          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
1965          bds_bind(VV[136],(VV[129]->s.s_dbind));          bds_bind(VV[136],(VV[129]->s.s_dbind));
1966          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));          (VV[138]->s.s_dbind)= number_plus((VV[138]->s.s_dbind),small_fixnum(1));
1967          bds_bind(VV[137],symbol_value(VV[138]));          bds_bind(VV[137],(VV[138]->s.s_dbind));
1968          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
1969          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
1970          bds_bind(VV[141],Cnil);          bds_bind(VV[141],Cnil);
1971          bds_bind(VV[142],small_fixnum(0));          bds_bind(VV[142],small_fixnum(0));
1972          base[16]= (V274);          base[16]= (V287);
1973          {object V276;          {object V289;
1974          V276= (V275);          V289= (V288);
1975           vs_top=base+17;           vs_top=base+17;
1976           while(!endp(V276))           while(V289!=Cnil)
1977           {vs_push(car(V276));V276=cdr(V276);}           {vs_push((V289)->c.c_car);V289=(V289)->c.c_cdr;}
1978          vs_base=base+17;}          vs_base=base+17;}
1979          super_funcall_no_event(base[16]);          super_funcall_no_event(base[16]);
1980          bds_unwind1;          bds_unwind1;
# Line 1828  static void L22() Line 1996  static void L22()
1996  }  }
1997  /*      local entry for function T3DEFUN-LOCAL-ENTRY    */  /*      local entry for function T3DEFUN-LOCAL-ENTRY    */
1998    
1999  static object LI23(V282,V283,V284,V285,V286)  static object LI23(V295,V296,V297,V298,V299)
2000    
2001  object V282;object V283;object V284;object V285;object V286;  object V295;object V296;object V297;object V298;object V299;
2002  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
2003          bds_check;          bds_check;
2004          goto TTL;          goto TTL;
2005  TTL:;  TTL:;
2006          {object V287;          {object V300;
2007          object V288;          object V301;
2008          V287= Cnil;          V300= Cnil;
2009          V288= caaddr((V284));          V301= CMPcaaddr((V297));
2010          {register object V289;          {register object V302;
2011          object V290;          object V303;
2012          V290= cadr((V286));          V303= CMPcadr((V299));
2013          V289= (V288);          V302= (V301);
2014          goto T826;          goto T821;
2015  T826:;  T821:;
2016          if(!(endp_prop((V289)))){          if(!(((V302))==Cnil)){
2017          goto T827;}          goto T822;}
2018          goto T823;          goto T818;
2019          goto T827;          goto T822;
2020  T827:;  T822:;
2021          V291= structure_ref(car((V289)),VV[70],1);          if(!((STREF(object,CMPcar((V302)),4))==(VV[72]))){
2022          if(!((/* INLINE-ARGS */V291)==(VV[72]))){          goto T828;}
2023          goto T833;}          {object V304;
2024          {object V292;          V304= make_cons(CMPcar((V302)),STREF(object,CMPcar((V302)),16));
2025          V293= car((V289));          V300= make_cons((V304),(V300));
2026          V294= structure_ref(car((V289)),VV[70],4);          goto T826;}
2027          V292= make_cons(/* INLINE-ARGS */V293,/* INLINE-ARGS */V294);          goto T828;
2028          V287= make_cons((V292),(V287));  T828:;
2029          goto T831;}          V305= CMPcar((V302));
2030            {object V307= CMPcar((V303));
2031            if((V307!= VV[90]))goto T833;
2032            V306= VV[90];
2033            goto T832;
2034          goto T833;          goto T833;
2035  T833:;  T833:;
2036          V295= car((V289));          if((V307!= VV[143]))goto T834;
2037          {object V297= car((V290));          V306= VV[143];
2038          if((V297!= VV[90]))goto T838;          goto T832;
2039          V296= VV[90];          goto T834;
2040          goto T837;  T834:;
2041          goto T838;          if((V307!= VV[144]))goto T835;
2042  T838:;          V306= VV[144];
2043          if((V297!= VV[143]))goto T839;          goto T832;
2044          V296= VV[143];          goto T835;
2045          goto T837;  T835:;
2046          goto T839;          if((V307!= VV[145]))goto T836;
2047  T839:;          V306= VV[145];
2048          if((V297!= VV[144]))goto T840;          goto T832;
2049          V296= VV[144];          goto T836;
2050          goto T837;  T836:;
2051          goto T840;          V306= VV[75];}
2052  T840:;          goto T832;
2053          if((V297!= VV[145]))goto T841;  T832:;
2054          V296= VV[145];          V308= Ct;
2055          goto T837;          STSET(object,/* INLINE-ARGS */V305,4, V306);
2056          goto T841;          (void)(V306);
2057  T841:;          goto T826;
2058          V296= VV[75];}  T826:;
2059          goto T837;          V309= CMPcar((V302));
2060  T837:;          (VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1));
2061          (void)(structure_set(/* INLINE-ARGS */V295,VV[70],1,V296));          V310= Ct;
2062          goto T831;          STSET(object,/* INLINE-ARGS */V309,16, (VV[89]->s.s_dbind));
2063  T831:;          (void)((VV[89]->s.s_dbind));
2064          V298= car((V289));          V302= CMPcdr((V302));
2065          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));          V303= CMPcdr((V303));
2066          (void)(structure_set(/* INLINE-ARGS */V298,VV[70],4,symbol_value(VV[89])));          goto T821;}
2067          V289= cdr((V289));          goto T818;
2068          V290= cdr((V290));  T818:;
2069          goto T826;}          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[146],(V295))));
         goto T823;  
 T823:;  
         (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[146],(V282))));  
2070          princ_str("\nstatic ",VV[32]);          princ_str("\nstatic ",VV[32]);
2071          base[1]= (*(LnkLI281))(caddr((V286)));          V311= (*(LnkLI281))(CMPcaddr((V299)));
2072          vs_top=(vs_base=base+1)+1;          V312= (*(LnkLI282))(/* INLINE-ARGS */V311);
2073          (void) (*Lnk282)();          (void)((*(LnkLI278))(/* INLINE-ARGS */V312));
         vs_top=sup;  
         V299= vs_base[0];  
         (void)((*(LnkLI278))(V299));  
2074          princ_str("LI",VV[32]);          princ_str("LI",VV[32]);
2075          (void)((*(LnkLI278))((V283)));          (void)((*(LnkLI278))((V296)));
2076          princ_str("();",VV[32]);          princ_str("();",VV[32]);
2077          princ_str("\nstatic ",VV[26]);          princ_str("\nstatic ",VV[26]);
2078          base[1]= (*(LnkLI281))(caddr((V286)));          V313= (*(LnkLI281))(CMPcaddr((V299)));
2079          vs_top=(vs_base=base+1)+1;          V314= (*(LnkLI282))(/* INLINE-ARGS */V313);
2080          (void) (*Lnk282)();          (void)((*(LnkLI275))(/* INLINE-ARGS */V314));
         vs_top=sup;  
         V300= vs_base[0];  
         (void)((*(LnkLI275))(V300));  
2081          princ_str("LI",VV[26]);          princ_str("LI",VV[26]);
2082          (void)((*(LnkLI275))((V283)));          (void)((*(LnkLI275))((V296)));
2083          princ_char(40,VV[26]);          princ_char(40,VV[26]);
2084          (void)((*(LnkLI314))((V288),cadr((V286))));          (void)((*(LnkLI317))((V301),CMPcadr((V299))));
2085          {object V301;          {object V315;
2086          V301= symbol_value(VV[137]);          V315= (VV[137]->s.s_dbind);
2087          if((symbol_value(VV[148]))==Cnil){          if(((VV[148]->s.s_dbind))==Cnil){
2088          goto T869;}          goto T860;}
2089          base[1]= make_cons((V282),(V288));          base[1]= make_cons((V295),(V301));
2090          goto T867;          goto T858;
2091          goto T869;          goto T860;
2092  T869:;  T860:;
2093          base[1]= Cnil;          base[1]= Cnil;
2094          goto T867;          goto T858;
2095  T867:;  T858:;
2096          bds_bind(VV[147],base[1]);          bds_bind(VV[147],base[1]);
2097          bds_bind(VV[135],symbol_value(VV[135]));          bds_bind(VV[135],(VV[135]->s.s_dbind));
2098          princ_str("\n{  ",VV[26]);          princ_str("\n{  ",VV[26]);
2099          V302= structure_ref(cadr((V284)),VV[63],1);          (void)((*(LnkLI318))(STREF(object,CMPcadr((V297)),4),(V296),VV[149]));
         (void)((*(LnkLI315))(/* INLINE-ARGS */V302,(V283),VV[149]));  
2100          princ_str(" VMB",VV[26]);          princ_str(" VMB",VV[26]);
2101          (void)((*(LnkLI275))((V301)));          (void)((*(LnkLI275))((V315)));
2102          princ_str(" VMS",VV[26]);          princ_str(" VMS",VV[26]);
2103          (void)((*(LnkLI275))((V301)));          (void)((*(LnkLI275))((V315)));
2104          princ_str(" VMV",VV[26]);          princ_str(" VMV",VV[26]);
2105          (void)((*(LnkLI275))((V301)));          (void)((*(LnkLI275))((V315)));
2106          if(((V285))==Cnil){          if(((V298))==Cnil){
2107          goto T881;}          goto T872;}
2108          princ_str("\n   bds_check;",VV[26]);          princ_str("\n   bds_check;",VV[26]);
2109          goto T881;          goto T872;
2110  T881:;  T872:;
2111          if((symbol_value(VV[150]))==Cnil){          if(((VV[150]->s.s_dbind))==Cnil){
2112          goto T885;}          goto T876;}
2113          princ_str("\n   ihs_check;",VV[26]);          princ_str("\n   ihs_check;",VV[26]);
2114          goto T885;          goto T876;
2115  T885:;  T876:;
2116          if(((VV[147]->s.s_dbind))==Cnil){          if(((VV[147]->s.s_dbind))==Cnil){
2117          goto T889;}          goto T880;}
2118          (VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind));          (VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind));
2119          princ_str("\n   goto TTL;",VV[26]);          princ_str("\n   goto TTL;",VV[26]);
2120          princ_str("\nTTL:;",VV[26]);          princ_str("\nTTL:;",VV[26]);
2121          goto T889;          goto T880;
2122  T889:;  T880:;
2123          {register object V304;          {register object V317;
2124          register object V305;          register object V318;
2125          V304= (V287);          V317= (V300);
2126          V305= car((V304));          V318= CMPcar((V317));
2127          goto T901;          goto T892;
2128  T901:;  T892:;
2129          if(!(endp_prop((V304)))){          if(!(((V317))==Cnil)){
2130          goto T902;}          goto T893;}
2131          goto T897;          goto T888;
2132          goto T902;          goto T893;
2133  T902:;  T893:;
2134          princ_str("\n   bds_bind(VV[",VV[26]);          princ_str("\n   bds_bind(VV[",VV[26]);
2135          (void)((*(LnkLI275))(cdr((V305))));          (void)((*(LnkLI275))(CMPcdr((V318))));
2136          princ_str("],V",VV[26]);          princ_str("],V",VV[26]);
2137          V306= structure_ref(car((V305)),VV[70],4);          (void)((*(LnkLI275))(STREF(object,CMPcar((V318)),16)));
         (void)((*(LnkLI275))(/* INLINE-ARGS */V306));  
2138          princ_str(");",VV[26]);          princ_str(");",VV[26]);
2139          (VV[135]->s.s_dbind)= make_cons(VV[152],(VV[135]->s.s_dbind));          (VV[135]->s.s_dbind)= make_cons(VV[152],(VV[135]->s.s_dbind));
2140          (void)(structure_set(car((V305)),VV[70],1,VV[72]));          V320= CMPcar((V318));
2141          (void)(structure_set(car((V305)),VV[70],4,cdr((V305))));          V321= Ct;
2142          V304= cdr((V304));          STSET(object,/* INLINE-ARGS */V320,4, VV[72]);
2143          V305= car((V304));          (void)(VV[72]);
2144          goto T901;}          V322= CMPcar((V318));
2145          goto T897;          V323= CMPcdr((V318));
2146  T897:;          V324= Ct;
2147          base[3]= caddr(cddr((V284)));          STSET(object,/* INLINE-ARGS */V322,16, /* INLINE-ARGS */V323);
2148            (void)(/* INLINE-ARGS */V323);
2149            V317= CMPcdr((V317));
2150            V318= CMPcar((V317));
2151            goto T892;}
2152            goto T888;
2153    T888:;
2154            base[3]= CMPcaddr(CMPcddr((V297)));
2155          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2156          (void) (*Lnk316)();          (void) (*Lnk319)();
2157          vs_top=sup;          vs_top=sup;
2158          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){
2159          goto T925;}          goto T916;}
2160          if((symbol_value(VV[139]))!=Cnil){          if(((VV[139]->s.s_dbind))!=Cnil){
2161          goto T925;}          goto T916;}
2162          if((symbol_value(VV[141]))!=Cnil){          if(((VV[141]->s.s_dbind))!=Cnil){
2163          goto T925;}          goto T916;}
2164          goto T923;          goto T914;
2165          goto T925;          goto T916;
2166  T925:;  T916:;
2167          princ_str("\n   base[0]=base[0];",VV[26]);          princ_str("\n   base[0]=base[0];",VV[26]);
2168            goto T914;
2169    T914:;
2170            V325= (*(LnkLI281))(CMPcaddr((V299)));
2171            if(!(equal(VV[153],/* INLINE-ARGS */V325))){
2172            goto T923;}
2173            princ_str("\n   return Cnil;",VV[26]);
2174          goto T923;          goto T923;
2175  T923:;  T923:;
         V308= (*(LnkLI281))(caddr((V286)));  
         if(!(equal(VV[153],/* INLINE-ARGS */V308))){  
         goto T932;}  
         princ_str("\n   return Cnil;",VV[26]);  
         goto T932;  
 T932:;  
2176          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
2177          {object V309 = (*(LnkLI317))((V301),caddr((V286)));          {object V326 = (*(LnkLI320))((V315),CMPcaddr((V299)));
2178          bds_unwind1;          bds_unwind1;
2179          bds_unwind1;          bds_unwind1;
2180          VMR23(V309)}}}          VMR23(V326)}}}
2181          base[0]=base[0];          base[0]=base[0];
2182          return Cnil;          return Cnil;
2183  }  }
2184  /*      local entry for function SET-UP-VAR-CVS */  /*      local entry for function SET-UP-VAR-CVS */
2185    
2186  static object LI24(V311)  static object LI24(V328)
2187    
2188  object V311;  object V328;
2189  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2190          goto TTL;          goto TTL;
2191  TTL:;  TTL:;
2192          if((symbol_value(VV[154]))==Cnil){          if(((VV[154]->s.s_dbind))==Cnil){
2193          goto T939;}          goto T930;}
2194          V312= (*(LnkLI318))();          V329= (*(LnkLI321))();
2195          {object V313 = structure_set((V311),VV[70],2,/* INLINE-ARGS */V312);          V330= Ct;
2196          VMR24(V313)}          STSET(object,(V328),8, /* INLINE-ARGS */V329);
2197          goto T939;          {object V331 = /* INLINE-ARGS */V329;
2198  T939:;          VMR24(V331)}
2199          V314= (*(LnkLI319))();          goto T930;
2200          {object V315 = structure_set((V311),VV[70],2,/* INLINE-ARGS */V314);  T930:;
2201          VMR24(V315)}          V332= (*(LnkLI322))();
2202            V333= Ct;
2203            STSET(object,(V328),8, /* INLINE-ARGS */V332);
2204            {object V334 = /* INLINE-ARGS */V332;
2205            VMR24(V334)}
2206          return Cnil;          return Cnil;
2207  }  }
2208  /*      local entry for function T3DEFUN-VARARG */  /*      local entry for function T3DEFUN-VARARG */
2209    
2210  static object LI25(V320,V321,V322,V323)  static object LI25(V339,V340,V341,V342)
2211    
2212  object V320;object V321;object V322;object V323;  object V339;object V340;object V341;object V342;
2213  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
2214          bds_check;          bds_check;
2215          goto TTL;          goto TTL;
2216  TTL:;  TTL:;
2217          {object V324;          {object V343;
2218          register object V325;          register object V344;
2219          object V326;          object V345;
2220          object V327;          object V346;
2221          object V328;          object V347;
2222          object V329;          object V348;
2223          object V330;          object V349;
2224          object V331;          object V350;
2225          V324= Cnil;          V343= Cnil;
2226          bds_bind(VV[154],Cnil);          bds_bind(VV[154],Cnil);
2227          base[1]= Cnil;          base[1]= Cnil;
2228          V325= Cnil;          V344= Cnil;
2229          V326= Ct;          V345= Ct;
2230          V327= Cnil;          V346= Cnil;
2231          bds_bind(VV[155],small_fixnum(0));          bds_bind(VV[155],small_fixnum(0));
2232          V328= Cnil;          V347= Cnil;
2233          V329= caddr((V322));          V348= CMPcaddr((V341));
2234          V330= Cnil;{object V332;          V349= Cnil;{object V351;
2235          V332= caddr((V329));          V351= CMPcaddr((V348));
2236          if(V332==Cnil)goto T949;          if(V351==Cnil)goto T940;
2237          V331= V332;          V350= V351;
2238          goto T948;          goto T939;
2239          goto T949;          goto T940;
2240  T949:;}{object V333;  T940:;}{object V352;
2241          V333= cadr((V329));          V352= CMPcadr((V348));
2242          if(V333==Cnil)goto T951;          if(V352==Cnil)goto T942;
2243          V331= V333;          V350= V352;
2244          goto T948;          goto T939;
2245          goto T951;          goto T942;
2246  T951:;}  T942:;}
2247          V331= cadddr((V329));          V350= CMPcadddr((V348));
2248            goto T939;
2249    T939:;
2250            {object V353;
2251            register object V354;
2252            V353= CMPcar((V348));
2253            V354= CMPcar((V353));
2254          goto T948;          goto T948;
2255  T948:;  T948:;
2256          {object V334;          if(!(((V353))==Cnil)){
2257          register object V335;          goto T949;}
2258          V334= car((V329));          goto T944;
2259          V335= car((V334));          goto T949;
2260          goto T957;  T949:;
2261  T957:;          {object V355;
2262          if(!(endp_prop((V334)))){          (VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1));
2263          goto T958;}          V355= list(2,VV[156],(VV[89]->s.s_dbind));
2264          goto T953;          V343= make_cons((V355),(V343));}
2265          goto T958;          V353= CMPcdr((V353));
2266  T958:;          V354= CMPcar((V353));
2267          {object V336;          goto T948;}
2268          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));          goto T944;
2269          V336= list(2,VV[156],symbol_value(VV[89]));  T944:;
2270          V324= make_cons((V336),(V324));}          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[157],(V339))));
2271          V334= cdr((V334));          {object V356;
2272          V335= car((V334));          V356= VV[158];
         goto T957;}  
         goto T953;  
 T953:;  
         (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[157],(V320))));  
         {object V337;  
         V337= VV[158];  
2273          princ_str("\nstatic object LI",VV[26]);          princ_str("\nstatic object LI",VV[26]);
2274          (void)((*(LnkLI275))((V321)));          (void)((*(LnkLI275))((V340)));
2275          princ_char(40,VV[26]);          princ_char(40,VV[26]);
2276          if(((V324))==Cnil){          if(((V343))==Cnil){
2277          goto T977;}          goto T968;}
2278          {object V338;          {object V357;
2279          V338= (V324);          V357= (V343);
2280          goto T981;          goto T972;
2281  T981:;  T972:;
2282          if(((V338))!=Cnil){          if(((V357))!=Cnil){
2283          goto T982;}          goto T973;}
2284          goto T977;          goto T968;
2285            goto T973;
2286    T973:;
2287            princ_str("object ",VV[26]);
2288            (void)((*(LnkLI275))(CMPcar((V357))));
2289            V356= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V356),VV[160]));
2290            if(!((CMPcdr((V357)))==Cnil)){
2291            goto T983;}
2292            goto T982;
2293            goto T983;
2294    T983:;
2295            princ_char(44,VV[26]);
2296            V356= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V356),VV[161]));
2297          goto T982;          goto T982;
2298  T982:;  T982:;
2299          princ_str("object ",VV[26]);          V357= CMPcdr((V357));
2300          (void)((*(LnkLI275))(car((V338))));          goto T972;}
2301          V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[160]));          goto T968;
2302          if(!((cdr((V338)))==Cnil)){  T968:;
2303          goto T992;}          if(((V350))==Cnil){
2304          goto T991;          goto T991;}
2305          goto T992;          if(((V343))==Cnil){
2306  T992:;          goto T994;}
2307          princ_char(44,VV[26]);          princ_char(44,VV[26]);
2308          V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[161]));          V356= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V356),VV[162]));
2309            goto T994;
2310    T994:;
2311            princ_str("object first,...",VV[26]);
2312            V356= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V356),VV[163]));
2313          goto T991;          goto T991;
2314  T991:;  T991:;
         V338= cdr((V338));  
         goto T981;}  
         goto T977;  
 T977:;  
         if(((V331))==Cnil){  
         goto T1000;}  
         if(((V324))==Cnil){  
         goto T1003;}  
         princ_char(44,VV[26]);  
         V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[162]));  
         goto T1003;  
 T1003:;  
         princ_str("object first,...",VV[26]);  
         V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[163]));  
         goto T1000;  
 T1000:;  
2315          princ_char(41,VV[26]);          princ_char(41,VV[26]);
2316          princ_str("\nstatic object LI",VV[32]);          princ_str("\nstatic object LI",VV[32]);
2317          (void)((*(LnkLI278))((V321)));          (void)((*(LnkLI278))((V340)));
2318          princ_char(40,VV[32]);          princ_char(40,VV[32]);
2319          (void)((*(LnkLI278))((V337)));          (void)((*(LnkLI278))((V356)));
2320          princ_str(");",VV[32]);}          princ_str(");",VV[32]);}
2321          {object V339;          {object V358;
2322          V339= symbol_value(VV[137]);          V358= (VV[137]->s.s_dbind);
2323          if(symbol_value(VV[148])==Cnil){          if((VV[148]->s.s_dbind)==Cnil){
2324          base[5]= Cnil;          base[5]= Cnil;
2325          goto T1020;}          goto T1011;}
2326          if((caddr((V329)))==Cnil){          if((CMPcaddr((V348)))==Cnil){
2327          goto T1021;}          goto T1012;}
2328          base[5]= Cnil;          base[5]= Cnil;
2329            goto T1011;
2330            goto T1012;
2331    T1012:;
2332            {object V359;
2333            object V360;
2334            V359= CMPcar((V348));
2335            V360= CMPcar((V359));
2336            goto T1019;
2337    T1019:;
2338            if(!(((V359))==Cnil)){
2339            goto T1020;}
2340            goto T1014;
2341          goto T1020;          goto T1020;
2342          goto T1021;  T1020:;
2343  T1021:;          if((STREF(object,(V360),12))==Cnil){
2344          {object V340;          goto T1024;}
2345          object V341;          goto T1015;
         V340= car((V329));  
         V341= car((V340));  
         goto T1028;  
 T1028:;  
         if(!(endp_prop((V340)))){  
         goto T1029;}  
         goto T1023;  
         goto T1029;  
 T1029:;  
         if((structure_ref((V341),VV[70],3))==Cnil){  
         goto T1033;}  
         goto T1024;  
         goto T1033;  
 T1033:;  
         V340= cdr((V340));  
         V341= car((V340));  
         goto T1028;}  
2346          goto T1024;          goto T1024;
2347  T1024:;  T1024:;
2348            V359= CMPcdr((V359));
2349            V360= CMPcar((V359));
2350            goto T1019;}
2351            goto T1015;
2352    T1015:;
2353          base[5]= Cnil;          base[5]= Cnil;
2354          goto T1020;          goto T1011;
2355          goto T1023;          goto T1014;
2356  T1023:;  T1014:;
2357          if((cadr((V329)))==Cnil){          if((CMPcadr((V348)))==Cnil){
2358          goto T1041;}          goto T1032;}
2359          base[5]= Cnil;          base[5]= Cnil;
2360          goto T1020;          goto T1011;
2361          goto T1041;          goto T1032;
2362  T1041:;  T1032:;
2363          if((car(cddddr((V329))))==Cnil){          if((CMPcar(CMPcddddr((V348))))==Cnil){
2364          goto T1043;}          goto T1034;}
2365          base[5]= Cnil;          base[5]= Cnil;
2366          goto T1020;          goto T1011;
2367          goto T1043;          goto T1034;
2368  T1043:;  T1034:;
2369          base[5]= make_cons((V320),car((V329)));          base[5]= make_cons((V339),CMPcar((V348)));
2370          goto T1020;          goto T1011;
2371  T1020:;  T1011:;
2372          bds_bind(VV[147],base[5]);          bds_bind(VV[147],base[5]);
2373          bds_bind(VV[135],symbol_value(VV[135]));          bds_bind(VV[135],(VV[135]->s.s_dbind));
2374          princ_str("\n{  ",VV[26]);          princ_str("\n{  ",VV[26]);
2375          if(((V331))==Cnil){          if(((V350))==Cnil){
2376          goto T1047;}          goto T1038;}
2377          princ_str("\n   va_list ap;",VV[26]);          princ_str("\n   va_list ap;",VV[26]);
2378          goto T1047;          goto T1038;
2379  T1047:;  T1038:;
2380          princ_str("\n   int narg = VFUN_NARGS;",VV[26]);          princ_str("\n   int narg = VFUN_NARGS;",VV[26]);
2381          V342= structure_ref(cadr((V322)),VV[63],1);          (void)((*(LnkLI318))(STREF(object,CMPcadr((V341)),4),(V340),VV[149]));
         (void)((*(LnkLI315))(/* INLINE-ARGS */V342,(V321),VV[149]));  
2382          princ_str(" VMB",VV[26]);          princ_str(" VMB",VV[26]);
2383          (void)((*(LnkLI275))((V339)));          (void)((*(LnkLI275))((V358)));
2384          princ_str(" VMS",VV[26]);          princ_str(" VMS",VV[26]);
2385          (void)((*(LnkLI275))((V339)));          (void)((*(LnkLI275))((V358)));
2386          princ_str(" VMV",VV[26]);          princ_str(" VMV",VV[26]);
2387          (void)((*(LnkLI275))((V339)));          (void)((*(LnkLI275))((V358)));
2388          if(((V323))==Cnil){          if(((V342))==Cnil){
2389          goto T1061;}          goto T1052;}
2390          princ_str("\n   bds_check;",VV[26]);          princ_str("\n   bds_check;",VV[26]);
2391          goto T1061;          goto T1052;
2392  T1061:;  T1052:;
2393          if((symbol_value(VV[150]))==Cnil){          if(((VV[150]->s.s_dbind))==Cnil){
2394          goto T1065;}          goto T1056;}
2395          princ_str("\n   ihs_check;",VV[26]);          princ_str("\n   ihs_check;",VV[26]);
2396          goto T1065;          goto T1056;
2397  T1065:;  T1056:;
2398          if((V331)!=Cnil){          if((V350)!=Cnil){
2399          goto T1069;}          goto T1060;}
2400          princ_str("\n   if ( narg!= ",VV[26]);          princ_str("\n   if ( narg!= ",VV[26]);
2401          V343 = make_fixnum((long)length((V324)));          V361 = CMPmake_fixnum((long)length((V343)));
2402          (void)((*(LnkLI275))(V343));          (void)((*(LnkLI275))(V361));
2403          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[26]);          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[26]);
2404          V344 = make_fixnum((long)length((V324)));          V362 = CMPmake_fixnum((long)length((V343)));
2405          (void)((*(LnkLI275))(V344));          (void)((*(LnkLI275))(V362));
2406          princ_str("));",VV[26]);          princ_str("));",VV[26]);
2407          goto T1069;          goto T1060;
2408  T1069:;  T1060:;
2409          {object V345;          {object V363;
2410          object V346;          object V364;
2411          V345= car((V329));          V363= CMPcar((V348));
2412          V346= car((V345));          V364= CMPcar((V363));
2413          goto T1080;          goto T1071;
2414  T1080:;  T1071:;
2415          if(!(endp_prop((V345)))){          if(!(((V363))==Cnil)){
2416          goto T1081;}          goto T1072;}
2417          goto T1076;          goto T1067;
2418          goto T1081;          goto T1072;
2419  T1081:;  T1072:;
2420          base[9]= (V346);          base[9]= (V364);
2421          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2422          L26(base);          L26(base);
2423          vs_top=sup;          vs_top=sup;
2424          V345= cdr((V345));          V363= CMPcdr((V363));
2425          V346= car((V345));          V364= CMPcar((V363));
2426          goto T1080;}          goto T1071;}
2427          goto T1076;          goto T1067;
2428  T1076:;  T1067:;
2429          {object V347;          {object V365;
2430          object V348;          object V366;
2431          V347= cadr((V329));          V365= CMPcadr((V348));
2432          V348= car((V347));          V366= CMPcar((V365));
2433          goto T1096;          goto T1087;
2434  T1096:;  T1087:;
2435          if(!(endp_prop((V347)))){          if(!(((V365))==Cnil)){
2436          goto T1097;}          goto T1088;}
2437          goto T1092;          goto T1083;
2438          goto T1097;          goto T1088;
2439  T1097:;  T1088:;
2440          base[9]= car((V348));          base[9]= CMPcar((V366));
2441          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2442          L26(base);          L26(base);
2443          vs_top=sup;          vs_top=sup;
2444          if((caddr((V348)))==Cnil){          if((CMPcaddr((V366)))==Cnil){
2445          goto T1103;}          goto T1094;}
2446          base[9]= caddr((V348));          base[9]= CMPcaddr((V366));
2447          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2448          L26(base);          L26(base);
2449          vs_top=sup;          vs_top=sup;
2450          goto T1103;          goto T1094;
2451  T1103:;  T1094:;
2452          V347= cdr((V347));          V365= CMPcdr((V365));
2453          V348= car((V347));          V366= CMPcar((V365));
2454          goto T1096;}          goto T1087;}
2455          goto T1092;          goto T1083;
2456  T1092:;  T1083:;
2457          if((caddr((V329)))==Cnil){          if((CMPcaddr((V348)))==Cnil){
2458          goto T1112;}          goto T1103;}
2459          base[7]= caddr((V329));          base[7]= CMPcaddr((V348));
2460          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2461          L26(base);          L26(base);
2462          vs_top=sup;          vs_top=sup;
2463          goto T1112;          goto T1103;
2464  T1112:;  T1103:;
2465          {object V349;          {object V367;
2466          object V350;          object V368;
2467          V349= car(cddddr((V329)));          V367= CMPcar(CMPcddddr((V348)));
2468          V350= car((V349));          V368= CMPcar((V367));
2469          goto T1119;          goto T1110;
2470  T1119:;  T1110:;
2471          if(!(endp_prop((V349)))){          if(!(((V367))==Cnil)){
2472          goto T1120;}          goto T1111;}
2473          goto T1075;          goto T1066;
2474          goto T1120;          goto T1111;
2475  T1120:;  T1111:;
2476          base[9]= cadr((V350));          base[9]= CMPcadr((V368));
2477          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2478          L26(base);          L26(base);
2479          vs_top=sup;          vs_top=sup;
2480          if((cadddr((V350)))==Cnil){          if((CMPcadddr((V368)))==Cnil){
2481          goto T1126;}          goto T1117;}
2482          base[9]= cadddr((V350));          base[9]= CMPcadddr((V368));
2483          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2484          L26(base);          L26(base);
2485          vs_top=sup;          vs_top=sup;
2486            goto T1117;
2487    T1117:;
2488            V367= CMPcdr((V367));
2489            V368= CMPcar((V367));
2490            goto T1110;}
2491            goto T1066;
2492    T1066:;
2493            if((CMPcadr((V348)))!=Cnil){
2494            goto T1127;}
2495            if((CMPcaddr((V348)))!=Cnil){
2496            goto T1127;}
2497            if((CMPcadddr((V348)))==Cnil){
2498            goto T1126;}
2499            goto T1127;
2500    T1127:;
2501            if(((V349))!=Cnil){
2502            goto T1126;}
2503            V349= Ct;
2504            princ_str("\n   va_start(ap,first);",VV[26]);
2505          goto T1126;          goto T1126;
2506  T1126:;  T1126:;
2507          V349= cdr((V349));          if(((VV[164]->s.s_dbind))!=Cnil){
2508          V350= car((V349));          goto T1140;}
2509          goto T1119;}          if(((VV[165]->s.s_dbind))==Cnil){
2510          goto T1075;          goto T1138;}
2511  T1075:;          goto T1140;
2512          if((cadr((V329)))!=Cnil){  T1140:;
2513          goto T1136;}          if((CMPcar((V348)))==Cnil){
2514          if((caddr((V329)))!=Cnil){          goto T1138;}
         goto T1136;}  
         if((cadddr((V329)))==Cnil){  
         goto T1135;}  
         goto T1136;  
 T1136:;  
         if(((V330))!=Cnil){  
         goto T1135;}  
         V330= Ct;  
         princ_str("\n   va_start(ap,first);",VV[26]);  
         goto T1135;  
 T1135:;  
         if((symbol_value(VV[164]))!=Cnil){  
         goto T1149;}  
         if((symbol_value(VV[165]))==Cnil){  
         goto T1147;}  
         goto T1149;  
 T1149:;  
         if((car((V329)))==Cnil){  
         goto T1147;}  
2515          princ_str("\n   if(narg <",VV[26]);          princ_str("\n   if(narg <",VV[26]);
2516          V351 = make_fixnum((long)length(car((V329))));          V369 = CMPmake_fixnum((long)length(CMPcar((V348))));
2517          (void)((*(LnkLI275))(V351));          (void)((*(LnkLI275))(V369));
2518          princ_str(") too_few_arguments();",VV[26]);          princ_str(") too_few_arguments();",VV[26]);
2519          goto T1147;          goto T1138;
2520  T1147:;  T1138:;
2521          {object V352;          {object V370;
2522          object V353;          object V371;
2523          V352= car((V329));          V370= CMPcar((V348));
2524          V353= car((V352));          V371= CMPcar((V370));
2525          goto T1161;          goto T1152;
2526  T1161:;  T1152:;
2527          if(!(endp_prop((V352)))){          if(!(((V370))==Cnil)){
2528          goto T1162;}          goto T1153;}
2529          goto T1157;          goto T1148;
2530          goto T1162;          goto T1153;
2531  T1162:;  T1153:;
2532          (void)((*(LnkLI321))((V353)));          (void)((*(LnkLI324))((V371)));
2533          V352= cdr((V352));          V370= CMPcdr((V370));
2534          V353= car((V352));          V371= CMPcar((V370));
2535          goto T1161;}          goto T1152;}
2536          goto T1157;          goto T1148;
2537  T1157:;  T1148:;
2538          {object V354;          {object V372;
2539          object V355;          object V373;
2540          V354= cadr((V329));          V372= CMPcadr((V348));
2541          V355= car((V354));          V373= CMPcar((V372));
2542          goto T1176;          goto T1167;
2543  T1176:;  T1167:;
2544          if(!(endp_prop((V354)))){          if(!(((V372))==Cnil)){
2545          goto T1177;}          goto T1168;}
2546          goto T1172;          goto T1163;
2547          goto T1177;          goto T1168;
2548  T1177:;  T1168:;
2549          (void)((*(LnkLI321))(car((V355))));          (void)((*(LnkLI324))(CMPcar((V373))));
2550          V354= cdr((V354));          V372= CMPcdr((V372));
2551          V355= car((V354));          V373= CMPcar((V372));
2552          goto T1176;}          goto T1167;}
2553          goto T1172;          goto T1163;
2554  T1172:;  T1163:;
2555          if((caddr((V329)))==Cnil){          if((CMPcaddr((V348)))==Cnil){
2556          goto T1187;}          goto T1178;}
2557          (void)((*(LnkLI321))(caddr((V329))));          (void)((*(LnkLI324))(CMPcaddr((V348))));
2558          goto T1187;          goto T1178;
2559  T1187:;  T1178:;
2560          if(((VV[154]->s.s_dbind))==Cnil){          if(((VV[154]->s.s_dbind))==Cnil){
2561          goto T1193;}          goto T1184;}
2562          V327= symbol_value(VV[130]);          V346= (VV[130]->s.s_dbind);
2563          goto T1191;          goto T1182;
2564          goto T1193;          goto T1184;
2565  T1193:;  T1184:;
2566          V327= symbol_value(VV[142]);          V346= (VV[142]->s.s_dbind);
2567            goto T1182;
2568    T1182:;
2569            {object V374;
2570            object V375;
2571            V374= CMPcar(CMPcddddr((V348)));
2572            V375= CMPcar((V374));
2573            goto T1190;
2574    T1190:;
2575            if(!(((V374))==Cnil)){
2576            goto T1191;}
2577            goto T1186;
2578          goto T1191;          goto T1191;
2579  T1191:;  T1191:;
2580          {object V356;          (void)((*(LnkLI324))(CMPcadr((V375))));
2581          object V357;          V374= CMPcdr((V374));
2582          V356= car(cddddr((V329)));          V375= CMPcar((V374));
2583          V357= car((V356));          goto T1190;}
2584          goto T1199;          goto T1186;
2585  T1199:;  T1186:;
2586          if(!(endp_prop((V356)))){          {object V376;
2587          goto T1200;}          object V377;
2588          goto T1195;          V376= CMPcar(CMPcddddr((V348)));
2589          goto T1200;          V377= CMPcar((V376));
2590  T1200:;          goto T1205;
2591          (void)((*(LnkLI321))(cadr((V357))));  T1205:;
2592          V356= cdr((V356));          if(!(((V376))==Cnil)){
2593          V357= car((V356));          goto T1206;}
2594          goto T1199;}          goto T1201;
2595          goto T1195;          goto T1206;
2596  T1195:;  T1206:;
2597          {object V358;          (void)((*(LnkLI324))(CMPcadddr((V377))));
2598          object V359;          V376= CMPcdr((V376));
2599          V358= car(cddddr((V329)));          V377= CMPcar((V376));
2600          V359= car((V358));          goto T1205;}
2601          goto T1214;          goto T1201;
2602  T1214:;  T1201:;
2603          if(!(endp_prop((V358)))){          {object V378;
2604          goto T1215;}          object V379;
2605          goto T1210;          V379= CMPcar((V348));
2606          goto T1215;          V378= (V343);
2607  T1215:;          goto T1219;
2608          (void)((*(LnkLI321))(cadddr((V359))));  T1219:;
2609          V358= cdr((V358));          if(((V378))!=Cnil){
2610          V359= car((V358));          goto T1220;}
2611          goto T1214;}          goto T1216;
2612          goto T1210;          goto T1220;
2613  T1210:;  T1220:;
2614          {object V360;          (void)((*(LnkLI325))(CMPcar((V379)),CMPcar((V378))));
2615          object V361;          V378= CMPcdr((V378));
2616          V361= car((V329));          V379= CMPcdr((V379));
2617          V360= (V324);          goto T1219;}
2618          goto T1228;          goto T1216;
2619  T1228:;  T1216:;
2620          if(((V360))!=Cnil){          if((CMPcadr((V348)))==Cnil){
2621          goto T1229;}          goto T1229;}
2622          goto T1225;          bds_bind(VV[134],(VV[134]->s.s_dbind));
         goto T1229;  
 T1229:;  
         (void)((*(LnkLI322))(car((V361)),car((V360))));  
         V360= cdr((V360));  
         V361= cdr((V361));  
         goto T1228;}  
         goto T1225;  
 T1225:;  
         if((cadr((V329)))==Cnil){  
         goto T1238;}  
         bds_bind(VV[134],symbol_value(VV[134]));  
2623          bds_bind(VV[135],(VV[135]->s.s_dbind));          bds_bind(VV[135],(VV[135]->s.s_dbind));
2624          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],(VV[133]->s.s_dbind));
2625          princ_str("\n   narg = narg - ",VV[26]);          princ_str("\n   narg = narg - ",VV[26]);
2626          V362 = make_fixnum((long)length((V324)));          V380 = CMPmake_fixnum((long)length((V343)));
2627          (void)((*(LnkLI275))(V362));          (void)((*(LnkLI275))(V380));
2628          princ_char(59,VV[26]);          princ_char(59,VV[26]);
2629          {object V363;          {object V381;
2630          V363= Ct;          V381= Ct;
2631          {object V364;          {object V382;
2632          object V365;          object V383;
2633          V364= cadr((V329));          V382= CMPcadr((V348));
2634          V365= car((V364));          V383= CMPcar((V382));
2635          goto T1249;          goto T1240;
2636  T1249:;  T1240:;
2637          if(!(endp_prop((V364)))){          if(!(((V382))==Cnil)){
2638          goto T1250;}          goto T1241;}
2639          bds_unwind1;          bds_unwind1;
2640          bds_unwind1;          bds_unwind1;
2641          bds_unwind1;          bds_unwind1;
2642            goto T1232;
2643          goto T1241;          goto T1241;
2644          goto T1250;  T1241:;
2645  T1250:;          {object V384;
2646          {object V366;          (VV[166]->s.s_dbind)= number_plus((VV[166]->s.s_dbind),small_fixnum(1));
2647          setq(VV[166],number_plus(symbol_value(VV[166]),small_fixnum(1)));          V384= make_cons((VV[166]->s.s_dbind),Cnil);
2648          V366= make_cons(symbol_value(VV[166]),Cnil);          V344= make_cons((V384),(V344));}
         V325= make_cons((V366),(V325));}  
2649          princ_str("\n   if (",VV[26]);          princ_str("\n   if (",VV[26]);
2650          if((cdr((V325)))==Cnil){          if((CMPcdr((V344)))==Cnil){
2651          goto T1263;}          goto T1254;}
2652          V367= VV[167];          V385= VV[167];
2653          goto T1261;          goto T1252;
2654          goto T1263;          goto T1254;
2655  T1263:;  T1254:;
2656          V367= VV[168];          V385= VV[168];
2657          goto T1261;          goto T1252;
2658  T1261:;  T1252:;
2659          (void)((*(LnkLI275))(V367));          (void)((*(LnkLI275))(V385));
2660          princ_str("narg <= 0) ",VV[26]);          princ_str("narg <= 0) ",VV[26]);
2661          if(type_of(car((V325)))!=t_cons)FEwrong_type_argument(Scons,car((V325)));          (CMPcar((V344)))->c.c_cdr = Ct;
2662          (car((V325)))->c.c_cdr = Ct;          (void)(CMPcar((V344)));
         (void)(car((V325)));  
2663          princ_str("goto T",VV[26]);          princ_str("goto T",VV[26]);
2664          (void)((*(LnkLI275))(car(car((V325)))));          (void)((*(LnkLI275))(CMPcar(CMPcar((V344)))));
2665          princ_char(59,VV[26]);          princ_char(59,VV[26]);
2666          princ_str("\n   else {",VV[26]);          princ_str("\n   else {",VV[26]);
2667          if(((V330))!=Cnil){          if(((V349))!=Cnil){
2668          goto T1273;}          goto T1264;}
2669          V330= Ct;          V349= Ct;
2670          princ_str("\n   va_start(ap,first);",VV[26]);          princ_str("\n   va_start(ap,first);",VV[26]);
2671            goto T1264;
2672    T1264:;
2673            V386= CMPcar((V383));
2674            if(((V381))==Cnil){
2675            goto T1273;}
2676            V387= make_cons(VV[169],Cnil);
2677            goto T1271;
2678          goto T1273;          goto T1273;
2679  T1273:;  T1273:;
2680          V368= car((V365));          V387= make_cons(VV[170],Cnil);
2681          if(((V363))==Cnil){          goto T1271;
2682          goto T1282;}  T1271:;
2683          V369= make_cons(VV[169],Cnil);          (void)((*(LnkLI325))(/* INLINE-ARGS */V386,V387));
2684          goto T1280;          V381= Cnil;
         goto T1282;  
 T1282:;  
         V369= make_cons(VV[170],Cnil);  
         goto T1280;  
 T1280:;  
         (void)((*(LnkLI322))(/* INLINE-ARGS */V368,V369));  
         V363= Cnil;  
2685          princ_char(125,VV[26]);          princ_char(125,VV[26]);
2686          if((caddr((V365)))==Cnil){          if((CMPcaddr((V383)))==Cnil){
2687          goto T1288;}          goto T1279;}
2688          (void)((*(LnkLI322))(caddr((V365)),Ct));          (void)((*(LnkLI325))(CMPcaddr((V383)),Ct));
2689          goto T1288;          goto T1279;
2690  T1288:;  T1279:;
2691          V364= cdr((V364));          V382= CMPcdr((V382));
2692          V365= car((V364));          V383= CMPcar((V382));
2693          goto T1249;}}          goto T1240;}}
2694          goto T1241;          goto T1232;
2695  T1241:;  T1232:;
2696          V325= nreverse((V325));          V344= nreverse((V344));
2697          {object V370;          {object V388;
2698          setq(VV[166],number_plus(symbol_value(VV[166]),small_fixnum(1)));          (VV[166]->s.s_dbind)= number_plus((VV[166]->s.s_dbind),small_fixnum(1));
2699          V370= make_cons(symbol_value(VV[166]),Cnil);          V388= make_cons((VV[166]->s.s_dbind),Cnil);
2700          princ_str("\n   --narg; ",VV[26]);          princ_str("\n   --narg; ",VV[26]);
2701          if(type_of((V370))!=t_cons)FEwrong_type_argument(Scons,(V370));          ((V388))->c.c_cdr = Ct;
         ((V370))->c.c_cdr = Ct;  
2702          princ_str("goto T",VV[26]);          princ_str("goto T",VV[26]);
2703          (void)((*(LnkLI275))(car((V370))));          (void)((*(LnkLI275))(CMPcar((V388))));
2704          princ_char(59,VV[26]);          princ_char(59,VV[26]);
2705          {object V371;          {object V389;
2706          object V372;          object V390;
2707          V371= cadr((V329));          V389= CMPcadr((V348));
2708          V372= car((V371));          V390= CMPcar((V389));
2709          goto T1311;          goto T1302;
2710  T1311:;  T1302:;
2711          if(!(endp_prop((V371)))){          if(!(((V389))==Cnil)){
2712          goto T1312;}          goto T1303;}
2713          goto T1307;          goto T1298;
2714          goto T1312;          goto T1303;
2715  T1312:;  T1303:;
2716          if((cdr(car((V325))))==Cnil){          if((CMPcdr(CMPcar((V344))))==Cnil){
2717          goto T1316;}          goto T1307;}
2718          princ_str("\n   goto T",VV[26]);          princ_str("\n   goto T",VV[26]);
2719          (void)((*(LnkLI275))(car(car((V325)))));          (void)((*(LnkLI275))(CMPcar(CMPcar((V344)))));
2720          princ_char(59,VV[26]);          princ_char(59,VV[26]);
2721          princ_str("\nT",VV[26]);          princ_str("\nT",VV[26]);
2722          (void)((*(LnkLI275))(car(car((V325)))));          (void)((*(LnkLI275))(CMPcar(CMPcar((V344)))));
2723          princ_str(":;",VV[26]);          princ_str(":;",VV[26]);
         goto T1316;  
 T1316:;  
         {object V373;  
         V373= car((V325));  
         V325= cdr((V325));}  
         (void)((*(LnkLI323))(car((V372)),cadr((V372))));  
         if((caddr((V372)))==Cnil){  
         goto T1331;}  
         (void)((*(LnkLI322))(caddr((V372)),Cnil));  
         goto T1331;  
 T1331:;  
         V371= cdr((V371));  
         V372= car((V371));  
         goto T1311;}  
2724          goto T1307;          goto T1307;
2725  T1307:;  T1307:;
2726          if((cdr((V370)))==Cnil){          {object V391;
2727          goto T1238;}          V391= CMPcar((V344));
2728            V344= CMPcdr((V344));}
2729            (void)((*(LnkLI326))(CMPcar((V390)),CMPcadr((V390))));
2730            if((CMPcaddr((V390)))==Cnil){
2731            goto T1322;}
2732            (void)((*(LnkLI325))(CMPcaddr((V390)),Cnil));
2733            goto T1322;
2734    T1322:;
2735            V389= CMPcdr((V389));
2736            V390= CMPcar((V389));
2737            goto T1302;}
2738            goto T1298;
2739    T1298:;
2740            if((CMPcdr((V388)))==Cnil){
2741            goto T1229;}
2742          princ_str("\n   goto T",VV[26]);          princ_str("\n   goto T",VV[26]);
2743          (void)((*(LnkLI275))(car((V370))));          (void)((*(LnkLI275))(CMPcar((V388))));
2744          princ_char(59,VV[26]);          princ_char(59,VV[26]);
2745          princ_str("\nT",VV[26]);          princ_str("\nT",VV[26]);
2746          (void)((*(LnkLI275))(car((V370))));          (void)((*(LnkLI275))(CMPcar((V388))));
2747          princ_str(":;",VV[26]);}          princ_str(":;",VV[26]);}
2748          goto T1238;          goto T1229;
2749  T1238:;  T1229:;
2750          if((caddr((V329)))==Cnil){          if((CMPcaddr((V348)))==Cnil){
2751          goto T1348;}          goto T1339;}
2752          V328= (VFUN_NARGS=0,(*(LnkLI324))());          V347= (VFUN_NARGS=0,(*(LnkLI327))());
2753          {object V374;          {object V392;
2754          V374= cadr((V329));          V392= CMPcadr((V348));
2755          if(((V374))==Cnil){          if(((V392))==Cnil){
2756          goto T1356;}          goto T1347;}
2757          goto T1353;          goto T1344;
2758          goto T1356;          goto T1347;
2759  T1356:;  T1347:;
2760          princ_str("\n   narg= narg - ",VV[26]);          princ_str("\n   narg= narg - ",VV[26]);
2761          V375 = make_fixnum((long)length(car((V329))));          V393 = CMPmake_fixnum((long)length(CMPcar((V348))));
2762          (void)((*(LnkLI275))(V375));          (void)((*(LnkLI275))(V393));
2763          princ_char(59,VV[26]);}          princ_char(59,VV[26]);}
2764          goto T1353;          goto T1344;
2765  T1353:;  T1344:;
2766          if(((V330))!=Cnil){          if(((V349))!=Cnil){
2767          goto T1361;}          goto T1352;}
2768          V330= Ct;          V349= Ct;
2769          princ_str("\n   va_start(ap,first);",VV[26]);          princ_str("\n   va_start(ap,first);",VV[26]);
2770          goto T1361;          goto T1352;
2771  T1361:;  T1352:;
2772          princ_str("\n   V",VV[26]);          princ_str("\n   V",VV[26]);
2773          (void)((*(LnkLI275))((V328)));          (void)((*(LnkLI275))((V347)));
2774          princ_str(" = ",VV[26]);          princ_str(" = ",VV[26]);
2775          V376= structure_ref(caddr((V329)),VV[70],5);          if(!((STREF(object,CMPcaddr((V348)),20))==(VV[172]))){
2776          if(!((/* INLINE-ARGS */V376)==(VV[172]))){          goto T1363;}
         goto T1372;}  
2777          base[7]= Ct;          base[7]= Ct;
2778          goto T1371;          goto T1362;
2779          goto T1372;          goto T1363;
2780  T1372:;  T1363:;
2781          base[7]= symbol_value(VV[171]);          base[7]= (VV[171]->s.s_dbind);
2782          goto T1371;          goto T1362;
2783  T1371:;  T1362:;
2784          bds_bind(VV[171],base[7]);          bds_bind(VV[171],base[7]);
2785          if((cadddr((V329)))==Cnil){          if((CMPcadddr((V348)))==Cnil){
2786          goto T1376;}          goto T1367;}
2787          if(((VV[171]->s.s_dbind))==Cnil){          if(((VV[171]->s.s_dbind))==Cnil){
2788          goto T1379;}          goto T1370;}
2789          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[26]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[26]);
2790          goto T1374;          goto T1365;
2791          goto T1379;          goto T1370;
2792  T1379:;  T1370:;
2793          princ_str("make_list(narg);",VV[26]);          princ_str("make_list(narg);",VV[26]);
2794          goto T1374;          goto T1365;
2795          goto T1376;          goto T1367;
2796  T1376:;  T1367:;
2797          if(((VV[171]->s.s_dbind))==Cnil){          if(((VV[171]->s.s_dbind))==Cnil){
2798          goto T1384;}          goto T1375;}
2799          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[26]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[26]);
2800          goto T1374;          goto T1365;
2801          goto T1384;          goto T1375;
2802  T1384:;  T1375:;
2803          princ_str("list_vector_new(narg,first,ap);",VV[26]);          princ_str("list_vector_new(narg,first,ap);",VV[26]);
2804          goto T1374;          goto T1365;
2805  T1374:;  T1365:;
2806          V377= caddr((V329));          V394= CMPcaddr((V348));
2807          V378= list(2,VV[156],(V328));          V395= list(2,VV[156],(V347));
2808          V379= (*(LnkLI322))(/* INLINE-ARGS */V377,/* INLINE-ARGS */V378);          V396= (*(LnkLI325))(/* INLINE-ARGS */V394,/* INLINE-ARGS */V395);
2809          bds_unwind1;          bds_unwind1;
2810          goto T1348;          goto T1339;
2811  T1348:;  T1339:;
2812          if((cadddr((V329)))==Cnil){          if((CMPcadddr((V348)))==Cnil){
2813          goto T1388;}          goto T1379;}
2814          {object V380;          {object V397;
2815          V380= caddr((V329));          V397= CMPcaddr((V348));
2816          if(((V380))==Cnil){          if(((V397))==Cnil){
2817          goto T1394;}          goto T1385;}
2818          goto T1391;          goto T1382;
2819          goto T1394;          goto T1385;
2820  T1394:;  T1385:;
2821          {object V381;          {object V398;
2822          V381= cadr((V329));          V398= CMPcadr((V348));
2823          if(((V381))==Cnil){          if(((V398))==Cnil){
2824          goto T1398;}          goto T1389;}
2825          goto T1391;          goto T1382;
2826          goto T1398;          goto T1389;
2827  T1398:;  T1389:;
2828          princ_str("\n   narg= narg - ",VV[26]);          princ_str("\n   narg= narg - ",VV[26]);
2829          V382 = make_fixnum((long)length(car((V329))));          V399 = CMPmake_fixnum((long)length(CMPcar((V348))));
2830          (void)((*(LnkLI275))(V382));          (void)((*(LnkLI275))(V399));
2831          princ_char(59,VV[26]);}}          princ_char(59,VV[26]);}}
2832          goto T1391;          goto T1382;
2833  T1391:;  T1382:;
2834          if(((V330))!=Cnil){          if(((V349))!=Cnil){
2835          goto T1403;}          goto T1394;}
2836          V330= Ct;          V349= Ct;
2837          princ_str("\n   va_start(ap,first);",VV[26]);          princ_str("\n   va_start(ap,first);",VV[26]);
2838          goto T1403;          goto T1394;
2839  T1403:;  T1394:;
2840          {object V383;          {object V400;
2841          object V384= car(cddddr((V329)));          object V401= CMPcar(CMPcddddr((V348)));
2842          if(endp(V384)){          if(V401==Cnil){
2843          V326= Cnil;          V345= Cnil;
2844          goto T1410;}          goto T1401;}
2845          base[7]=V383=MMcons(Cnil,Cnil);          base[7]=V400=MMcons(Cnil,Cnil);
2846          goto T1411;          goto T1402;
2847  T1411:;  T1402:;
2848          (V383->c.c_car)= caddr((V384->c.c_car));          (V400->c.c_car)= CMPcaddr((V401->c.c_car));
2849          V384=MMcdr(V384);          if((V401=MMcdr(V401))==Cnil){
2850          if(endp(V384)){          V345= base[7];
2851          V326= base[7];          goto T1401;}
2852          goto T1410;}          V400=MMcdr(V400)=MMcons(Cnil,Cnil);
2853          V383=MMcdr(V383)=MMcons(Cnil,Cnil);          goto T1402;}
2854          goto T1411;}          goto T1401;
2855    T1401:;
2856            {object V402;
2857            object V403;
2858            V403= CMPmake_fixnum((long)length(CMPcar(CMPcddddr((V348)))));
2859            V402= Cnil;
2860            {register object V404;
2861            object V405;
2862            object V406;
2863            V404= (V345);
2864            V405= CMPcar(CMPcddddr((V348)));
2865            V406= CMPcar((V405));
2866          goto T1410;          goto T1410;
2867  T1410:;  T1410:;
2868          {object V385;          if(((V404))!=Cnil){
2869          object V386;          goto T1411;}
2870          V386= make_fixnum((long)length(car(cddddr((V329)))));          goto T1405;
2871          V385= Cnil;          goto T1411;
2872          {register object V387;  T1411:;
2873          object V388;          if(!((CMPcaar((V404)))==(VV[173]))){
2874          object V389;          goto T1416;}
2875          V387= (V326);          if((CMPcaddr(CMPcar((V404))))==(Cnil)){
2876          V388= car(cddddr((V329)));          goto T1415;}
2877          V389= car((V388));          goto T1416;
2878          goto T1419;  T1416:;
2879  T1419:;          V402= Ct;
2880          if(((V387))!=Cnil){          goto T1415;
2881          goto T1420;}  T1415:;
2882          goto T1414;          if(!((CMPcaar((V404)))==(VV[173]))){
2883          goto T1420;          goto T1422;}
2884  T1420:;          {object V407;
2885          if(!((caar((V387)))==(VV[173]))){          V407= CMPcaddr(CMPcar((V404)));
2886          goto T1425;}          if(!(((V407))==(Cnil))){
2887          if((caddr(car((V387))))==(Cnil)){          goto T1428;}
2888          goto T1424;}          goto T1426;
2889          goto T1425;          goto T1428;
2890  T1425:;  T1428:;
2891          V385= Ct;          if(type_of((V407))==t_cons){
         goto T1424;  
 T1424:;  
         if(!((caar((V387)))==(VV[173]))){  
         goto T1431;}  
         {object V390;  
         V390= caddr(car((V387)));  
         if(!(((V390))==(Cnil))){  
         goto T1437;}  
         goto T1435;  
         goto T1437;  
 T1437:;  
         if(type_of((V390))==t_cons){  
         goto T1439;}  
         goto T1431;  
         goto T1439;  
 T1439:;  
         {register object x= car((V390)),V391= VV[174];  
         while(!endp(V391))  
         if(eql(x,V391->c.c_car)){  
         goto T1435;  
         }else V391=V391->c.c_cdr;  
         goto T1431;}}  
         goto T1435;  
 T1435:;  
         V392= structure_ref(cadddr((V389)),VV[70],1);  
         if((/* INLINE-ARGS */V392)==(VV[175])){  
2892          goto T1430;}          goto T1430;}
2893          goto T1431;          goto T1422;
 T1431:;  
         V385= Ct;  
         if(type_of(V387)!=t_cons)FEwrong_type_argument(Scons,V387);  
         (V387)->c.c_car = small_fixnum(0);  
2894          goto T1430;          goto T1430;
2895  T1430:;  T1430:;
2896          V387= cdr((V387));          {register object x= CMPcar((V407)),V408= VV[174];
2897          V388= cdr((V388));          while(V408!=Cnil)
2898          V389= car((V388));          if(eql(x,V408->c.c_car)){
2899          goto T1419;}          goto T1426;
2900          goto T1414;          }else V408=V408->c.c_cdr;
2901  T1414:;          goto T1422;}}
2902          if(!(((long)length((V326)))>(15))){          goto T1426;
2903          goto T1452;}  T1426:;
2904          V385= Ct;          if((STREF(object,CMPcadddr((V406)),4))==(VV[175])){
2905          goto T1452;          goto T1421;}
2906  T1452:;          goto T1422;
2907    T1422:;
2908            V402= Ct;
2909            (V404)->c.c_car = small_fixnum(0);
2910            goto T1421;
2911    T1421:;
2912            V404= CMPcdr((V404));
2913            V405= CMPcdr((V405));
2914            V406= CMPcar((V405));
2915            goto T1410;}
2916            goto T1405;
2917    T1405:;
2918            if(!(((long)length((V345)))>(15))){
2919            goto T1443;}
2920            V402= Ct;
2921            goto T1443;
2922    T1443:;
2923          princ_str("\n   {",VV[26]);          princ_str("\n   {",VV[26]);
2924          vs_base=vs_top;          (void)((*(LnkLI328))());
2925          (void) (*Lnk325)();          bds_bind(VV[26],(VV[32]->s.s_dbind));
2926          vs_top=sup;          if(((V402))==Cnil){
2927          bds_bind(VV[26],symbol_value(VV[32]));          goto T1451;}
         if(((V385))==Cnil){  
         goto T1460;}  
2928          princ_char(10,VV[32]);          princ_char(10,VV[32]);
2929          princ_str("static object VK",VV[26]);          princ_str("static object VK",VV[26]);
2930          (void)((*(LnkLI275))((V321)));          (void)((*(LnkLI275))((V340)));
2931          princ_str("defaults[",VV[26]);          princ_str("defaults[",VV[26]);
2932          V395 = make_fixnum((long)length((V326)));          V411 = CMPmake_fixnum((long)length((V345)));
2933          (void)((*(LnkLI275))(V395));          (void)((*(LnkLI275))(V411));
2934          princ_str("]={",VV[26]);          princ_str("]={",VV[26]);
2935          {object V396;          {object V412;
2936          register object V397;          register object V413;
2937          V396= (V326);          V412= (V345);
2938          V397= Cnil;          V413= Cnil;
2939            goto T1463;
2940    T1463:;
2941            if(((V412))!=Cnil){
2942            goto T1464;}
2943            goto T1461;
2944            goto T1464;
2945    T1464:;
2946            princ_str("(void *)",VV[26]);
2947            if(!(eql(CMPcar((V412)),small_fixnum(0)))){
2948            goto T1472;}
2949            princ_str("-1",VV[26]);
2950            goto T1470;
2951          goto T1472;          goto T1472;
2952  T1472:;  T1472:;
2953          if(((V396))!=Cnil){          V413= CMPcaddr(CMPcar((V412)));
2954          goto T1473;}          if(!(((V413))==(Cnil))){
2955            goto T1476;}
2956            princ_str("-2",VV[26]);
2957          goto T1470;          goto T1470;
2958          goto T1473;          goto T1476;
2959  T1473:;  T1476:;
2960          princ_str("(void *)",VV[26]);          if(!(type_of((V413))==t_cons)){
         if(!(eql(car((V396)),small_fixnum(0)))){  
2961          goto T1481;}          goto T1481;}
2962          princ_str("-1",VV[26]);          if(!((CMPcar((V413)))==(VV[176]))){
2963          goto T1479;          goto T1481;}
2964            (void)((*(LnkLI275))(CMPcadr((V413))));
2965            goto T1470;
2966          goto T1481;          goto T1481;
2967  T1481:;  T1481:;
2968          V397= caddr(car((V396)));          if(!(type_of((V413))==t_cons)){
2969          if(!(((V397))==(Cnil))){          goto T1487;}
2970          goto T1485;}          if(!((CMPcar((V413)))==(VV[177]))){
2971          princ_str("-2",VV[26]);          goto T1487;}
2972          goto T1479;          V414= (*(LnkLI329))(CMPcaddr((V413)));
2973          goto T1485;          (void)((*(LnkLI275))(/* INLINE-ARGS */V414));
2974  T1485:;          goto T1470;
2975          if(!(type_of((V397))==t_cons)){          goto T1487;
2976          goto T1490;}  T1487:;
2977          if(!((car((V397)))==(VV[176]))){          (void)((*(LnkLI330))());
         goto T1490;}  
         (void)((*(LnkLI275))(cadr((V397))));  
         goto T1479;  
         goto T1490;  
 T1490:;  
         if(!(type_of((V397))==t_cons)){  
         goto T1496;}  
         if(!((car((V397)))==(VV[177]))){  
         goto T1496;}  
         V398= (*(LnkLI326))(caddr((V397)));  
         (void)((*(LnkLI275))(/* INLINE-ARGS */V398));  
         goto T1479;  
         goto T1496;  
 T1496:;  
         (void)((*(LnkLI327))());  
         goto T1479;  
 T1479:;  
         if((cdr((V396)))==Cnil){  
         goto T1501;}  
         princ_char(44,VV[26]);  
         goto T1501;  
 T1501:;  
         V396= cdr((V396));  
         goto T1472;}  
2978          goto T1470;          goto T1470;
2979  T1470:;  T1470:;
2980            if((CMPcdr((V412)))==Cnil){
2981            goto T1492;}
2982            princ_char(44,VV[26]);
2983            goto T1492;
2984    T1492:;
2985            V412= CMPcdr((V412));
2986            goto T1463;}
2987            goto T1461;
2988    T1461:;
2989          princ_str("};",VV[26]);          princ_str("};",VV[26]);
2990          goto T1460;          goto T1451;
2991  T1460:;  T1451:;
2992          princ_char(10,VV[32]);          princ_char(10,VV[32]);
2993          princ_str("static struct { short n,allow_other_keys;",VV[26]);          princ_str("static struct { short n,allow_other_keys;",VV[26]);
2994          princ_str("object *defaults;",VV[26]);          princ_str("object *defaults;",VV[26]);
2995          princ_str("\n    KEYTYPE keys[",VV[26]);          princ_str("\n    KEYTYPE keys[",VV[26]);
2996          (void)((*(LnkLI275))((number_compare((V386),small_fixnum(1))>=0?((V386)):small_fixnum(1))));          (void)((*(LnkLI275))((number_compare((V403),small_fixnum(1))>=0?((V403)):small_fixnum(1))));
2997          princ_str("];",VV[26]);          princ_str("];",VV[26]);
2998          princ_str("} LI",VV[26]);          princ_str("} LI",VV[26]);
2999          (void)((*(LnkLI275))((V321)));          (void)((*(LnkLI275))((V340)));
3000          princ_str("key=",VV[26]);          princ_str("key=",VV[26]);
3001          princ_char(123,VV[26]);          princ_char(123,VV[26]);
3002          V399 = make_fixnum((long)length(car(cddddr((V329)))));          V415 = CMPmake_fixnum((long)length(CMPcar(CMPcddddr((V348)))));
3003          (void)((*(LnkLI275))(V399));          (void)((*(LnkLI275))(V415));
3004          princ_char(44,VV[26]);          princ_char(44,VV[26]);
3005          if((cadr(cddddr((V329))))==Cnil){          if((CMPcadr(CMPcddddr((V348))))==Cnil){
3006          goto T1528;}          goto T1519;}
3007          V400= small_fixnum(1);          V416= small_fixnum(1);
3008          goto T1526;          goto T1517;
3009          goto T1528;          goto T1519;
3010  T1528:;  T1519:;
3011          V400= small_fixnum(0);          V416= small_fixnum(0);
3012          goto T1526;          goto T1517;
3013  T1526:;  T1517:;
3014          (void)((*(LnkLI275))(V400));          (void)((*(LnkLI275))(V416));
3015          princ_char(44,VV[26]);          princ_char(44,VV[26]);
3016          if(((V385))==Cnil){          if(((V402))==Cnil){
3017          goto T1533;}          goto T1524;}
3018          princ_str("VK",VV[26]);          princ_str("VK",VV[26]);
3019          (void)((*(LnkLI275))((V321)));          (void)((*(LnkLI275))((V340)));
3020          princ_str("defaults",VV[26]);          princ_str("defaults",VV[26]);
3021          goto T1531;          goto T1522;
3022          goto T1533;          goto T1524;
3023  T1533:;  T1524:;
3024          princ_str("Cstd_key_defaults",VV[26]);          princ_str("Cstd_key_defaults",VV[26]);
3025          goto T1531;          goto T1522;
3026  T1531:;  T1522:;
3027          if((car(cddddr((V329))))==Cnil){          if((CMPcar(CMPcddddr((V348))))==Cnil){
3028          goto T1539;}          goto T1530;}
3029          princ_str(",{",VV[26]);          princ_str(",{",VV[26]);
3030          {object V401;          {object V417;
3031          V401= reverse(car(cddddr((V329))));          V417= reverse(CMPcar(CMPcddddr((V348))));
3032          goto T1547;          goto T1538;
3033  T1547:;  T1538:;
3034          if(((V401))!=Cnil){          if(((V417))!=Cnil){
3035          goto T1548;}          goto T1539;}
3036          goto T1544;          goto T1535;
3037          goto T1548;          goto T1539;
3038  T1548:;  T1539:;
3039          princ_str("(void *)",VV[26]);          princ_str("(void *)",VV[26]);
3040          V402= (*(LnkLI328))(caar((V401)));          V418= (*(LnkLI331))(CMPcaar((V417)));
3041          (void)((*(LnkLI275))(/* INLINE-ARGS */V402));          (void)((*(LnkLI275))(/* INLINE-ARGS */V418));
3042          if((cdr((V401)))==Cnil){          if((CMPcdr((V417)))==Cnil){
         goto T1556;}  
         princ_char(44,VV[26]);  
         goto T1556;  
 T1556:;  
         V401= cdr((V401));  
3043          goto T1547;}          goto T1547;}
3044          goto T1544;          princ_char(44,VV[26]);
3045  T1544:;          goto T1547;
3046    T1547:;
3047            V417= CMPcdr((V417));
3048            goto T1538;}
3049            goto T1535;
3050    T1535:;
3051          princ_char(125,VV[26]);          princ_char(125,VV[26]);
3052          goto T1539;          goto T1530;
3053  T1539:;  T1530:;
3054          princ_str("};",VV[26]);          princ_str("};",VV[26]);
3055          bds_unwind1;          bds_unwind1;
3056          if((caddr((V329)))==Cnil){          if((CMPcaddr((V348)))==Cnil){
3057          goto T1567;}          goto T1558;}
3058          princ_str("\n   parse_key_rest_new(",VV[26]);          princ_str("\n   parse_key_rest_new(",VV[26]);
3059          V403= list(2,VV[156],(V328));          V419= list(2,VV[156],(V347));
3060          (void)((*(LnkLI275))(/* INLINE-ARGS */V403));          (void)((*(LnkLI275))(/* INLINE-ARGS */V419));
3061          princ_char(44,VV[26]);          princ_char(44,VV[26]);
3062          goto T1565;          goto T1556;
3063          goto T1567;          goto T1558;
3064  T1567:;  T1558:;
3065          princ_str("\n   parse_key_new_new(",VV[26]);          princ_str("\n   parse_key_new_new(",VV[26]);
3066          goto T1565;          goto T1556;
3067  T1565:;  T1556:;
3068          if(!(eql(small_fixnum(0),symbol_value(VV[142])))){          if(!(eql(small_fixnum(0),(VV[142]->s.s_dbind)))){
3069          goto T1573;}          goto T1564;}
3070          setq(VV[142],small_fixnum(1));          (VV[142]->s.s_dbind)= small_fixnum(1);
3071          goto T1573;          goto T1564;
3072  T1573:;  T1564:;
3073          princ_str("narg,",VV[26]);          princ_str("narg,",VV[26]);
3074          if(((VV[154]->s.s_dbind))==Cnil){          if(((VV[154]->s.s_dbind))==Cnil){
3075          goto T1581;}          goto T1572;}
3076          V404= VV[178];          V420= VV[178];
3077          goto T1579;          goto T1570;
3078          goto T1581;          goto T1572;
3079  T1581:;  T1572:;
3080          setq(VV[17],Ct);          (VV[17]->s.s_dbind)= Ct;
3081          V404= VV[179];          V420= VV[179];
3082          goto T1579;          goto T1570;
3083  T1579:;  T1570:;
3084          (void)((*(LnkLI275))(V404));          (void)((*(LnkLI275))(V420));
3085          princ_char(43,VV[26]);          princ_char(43,VV[26]);
3086          (void)((*(LnkLI275))((V327)));          (void)((*(LnkLI275))((V346)));
3087          princ_str(",(struct key *)(void *)&LI",VV[26]);          princ_str(",(struct key *)(void *)&LI",VV[26]);
3088          (void)((*(LnkLI275))((V321)));          (void)((*(LnkLI275))((V340)));
3089          princ_str("key,first,ap);",VV[26]);}          princ_str("key,first,ap);",VV[26]);}
3090          goto T1388;          goto T1379;
3091  T1388:;  T1379:;
3092          {object V405;          {object V421;
3093          register object V406;          register object V422;
3094          V405= car(cddddr((V329)));          V421= CMPcar(CMPcddddr((V348)));
3095          V406= car((V405));          V422= CMPcar((V421));
3096          goto T1594;          goto T1585;
3097  T1594:;  T1585:;
3098          if(!(endp_prop((V405)))){          if(!(((V421))==Cnil)){
3099          goto T1595;}          goto T1586;}
3100            goto T1581;
3101            goto T1586;
3102    T1586:;
3103            {object V424;
3104            V424= CMPcar((V345));
3105            V345= CMPcdr((V345));
3106            V423= (V424);}
3107            if(eql(small_fixnum(0),V423)){
3108            goto T1592;}
3109            (void)((*(LnkLI332))(CMPcadr((V422))));
3110          goto T1590;          goto T1590;
3111          goto T1595;          goto T1592;
3112  T1595:;  T1592:;
         {object V408;  
         V408= car((V326));  
         V326= cdr((V326));  
         V407= (V408);}  
         if(eql(small_fixnum(0),V407)){  
         goto T1601;}  
         (void)((*(LnkLI329))(cadr((V406))));  
         goto T1599;  
         goto T1601;  
 T1601:;  
3113          princ_str("\n   if(",VV[26]);          princ_str("\n   if(",VV[26]);
3114          V409= structure_ref(cadr((V406)),VV[70],2);          (void)((*(LnkLI333))(STREF(object,CMPcadr((V422)),8)));
         (void)((*(LnkLI330))(/* INLINE-ARGS */V409));  
3115          princ_str("==0){",VV[26]);          princ_str("==0){",VV[26]);
3116          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[134],(VV[134]->s.s_dbind));
3117          bds_bind(VV[135],(VV[135]->s.s_dbind));          bds_bind(VV[135],(VV[135]->s.s_dbind));
3118          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],(VV[133]->s.s_dbind));
3119          V410= (*(LnkLI323))(cadr((V406)),caddr((V406)));          V425= (*(LnkLI326))(CMPcadr((V422)),CMPcaddr((V422)));
3120          bds_unwind1;          bds_unwind1;
3121          bds_unwind1;          bds_unwind1;
3122          bds_unwind1;          bds_unwind1;
3123          V411= structure_ref(cadddr((V406)),VV[70],1);          if((STREF(object,CMPcadddr((V422)),4))==(VV[175])){
3124          if((/* INLINE-ARGS */V411)==(VV[175])){          goto T1604;}
3125          goto T1613;}          (void)((*(LnkLI325))(CMPcadddr((V422)),Cnil));
3126          (void)((*(LnkLI322))(cadddr((V406)),Cnil));          goto T1604;
3127          goto T1613;  T1604:;
 T1613:;  
3128          princ_str("\n   }else{",VV[26]);          princ_str("\n   }else{",VV[26]);
3129          (void)((*(LnkLI329))(cadr((V406))));          (void)((*(LnkLI332))(CMPcadr((V422))));
3130          V412= structure_ref(cadddr((V406)),VV[70],1);          if((STREF(object,CMPcadddr((V422)),4))==(VV[175])){
3131          if((/* INLINE-ARGS */V412)==(VV[175])){          goto T1610;}
3132          goto T1619;}          (void)((*(LnkLI325))(CMPcadddr((V422)),Ct));
3133          (void)((*(LnkLI322))(cadddr((V406)),Ct));          goto T1610;
3134          goto T1619;  T1610:;
 T1619:;  
3135          princ_char(125,VV[26]);          princ_char(125,VV[26]);
         goto T1599;  
 T1599:;  
         V405= cdr((V405));  
         V406= car((V405));  
         goto T1594;}  
3136          goto T1590;          goto T1590;
3137  T1590:;  T1590:;
3138            V421= CMPcdr((V421));
3139            V422= CMPcar((V421));
3140            goto T1585;}
3141            goto T1581;
3142    T1581:;
3143          if(((VV[147]->s.s_dbind))==Cnil){          if(((VV[147]->s.s_dbind))==Cnil){
3144          goto T1628;}          goto T1619;}
3145          (VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind));          (VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind));
3146          princ_str("\n   goto TTL;",VV[26]);          princ_str("\n   goto TTL;",VV[26]);
3147          princ_str("\nTTL:;",VV[26]);          princ_str("\nTTL:;",VV[26]);
3148          goto T1628;          goto T1619;
3149  T1628:;  T1619:;
3150          base[7]= caddr(cddr((V322)));          base[7]= CMPcaddr(CMPcddr((V341)));
3151          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3152          (void) (*Lnk316)();          (void) (*Lnk319)();
3153          vs_top=sup;          vs_top=sup;
3154          if(((V330))==Cnil){          if(((V349))==Cnil){
3155          goto T1638;}          goto T1629;}
3156          V330= Cnil;          V349= Cnil;
3157          princ_str("\n   va_end(ap);",VV[26]);          princ_str("\n   va_end(ap);",VV[26]);
3158          goto T1638;          goto T1629;
3159  T1638:;  T1629:;
3160          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){
3161          goto T1646;}          goto T1637;}
3162          if((symbol_value(VV[139]))!=Cnil){          if(((VV[139]->s.s_dbind))!=Cnil){
3163          goto T1646;}          goto T1637;}
3164          if((symbol_value(VV[141]))!=Cnil){          if(((VV[141]->s.s_dbind))!=Cnil){
3165          goto T1646;}          goto T1637;}
3166          goto T1644;          goto T1635;
3167          goto T1646;          goto T1637;
3168  T1646:;  T1637:;
3169          princ_str("\n   base[0]=base[0];",VV[26]);          princ_str("\n   base[0]=base[0];",VV[26]);
3170          goto T1644;          goto T1635;
3171  T1644:;  T1635:;
3172          princ_str("\n   return Cnil;",VV[26]);          princ_str("\n   return Cnil;",VV[26]);
3173          princ_char(125,VV[26]);          princ_char(125,VV[26]);
3174          if((base[1])==Cnil){          if((base[1])==Cnil){
3175          goto T1657;}          goto T1648;}
3176          princ_str("\n   }",VV[26]);          princ_str("\n   }",VV[26]);
3177          goto T1657;          goto T1648;
3178  T1657:;  T1648:;
3179          (void)((*(LnkLI331))());          (void)((*(LnkLI334))());
3180          V414= get((V320),VV[78],Cnil);          {object V428 =((V339))->s.s_plist;
3181          {object V415 = (*(LnkLI317))((V339),V414);           object ind= VV[78];
3182            while(V428!=Cnil){
3183            if(V428->c.c_car==ind){
3184            V427= (V428->c.c_cdr->c.c_car);
3185            goto T1653;
3186            }else V428=V428->c.c_cdr->c.c_cdr;}
3187            V427= Cnil;}
3188            goto T1653;
3189    T1653:;
3190            {object V429 = (*(LnkLI320))((V358),V427);
3191          bds_unwind1;          bds_unwind1;
3192          bds_unwind1;          bds_unwind1;
3193          bds_unwind1;          bds_unwind1;
3194          bds_unwind1;          bds_unwind1;
3195          VMR25(V415)}}}          VMR25(V429)}}}
3196          base[0]=base[0];          base[0]=base[0];
3197          return Cnil;          return Cnil;
3198  }  }
3199  /*      local entry for function T3DEFUN-NORMAL */  /*      local entry for function T3DEFUN-NORMAL */
3200    
3201  static object LI27(V420,V421,V422,V423)  static object LI27(V434,V435,V436,V437)
3202    
3203  object V420;register object V421;object V422;object V423;  object V434;register object V435;object V436;object V437;
3204  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
3205          goto TTL;          goto TTL;
3206  TTL:;  TTL:;
3207          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[180],(V420))));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[180],(V434))));
3208          if(!(type_of((V421))==t_fixnum||          if(!(type_of((V435))==t_fixnum||
3209  type_of((V421))==t_bignum||  type_of((V435))==t_bignum||
3210  type_of((V421))==t_ratio||  type_of((V435))==t_ratio||
3211  type_of((V421))==t_shortfloat||  type_of((V435))==t_shortfloat||
3212  type_of((V421))==t_longfloat||  type_of((V435))==t_longfloat||
3213  type_of((V421))==t_complex)){  type_of((V435))==t_complex)){
3214          goto T1666;}          goto T1657;}
3215          princ_str("\nstatic void L",VV[26]);          princ_str("\nstatic void L",VV[26]);
3216          (void)((*(LnkLI275))((V421)));          (void)((*(LnkLI275))((V435)));
3217          princ_str("()",VV[26]);          princ_str("()",VV[26]);
3218          goto T1664;          goto T1655;
3219          goto T1666;          goto T1657;
3220  T1666:;  T1657:;
3221          princ_char(10,VV[26]);          princ_char(10,VV[26]);
3222          (void)((*(LnkLI275))((V421)));          (void)((*(LnkLI275))((V435)));
3223          princ_str("()",VV[26]);          princ_str("()",VV[26]);
3224          goto T1664;          goto T1655;
3225  T1664:;  T1655:;
3226          princ_str("\n{",VV[26]);          princ_str("\n{",VV[26]);
3227          princ_str("register object *",VV[26]);          princ_str("register object *",VV[26]);
3228          (void)((*(LnkLI275))(symbol_value(VV[21])));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
3229          princ_str("base=vs_base;",VV[26]);          princ_str("base=vs_base;",VV[26]);
3230          V424= structure_ref(cadr((V422)),VV[63],1);          (void)((*(LnkLI318))(STREF(object,CMPcadr((V436)),4),(V435),VV[149]));
         (void)((*(LnkLI315))(/* INLINE-ARGS */V424,(V421),VV[149]));  
3231          princ_str("\n   register object *",VV[26]);          princ_str("\n   register object *",VV[26]);
3232          (void)((*(LnkLI275))(symbol_value(VV[21])));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
3233          princ_str("sup=base+VM",VV[26]);          princ_str("sup=base+VM",VV[26]);
3234          (void)((*(LnkLI275))(symbol_value(VV[137])));          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
3235          princ_char(59,VV[26]);          princ_char(59,VV[26]);
3236          princ_str(" VC",VV[26]);          princ_str(" VC",VV[26]);
3237          (void)((*(LnkLI275))(symbol_value(VV[137])));          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
3238          if((symbol_value(VV[164]))==Cnil){          if(((VV[164]->s.s_dbind))==Cnil){
3239          goto T1691;}          goto T1682;}
3240          princ_str("\n   vs_reserve(VM",VV[26]);          princ_str("\n   vs_reserve(VM",VV[26]);
3241          (void)((*(LnkLI275))(symbol_value(VV[137])));          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
3242          princ_str(");",VV[26]);          princ_str(");",VV[26]);
3243          goto T1689;          goto T1680;
3244          goto T1691;          goto T1682;
3245  T1691:;  T1682:;
3246          princ_str("\n   vs_check;",VV[26]);          princ_str("\n   vs_check;",VV[26]);
3247          goto T1689;          goto T1680;
3248  T1689:;  T1680:;
3249          if(((V423))==Cnil){          if(((V437))==Cnil){
3250          goto T1697;}          goto T1688;}
3251          princ_str("\n   bds_check;",VV[26]);          princ_str("\n   bds_check;",VV[26]);
3252          goto T1697;          goto T1688;
3253  T1697:;  T1688:;
3254          if((symbol_value(VV[150]))==Cnil){          if(((VV[150]->s.s_dbind))==Cnil){
3255          goto T1701;}          goto T1692;}
3256          princ_str("\n   ihs_check;",VV[26]);          princ_str("\n   ihs_check;",VV[26]);
3257          goto T1701;          goto T1692;
3258  T1701:;  T1692:;
3259          (void)((VFUN_NARGS=3,(*(LnkLI332))(caddr((V422)),caddr(cddr((V422))),(V420))));          (void)((VFUN_NARGS=3,(*(LnkLI335))(CMPcaddr((V436)),CMPcaddr(CMPcddr((V436))),(V434))));
3260          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
3261          {object V425;          {object V438;
3262          V425= make_cons(symbol_value(VV[137]),symbol_value(VV[131]));          V438= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind));
3263          setq(VV[34],make_cons((V425),symbol_value(VV[34])));}          (VV[34]->s.s_dbind)= make_cons((V438),(VV[34]->s.s_dbind));}
3264          princ_str("\n#define VC",VV[32]);          princ_str("\n#define VC",VV[32]);
3265          (void)((*(LnkLI278))(symbol_value(VV[137])));          (void)((*(LnkLI278))((VV[137]->s.s_dbind)));
3266          {object V426 = (*(LnkLI333))();          {object V439 = (*(LnkLI336))();
3267          VMR26(V426)}          VMR26(V439)}
3268          base[0]=base[0];          base[0]=base[0];
3269          return Cnil;          return Cnil;
3270  }  }
3271  /*      local entry for function WT-V*-MACROS   */  /*      local entry for function WT-V*-MACROS   */
3272    
3273  static object LI28(V429,V430)  static object LI28(V442,V443)
3274    
3275  register object V429;object V430;  register object V442;object V443;
3276  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
3277          goto TTL;          goto TTL;
3278  TTL:;  TTL:;
3279          {object V431;          {object V444;
3280          V431= make_cons((V429),symbol_value(VV[131]));          V444= make_cons((V442),(VV[131]->s.s_dbind));
3281          setq(VV[34],make_cons((V431),symbol_value(VV[34])));}          (VV[34]->s.s_dbind)= make_cons((V444),(VV[34]->s.s_dbind));}
3282          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){
3283          goto T1719;}          goto T1710;}
3284          if((symbol_value(VV[139]))!=Cnil){          if(((VV[139]->s.s_dbind))!=Cnil){
3285          goto T1719;}          goto T1710;}
3286          if((symbol_value(VV[141]))!=Cnil){          if(((VV[141]->s.s_dbind))!=Cnil){
3287          goto T1719;}          goto T1710;}
3288          princ_str("\n#define VMB",VV[32]);          princ_str("\n#define VMB",VV[32]);
3289          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3290          goto T1717;          goto T1708;
3291          goto T1719;          goto T1710;
3292  T1719:;  T1710:;
3293          princ_str("\n#define VMB",VV[32]);          princ_str("\n#define VMB",VV[32]);
3294          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3295          princ_char(32,VV[32]);          princ_char(32,VV[32]);
3296          princ_str("register object *",VV[32]);          princ_str("register object *",VV[32]);
3297          (void)((*(LnkLI278))(symbol_value(VV[21])));          (void)((*(LnkLI278))((VV[21]->s.s_dbind)));
3298          princ_str("base=vs_top;",VV[32]);          princ_str("base=vs_top;",VV[32]);
3299          goto T1717;          goto T1708;
3300  T1717:;  T1708:;
3301          (void)((*(LnkLI333))());          (void)((*(LnkLI336))());
3302          if((symbol_value(VV[139]))==Cnil){          if(((VV[139]->s.s_dbind))==Cnil){
3303          goto T1736;}          goto T1727;}
3304          princ_str("\n#define VMS",VV[32]);          princ_str("\n#define VMS",VV[32]);
3305          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3306          princ_char(32,VV[32]);          princ_char(32,VV[32]);
3307          princ_str(" register object *",VV[32]);          princ_str(" register object *",VV[32]);
3308          (void)((*(LnkLI278))(symbol_value(VV[21])));          (void)((*(LnkLI278))((VV[21]->s.s_dbind)));
3309          princ_str("sup=vs_top+",VV[32]);          princ_str("sup=vs_top+",VV[32]);
3310          (void)((*(LnkLI278))(symbol_value(VV[131])));          (void)((*(LnkLI278))((VV[131]->s.s_dbind)));
3311          princ_str(";vs_top=sup;",VV[32]);          princ_str(";vs_top=sup;",VV[32]);
3312          goto T1734;          goto T1725;
3313          goto T1736;          goto T1727;
3314  T1736:;  T1727:;
3315          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){
3316          goto T1747;}          goto T1738;}
3317          princ_str("\n#define VMS",VV[32]);          princ_str("\n#define VMS",VV[32]);
3318          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3319          goto T1734;          goto T1725;
3320          goto T1747;          goto T1738;
3321  T1747:;  T1738:;
3322          princ_str("\n#define VMS",VV[32]);          princ_str("\n#define VMS",VV[32]);
3323          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3324          princ_str(" vs_top += ",VV[32]);          princ_str(" vs_top += ",VV[32]);
3325          (void)((*(LnkLI278))(symbol_value(VV[131])));          (void)((*(LnkLI278))((VV[131]->s.s_dbind)));
3326          princ_char(59,VV[32]);          princ_char(59,VV[32]);
3327          goto T1734;          goto T1725;
3328  T1734:;  T1725:;
3329          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){
3330          goto T1758;}          goto T1749;}
3331          princ_str("\n#define VMV",VV[32]);          princ_str("\n#define VMV",VV[32]);
3332          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3333          goto T1756;          goto T1747;
3334          goto T1758;          goto T1749;
3335  T1758:;  T1749:;
3336          if((symbol_value(VV[164]))==Cnil){          if(((VV[164]->s.s_dbind))==Cnil){
3337          goto T1763;}          goto T1754;}
3338          princ_str("\n#define VMV",VV[32]);          princ_str("\n#define VMV",VV[32]);
3339          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3340          princ_str(" vs_reserve(",VV[32]);          princ_str(" vs_reserve(",VV[32]);
3341          (void)((*(LnkLI278))(symbol_value(VV[131])));          (void)((*(LnkLI278))((VV[131]->s.s_dbind)));
3342          princ_str(");",VV[32]);          princ_str(");",VV[32]);
3343          goto T1756;          goto T1747;
3344          goto T1763;          goto T1754;
3345  T1763:;  T1754:;
3346          princ_str("\n#define VMV",VV[32]);          princ_str("\n#define VMV",VV[32]);
3347          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3348          princ_str(" vs_check;",VV[32]);          princ_str(" vs_check;",VV[32]);
3349          goto T1756;          goto T1747;
3350  T1756:;  T1747:;
3351          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){
3352          goto T1774;}          goto T1765;}
3353          princ_str("\n#define VMR",VV[32]);          princ_str("\n#define VMR",VV[32]);
3354          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3355          princ_str("(VMT",VV[32]);          princ_str("(VMT",VV[32]);
3356          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3357          princ_str(") return(VMT",VV[32]);          princ_str(") return(VMT",VV[32]);
3358          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3359          princ_str(");",VV[32]);          princ_str(");",VV[32]);
3360          {object V432 = Cnil;          {object V445 = Cnil;
3361          VMR27(V432)}          VMR27(V445)}
3362          goto T1774;          goto T1765;
3363  T1774:;  T1765:;
3364          princ_str("\n#define VMR",VV[32]);          princ_str("\n#define VMR",VV[32]);
3365          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3366          princ_str("(VMT",VV[32]);          princ_str("(VMT",VV[32]);
3367          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3368          princ_str(") vs_top=base ; return(VMT",VV[32]);          princ_str(") vs_top=base ; return(VMT",VV[32]);
3369          (void)((*(LnkLI278))((V429)));          (void)((*(LnkLI278))((V442)));
3370          princ_str(");",VV[32]);          princ_str(");",VV[32]);
3371          {object V433 = Cnil;          {object V446 = Cnil;
3372          VMR27(V433)}          VMR27(V446)}
3373          base[0]=base[0];          base[0]=base[0];
3374          return Cnil;          return Cnil;
3375  }  }
3376  /*      local entry for function WT-REQUIREDS   */  /*      local entry for function WT-REQUIREDS   */
3377    
3378  static object LI29(V436,V437)  static object LI29(V449,V450)
3379    
3380  object V436;object V437;  object V449;object V450;
3381  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
3382          goto TTL;          goto TTL;
3383  TTL:;  TTL:;
3384          {register object V438;          {register object V451;
3385          V438= (V436);          V451= (V449);
3386          goto T1792;          goto T1783;
3387  T1792:;  T1783:;
3388          if(!(endp_prop((V438)))){          if(!(((V451))==Cnil)){
3389          goto T1793;}          goto T1784;}
3390          goto T1790;          goto T1781;
3391          goto T1793;          goto T1784;
3392  T1793:;  T1784:;
3393          {register object V439;          {register object V452;
3394          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));          (VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1));
3395          V439= symbol_value(VV[89]);          V452= (VV[89]->s.s_dbind);
3396          (void)(structure_set(car((V438)),VV[70],4,(V439)));          V453= CMPcar((V451));
3397            V454= Ct;
3398            STSET(object,/* INLINE-ARGS */V453,16, (V452));
3399            (void)((V452));
3400          princ_char(86,VV[26]);          princ_char(86,VV[26]);
3401          (void)((*(LnkLI275))((V439)));}          (void)((*(LnkLI275))((V452)));}
3402          if(endp_prop(cdr((V438)))){          if((CMPcdr((V451)))==Cnil){
3403          goto T1803;}          goto T1794;}
3404          princ_char(44,VV[26]);          princ_char(44,VV[26]);
3405          goto T1803;          goto T1794;
3406  T1803:;  T1794:;
3407          V438= cdr((V438));          V451= CMPcdr((V451));
3408          goto T1792;}          goto T1783;}
3409          goto T1790;          goto T1781;
3410  T1790:;  T1781:;
3411          princ_str(")\n",VV[26]);          princ_str(")\n",VV[26]);
3412          if(((V436))==Cnil){          if(((V449))==Cnil){
3413          goto T1813;}          goto T1804;}
3414          princ_char(10,VV[26]);          princ_char(10,VV[26]);
3415          {register object V440;          {register object V455;
3416          register object V441;          register object V456;
3417          register object V442;          register object V457;
3418          V440= (V436);          V455= (V449);
3419          V441= (V437);          V456= (V450);
3420          V442= Cnil;          V457= Cnil;
3421          goto T1817;          goto T1808;
3422  T1817:;  T1808:;
3423          if(!(endp_prop((V440)))){          if(!(((V455))==Cnil)){
3424          goto T1818;}          goto T1809;}
3425          princ_char(59,VV[26]);          princ_char(59,VV[26]);
3426          {object V443 = Cnil;          {object V458 = Cnil;
3427          VMR28(V443)}          VMR28(V458)}
3428          goto T1818;          goto T1809;
3429  T1818:;  T1809:;
3430          if(((V442))==Cnil){          if(((V457))==Cnil){
3431          goto T1823;}          goto T1814;}
3432          princ_char(59,VV[26]);          princ_char(59,VV[26]);
3433          goto T1823;          goto T1814;
3434  T1823:;  T1814:;
3435          (void)((*(LnkLI275))(symbol_value(VV[21])));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
3436          V444= (*(LnkLI334))(car((V440)));          V459= (*(LnkLI337))(CMPcar((V455)));
3437          (void)((*(LnkLI275))(/* INLINE-ARGS */V444));          (void)((*(LnkLI275))(/* INLINE-ARGS */V459));
3438          V445= (*(LnkLI281))(car((V441)));          V460= (*(LnkLI281))(CMPcar((V456)));
3439          (void)((*(LnkLI275))(/* INLINE-ARGS */V445));          (void)((*(LnkLI275))(/* INLINE-ARGS */V460));
3440          V442= car((V441));          V457= CMPcar((V456));
3441          princ_char(86,VV[26]);          princ_char(86,VV[26]);
3442          V446= structure_ref(car((V440)),VV[70],4);          (void)((*(LnkLI275))(STREF(object,CMPcar((V455)),16)));
3443          (void)((*(LnkLI275))(/* INLINE-ARGS */V446));          V455= CMPcdr((V455));
3444          V440= cdr((V440));          V456= CMPcdr((V456));
3445          V441= cdr((V441));          goto T1808;}
3446          goto T1817;}          goto T1804;
3447          goto T1813;  T1804:;
3448  T1813:;          {object V461 = Cnil;
3449          {object V447 = Cnil;          VMR28(V461)}
         VMR28(V447)}  
3450          return Cnil;          return Cnil;
3451  }  }
3452  /*      local entry for function ADD-DEBUG-INFO */  /*      local entry for function ADD-DEBUG-INFO */
3453    
3454  static object LI30(V450,V451)  static object LI30(V464,V465)
3455    
3456  object V450;object V451;  object V464;object V465;
3457  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
3458          goto TTL;          goto TTL;
3459  TTL:;  TTL:;
3460          {object V452;          {object V466;
3461          V452= Cnil;          V466= Cnil;
3462          {object V453;          {object V467;
3463          V453= (number_compare(symbol_value(VV[115]),small_fixnum(2))>=0?Ct:Cnil);          V467= (number_compare((VV[115]->s.s_dbind),small_fixnum(2))>=0?Ct:Cnil);
3464          if(((V453))==Cnil){          if(((V467))==Cnil){
3465          goto T1843;}          goto T1834;}
3466          {object V454 = (V453);          {object V468 = (V467);
3467          VMR29(V454)}          VMR29(V468)}
3468          goto T1843;          goto T1834;
3469  T1843:;  T1834:;
3470          if((get((V450),VV[116],Cnil))!=Cnil){          {object V469 =((V464))->s.s_plist;
3471          goto T1846;}           object ind= VV[116];
3472          {object V455 = (VFUN_NARGS=2,(*(LnkLI335))(VV[181],(V450)));          while(V469!=Cnil){
3473          VMR29(V455)}          if(V469->c.c_car==ind){
3474          goto T1846;          if(((V469->c.c_cdr->c.c_car))!=Cnil){
3475  T1846:;          goto T1837;}
3476          (void)(remprop((V450),VV[116]));          goto T1838;
3477          {register object V456;          }else V469=V469->c.c_cdr->c.c_cdr;}}
3478          V456= small_fixnum(0);          goto T1838;
3479          {register object V457;  T1838:;
3480          register object V458;          {object V470 = (VFUN_NARGS=2,(*(LnkLI338))(VV[181],(V464)));
3481          V457= structure_ref(cadr((V451)),VV[63],1);          VMR29(V470)}
3482          V458= car((V457));          goto T1837;
3483          goto T1853;  T1837:;
3484  T1853:;          (void)(remprop((V464),VV[116]));
3485          if(!(endp_prop((V457)))){          {register object V471;
3486          goto T1854;}          V471= small_fixnum(0);
3487          goto T1849;          {register object V472;
3488          goto T1854;          register object V473;
3489  T1854:;          V472= STREF(object,CMPcadr((V465)),4);
3490          V459= structure_ref((V458),VV[70],2);          V473= CMPcar((V472));
3491          if(!(type_of(/* INLINE-ARGS */V459)==t_cons)){          goto T1844;
3492          goto T1858;}  T1844:;
3493          V460= structure_ref((V458),VV[70],2);          if(!(((V472))==Cnil)){
3494          if(!(type_of(cdr(/* INLINE-ARGS */V460))==t_fixnum)){          goto T1845;}
3495          goto T1858;}          goto T1840;
3496          V461= structure_ref((V458),VV[70],2);          goto T1845;
3497          {object V462= cdr(/* INLINE-ARGS */V461);  T1845:;
3498          V456= (number_compare((V456),V462)>=0?((V456)):V462);}          if(!(type_of(STREF(object,(V473),8))==t_cons)){
3499          goto T1858;          goto T1849;}
3500  T1858:;          if(!(type_of(CMPcdr(STREF(object,(V473),8)))==t_fixnum)){
3501          V457= cdr((V457));          goto T1849;}
3502          V458= car((V457));          {object V474= CMPcdr(STREF(object,(V473),8));
3503          goto T1853;}          V471= (number_compare((V471),V474)>=0?((V471)):V474);}
3504          goto T1849;          goto T1849;
3505  T1849:;  T1849:;
3506          base[0]= one_plus((V456));          V472= CMPcdr((V472));
3507            V473= CMPcar((V472));
3508            goto T1844;}
3509            goto T1840;
3510    T1840:;
3511            base[0]= one_plus((V471));
3512          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3513          Lmake_list();          Lmake_list();
3514          vs_top=sup;          vs_top=sup;
3515          V452= vs_base[0];          V466= vs_base[0];
3516          {register object V463;          {register object V475;
3517          register object V464;          register object V476;
3518          V463= structure_ref(cadr((V451)),VV[63],1);          V475= STREF(object,CMPcadr((V465)),4);
3519          V464= car((V463));          V476= CMPcar((V475));
3520          goto T1876;          goto T1867;
3521  T1876:;  T1867:;
3522          if(!(endp_prop((V463)))){          if(!(((V475))==Cnil)){
3523          goto T1877;}          goto T1868;}
3524          goto T1872;          goto T1863;
3525          goto T1877;          goto T1868;
3526  T1877:;  T1868:;
3527          V465= structure_ref((V464),VV[70],2);          if(!(type_of(STREF(object,(V476),8))==t_cons)){
3528          if(!(type_of(/* INLINE-ARGS */V465)==t_cons)){          goto T1872;}
3529          goto T1881;}          if(!(type_of(CMPcdr(STREF(object,(V476),8)))==t_fixnum)){
3530          V466= structure_ref((V464),VV[70],2);          goto T1872;}
3531          if(!(type_of(cdr(/* INLINE-ARGS */V466))==t_fixnum)){          {object V477;
3532          goto T1881;}          register object V479;
3533          {object V467;          V477= CMPcdr(STREF(object,(V476),8));
3534          register object V469;          V479= STREF(object,(V476),0);
3535          V470= structure_ref((V464),VV[70],2);          (nthcdr(fix((V477)),V466))->c.c_car = (V479);
3536          V467= cdr(/* INLINE-ARGS */V470);          (void)(nthcdr(fix((V477)),V466));}
         V469= structure_ref((V464),VV[70],0);  
         if(type_of(nthcdr(fixint((V467)),V452))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V467)),V452));  
         (nthcdr(fixint((V467)),V452))->c.c_car = (V469);  
         (void)(nthcdr(fixint((V467)),V452));}  
         goto T1881;  
 T1881:;  
         V463= cdr((V463));  
         V464= car((V463));  
         goto T1876;}  
3537          goto T1872;          goto T1872;
3538  T1872:;  T1872:;
3539          (void)(sputprop((V450),VV[117],(V452)));          V475= CMPcdr((V475));
3540          {object V471;          V476= CMPcar((V475));
3541          V471= get((V450),VV[117],Cnil);          goto T1867;}
3542          if(((V471))==Cnil){          goto T1863;
3543          goto T1897;}  T1863:;
3544          if((cdr((V471)))!=Cnil){          (void)(sputprop((V464),VV[117],(V466)));
3545          goto T1896;}          {object V480;
3546          if((car((V471)))==Cnil){          {object V481 =((V464))->s.s_plist;
3547          goto T1897;}           object ind= VV[117];
3548          goto T1896;          while(V481!=Cnil){
3549  T1896:;          if(V481->c.c_car==ind){
3550          V472= list(2,VV[92],(V450));          V480= (V481->c.c_cdr->c.c_car);
3551          V473= list(3,VV[117],/* INLINE-ARGS */V472,list(2,VV[92],(V471)));          goto T1886;
3552          {object V474 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V473));          }else V481=V481->c.c_cdr->c.c_cdr;}
3553          VMR29(V474)}          V480= Cnil;}
3554          goto T1897;          goto T1886;
3555  T1897:;  T1886:;
3556          {object V475 = Cnil;          if(((V480))==Cnil){
3557          VMR29(V475)}}}}}          goto T1888;}
3558            if((CMPcdr((V480)))!=Cnil){
3559            goto T1887;}
3560            if((CMPcar((V480)))==Cnil){
3561            goto T1888;}
3562            goto T1887;
3563    T1887:;
3564            V482= list(2,VV[92],(V464));
3565            V483= list(3,VV[117],/* INLINE-ARGS */V482,list(2,VV[92],(V480)));
3566            {object V484 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V483));
3567            VMR29(V484)}
3568            goto T1888;
3569    T1888:;
3570            {object V485 = Cnil;
3571            VMR29(V485)}}}}}
3572          base[0]=base[0];          base[0]=base[0];
3573          return Cnil;          return Cnil;
3574  }  }
3575  /*      local entry for function ANALYZE-REGS   */  /*      local entry for function ANALYZE-REGS   */
3576    
3577  static object LI31(V478,V479)  static object LI31(V488,V489)
3578    
3579  object V478;object V479;  object V488;object V489;
3580  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
3581          goto TTL;          goto TTL;
3582  TTL:;  TTL:;
3583          {object V480;          {object V490;
3584          V480= number_minus(symbol_value(VV[182]),(V479));          V490= number_minus((VV[182]->s.s_dbind),(V489));
3585          if(!(number_compare(small_fixnum(0),symbol_value(VV[183]))==0)){          if(!(number_compare(small_fixnum(0),(VV[183]->s.s_dbind))==0)){
3586          goto T1905;}          goto T1896;}
3587          V481= (VFUN_NARGS=1,(*(LnkLI337))((V478)));          V491= (VFUN_NARGS=1,(*(LnkLI340))((V488)));
3588          {long V482 = (long)(*(LnkLI336))(/* INLINE-ARGS */V481,(V480));          {long V492 = (long)(*(LnkLI339))(/* INLINE-ARGS */V491,(V490));
3589          VMR30((object)V482)}          VMR30((object)V492)}
3590          goto T1905;          goto T1896;
3591  T1905:;  T1896:;
3592          {register object V483;          {register object V493;
3593          register object V484;          register object V494;
3594          V483= Cnil;          V493= Cnil;
3595          V484= Cnil;          V494= Cnil;
3596          {register object V485;          {register object V495;
3597          register object V486;          register object V496;
3598          V485= (V478);          V495= (V488);
3599          V486= car((V485));          V496= CMPcar((V495));
3600          goto T1911;          goto T1902;
3601  T1911:;  T1902:;
3602          if(!(endp_prop((V485)))){          if(!(((V495))==Cnil)){
3603          goto T1912;}          goto T1903;}
3604          goto T1907;          goto T1898;
3605            goto T1903;
3606    T1903:;
3607            {register object x= STREF(object,(V496),20),V497= VV[184];
3608            while(V497!=Cnil)
3609            if(x==(V497->c.c_car)){
3610            goto T1910;
3611            }else V497=V497->c.c_cdr;
3612            goto T1909;}
3613            goto T1910;
3614    T1910:;{object V498;
3615            {register object x= (V496),V499= (V494);
3616            while(V499!=Cnil)
3617            if(eql(x,V499->c.c_car)){
3618            V498= V499;
3619            goto T1912;
3620            }else V499=V499->c.c_cdr;
3621            V498= Cnil;}
3622          goto T1912;          goto T1912;
3623  T1912:;  T1912:;
3624          V488= structure_ref((V486),VV[70],5);          if(V498==Cnil)goto T1911;
3625          {register object x= /* INLINE-ARGS */V488,V487= VV[184];          goto T1907;
3626          while(!endp(V487))          goto T1911;
3627          if(x==(V487->c.c_car)){  T1911:;}
3628          goto T1919;          {register object V500;
3629          }else V487=V487->c.c_cdr;          V500= (V496);
3630          goto T1918;}          V494= make_cons((V500),(V494));
3631          goto T1919;          goto T1907;}
3632  T1919:;{object V489;          goto T1909;
3633          {register object x= (V486),V490= (V484);  T1909:;{object V501;
3634          while(!endp(V490))          {register object x= (V496),V502= (V493);
3635          if(eql(x,V490->c.c_car)){          while(V502!=Cnil)
3636          V489= V490;          if(x==(V502->c.c_car)){
3637          goto T1921;          V501= V502;
         }else V490=V490->c.c_cdr;  
         V489= Cnil;}  
         goto T1921;  
 T1921:;  
         if(V489==Cnil)goto T1920;  
         goto T1916;  
         goto T1920;  
 T1920:;}  
         {register object V491;  
         V491= (V486);  
         V484= make_cons((V491),(V484));  
         goto T1916;}  
         goto T1918;  
 T1918:;{object V492;  
         {register object x= (V486),V493= (V483);  
         while(!endp(V493))  
         if(x==(V493->c.c_car)){  
         V492= V493;  
         goto T1925;  
         }else V493=V493->c.c_cdr;  
         V492= Cnil;}  
         goto T1925;  
 T1925:;  
         if(V492==Cnil)goto T1924;  
3638          goto T1916;          goto T1916;
3639          goto T1924;          }else V502=V502->c.c_cdr;
3640  T1924:;}          V501= Cnil;}
         {register object V494;  
         V494= (V486);  
         V484= make_cons((V494),(V484));}  
3641          goto T1916;          goto T1916;
3642  T1916:;  T1916:;
3643          V485= cdr((V485));          if(V501==Cnil)goto T1915;
3644          V486= car((V485));          goto T1907;
3645          goto T1911;}          goto T1915;
3646    T1915:;}
3647            {register object V503;
3648            V503= (V496);
3649            V494= make_cons((V503),(V494));}
3650          goto T1907;          goto T1907;
3651  T1907:;  T1907:;
3652          (void)((*(LnkLI336))((V483),(V480)));          V495= CMPcdr((V495));
3653          {long V495 = (long)(*(LnkLI336))((V484),symbol_value(VV[183]));          V496= CMPcar((V495));
3654          VMR30((object)V495)}}}          goto T1902;}
3655            goto T1898;
3656    T1898:;
3657            (void)((*(LnkLI339))((V493),(V490)));
3658            {long V504 = (long)(*(LnkLI339))((V494),(VV[183]->s.s_dbind));
3659            VMR30((object)V504)}}}
3660          base[0]=base[0];          base[0]=base[0];
3661  }  }
3662  /*      local entry for function ANALYZE-REGS1  */  /*      local entry for function ANALYZE-REGS1  */
3663    
3664  static object LI32(V498,V499)  static object LI32(V507,V508)
3665    
3666  object V498;object V499;  object V507;object V508;
3667  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
3668          goto TTL;          goto TTL;
3669  TTL:;  TTL:;
3670          {register long V500;          {register long V509;
3671          register long V501;          register long V510;
3672          long V502;          long V511;
3673          long V503;          long V512;
3674          register long V504;          register long V513;
3675          V500= 0;          V509= 0;
3676          V501= 3;          V510= 3;
3677          V502= 100000;          V511= 100000;
3678          V503= fix((V499));          V512= fix((V508));
3679          V504= 0;          V513= 0;
3680          V498= (VFUN_NARGS=1,(*(LnkLI337))((V498)));          V507= (VFUN_NARGS=1,(*(LnkLI340))((V507)));
3681          goto T1942;          goto T1933;
3682  T1942:;  T1933:;
3683          {register object V505;          {register object V514;
3684          object V506;          object V515;
3685          V505= (V498);          V514= (V507);
3686          V506= car((V505));          V515= CMPcar((V514));
3687          goto T1948;          goto T1939;
3688  T1948:;  T1939:;
3689          if(!(endp_prop((V505)))){          if(!(((V514))==Cnil)){
3690          goto T1949;}          goto T1940;}
3691          goto T1944;          goto T1935;
3692          goto T1949;          goto T1940;
3693  T1949:;  T1940:;
3694          V500= fix(structure_ref((V506),VV[70],6));          V509= fix(STREF(object,(V515),24));
3695          if(!((V500)>=(V501))){          if(!((V509)>=(V510))){
3696          goto T1955;}          goto T1946;}
3697          V504= (long)(V504)+(1);          V513= (long)(V513)+(1);
3698          if(!((V500)<(V502))){          if(!((V509)<(V511))){
3699          goto T1960;}          goto T1951;}
3700          V502= V500;          V511= V509;
3701          goto T1960;          goto T1951;
3702  T1960:;  T1951:;
3703          if(!((V504)>(V503))){          if(!((V513)>(V512))){
3704          goto T1955;}          goto T1946;}
3705          goto T1943;          goto T1934;
3706          goto T1955;          goto T1946;
3707  T1955:;  T1946:;
3708          V505= cdr((V505));          V514= CMPcdr((V514));
3709          V506= car((V505));          V515= CMPcar((V514));
3710          goto T1948;}          goto T1939;}
3711          goto T1944;          goto T1935;
3712  T1944:;  T1935:;
3713          if(!((V504)<(V503))){          if(!((V513)<(V512))){
3714            goto T1962;}
3715            V510= (long)(V510)-(1);
3716            goto T1962;
3717    T1962:;
3718            {register object V516;
3719            register object V517;
3720            V516= (V507);
3721            V517= CMPcar((V516));
3722            goto T1970;
3723    T1970:;
3724            if(!(((V516))==Cnil)){
3725          goto T1971;}          goto T1971;}
3726          V501= (long)(V501)-(1);          goto T1966;
3727          goto T1971;          goto T1971;
3728  T1971:;  T1971:;
3729          {register object V507;          if(!((fix(STREF(object,(V517),24)))<(V510))){
3730          register object V508;          goto T1975;}
3731          V507= (V498);          V518= Ct;
3732          V508= car((V507));          STSET(object,(V517),24, small_fixnum(0));
3733          goto T1979;          (void)(small_fixnum(0));
 T1979:;  
         if(!(endp_prop((V507)))){  
         goto T1980;}  
         goto T1975;  
         goto T1980;  
 T1980:;  
         {long V509= fix(structure_ref((V508),VV[70],6));  
         if(!((/* INLINE-ARGS */V509)<(V501))){  
         goto T1984;}}  
         (void)(structure_set((V508),VV[70],6,small_fixnum(0)));  
         goto T1984;  
 T1984:;  
         V507= cdr((V507));  
         V508= car((V507));  
         goto T1979;}  
3734          goto T1975;          goto T1975;
3735  T1975:;  T1975:;
3736          {long V510 = V501;          V516= CMPcdr((V516));
3737          VMR31((object)V510)}          V517= CMPcar((V516));
3738          goto T1943;          goto T1970;}
3739  T1943:;          goto T1966;
3740          V504= 0;  T1966:;
3741          V501= (long)(V502)+(1);          {long V519 = V510;
3742          V502= 1000000;          VMR31((object)V519)}
3743          goto T1942;}          goto T1934;
3744    T1934:;
3745            V513= 0;
3746            V510= (long)(V511)+(1);
3747            V511= 1000000;
3748            goto T1933;}
3749          base[0]=base[0];          base[0]=base[0];
3750  }  }
3751  /*      local entry for function WT-GLOBAL-ENTRY        */  /*      local entry for function WT-GLOBAL-ENTRY        */
3752    
3753  static object LI33(V515,V516,V517,V518)  static object LI33(V524,V525,V526,V527)
3754    
3755  object V515;object V516;object V517;object V518;  object V524;object V525;object V526;object V527;
3756  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
3757          goto TTL;          goto TTL;
3758  TTL:;  TTL:;
3759          if((get((V515),VV[103],Cnil))==Cnil){          {object V528 =((V524))->s.s_plist;
3760          goto T1999;}           object ind= VV[103];
3761          {object V519 = Cnil;          while(V528!=Cnil){
3762          VMR32(V519)}          if(V528->c.c_car==ind){
3763          goto T1999;          if(((V528->c.c_cdr->c.c_car))==Cnil){
3764  T1999:;          goto T1990;}
3765          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[187],(V515))));          goto T1992;
3766            }else V528=V528->c.c_cdr->c.c_cdr;}
3767            goto T1990;}
3768            goto T1992;
3769    T1992:;
3770            {object V529 = Cnil;
3771            VMR32(V529)}
3772            goto T1990;
3773    T1990:;
3774            (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[187],(V524))));
3775          princ_str("\nstatic void L",VV[26]);          princ_str("\nstatic void L",VV[26]);
3776          (void)((*(LnkLI275))((V516)));          (void)((*(LnkLI275))((V525)));
3777          princ_str("()",VV[26]);          princ_str("()",VV[26]);
3778          princ_str("\n{  register object *base=vs_base;",VV[26]);          princ_str("\n{  register object *base=vs_base;",VV[26]);
3779          if((symbol_value(VV[164]))!=Cnil){          if(((VV[164]->s.s_dbind))!=Cnil){
3780          goto T2010;}          goto T2001;}
3781          if((symbol_value(VV[165]))==Cnil){          if(((VV[165]->s.s_dbind))==Cnil){
3782          goto T2009;}          goto T2000;}
3783          goto T2010;          goto T2001;
3784  T2010:;  T2001:;
3785          princ_str("\n   check_arg(",VV[26]);          princ_str("\n   check_arg(",VV[26]);
3786          V520 = make_fixnum((long)length((V517)));          V530 = CMPmake_fixnum((long)length((V526)));
3787          (void)((*(LnkLI275))(V520));          (void)((*(LnkLI275))(V530));
3788          princ_str(");",VV[26]);          princ_str(");",VV[26]);
3789          goto T2009;          goto T2000;
3790  T2009:;  T2000:;
3791          princ_str("\n   base[0]=",VV[26]);          princ_str("\n   base[0]=",VV[26]);
3792          {object V522= (V518);          {object V532= (V527);
3793          if((V522!= VV[90]))goto T2021;          if((V532!= VV[90]))goto T2012;
3794          if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){          if(!(number_compare(small_fixnum(0),(VV[115]->s.s_dbind))==0)){
3795          goto T2023;}          goto T2014;}
3796          V521= VV[188];          V531= VV[188];
3797          goto T2020;          goto T2011;
3798          goto T2023;          goto T2014;
3799  T2023:;  T2014:;
3800          V521= VV[189];          V531= VV[189];
3801          goto T2020;          goto T2011;
3802          goto T2021;          goto T2012;
3803  T2021:;  T2012:;
3804          if((V522!= VV[143]))goto T2025;          if((V532!= VV[143]))goto T2016;
3805          V521= VV[190];          V531= VV[190];
3806          goto T2020;          goto T2011;
3807            goto T2016;
3808    T2016:;
3809            if((V532!= VV[144]))goto T2017;
3810            V531= VV[191];
3811            goto T2011;
3812            goto T2017;
3813    T2017:;
3814            if((V532!= VV[145]))goto T2018;
3815            V531= VV[192];
3816            goto T2011;
3817            goto T2018;
3818    T2018:;
3819            V531= VV[193];}
3820            goto T2011;
3821    T2011:;
3822            (void)((*(LnkLI275))(V531));
3823            princ_str("(LI",VV[26]);
3824            (void)((*(LnkLI275))((V525)));
3825            princ_char(40,VV[26]);
3826            {register object V533;
3827            register long V534;
3828            V534= 0;
3829            V533= (V526);
3830          goto T2025;          goto T2025;
3831  T2025:;  T2025:;
3832          if((V522!= VV[144]))goto T2026;          if(!(((V533))==Cnil)){
3833          V521= VV[191];          goto T2026;}
3834          goto T2020;          goto T2022;
3835          goto T2026;          goto T2026;
3836  T2026:;  T2026:;
3837          if((V522!= VV[145]))goto T2027;          {object V536= CMPcar((V533));
3838          V521= VV[192];          if((V536!= VV[90]))goto T2033;
3839          goto T2020;          V535= VV[194];
3840          goto T2027;          goto T2032;
3841  T2027:;          goto T2033;
3842          V521= VV[193];}  T2033:;
3843          goto T2020;          if((V536!= VV[143]))goto T2034;
3844  T2020:;          V535= VV[195];
3845          (void)((*(LnkLI275))(V521));          goto T2032;
         princ_str("(LI",VV[26]);  
         (void)((*(LnkLI275))((V516)));  
         princ_char(40,VV[26]);  
         {register object V523;  
         register long V524;  
         V524= 0;  
         V523= (V517);  
3846          goto T2034;          goto T2034;
3847  T2034:;  T2034:;
3848          if(!(endp_prop((V523)))){          if((V536!= VV[144]))goto T2035;
3849          goto T2035;}          V535= VV[196];
3850          goto T2031;          goto T2032;
3851          goto T2035;          goto T2035;
3852  T2035:;  T2035:;
3853          {object V526= car((V523));          if((V536!= VV[145]))goto T2036;
3854          if((V526!= VV[90]))goto T2042;          V535= VV[197];
3855          V525= VV[194];          goto T2032;
3856          goto T2041;          goto T2036;
3857          goto T2042;  T2036:;
3858  T2042:;          V535= VV[198];}
3859          if((V526!= VV[143]))goto T2043;          goto T2032;
3860          V525= VV[195];  T2032:;
3861          goto T2041;          (void)((*(LnkLI275))(V535));
         goto T2043;  
 T2043:;  
         if((V526!= VV[144]))goto T2044;  
         V525= VV[196];  
         goto T2041;  
         goto T2044;  
 T2044:;  
         if((V526!= VV[145]))goto T2045;  
         V525= VV[197];  
         goto T2041;  
         goto T2045;  
 T2045:;  
         V525= VV[198];}  
         goto T2041;  
 T2041:;  
         (void)((*(LnkLI275))(V525));  
3862          princ_str("(base[",VV[26]);          princ_str("(base[",VV[26]);
3863          V527 = make_fixnum(V524);          V537 = CMPmake_fixnum(V534);
3864          (void)((*(LnkLI275))(V527));          (void)((*(LnkLI275))(V537));
3865          princ_str("])",VV[26]);          princ_str("])",VV[26]);
3866          if(endp_prop(cdr((V523)))){          if((CMPcdr((V533)))==Cnil){
3867          goto T2049;}          goto T2040;}
3868          princ_char(44,VV[26]);          princ_char(44,VV[26]);
3869          goto T2049;          goto T2040;
3870  T2049:;  T2040:;
3871          V523= cdr((V523));          V533= CMPcdr((V533));
3872          V524= (long)(V524)+1;          V534= (long)(V534)+1;
3873          goto T2034;}          goto T2025;}
3874          goto T2031;          goto T2022;
3875  T2031:;  T2022:;
3876          princ_str("));",VV[26]);          princ_str("));",VV[26]);
3877          princ_str("\n   vs_top=(vs_base=base)+1;",VV[26]);          princ_str("\n   vs_top=(vs_base=base)+1;",VV[26]);
3878          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
3879          {object V528 = Cnil;          {object V538 = Cnil;
3880          VMR32(V528)}          VMR32(V538)}
3881          return Cnil;          return Cnil;
3882  }  }
3883  /*      local entry for function REP-TYPE       */  /*      local entry for function REP-TYPE       */
3884    
3885  static object LI34(V530)  static object LI34(V540)
3886    
3887  object V530;  object V540;
3888  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
3889          goto TTL;          goto TTL;
3890  TTL:;  TTL:;
3891          {object V531= (V530);          {object V541= (V540);
3892          if((V531!= VV[90]))goto T2062;          if((V541!= VV[90]))goto T2053;
3893          {object V532 = VV[199];          {object V542 = VV[199];
3894          VMR33(V532)}          VMR33(V542)}
3895          goto T2062;          goto T2053;
3896  T2062:;  T2053:;
3897          if((V531!= VV[262]))goto T2063;          if((V541!= VV[262]))goto T2054;
3898          {object V533 = VV[200];          {object V543 = VV[200];
3899          VMR33(V533)}          VMR33(V543)}
3900          goto T2063;          goto T2054;
3901  T2063:;  T2054:;
3902          if((V531!= VV[143]))goto T2064;          if((V541!= VV[143]))goto T2055;
3903          {object V534 = VV[201];          {object V544 = VV[201];
3904          VMR33(V534)}          VMR33(V544)}
3905          goto T2064;          goto T2055;
3906  T2064:;  T2055:;
3907          if((V531!= VV[145]))goto T2065;          if((V541!= VV[145]))goto T2056;
3908          {object V535 = VV[202];          {object V545 = VV[202];
3909          VMR33(V535)}          VMR33(V545)}
3910          goto T2065;          goto T2056;
3911  T2065:;  T2056:;
3912          if((V531!= VV[144]))goto T2066;          if((V541!= VV[144]))goto T2057;
3913          {object V536 = VV[203];          {object V546 = VV[203];
3914          VMR33(V536)}          VMR33(V546)}
3915          goto T2066;          goto T2057;
3916  T2066:;  T2057:;
3917          {object V537 = VV[204];          {object V547 = VV[204];
3918          VMR33(V537)}}          VMR33(V547)}}
3919          return Cnil;          return Cnil;
3920  }  }
3921  /*      local entry for function T1DEFMACRO     */  /*      local entry for function T1DEFMACRO     */
3922    
3923  static object LI35(V539)  static object LI35(V549)
3924    
3925  register object V539;  register object V549;
3926  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
3927          bds_check;          bds_check;
3928          goto TTL;          goto TTL;
3929  TTL:;  TTL:;
3930          if(endp_prop((V539))){          if(((V549))==Cnil){
3931          goto T2068;}          goto T2059;}
3932          if(!(endp_prop(cdr((V539))))){          if(!((CMPcdr((V549)))==Cnil)){
3933          goto T2067;}          goto T2058;}
3934          goto T2068;          goto T2059;
3935  T2068:;  T2059:;
3936          V540 = make_fixnum((long)length((V539)));          V550 = CMPmake_fixnum((long)length((V549)));
3937          (void)((*(LnkLI284))(VV[205],small_fixnum(2),V540));          (void)((*(LnkLI284))(VV[205],small_fixnum(2),V550));
3938          goto T2067;          goto T2058;
3939  T2067:;  T2058:;
3940          if(type_of(car((V539)))==t_symbol){          if(type_of(CMPcar((V549)))==t_symbol){
3941          goto T2072;}          goto T2063;}
3942          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[206],car((V539)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[206],CMPcar((V549)))));
3943          goto T2072;          goto T2063;
3944  T2072:;  T2063:;
3945          V541= make_cons(VV[205],(V539));          V551= make_cons(VV[205],(V549));
3946          (void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V541));          (void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V551));
3947          setq(VV[6],Ct);          (VV[6]->s.s_dbind)= Ct;
3948          {register object V542;          {register object V552;
3949          object V543;          object V553;
3950          setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1)));          (VV[62]->s.s_dbind)= number_plus((VV[62]->s.s_dbind),small_fixnum(1));
3951          V543= symbol_value(VV[62]);          V553= (VV[62]->s.s_dbind);
3952          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
3953          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
3954          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
3955          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
3956          bds_bind(VV[53],Cnil);          bds_bind(VV[53],Cnil);
3957          bds_bind(VV[60],Cnil);          bds_bind(VV[60],Cnil);
3958          V542= Cnil;          V552= Cnil;
3959          V542= (*(LnkLI338))(car((V539)),cadr((V539)),cddr((V539)));          V552= (*(LnkLI341))(CMPcar((V549)),CMPcadr((V549)),CMPcddr((V549)));
3960          (void)((*(LnkLI294))());          (void)((*(LnkLI297))());
3961          {object V544;          {object V554;
3962          V544= list(7,VV[205],car((V539)),(V543),cddr((V542)),car((V542)),cadr((V542)),(VV[60]->s.s_dbind));          V554= list(7,VV[205],CMPcar((V549)),(V553),CMPcddr((V552)),CMPcar((V552)),CMPcadr((V552)),(VV[60]->s.s_dbind));
3963          setq(VV[25],make_cons((V544),symbol_value(VV[25])));          (VV[25]->s.s_dbind)= make_cons((V554),(VV[25]->s.s_dbind));
3964          {object V545 = symbol_value(VV[25]);          {object V555 = (VV[25]->s.s_dbind);
3965          bds_unwind1;          bds_unwind1;
3966          bds_unwind1;          bds_unwind1;
3967          bds_unwind1;          bds_unwind1;
3968          bds_unwind1;          bds_unwind1;
3969          bds_unwind1;          bds_unwind1;
3970          bds_unwind1;          bds_unwind1;
3971          VMR34(V545)}}}          VMR34(V555)}}}
3972          base[0]=base[0];          base[0]=base[0];
3973          return Cnil;          return Cnil;
3974  }  }
3975  /*      local entry for function T2DEFMACRO     */  /*      local entry for function T2DEFMACRO     */
3976    
3977  static object LI36(V552,V553,V554,V555,V556,V557)  static object LI36(V562,V563,V564,V565,V566,V567)
3978    
3979  object V552;object V553;object V554;object V555;object V556;object V557;  object V562;object V563;object V564;object V565;object V566;object V567;
3980  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
3981          goto TTL;          goto TTL;
3982  TTL:;  TTL:;
3983          if(((V555))==Cnil){          if(((V565))==Cnil){
3984          goto T2085;}          goto T2076;}
3985          V558= list(4,VV[104],list(2,VV[92],(V552)),(V555),VV[207]);          V568= list(4,VV[104],list(2,VV[92],(V562)),(V565),VV[207]);
3986          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V558)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V568)));
3987          goto T2085;          goto T2076;
3988  T2085:;  T2076:;
3989          if(((V556))==Cnil){          if(((V566))==Cnil){
3990          goto T2088;}          goto T2079;}
3991          V559= list(2,VV[92],(V552));          V569= list(2,VV[92],(V562));
3992          V560= list(4,VV[104],/* INLINE-ARGS */V559,list(2,VV[92],(V556)),VV[208]);          V570= list(4,VV[104],/* INLINE-ARGS */V569,list(2,VV[92],(V566)),VV[208]);
3993          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V560)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V570)));
3994          goto T2088;          goto T2079;
3995  T2088:;  T2079:;
3996          princ_str("\nstatic void L",VV[32]);          princ_str("\nstatic void L",VV[32]);
3997          (void)((*(LnkLI278))((V553)));          (void)((*(LnkLI278))((V563)));
3998          princ_str("();",VV[32]);          princ_str("();",VV[32]);
3999          V561= list(2,VV[92],(V552));          V571= list(2,VV[92],(V562));
4000          V562= list(3,VV[209],/* INLINE-ARGS */V561,(*(LnkLI302))(VV[210],(V553)));          V572= list(3,VV[209],/* INLINE-ARGS */V571,(*(LnkLI305))(VV[210],(V563)));
4001          {object V563 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V562));          {object V573 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V572));
4002          VMR35(V563)}          VMR35(V573)}
4003          return Cnil;          return Cnil;
4004  }  }
4005  /*      local entry for function T3DEFMACRO     */  /*      local entry for function T3DEFMACRO     */
4006    
4007  static object LI37(V570,V571,V572,V573,V574,V575)  static object LI37(V580,V581,V582,V583,V584,V585)
4008    
4009  object V570;object V571;register object V572;object V573;object V574;object V575;  object V580;object V581;register object V582;object V583;object V584;object V585;
4010  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
4011          bds_check;          bds_check;
4012          goto TTL;          goto TTL;
4013  TTL:;  TTL:;
4014          if((get((V570),VV[211],Cnil))==Cnil){          {object V586 =((V580))->s.s_plist;
4015          goto T2097;}           object ind= VV[211];
4016            while(V586!=Cnil){
4017            if(V586->c.c_car==ind){
4018            if(((V586->c.c_cdr->c.c_car))==Cnil){
4019            goto T2088;}
4020            goto T2089;
4021            }else V586=V586->c.c_cdr->c.c_cdr;}
4022            goto T2088;}
4023            goto T2089;
4024    T2089:;
4025          bds_bind(VV[21],VV[212]);          bds_bind(VV[21],VV[212]);
4026          goto T2095;          goto T2086;
4027          goto T2097;          goto T2088;
4028  T2097:;  T2088:;
4029          bds_bind(VV[21],VV[213]);          bds_bind(VV[21],VV[213]);
4030          goto T2095;          goto T2086;
4031  T2095:;  T2086:;
4032          bds_bind(VV[129],VV[128]);          bds_bind(VV[129],VV[128]);
4033          bds_bind(VV[19],Cnil);          bds_bind(VV[19],Cnil);
4034          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
# Line 3840  T2095:; Line 4038  T2095:;
4038          bds_bind(VV[134],Cnil);          bds_bind(VV[134],Cnil);
4039          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
4040          bds_bind(VV[136],(VV[129]->s.s_dbind));          bds_bind(VV[136],(VV[129]->s.s_dbind));
4041          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));          (VV[138]->s.s_dbind)= number_plus((VV[138]->s.s_dbind),small_fixnum(1));
4042          bds_bind(VV[137],symbol_value(VV[138]));          bds_bind(VV[137],(VV[138]->s.s_dbind));
4043          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
4044          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
4045          bds_bind(VV[141],Cnil);          bds_bind(VV[141],Cnil);
4046          bds_bind(VV[142],small_fixnum(0));          bds_bind(VV[142],small_fixnum(0));
4047          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[214],(V570))));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[214],(V580))));
4048          princ_str("\nstatic void L",VV[26]);          princ_str("\nstatic void L",VV[26]);
4049          (void)((*(LnkLI275))((V571)));          (void)((*(LnkLI275))((V581)));
4050          princ_str("()",VV[26]);          princ_str("()",VV[26]);
4051          princ_str("\n{register object *",VV[26]);          princ_str("\n{register object *",VV[26]);
4052          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
4053          princ_str("base=vs_base;",VV[26]);          princ_str("base=vs_base;",VV[26]);
4054          V576= structure_ref(car(cddddr((V572))),VV[63],1);          (void)((*(LnkLI318))(STREF(object,CMPcar(CMPcddddr((V582))),4),(V581),VV[149]));
         (void)((*(LnkLI315))(/* INLINE-ARGS */V576,(V571),VV[149]));  
4055          princ_str("\n   register object *",VV[26]);          princ_str("\n   register object *",VV[26]);
4056          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
4057          princ_str("sup=base+VM",VV[26]);          princ_str("sup=base+VM",VV[26]);
# Line 3862  T2095:; Line 4059  T2095:;
4059          princ_char(59,VV[26]);          princ_char(59,VV[26]);
4060          princ_str(" VC",VV[26]);          princ_str(" VC",VV[26]);
4061          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
4062          if((symbol_value(VV[164]))==Cnil){          if(((VV[164]->s.s_dbind))==Cnil){
4063          goto T2123;}          goto T2114;}
4064          princ_str("\n   vs_reserve(VM",VV[26]);          princ_str("\n   vs_reserve(VM",VV[26]);
4065          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
4066          princ_str(");",VV[26]);          princ_str(");",VV[26]);
4067          goto T2121;          goto T2112;
4068          goto T2123;          goto T2114;
4069  T2123:;  T2114:;
4070          princ_str("\n   vs_check;",VV[26]);          princ_str("\n   vs_check;",VV[26]);
4071          goto T2121;          goto T2112;
4072  T2121:;  T2112:;
4073          if(((V575))==Cnil){          if(((V585))==Cnil){
4074          goto T2129;}          goto T2120;}
4075          princ_str("\n   bds_check;",VV[26]);          princ_str("\n   bds_check;",VV[26]);
4076          goto T2129;          goto T2120;
4077  T2129:;  T2120:;
4078          if((symbol_value(VV[150]))==Cnil){          if(((VV[150]->s.s_dbind))==Cnil){
4079          goto T2133;}          goto T2124;}
4080          princ_str("\n   ihs_check;",VV[26]);          princ_str("\n   ihs_check;",VV[26]);
4081          goto T2133;          goto T2124;
4082  T2133:;  T2124:;
4083          base[15]= car((V572));          base[15]= CMPcar((V582));
4084          base[16]= cadr((V572));          base[16]= CMPcadr((V582));
4085          base[17]= caddr((V572));          base[17]= CMPcaddr((V582));
4086          base[18]= cadddr((V572));          base[18]= CMPcadddr((V582));
4087          vs_top=(vs_base=base+15)+4;          vs_top=(vs_base=base+15)+4;
4088          (void) (*Lnk339)();          (void) (*Lnk342)();
4089          vs_top=sup;          vs_top=sup;
4090          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
4091          {object V577;          {object V587;
4092          V577= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind));          V587= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind));
4093          setq(VV[34],make_cons((V577),symbol_value(VV[34])));}          (VV[34]->s.s_dbind)= make_cons((V587),(VV[34]->s.s_dbind));}
4094          princ_str("\n#define VC",VV[32]);          princ_str("\n#define VC",VV[32]);
4095          (void)((*(LnkLI278))((VV[137]->s.s_dbind)));          (void)((*(LnkLI278))((VV[137]->s.s_dbind)));
4096          {object V578 = (*(LnkLI333))();          {object V588 = (*(LnkLI336))();
4097          bds_unwind1;          bds_unwind1;
4098          bds_unwind1;          bds_unwind1;
4099          bds_unwind1;          bds_unwind1;
# Line 3912  T2133:; Line 4109  T2133:;
4109          bds_unwind1;          bds_unwind1;
4110          bds_unwind1;          bds_unwind1;
4111          bds_unwind1;          bds_unwind1;
4112          VMR36(V578)}          VMR36(V588)}
4113          base[0]=base[0];          base[0]=base[0];
4114          return Cnil;          return Cnil;
4115  }  }
4116  /*      local entry for function T1ORDINARY     */  /*      local entry for function T1ORDINARY     */
4117    
4118  static object LI38(V580)  static object LI38(V590)
4119    
4120  register object V580;  register object V590;
4121  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
4122          bds_check;          bds_check;
4123          goto TTL;          goto TTL;
4124  TTL:;  TTL:;
4125          {register object V581;          {register object V591;
4126          V581= Cnil;          V591= Cnil;
4127          setq(VV[6],Ct);          (VV[6]->s.s_dbind)= Ct;
4128          if((symbol_value(VV[49]))==Cnil){          if(((VV[49]->s.s_dbind))==Cnil){
4129          goto T2154;}          goto T2145;}
4130          (void)((*(LnkLI269))(Cnil,(V580)));          (void)((*(LnkLI269))(Cnil,(V590)));
4131          {object V582;          {object V592;
4132          base[0]= VV[215];          base[0]= VV[215];
4133          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4134          Lgensym();          Lgensym();
4135          vs_top=sup;          vs_top=sup;
4136          V582= vs_base[0];          V592= vs_base[0];
4137          V583= listA(3,VV[65],(V582),VV[216]);          V593= listA(3,VV[65],(V592),VV[216]);
4138          (void)((*(LnkLI290))(/* INLINE-ARGS */V583));          (void)((*(LnkLI293))(/* INLINE-ARGS */V593));
4139          base[0]= list(5,VV[52],(V582),Cnil,(V580),Cnil);          base[0]= list(5,VV[52],(V592),Cnil,(V590),Cnil);
4140          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4141          (void) (*Lnk273)();          (void) (*Lnk273)();
4142          vs_top=sup;          vs_top=sup;
4143          {object V584;          {object V594;
4144          V584= list(2,VV[217],make_cons((V582),Cnil));          V594= list(2,VV[217],make_cons((V592),Cnil));
4145          setq(VV[25],make_cons((V584),symbol_value(VV[25])));          (VV[25]->s.s_dbind)= make_cons((V594),(VV[25]->s.s_dbind));
4146          {object V585 = symbol_value(VV[25]);          {object V595 = (VV[25]->s.s_dbind);
4147          VMR37(V585)}}}          VMR37(V595)}}}
4148          goto T2154;          goto T2145;
4149  T2154:;  T2145:;
4150          {object V586;          {object V596;
4151          if(type_of((V580))==t_cons){          if(type_of((V590))==t_cons){
4152          goto T2165;}          goto T2156;}
4153          V586= Cnil;          V596= Cnil;
4154          goto T2164;          goto T2155;
4155          goto T2165;          goto T2156;
4156  T2165:;  T2156:;
4157          if(type_of(car((V580)))==t_symbol){          if(type_of(CMPcar((V590)))==t_symbol){
4158          goto T2167;}          goto T2158;}
4159          V586= Cnil;          V596= Cnil;
4160          goto T2164;          goto T2155;
4161          goto T2167;          goto T2158;
4162  T2167:;  T2158:;
4163          if(!((car((V580)))==(VV[218]))){          if(!((CMPcar((V590)))==(VV[218]))){
4164          goto T2171;}          goto T2162;}
4165          goto T2169;          goto T2160;
4166          goto T2171;          goto T2162;
4167  T2171:;  T2162:;
4168          base[0]= car((V580));          base[0]= CMPcar((V590));
4169          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4170          Lspecial_form_p();          Lspecial_form_p();
4171          vs_top=sup;          vs_top=sup;
4172          V587= vs_base[0];          V597= vs_base[0];
4173          if((V587)==Cnil){          if((V597)==Cnil){
4174          goto T2169;}          goto T2160;}
4175          V586= Cnil;          V596= Cnil;
4176          goto T2164;          goto T2155;
4177            goto T2160;
4178    T2160:;
4179            {register object V598;
4180            register long V599;
4181            V598= CMPcdr((V590));
4182            V599= 1;
4183          goto T2169;          goto T2169;
4184  T2169:;  T2169:;
4185          {register object V588;          if((V599)>=(1000)){
4186          register long V589;          goto T2171;}
4187          V588= cdr((V580));          if(type_of((V598))==t_cons){
4188          V589= 1;          goto T2170;}
4189          goto T2178;          goto T2171;
4190  T2178:;  T2171:;
4191          if((V589)>=(1000)){          V596= Cnil;
4192          goto T2180;}          goto T2155;
4193          if(type_of((V588))==t_cons){          goto T2170;
4194          goto T2179;}  T2170:;
4195          goto T2180;          if(!(type_of(CMPcar((V598)))==t_cons)){
4196  T2180:;          goto T2176;}
4197          V586= Cnil;          if(!((CMPcaar((V598)))==(VV[65]))){
4198          goto T2164;          goto T2176;}
4199          goto T2179;          V591= CMPcadr(CMPcar((V598)));
4200  T2179:;          if(!(type_of((V591))==t_cons)){
4201          if(!(type_of(car((V588)))==t_cons)){          goto T2176;}
4202          goto T2185;}          if(!((CMPcar((V591)))==(VV[219]))){
4203          if(!((caar((V588)))==(VV[65]))){          goto T2176;}
4204          goto T2185;}          {register object V600;
         V581= cadr(car((V588)));  
         if(!(type_of((V581))==t_cons)){  
         goto T2185;}  
         if(!((car((V581)))==(VV[219]))){  
         goto T2185;}  
         {register object V590;  
4205          vs_base=vs_top;          vs_base=vs_top;
4206          Lgensym();          Lgensym();
4207          vs_top=sup;          vs_top=sup;
4208          V590= vs_base[0];          V600= vs_base[0];
4209          base[0]= listA(3,VV[52],(V590),cdr((V581)));          base[0]= listA(3,VV[52],(V600),CMPcdr((V591)));
4210          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4211          (void) (*Lnk273)();          (void) (*Lnk273)();
4212          vs_top=sup;          vs_top=sup;
4213          base[1]= (V580);          base[1]= (V590);
4214          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
4215          base[3]= make_fixnum(V589);          base[3]= CMPmake_fixnum(V599);
4216          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
4217          Lsubseq();          Lsubseq();
4218          vs_top=sup;          vs_top=sup;
4219          base[0]= vs_base[0];          base[0]= vs_base[0];
4220          V591= list(2,VV[220],list(2,VV[92],(V590)));          V601= list(2,VV[220],list(2,VV[92],(V600)));
4221          base[1]= make_cons(/* INLINE-ARGS */V591,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V601,Cnil);
4222          V592 = make_fixnum(V589);          V602 = CMPmake_fixnum(V599);
4223          V593= number_plus(small_fixnum(1),V592);          V603= number_plus(small_fixnum(1),V602);
4224          base[2]= nthcdr(fixint(/* INLINE-ARGS */V593),(V580));          base[2]= nthcdr(fix(/* INLINE-ARGS */V603),(V590));
4225          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4226          Lappend();          Lappend();
4227          vs_top=sup;          vs_top=sup;
4228          V580= vs_base[0];          V590= vs_base[0];
4229          goto TTL;}          goto TTL;}
4230          goto T2185;          goto T2176;
4231  T2185:;  T2176:;
4232          if(type_of((V588))==t_cons){          if(type_of((V598))==t_cons){
4233          goto T2208;}          goto T2199;}
4234          V588= Cnil;          V598= Cnil;
4235          goto T2207;          goto T2198;
4236          goto T2208;          goto T2199;
4237  T2208:;  T2199:;
4238          V588= cdr((V588));          V598= CMPcdr((V598));
4239          goto T2207;          goto T2198;
4240  T2207:;  T2198:;
4241          V589= (long)(1)+(V589);          V599= (long)(1)+(V599);
4242          goto T2178;}          goto T2169;}
4243          goto T2164;          goto T2155;
4244  T2164:;  T2155:;
4245          if(((V586))==Cnil){          if(((V596))==Cnil){
4246          goto T2213;}          goto T2204;}
4247          {object V594 = (V586);          {object V604 = (V596);
4248          VMR37(V594)}          VMR37(V604)}
4249          goto T2213;          goto T2204;
4250  T2213:;  T2204:;
4251          (void)((*(LnkLI269))(Cnil,(V580)));          (void)((*(LnkLI269))(Cnil,(V590)));
4252          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
4253          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
4254          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
4255          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
4256          bds_bind(VV[53],Cnil);          bds_bind(VV[53],Cnil);
4257          {object V595;          {object V605;
4258          V595= list(2,VV[217],(V580));          V605= list(2,VV[217],(V590));
4259          setq(VV[25],make_cons((V595),symbol_value(VV[25])));}          (VV[25]->s.s_dbind)= make_cons((V605),(VV[25]->s.s_dbind));}
4260          {object V596 = Cnil;          {object V606 = Cnil;
4261          bds_unwind1;          bds_unwind1;
4262          bds_unwind1;          bds_unwind1;
4263          bds_unwind1;          bds_unwind1;
4264          bds_unwind1;          bds_unwind1;
4265          bds_unwind1;          bds_unwind1;
4266          VMR37(V596)}}}          VMR37(V606)}}}
4267          base[0]=base[0];          base[0]=base[0];
4268          return Cnil;          return Cnil;
4269  }  }
4270  /*      local entry for function T2ORDINARY     */  /*      local entry for function T2ORDINARY     */
4271    
4272  static object LI39(V598)  static object LI39(V608)
4273    
4274  object V598;  object V608;
4275  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
4276          goto TTL;          goto TTL;
4277  TTL:;  TTL:;
4278          {object V599;          {object V609;
4279          V599= (type_of((V598))!=t_cons?Ct:Cnil);          V609= (type_of((V608))!=t_cons?Ct:Cnil);
4280          if(((V599))==Cnil){          if(((V609))==Cnil){
4281          goto T2221;}          goto T2212;}
4282          {object V600 = (V599);          {object V610 = (V609);
4283          VMR38(V600)}          VMR38(V610)}
4284          goto T2221;          goto T2212;
4285  T2221:;  T2212:;
4286          {object V601;          {object V611;
4287          base[0]= (V598);          base[0]= (V608);
4288          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4289          Lconstantp();          Lconstantp();
4290          vs_top=sup;          vs_top=sup;
4291          V601= vs_base[0];          V611= vs_base[0];
4292          if(((V601))==Cnil){          if(((V611))==Cnil){
4293          goto T2226;}          goto T2217;}
4294          {object V602 = (V601);          {object V612 = (V611);
4295          VMR38(V602)}          VMR38(V612)}
4296          goto T2226;          goto T2217;
4297  T2226:;  T2217:;
4298          {object V603 = (VFUN_NARGS=1,(*(LnkLI301))((V598)));          {object V613 = (VFUN_NARGS=1,(*(LnkLI304))((V608)));
4299          VMR38(V603)}}}          VMR38(V613)}}}
4300          base[0]=base[0];          base[0]=base[0];
4301          return Cnil;          return Cnil;
4302  }  }
# Line 4110  static object LI40() Line 4307  static object LI40()
4307  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
4308          goto TTL;          goto TTL;
4309  TTL:;  TTL:;
4310          {register object V604;          {register object V614;
4311          register object V605;          register object V615;
4312          V604= reverse(symbol_value(VV[53]));          V614= reverse((VV[53]->s.s_dbind));
4313          V605= car((V604));          V615= CMPcar((V614));
4314          goto T2231;          goto T2222;
4315  T2231:;  T2222:;
4316          if(!(endp_prop((V604)))){          if(!(((V614))==Cnil)){
4317          goto T2232;}          goto T2223;}
4318          {object V606 = Cnil;          {object V616 = Cnil;
4319          VMR39(V606)}          VMR39(V616)}
4320          goto T2232;          goto T2223;
4321  T2232:;  T2223:;
4322          if(!(type_of((V605))!=t_cons)){          if(!(type_of((V615))!=t_cons)){
4323          goto T2236;}          goto T2227;}
4324          (void)((*(LnkLI340))());          (void)((*(LnkLI343))());
4325          goto T2236;          goto T2227;
4326  T2236:;  T2227:;
4327          {register object V607;          {register object V617;
4328          V607= make_cons(VV[221],(V605));          V617= make_cons(VV[221],(V615));
4329          setq(VV[25],make_cons((V607),symbol_value(VV[25])));}          (VV[25]->s.s_dbind)= make_cons((V617),(VV[25]->s.s_dbind));}
4330          V604= cdr((V604));          V614= CMPcdr((V614));
4331          V605= car((V604));          V615= CMPcar((V614));
4332          goto T2231;}          goto T2222;}
4333          base[0]=base[0];          base[0]=base[0];
4334          return Cnil;          return Cnil;
4335  }  }
4336  /*      local entry for function T2SHARP-COMMA  */  /*      local entry for function T2SHARP-COMMA  */
4337    
4338  static object LI41(V610,V611)  static object LI41(V620,V621)
4339    
4340  object V610;object V611;  object V620;object V621;
4341  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
4342          goto TTL;          goto TTL;
4343  TTL:;  TTL:;
4344          V612= list(3,VV[222],(V610),(V611));          V622= list(3,VV[222],(V620),(V621));
4345          {object V613 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V612));          {object V623 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V622));
4346          VMR40(V613)}          VMR40(V623)}
4347          return Cnil;          return Cnil;
4348  }  }
4349  /*      local entry for function T2DECLARE      */  /*      local entry for function T2DECLARE      */
4350    
4351  static object LI42(V615)  static object LI42(V625)
4352    
4353  object V615;  object V625;
4354  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
4355          goto TTL;          goto TTL;
4356  TTL:;  TTL:;
4357          {object V616 = (*(LnkLI340))();          {object V626 = (*(LnkLI343))();
4358          VMR41(V616)}          VMR41(V626)}
4359          return Cnil;          return Cnil;
4360  }  }
4361  /*      local entry for function T1DEFINE-STRUCTURE     */  /*      local entry for function T1DEFINE-STRUCTURE     */
4362    
4363  static object LI43(V618)  static object LI43(V628)
4364    
4365  object V618;  object V628;
4366  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
4367          goto TTL;          goto TTL;
4368  TTL:;  TTL:;
4369          V619= (*(LnkLI269))(Cnil,Cnil);          V629= (*(LnkLI269))(Cnil,Cnil);
4370          V620= make_cons(((/* INLINE-ARGS */V619)==Cnil?Ct:Cnil),Cnil);          V630= make_cons(((/* INLINE-ARGS */V629)==Cnil?Ct:Cnil),Cnil);
4371          V621= append((V618),/* INLINE-ARGS */V620);          V631= append((V628),/* INLINE-ARGS */V630);
4372          V622= make_cons(VV[223],/* INLINE-ARGS */V621);          V632= make_cons(VV[223],/* INLINE-ARGS */V631);
4373          (void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V622));          (void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V632));
4374          V623= make_cons(VV[223],(V618));          V633= make_cons(VV[223],(V628));
4375          {object V624 = (*(LnkLI274))(/* INLINE-ARGS */V623);          {object V634 = (*(LnkLI274))(/* INLINE-ARGS */V633);
4376          VMR42(V624)}          VMR42(V634)}
4377          return Cnil;          return Cnil;
4378  }  }
4379  /*      local entry for function SET-DBIND      */  /*      local entry for function SET-DBIND      */
4380    
4381  static object LI44(V627,V628)  static object LI44(V637,V638)
4382    
4383  object V627;object V628;  object V637;object V638;
4384  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
4385          goto TTL;          goto TTL;
4386  TTL:;  TTL:;
4387          princ_str("\n   VV[",VV[26]);          princ_str("\n   VV[",VV[26]);
4388          (void)((*(LnkLI275))((V628)));          (void)((*(LnkLI275))((V638)));
4389          princ_str("]->s.s_dbind = ",VV[26]);          princ_str("]->s.s_dbind = ",VV[26]);
4390          (void)((*(LnkLI275))((V627)));          (void)((*(LnkLI275))((V637)));
4391          princ_char(59,VV[26]);          princ_char(59,VV[26]);
4392          {object V629 = Cnil;          {object V639 = Cnil;
4393          VMR43(V629)}          VMR43(V639)}
4394          return Cnil;          return Cnil;
4395  }  }
4396  /*      local entry for function T1CLINES       */  /*      local entry for function T1CLINES       */
4397    
4398  static object LI45(V631)  static object LI45(V641)
4399    
4400  object V631;  object V641;
4401  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
4402          goto TTL;          goto TTL;
4403  TTL:;  TTL:;
4404          {register object V632;          {register object V642;
4405          register object V633;          register object V643;
4406          V632= (V631);          V642= (V641);
4407          V633= car((V632));          V643= CMPcar((V642));
4408          goto T2258;          goto T2249;
4409  T2258:;  T2249:;
4410          if(!(endp_prop((V632)))){          if(!(((V642))==Cnil)){
4411          goto T2259;}          goto T2250;}
4412          goto T2254;          goto T2245;
4413          goto T2259;          goto T2250;
4414  T2259:;  T2250:;
4415          if(type_of((V633))==t_string){          if(type_of((V643))==t_string){
4416          goto T2263;}          goto T2254;}
4417          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[224],(V633))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[224],(V643))));
         goto T2263;  
 T2263:;  
         V632= cdr((V632));  
         V633= car((V632));  
         goto T2258;}  
4418          goto T2254;          goto T2254;
4419  T2254:;  T2254:;
4420          {object V634;          V642= CMPcdr((V642));
4421          V634= list(2,VV[225],(V631));          V643= CMPcar((V642));
4422          setq(VV[25],make_cons((V634),symbol_value(VV[25])));          goto T2249;}
4423          {object V635 = symbol_value(VV[25]);          goto T2245;
4424          VMR44(V635)}}  T2245:;
4425            {object V644;
4426            V644= list(2,VV[225],(V641));
4427            (VV[25]->s.s_dbind)= make_cons((V644),(VV[25]->s.s_dbind));
4428            {object V645 = (VV[25]->s.s_dbind);
4429            VMR44(V645)}}
4430          base[0]=base[0];          base[0]=base[0];
4431          return Cnil;          return Cnil;
4432  }  }
4433  /*      local entry for function T3CLINES       */  /*      local entry for function T3CLINES       */
4434    
4435  static object LI46(V637)  static object LI46(V647)
4436    
4437  object V637;  object V647;
4438  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
4439          goto TTL;          goto TTL;
4440  TTL:;  TTL:;
4441          {register object V638;          {register object V648;
4442          register object V639;          register object V649;
4443          V638= (V637);          V648= (V647);
4444          V639= car((V638));          V649= CMPcar((V648));
4445          goto T2276;          goto T2267;
4446  T2276:;  T2267:;
4447          if(!(endp_prop((V638)))){          if(!(((V648))==Cnil)){
4448          goto T2277;}          goto T2268;}
4449          {object V640 = Cnil;          {object V650 = Cnil;
4450          VMR45(V640)}          VMR45(V650)}
4451          goto T2277;          goto T2268;
4452  T2277:;  T2268:;
4453          princ_char(10,VV[26]);          princ_char(10,VV[26]);
4454          (void)((*(LnkLI275))((V639)));          (void)((*(LnkLI275))((V649)));
4455          V638= cdr((V638));          V648= CMPcdr((V648));
4456          V639= car((V638));          V649= CMPcar((V648));
4457          goto T2276;}          goto T2267;}
4458          base[0]=base[0];          base[0]=base[0];
4459          return Cnil;          return Cnil;
4460  }  }
4461  /*      local entry for function T1DEFCFUN      */  /*      local entry for function T1DEFCFUN      */
4462    
4463  static object LI47(V642)  static object LI47(V652)
4464    
4465  object V642;  object V652;
4466  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
4467          goto TTL;          goto TTL;
4468  TTL:;  TTL:;
4469          {register object V643;          {register object V653;
4470          V643= Cnil;          V653= Cnil;
4471          if(endp_prop((V642))){          if(((V652))==Cnil){
4472          goto T2291;}          goto T2282;}
4473          if(!(endp_prop(cdr((V642))))){          if(!((CMPcdr((V652)))==Cnil)){
4474          goto T2290;}          goto T2281;}
4475          goto T2291;          goto T2282;
4476  T2291:;  T2282:;
4477          V644 = make_fixnum((long)length((V642)));          V654 = CMPmake_fixnum((long)length((V652)));
4478          (void)((*(LnkLI284))(VV[226],small_fixnum(2),V644));          (void)((*(LnkLI284))(VV[226],small_fixnum(2),V654));
4479          goto T2290;          goto T2281;
4480  T2290:;  T2281:;
4481          if(type_of(car((V642)))==t_string){          if(type_of(CMPcar((V652)))==t_string){
4482          goto T2295;}          goto T2286;}
4483          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[227],car((V642)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[227],CMPcar((V652)))));
4484          goto T2295;          goto T2286;
4485  T2295:;  T2286:;
4486          {object V645= cadr((V642));          {object V655= CMPcadr((V652));
4487          if(type_of(V645)==t_fixnum||          if(type_of(V655)==t_fixnum||
4488  type_of(V645)==t_bignum||  type_of(V655)==t_bignum||
4489  type_of(V645)==t_ratio||  type_of(V655)==t_ratio||
4490  type_of(V645)==t_shortfloat||  type_of(V655)==t_shortfloat||
4491  type_of(V645)==t_longfloat||  type_of(V655)==t_longfloat||
4492  type_of(V645)==t_complex){  type_of(V655)==t_complex){
4493          goto T2298;}}          goto T2289;}}
4494          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[228],cadr((V642)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[228],CMPcadr((V652)))));
4495          goto T2298;          goto T2289;
4496  T2298:;  T2289:;
4497          {register object V646;          {register object V656;
4498          register object V647;          register object V657;
4499          V646= cddr((V642));          V656= CMPcddr((V652));
4500          V647= car((V646));          V657= CMPcar((V656));
4501          goto T2305;          goto T2296;
4502  T2305:;  T2296:;
4503          if(!(endp_prop((V646)))){          if(!(((V656))==Cnil)){
4504          goto T2306;}          goto T2297;}
4505          goto T2301;          goto T2292;
4506          goto T2306;          goto T2297;
4507  T2306:;  T2297:;
4508          if(!(type_of((V647))==t_string)){          if(!(type_of((V657))==t_string)){
4509          goto T2312;}          goto T2303;}
4510          {register object V648;          {register object V658;
4511          V648= (V647);          V658= (V657);
4512          V643= make_cons((V648),(V643));          V653= make_cons((V658),(V653));
4513          goto T2310;}          goto T2301;}
4514          goto T2312;          goto T2303;
4515  T2312:;  T2303:;
4516          if(!(type_of((V647))==t_cons)){          if(!(type_of((V657))==t_cons)){
4517          goto T2317;}          goto T2308;}
4518          if(!(type_of(car((V647)))==t_symbol)){          if(!(type_of(CMPcar((V657)))==t_symbol)){
4519          goto T2320;}          goto T2311;}
4520          base[2]= car((V647));          base[2]= CMPcar((V657));
4521          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4522          Lspecial_form_p();          Lspecial_form_p();
4523          vs_top=sup;          vs_top=sup;
4524          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4525          goto T2322;}          goto T2313;}
4526          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[229],car((V647)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[229],CMPcar((V657)))));
4527          goto T2322;          goto T2313;
4528  T2322:;  T2313:;
4529          {register object V649;          {register object V659;
4530          V650= car((V647));          V660= CMPcar((V657));
4531          V651= (*(LnkLI341))(cdr((V647)));          V661= (*(LnkLI344))(CMPcdr((V657)));
4532          V652= make_cons(/* INLINE-ARGS */V650,/* INLINE-ARGS */V651);          V662= make_cons(/* INLINE-ARGS */V660,/* INLINE-ARGS */V661);
4533          V649= make_cons(/* INLINE-ARGS */V652,Cnil);          V659= make_cons(/* INLINE-ARGS */V662,Cnil);
4534          V643= make_cons((V649),(V643));          V653= make_cons((V659),(V653));
4535          goto T2310;}          goto T2301;}
4536          goto T2320;          goto T2311;
4537  T2320:;  T2311:;
4538          if(!(type_of(car((V647)))==t_cons)){          if(!(type_of(CMPcar((V657)))==t_cons)){
4539          goto T2329;}          goto T2320;}
4540          if(!(type_of(caar((V647)))==t_symbol)){          if(!(type_of(CMPcaar((V657)))==t_symbol)){
4541            goto T2320;}
4542            if(!((CMPcaar((V657)))==(VV[92]))){
4543            goto T2327;}
4544            if(!((CMPcdar((V657)))==Cnil)){
4545          goto T2329;}          goto T2329;}
4546          if(!((caar((V647)))==(VV[92]))){          goto T2320;
         goto T2336;}  
         if(!(endp_prop(cdar((V647))))){  
         goto T2338;}  
         goto T2329;  
         goto T2338;  
 T2338:;  
         if(!(((endp_prop(cddar((V647)))?Ct:Cnil))==Cnil)){  
         goto T2340;}  
         goto T2329;  
         goto T2340;  
 T2340:;  
         if(!(endp_prop(cdr((V647))))){  
         goto T2342;}  
4547          goto T2329;          goto T2329;
4548          goto T2342;  T2329:;
4549  T2342:;          if(!((((CMPcddar((V657)))==Cnil?Ct:Cnil))==Cnil)){
4550          if(((endp_prop(cddr((V647)))?Ct:Cnil))==Cnil){          goto T2331;}
4551          goto T2329;}          goto T2320;
4552          goto T2334;          goto T2331;
4553          goto T2336;  T2331:;
4554  T2336:;          if(!((CMPcdr((V657)))==Cnil)){
4555          base[2]= caar((V647));          goto T2333;}
4556            goto T2320;
4557            goto T2333;
4558    T2333:;
4559            if((((CMPcddr((V657)))==Cnil?Ct:Cnil))==Cnil){
4560            goto T2320;}
4561            goto T2325;
4562            goto T2327;
4563    T2327:;
4564            base[2]= CMPcaar((V657));
4565          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4566          Lspecial_form_p();          Lspecial_form_p();
4567          vs_top=sup;          vs_top=sup;
4568          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4569          goto T2329;}          goto T2320;}
4570          goto T2334;          goto T2325;
4571  T2334:;  T2325:;
4572          {register object V653;          {register object V663;
4573          V654= caar((V647));          V664= CMPcaar((V657));
4574          if(!((caar((V647)))==(VV[92]))){          if(!((CMPcaar((V657)))==(VV[92]))){
4575          goto T2348;}          goto T2339;}
4576          V656= (*(LnkLI326))(cadar((V647)));          V666= (*(LnkLI329))(CMPcadar((V657)));
4577          V655= make_cons(/* INLINE-ARGS */V656,Cnil);          V665= make_cons(/* INLINE-ARGS */V666,Cnil);
4578          goto T2346;          goto T2337;
4579          goto T2348;          goto T2339;
4580  T2348:;  T2339:;
4581          V655= (*(LnkLI341))(cdar((V647)));          V665= (*(LnkLI344))(CMPcdar((V657)));
4582          goto T2346;          goto T2337;
4583  T2346:;  T2337:;
4584          V657= make_cons(/* INLINE-ARGS */V654,V655);          V667= make_cons(/* INLINE-ARGS */V664,V665);
4585          V658= (*(LnkLI341))(cdr((V647)));          V668= (*(LnkLI344))(CMPcdr((V657)));
4586          V653= make_cons(/* INLINE-ARGS */V657,/* INLINE-ARGS */V658);          V663= make_cons(/* INLINE-ARGS */V667,/* INLINE-ARGS */V668);
4587          V643= make_cons((V653),(V643));          V653= make_cons((V663),(V653));
4588          goto T2310;}          goto T2301;}
4589          goto T2329;          goto T2320;
4590  T2329:;  T2320:;
4591          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[230],(V647))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[230],(V657))));
4592          goto T2310;          goto T2301;
4593          goto T2317;          goto T2308;
4594  T2317:;  T2308:;
4595          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[231],(V647))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[231],(V657))));
         goto T2310;  
 T2310:;  
         V646= cdr((V646));  
         V647= car((V646));  
         goto T2305;}  
4596          goto T2301;          goto T2301;
4597  T2301:;  T2301:;
4598          {object V659;          V656= CMPcdr((V656));
4599          V660= car((V642));          V657= CMPcar((V656));
4600          V661= cadr((V642));          goto T2296;}
4601          V659= list(4,VV[226],/* INLINE-ARGS */V660,/* INLINE-ARGS */V661,reverse((V643)));          goto T2292;
4602          setq(VV[25],make_cons((V659),symbol_value(VV[25])));  T2292:;
4603          {object V662 = symbol_value(VV[25]);          {object V669;
4604          VMR46(V662)}}}          V670= CMPcar((V652));
4605            V671= CMPcadr((V652));
4606            V669= list(4,VV[226],/* INLINE-ARGS */V670,/* INLINE-ARGS */V671,reverse((V653)));
4607            (VV[25]->s.s_dbind)= make_cons((V669),(VV[25]->s.s_dbind));
4608            {object V672 = (VV[25]->s.s_dbind);
4609            VMR46(V672)}}}
4610          base[0]=base[0];          base[0]=base[0];
4611          return Cnil;          return Cnil;
4612  }  }
4613  /*      local entry for function T3DEFCFUN      */  /*      local entry for function T3DEFCFUN      */
4614    
4615  static object LI48(V666,V667,V668)  static object LI48(V676,V677,V678)
4616    
4617  object V666;object V667;object V668;  object V676;object V677;object V678;
4618  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
4619          goto TTL;          goto TTL;
4620  TTL:;  TTL:;
4621          {object V669;          {object V679;
4622          V669= Cnil;          V679= Cnil;
4623          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[232],VV[226])));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[232],VV[226])));
4624          princ_char(10,VV[26]);          princ_char(10,VV[26]);
4625          (void)((*(LnkLI275))((V666)));          (void)((*(LnkLI275))((V676)));
4626          princ_str("\n{",VV[26]);          princ_str("\n{",VV[26]);
4627          princ_str("\nobject *vs=vs_top;",VV[26]);          princ_str("\nobject *vs=vs_top;",VV[26]);
4628          princ_str("\nobject *old_top=vs_top+",VV[26]);          princ_str("\nobject *old_top=vs_top+",VV[26]);
4629          (void)((*(LnkLI275))((V667)));          (void)((*(LnkLI275))((V677)));
4630          princ_char(59,VV[26]);          princ_char(59,VV[26]);
4631          if(!(number_compare((V667),small_fixnum(0))>0)){          if(!(number_compare((V677),small_fixnum(0))>0)){
4632          goto T2371;}          goto T2362;}
4633          princ_str("\n   vs_top=old_top;",VV[26]);          princ_str("\n   vs_top=old_top;",VV[26]);
4634          goto T2371;          goto T2362;
4635  T2371:;  T2362:;
4636          princ_str("\n{",VV[26]);          princ_str("\n{",VV[26]);
4637          {object V670;          {object V680;
4638          register object V671;          register object V681;
4639          V670= (V668);          V680= (V678);
4640          V671= car((V670));          V681= CMPcar((V680));
4641          goto T2381;          goto T2372;
4642  T2381:;  T2372:;
4643          if(!(endp_prop((V670)))){          if(!(((V680))==Cnil)){
4644          goto T2382;}          goto T2373;}
4645          goto T2377;          goto T2368;
4646          goto T2382;          goto T2373;
4647  T2382:;  T2373:;
4648          if(!(type_of((V671))==t_string)){          if(!(type_of((V681))==t_string)){
4649          goto T2388;}          goto T2379;}
4650          princ_char(10,VV[26]);          princ_char(10,VV[26]);
4651          (void)((*(LnkLI275))((V671)));          (void)((*(LnkLI275))((V681)));
4652          goto T2386;          goto T2377;
4653          goto T2388;          goto T2379;
4654  T2388:;  T2379:;
4655          if(!((caar((V671)))==(VV[92]))){          if(!((CMPcaar((V681)))==(VV[92]))){
4656          goto T2393;}          goto T2384;}
4657          princ_char(10,VV[26]);          princ_char(10,VV[26]);
4658          (void)((*(LnkLI275))(cadadr((V671))));          (void)((*(LnkLI275))(CMPcadadr((V681))));
4659          {object V672= caadr((V671));          {object V682= CMPcaadr((V681));
4660          if((V672!= VV[75]))goto T2398;          if((V682!= VV[75]))goto T2389;
4661          princ_str("=VV[",VV[26]);          princ_str("=VV[",VV[26]);
4662          (void)((*(LnkLI275))(cadar((V671))));          (void)((*(LnkLI275))(CMPcadar((V681))));
4663          princ_str("];",VV[26]);          princ_str("];",VV[26]);
4664          goto T2386;          goto T2377;
4665          goto T2398;          goto T2389;
4666  T2398:;  T2389:;
4667          princ_str("=object_to_",VV[26]);          princ_str("=object_to_",VV[26]);
4668          base[1]= symbol_name(caadr((V671)));          base[1]= symbol_name(CMPcaadr((V681)));
4669          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4670          Lstring_downcase();          Lstring_downcase();
4671          vs_top=sup;          vs_top=sup;
4672          V673= vs_base[0];          V683= vs_base[0];
4673          (void)((*(LnkLI275))(V673));          (void)((*(LnkLI275))(V683));
4674          princ_str("(VV[",VV[26]);          princ_str("(VV[",VV[26]);
4675          (void)((*(LnkLI275))(cadar((V671))));          (void)((*(LnkLI275))(CMPcadar((V681))));
4676          princ_str("]);",VV[26]);          princ_str("]);",VV[26]);
4677          goto T2386;}          goto T2377;}
4678          goto T2393;          goto T2384;
4679  T2393:;  T2384:;
4680          princ_str("\n{vs_base=vs_top=old_top;",VV[26]);          princ_str("\n{vs_base=vs_top=old_top;",VV[26]);
4681          {register object V674;          {register object V684;
4682          register object V675;          register object V685;
4683          V674= cdar((V671));          V684= CMPcdar((V681));
4684          V675= car((V674));          V685= CMPcar((V684));
4685          goto T2415;          goto T2406;
4686  T2415:;  T2406:;
4687          if(!(endp_prop((V674)))){          if(!(((V684))==Cnil)){
4688          goto T2416;}          goto T2407;}
4689          goto T2411;          goto T2402;
4690          goto T2416;          goto T2407;
4691  T2416:;  T2407:;
4692          princ_str("\nvs_push(",VV[26]);          princ_str("\nvs_push(",VV[26]);
4693          {object V676= car((V675));          {object V686= CMPcar((V685));
4694          if((V676!= VV[75]))goto T2423;          if((V686!= VV[75]))goto T2414;
4695          (void)((*(LnkLI275))(cadr((V675))));          (void)((*(LnkLI275))(CMPcadr((V685))));
4696          goto T2422;          goto T2413;
4697          goto T2423;          goto T2414;
4698  T2423:;  T2414:;
4699          if((V676!= VV[342]))goto T2425;          if((V686!= VV[345]))goto T2416;
4700          princ_str("code_char((long)",VV[26]);          princ_str("code_char((long)",VV[26]);
4701          (void)((*(LnkLI275))(cadr((V675))));          (void)((*(LnkLI275))(CMPcadr((V685))));
4702          princ_char(41,VV[26]);          princ_char(41,VV[26]);
4703          goto T2422;          goto T2413;
4704          goto T2425;          goto T2416;
4705  T2425:;  T2416:;
4706          if((V676!= VV[343]))goto T2429;          if((V686!= VV[346]))goto T2420;
4707          if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){          if(!(number_compare(small_fixnum(0),(VV[115]->s.s_dbind))==0)){
4708          goto T2430;}          goto T2421;}
4709          princ_str("CMP",VV[26]);          princ_str("CMP",VV[26]);
4710          goto T2430;          goto T2421;
4711  T2430:;  T2421:;
4712          princ_str("make_fixnum((long)",VV[26]);          princ_str("make_fixnum((long)",VV[26]);
4713          (void)((*(LnkLI275))(cadr((V675))));          (void)((*(LnkLI275))(CMPcadr((V685))));
4714          princ_char(41,VV[26]);          princ_char(41,VV[26]);
4715          goto T2422;          goto T2413;
4716          goto T2429;          goto T2420;
4717  T2429:;  T2420:;
4718          if((V676!= VV[344]))goto T2437;          if((V686!= VV[347]))goto T2428;
4719          princ_str("make_shortfloat((double)",VV[26]);          princ_str("make_shortfloat((double)",VV[26]);
4720          (void)((*(LnkLI275))(cadr((V675))));          (void)((*(LnkLI275))(CMPcadr((V685))));
4721          princ_char(41,VV[26]);          princ_char(41,VV[26]);
4722          goto T2422;          goto T2413;
4723          goto T2437;          goto T2428;
4724  T2437:;  T2428:;
4725          if((V676!= VV[345]))goto T2441;          if((V686!= VV[348]))goto T2432;
4726          princ_str("make_longfloat((double)",VV[26]);          princ_str("make_longfloat((double)",VV[26]);
4727          (void)((*(LnkLI275))(cadr((V675))));          (void)((*(LnkLI275))(CMPcadr((V685))));
4728          princ_char(41,VV[26]);          princ_char(41,VV[26]);
4729          goto T2422;          goto T2413;
4730          goto T2441;          goto T2432;
4731  T2441:;}  T2432:;}
4732          goto T2422;          goto T2413;
4733  T2422:;  T2413:;
4734          princ_str(");",VV[26]);          princ_str(");",VV[26]);
4735          V674= cdr((V674));          V684= CMPcdr((V684));
4736          V675= car((V674));          V685= CMPcar((V684));
4737          goto T2415;}          goto T2406;}
4738          goto T2411;          goto T2402;
4739  T2411:;  T2402:;
4740          {register object x= caar((V671)),V677= symbol_value(VV[80]);          {register object x= CMPcaar((V681)),V687= (VV[80]->s.s_dbind);
4741          while(!endp(V677))          while(V687!=Cnil)
4742          if(type_of(V677->c.c_car)==t_cons &&eql(x,V677->c.c_car->c.c_car)){          if(eql(x,V687->c.c_car->c.c_car) &&V687->c.c_car != Cnil){
4743          V669= (V677->c.c_car);          V679= (V687->c.c_car);
4744          goto T2456;          goto T2447;
4745          }else V677=V677->c.c_cdr;          }else V687=V687->c.c_cdr;
4746          V669= Cnil;}          V679= Cnil;}
4747          goto T2456;          goto T2447;
4748  T2456:;  T2447:;
4749          if(((V669))==Cnil){          if(((V679))==Cnil){
4750          goto T2454;}          goto T2445;}
4751          if((symbol_value(VV[150]))==Cnil){          if(((VV[150]->s.s_dbind))==Cnil){
4752          goto T2458;}          goto T2449;}
4753          princ_str("\nihs_push(VV[",VV[26]);          princ_str("\nihs_push(VV[",VV[26]);
4754          V678= (*(LnkLI328))(caar((V671)));          V688= (*(LnkLI331))(CMPcaar((V681)));
4755          (void)((*(LnkLI275))(/* INLINE-ARGS */V678));          (void)((*(LnkLI275))(/* INLINE-ARGS */V688));
4756          princ_str("]);",VV[26]);          princ_str("]);",VV[26]);
4757          princ_str("\nL",VV[26]);          princ_str("\nL",VV[26]);
4758          (void)((*(LnkLI275))(cdr((V669))));          (void)((*(LnkLI275))(CMPcdr((V679))));
4759          princ_str("();",VV[26]);          princ_str("();",VV[26]);
4760          princ_str("\nihs_pop();",VV[26]);          princ_str("\nihs_pop();",VV[26]);
4761          goto T2452;          goto T2443;
4762          goto T2458;          goto T2449;
4763  T2458:;  T2449:;
4764          princ_str("\nL",VV[26]);          princ_str("\nL",VV[26]);
4765          (void)((*(LnkLI275))(cdr((V669))));          (void)((*(LnkLI275))(CMPcdr((V679))));
4766          princ_str("();",VV[26]);          princ_str("();",VV[26]);
4767          goto T2452;          goto T2443;
4768          goto T2454;          goto T2445;
4769  T2454:;  T2445:;
4770          if((symbol_value(VV[150]))==Cnil){          if(((VV[150]->s.s_dbind))==Cnil){
4771          goto T2473;}          goto T2464;}
4772          princ_str("\nsuper_funcall(VV[",VV[26]);          princ_str("\nsuper_funcall(VV[",VV[26]);
4773          V679= (*(LnkLI328))(caar((V671)));          V689= (*(LnkLI331))(CMPcaar((V681)));
4774          (void)((*(LnkLI275))(/* INLINE-ARGS */V679));          (void)((*(LnkLI275))(/* INLINE-ARGS */V689));
4775          princ_str("]);",VV[26]);          princ_str("]);",VV[26]);
4776          goto T2452;          goto T2443;
4777          goto T2473;          goto T2464;
4778  T2473:;  T2464:;
4779          if((symbol_value(VV[164]))==Cnil){          if(((VV[164]->s.s_dbind))==Cnil){
4780          goto T2479;}          goto T2470;}
4781          princ_str("\nsuper_funcall_no_event(VV[",VV[26]);          princ_str("\nsuper_funcall_no_event(VV[",VV[26]);
4782          V680= (*(LnkLI328))(caar((V671)));          V690= (*(LnkLI331))(CMPcaar((V681)));
4783          (void)((*(LnkLI275))(/* INLINE-ARGS */V680));          (void)((*(LnkLI275))(/* INLINE-ARGS */V690));
4784          princ_str("]);",VV[26]);          princ_str("]);",VV[26]);
4785          goto T2452;          goto T2443;
4786          goto T2479;          goto T2470;
4787  T2479:;  T2470:;
4788          princ_str("\nCMPfuncall(VV[",VV[26]);          princ_str("\nCMPfuncall(VV[",VV[26]);
4789          V681= (*(LnkLI328))(caar((V671)));          V691= (*(LnkLI331))(CMPcaar((V681)));
4790          (void)((*(LnkLI275))(/* INLINE-ARGS */V681));          (void)((*(LnkLI275))(/* INLINE-ARGS */V691));
4791          princ_str("]->s.s_gfdef);",VV[26]);          princ_str("]->s.s_gfdef);",VV[26]);
4792          goto T2452;          goto T2443;
4793  T2452:;  T2443:;
4794          if(endp_prop(cdr((V671)))){          if((CMPcdr((V681)))==Cnil){
4795          goto T2487;}          goto T2478;}
4796          princ_char(10,VV[26]);          princ_char(10,VV[26]);
4797          (void)((*(LnkLI275))(cadadr((V671))));          (void)((*(LnkLI275))(CMPcadadr((V681))));
4798          {object V682= caadr((V671));          {object V692= CMPcaadr((V681));
4799          if((V682!= VV[75]))goto T2494;          if((V692!= VV[75]))goto T2485;
4800          princ_str("=vs_base[0];",VV[26]);          princ_str("=vs_base[0];",VV[26]);
4801          goto T2493;          goto T2484;
4802          goto T2494;          goto T2485;
4803  T2494:;  T2485:;
4804          princ_str("=object_to_",VV[26]);          princ_str("=object_to_",VV[26]);
4805          base[1]= symbol_name(caadr((V671)));          base[1]= symbol_name(CMPcaadr((V681)));
4806          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4807          Lstring_downcase();          Lstring_downcase();
4808          vs_top=sup;          vs_top=sup;
4809          V683= vs_base[0];          V693= vs_base[0];
4810          (void)((*(LnkLI275))(V683));          (void)((*(LnkLI275))(V693));
4811          princ_str("(vs_base[0]);",VV[26]);}          princ_str("(vs_base[0]);",VV[26]);}
4812          goto T2493;          goto T2484;
4813  T2493:;  T2484:;
4814          {register object V684;          {register object V694;
4815          register object V685;          register object V695;
4816          V684= cddr((V671));          V694= CMPcddr((V681));
4817          V685= car((V684));          V695= CMPcar((V694));
4818          goto T2504;          goto T2495;
4819  T2504:;  T2495:;
4820          if(!(endp_prop((V684)))){          if(!(((V694))==Cnil)){
4821          goto T2505;}          goto T2496;}
4822          goto T2487;          goto T2478;
4823          goto T2505;          goto T2496;
4824  T2505:;  T2496:;
4825          princ_str("\nvs_base++;",VV[26]);          princ_str("\nvs_base++;",VV[26]);
4826          princ_char(10,VV[26]);          princ_char(10,VV[26]);
4827          (void)((*(LnkLI275))(cadr((V685))));          (void)((*(LnkLI275))(CMPcadr((V695))));
4828          {object V686= car((V685));          {object V696= CMPcar((V695));
4829          if((V686!= VV[75]))goto T2515;          if((V696!= VV[75]))goto T2506;
4830          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[26]);          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[26]);
4831          goto T2514;          goto T2505;
4832          goto T2515;          goto T2506;
4833  T2515:;  T2506:;
4834          princ_str("=object_to_",VV[26]);          princ_str("=object_to_",VV[26]);
4835          base[3]= symbol_name(car((V685)));          base[3]= symbol_name(CMPcar((V695)));
4836          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4837          Lstring_downcase();          Lstring_downcase();
4838          vs_top=sup;          vs_top=sup;
4839          V687= vs_base[0];          V697= vs_base[0];
4840          (void)((*(LnkLI275))(V687));          (void)((*(LnkLI275))(V697));
4841          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[26]);}          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[26]);}
4842          goto T2514;          goto T2505;
4843  T2514:;  T2505:;
4844          V684= cdr((V684));          V694= CMPcdr((V694));
4845          V685= car((V684));          V695= CMPcar((V694));
4846          goto T2504;}          goto T2495;}
4847          goto T2487;          goto T2478;
4848  T2487:;  T2478:;
4849          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
         goto T2386;  
 T2386:;  
         V670= cdr((V670));  
         V671= car((V670));  
         goto T2381;}  
4850          goto T2377;          goto T2377;
4851  T2377:;  T2377:;
4852            V680= CMPcdr((V680));
4853            V681= CMPcar((V680));
4854            goto T2372;}
4855            goto T2368;
4856    T2368:;
4857          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
4858          princ_str("\nvs_top=vs;",VV[26]);          princ_str("\nvs_top=vs;",VV[26]);
4859          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
4860          {object V688 = Cnil;          {object V698 = Cnil;
4861          VMR47(V688)}}          VMR47(V698)}}
4862          base[0]=base[0];          base[0]=base[0];
4863          return Cnil;          return Cnil;
4864  }  }
4865  /*      local entry for function T1DEFENTRY     */  /*      local entry for function T1DEFENTRY     */
4866    
4867  static object LI49(V690)  static object LI49(V700)
4868    
4869  register object V690;  register object V700;
4870  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
4871          goto TTL;          goto TTL;
4872  TTL:;  TTL:;
4873          {register object V691;          {register object V701;
4874          register object V692;          register object V702;
4875          object V693;          object V703;
4876          register object V694;          register object V704;
4877          V691= Cnil;          V701= Cnil;
4878          V692= Cnil;          V702= Cnil;
4879          setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1)));          (VV[62]->s.s_dbind)= number_plus((VV[62]->s.s_dbind),small_fixnum(1));
4880          V693= symbol_value(VV[62]);          V703= (VV[62]->s.s_dbind);
4881          V694= Cnil;          V704= Cnil;
4882          if(endp_prop((V690))){          if(((V700))==Cnil){
4883          goto T2544;}          goto T2535;}
4884          if(endp_prop(cdr((V690)))){          if((CMPcdr((V700)))==Cnil){
4885          goto T2544;}          goto T2535;}
4886          if(!(endp_prop(cddr((V690))))){          if(!((CMPcddr((V700)))==Cnil)){
4887          goto T2543;}          goto T2534;}
4888            goto T2535;
4889    T2535:;
4890            V705 = CMPmake_fixnum((long)length((V700)));
4891            (void)((*(LnkLI284))(VV[233],small_fixnum(3),V705));
4892            goto T2534;
4893    T2534:;
4894            if(type_of(CMPcar((V700)))==t_symbol){
4895            goto T2541;}
4896            (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[234],CMPcar((V700)))));
4897            goto T2541;
4898    T2541:;
4899            {register object V706;
4900            register object V707;
4901            V706= CMPcadr((V700));
4902            V707= CMPcar((V706));
4903            goto T2548;
4904    T2548:;
4905            if(!(((V706))==Cnil)){
4906            goto T2549;}
4907          goto T2544;          goto T2544;
4908  T2544:;          goto T2549;
4909          V695 = make_fixnum((long)length((V690)));  T2549:;
4910          (void)((*(LnkLI284))(VV[233],small_fixnum(3),V695));          {register object x= (V707),V708= VV[235];
4911          goto T2543;          while(V708!=Cnil)
4912  T2543:;          if(eql(x,V708->c.c_car)){
         if(type_of(car((V690)))==t_symbol){  
         goto T2550;}  
         (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[234],car((V690)))));  
         goto T2550;  
 T2550:;  
         {register object V696;  
         register object V697;  
         V696= cadr((V690));  
         V697= car((V696));  
         goto T2557;  
 T2557:;  
         if(!(endp_prop((V696)))){  
         goto T2558;}  
4913          goto T2553;          goto T2553;
4914          goto T2558;          }else V708=V708->c.c_cdr;}
4915  T2558:;          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[236],(V707))));
         {register object x= (V697),V698= VV[235];  
         while(!endp(V698))  
         if(eql(x,V698->c.c_car)){  
         goto T2562;  
         }else V698=V698->c.c_cdr;}  
         (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[236],(V697))));  
         goto T2562;  
 T2562:;  
         V696= cdr((V696));  
         V697= car((V696));  
         goto T2557;}  
4916          goto T2553;          goto T2553;
4917  T2553:;  T2553:;
4918          V694= caddr((V690));          V706= CMPcdr((V706));
4919          if(!(type_of((V694))==t_symbol)){          V707= CMPcar((V706));
4920          goto T2574;}          goto T2548;}
4921          V691= VV[75];          goto T2544;
4922          base[1]= symbol_name((V694));  T2544:;
4923            V704= CMPcaddr((V700));
4924            if(!(type_of((V704))==t_symbol)){
4925            goto T2565;}
4926            V701= VV[75];
4927            base[1]= symbol_name((V704));
4928          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4929          Lstring_downcase();          Lstring_downcase();
4930          vs_top=sup;          vs_top=sup;
4931          V692= vs_base[0];          V702= vs_base[0];
4932          goto T2572;          goto T2563;
4933          goto T2574;          goto T2565;
4934  T2574:;  T2565:;
4935          if(!(type_of((V694))==t_string)){          if(!(type_of((V704))==t_string)){
4936          goto T2581;}          goto T2572;}
4937          V691= VV[75];          V701= VV[75];
4938          V692= (V694);          V702= (V704);
4939            goto T2563;
4940          goto T2572;          goto T2572;
4941          goto T2581;  T2572:;
4942  T2581:;          if(!(type_of((V704))==t_cons)){
4943          if(!(type_of((V694))==t_cons)){          goto T2578;}
4944          goto T2587;}          {register object x= CMPcar((V704)),V709= VV[237];
4945          {register object x= car((V694)),V699= VV[237];          while(V709!=Cnil)
4946          while(!endp(V699))          if(eql(x,V709->c.c_car)){
4947          if(eql(x,V699->c.c_car)){          goto T2582;
4948          goto T2591;          }else V709=V709->c.c_cdr;
4949          }else V699=V699->c.c_cdr;          goto T2578;}
4950          goto T2587;}          goto T2582;
4951          goto T2591;  T2582:;
4952  T2591:;          if(!(type_of(CMPcdr((V704)))==t_cons)){
4953          if(!(type_of(cdr((V694)))==t_cons)){          goto T2578;}
4954          goto T2587;}          if(type_of(CMPcadr((V704)))==t_symbol){
4955          if(type_of(cadr((V694)))==t_symbol){          goto T2585;}
4956          goto T2594;}          if(!(type_of(CMPcadr((V704)))==t_string)){
4957          if(!(type_of(cadr((V694)))==t_string)){          goto T2578;}
4958          goto T2587;}          goto T2585;
4959          goto T2594;  T2585:;
4960  T2594:;          if(!((CMPcddr((V704)))==Cnil)){
4961          if(!(endp_prop(cddr((V694))))){          goto T2578;}
4962          goto T2587;}          if(!(type_of(CMPcadr((V704)))==t_symbol)){
4963          if(!(type_of(cadr((V694)))==t_symbol)){          goto T2593;}
4964          goto T2602;}          base[1]= symbol_name(CMPcadr((V704)));
         base[1]= symbol_name(cadr((V694)));  
4965          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4966          Lstring_downcase();          Lstring_downcase();
4967          vs_top=sup;          vs_top=sup;
4968          V692= vs_base[0];          V702= vs_base[0];
4969          goto T2600;          goto T2591;
4970          goto T2602;          goto T2593;
4971  T2602:;  T2593:;
4972          V692= cadr((V694));          V702= CMPcadr((V704));
4973          goto T2600;          goto T2591;
4974  T2600:;  T2591:;
4975          V691= car((V694));          V701= CMPcar((V704));
4976          goto T2572;          goto T2563;
4977          goto T2587;          goto T2578;
4978  T2587:;  T2578:;
4979          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[238],(V694))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[238],(V704))));
4980          goto T2572;          goto T2563;
4981  T2572:;  T2563:;
4982          {object V700;          {object V710;
4983          V700= list(6,VV[233],car((V690)),(V693),cadr((V690)),(V691),(V692));          V710= list(6,VV[233],CMPcar((V700)),(V703),CMPcadr((V700)),(V701),(V702));
4984          setq(VV[25],make_cons((V700),symbol_value(VV[25])));}          (VV[25]->s.s_dbind)= make_cons((V710),(VV[25]->s.s_dbind));}
4985          {object V701;          {object V711;
4986          V701= make_cons(car((V690)),(V693));          V711= make_cons(CMPcar((V700)),(V703));
4987          setq(VV[80],make_cons((V701),symbol_value(VV[80])));          (VV[80]->s.s_dbind)= make_cons((V711),(VV[80]->s.s_dbind));
4988          {object V702 = symbol_value(VV[80]);          {object V712 = (VV[80]->s.s_dbind);
4989          VMR48(V702)}}}          VMR48(V712)}}}
4990          base[0]=base[0];          base[0]=base[0];
4991          return Cnil;          return Cnil;
4992  }  }
4993  /*      local entry for function T2DEFENTRY     */  /*      local entry for function T2DEFENTRY     */
4994    
4995  static object LI50(V708,V709,V710,V711,V712)  static object LI50(V718,V719,V720,V721,V722)
4996    
4997  object V708;object V709;object V710;object V711;object V712;  object V718;object V719;object V720;object V721;object V722;
4998  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
4999          goto TTL;          goto TTL;
5000  TTL:;  TTL:;
5001          princ_str("\nstatic void L",VV[32]);          princ_str("\nstatic void L",VV[32]);
5002          (void)((*(LnkLI278))((V709)));          (void)((*(LnkLI278))((V719)));
5003          princ_str("();",VV[32]);          princ_str("();",VV[32]);
5004          V713= list(2,VV[92],(V708));          V723= list(2,VV[92],(V718));
5005          V714= list(3,VV[112],/* INLINE-ARGS */V713,(*(LnkLI302))(VV[239],(V709)));          V724= list(3,VV[112],/* INLINE-ARGS */V723,(*(LnkLI305))(VV[239],(V719)));
5006          {object V715 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V714));          {object V725 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V724));
5007          VMR49(V715)}          VMR49(V725)}
5008          return Cnil;          return Cnil;
5009  }  }
5010  /*      local entry for function T3DEFENTRY     */  /*      local entry for function T3DEFENTRY     */
5011    
5012  static object LI51(V721,V722,V723,V724,V725)  static object LI51(V731,V732,V733,V734,V735)
5013    
5014  object V721;object V722;object V723;register object V724;object V725;  object V731;object V732;object V733;register object V734;object V735;
5015  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
5016          goto TTL;          goto TTL;
5017  TTL:;  TTL:;
5018          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[240],(V721))));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[240],(V731))));
5019          princ_str("\nstatic void L",VV[26]);          princ_str("\nstatic void L",VV[26]);
5020          (void)((*(LnkLI275))((V722)));          (void)((*(LnkLI275))((V732)));
5021          princ_str("()",VV[26]);          princ_str("()",VV[26]);
5022          princ_str("\n{  object *old_base=vs_base;",VV[26]);          princ_str("\n{  object *old_base=vs_base;",VV[26]);
5023          {object V726= (V724);          {object V736= (V734);
5024          if((V726!= VV[241]))goto T2623;          if((V736!= VV[241]))goto T2614;
5025          goto T2622;          goto T2613;
5026          goto T2623;          goto T2614;
5027  T2623:;  T2614:;
5028          if((V726!= VV[159]))goto T2624;          if((V736!= VV[159]))goto T2615;
5029          princ_str("\n   char *x;",VV[26]);          princ_str("\n   char *x;",VV[26]);
5030          goto T2622;          goto T2613;
5031          goto T2624;          goto T2615;
5032  T2624:;  T2615:;
5033          princ_str("\n   ",VV[26]);          princ_str("\n   ",VV[26]);
5034          base[0]= symbol_name((V724));          base[0]= symbol_name((V734));
5035          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5036          Lstring_downcase();          Lstring_downcase();
5037          vs_top=sup;          vs_top=sup;
5038          V727= vs_base[0];          V737= vs_base[0];
5039          (void)((*(LnkLI275))(V727));          (void)((*(LnkLI275))(V737));
5040          princ_str(" x;",VV[26]);}          princ_str(" x;",VV[26]);}
5041          goto T2622;          goto T2613;
5042  T2622:;  T2613:;
5043          if((symbol_value(VV[164]))==Cnil){          if(((VV[164]->s.s_dbind))==Cnil){
5044          goto T2631;}          goto T2622;}
5045          princ_str("\n   check_arg(",VV[26]);          princ_str("\n   check_arg(",VV[26]);
5046          V728 = make_fixnum((long)length((V723)));          V738 = CMPmake_fixnum((long)length((V733)));
5047          (void)((*(LnkLI275))(V728));          (void)((*(LnkLI275))(V738));
5048          princ_str(");",VV[26]);          princ_str(");",VV[26]);
5049          goto T2631;          goto T2622;
5050  T2631:;  T2622:;
5051          if(((V724))==(VV[241])){          if(((V734))==(VV[241])){
5052          goto T2637;}          goto T2628;}
5053          princ_str("\n   x=",VV[26]);          princ_str("\n   x=",VV[26]);
5054          goto T2637;          goto T2628;
5055  T2637:;  T2628:;
5056          princ_str("\n   ",VV[26]);          princ_str("\n   ",VV[26]);
5057          (void)((*(LnkLI275))((V725)));          (void)((*(LnkLI275))((V735)));
5058          princ_char(40,VV[26]);          princ_char(40,VV[26]);
5059          if(endp_prop((V723))){          if(((V733))==Cnil){
5060          goto T2645;}          goto T2636;}
5061          {register object V729;          {register object V739;
5062          register long V730;          register long V740;
5063          V730= 0;          V740= 0;
5064          V729= (V723);          V739= (V733);
5065          goto T2650;          goto T2641;
5066  T2650:;  T2641:;
5067          {object V731= car((V729));          {object V741= CMPcar((V739));
5068          if((V731!= VV[75]))goto T2654;          if((V741!= VV[75]))goto T2645;
5069          princ_str("\n   vs_base[",VV[26]);          princ_str("\n   vs_base[",VV[26]);
5070          V732 = make_fixnum(V730);          V742 = CMPmake_fixnum(V740);
5071          (void)((*(LnkLI275))(V732));          (void)((*(LnkLI275))(V742));
5072          princ_char(93,VV[26]);          princ_char(93,VV[26]);
5073          goto T2653;          goto T2644;
5074          goto T2654;          goto T2645;
5075  T2654:;  T2645:;
5076          princ_str("\n   object_to_",VV[26]);          princ_str("\n   object_to_",VV[26]);
5077          base[0]= symbol_name(car((V729)));          base[0]= symbol_name(CMPcar((V739)));
5078          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5079          Lstring_downcase();          Lstring_downcase();
5080          vs_top=sup;          vs_top=sup;
5081          V733= vs_base[0];          V743= vs_base[0];
5082          (void)((*(LnkLI275))(V733));          (void)((*(LnkLI275))(V743));
5083          princ_str("(vs_base[",VV[26]);          princ_str("(vs_base[",VV[26]);
5084          V734 = make_fixnum(V730);          V744 = CMPmake_fixnum(V740);
5085          (void)((*(LnkLI275))(V734));          (void)((*(LnkLI275))(V744));
5086          princ_str("])",VV[26]);}          princ_str("])",VV[26]);}
5087          goto T2653;          goto T2644;
5088  T2653:;  T2644:;
5089          if(!(endp_prop(cdr((V729))))){          if(!((CMPcdr((V739)))==Cnil)){
5090          goto T2665;}          goto T2656;}
5091          goto T2645;          goto T2636;
5092          goto T2665;          goto T2656;
5093  T2665:;  T2656:;
5094          princ_char(44,VV[26]);          princ_char(44,VV[26]);
5095          V729= cdr((V729));          V739= CMPcdr((V739));
5096          V730= (long)(V730)+1;          V740= (long)(V740)+1;
5097          goto T2650;}          goto T2641;}
5098          goto T2645;          goto T2636;
5099  T2645:;  T2636:;
5100          princ_str(");",VV[26]);          princ_str(");",VV[26]);
5101          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[26]);          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[26]);
5102          princ_str("\n   vs_base[0]=",VV[26]);          princ_str("\n   vs_base[0]=",VV[26]);
5103          {object V735= (V724);          {object V745= (V734);
5104          if((V735!= VV[241]))goto T2681;          if((V745!= VV[241]))goto T2672;
5105          princ_str("Cnil",VV[26]);          princ_str("Cnil",VV[26]);
5106          goto T2680;          goto T2671;
5107          goto T2681;          goto T2672;
5108  T2681:;  T2672:;
5109          if((V735!= VV[75]))goto T2683;          if((V745!= VV[75]))goto T2674;
5110          princ_char(120,VV[26]);          princ_char(120,VV[26]);
5111          goto T2680;          goto T2671;
5112          goto T2683;          goto T2674;
5113  T2683:;  T2674:;
5114          if((V735!= VV[342]))goto T2685;          if((V745!= VV[345]))goto T2676;
5115          princ_str("code_char(x)",VV[26]);          princ_str("code_char(x)",VV[26]);
5116          goto T2680;          goto T2671;
5117          goto T2685;          goto T2676;
5118  T2685:;  T2676:;
5119          if((V735!= VV[343]))goto T2687;          if((V745!= VV[346]))goto T2678;
5120          if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){          if(!(number_compare(small_fixnum(0),(VV[115]->s.s_dbind))==0)){
5121          goto T2688;}          goto T2679;}
5122          princ_str("CMP",VV[26]);          princ_str("CMP",VV[26]);
5123          goto T2688;          goto T2679;
5124  T2688:;  T2679:;
5125          princ_str("make_fixnum(x)",VV[26]);          princ_str("make_fixnum(x)",VV[26]);
5126          goto T2680;          goto T2671;
5127          goto T2687;          goto T2678;
5128  T2687:;  T2678:;
5129          if((V735!= VV[159]))goto T2693;          if((V745!= VV[159]))goto T2684;
5130          princ_str("make_simple_string(x)",VV[26]);          princ_str("make_simple_string(x)",VV[26]);
5131          goto T2680;          goto T2671;
5132          goto T2693;          goto T2684;
5133  T2693:;  T2684:;
5134          if((V735!= VV[344]))goto T2695;          if((V745!= VV[347]))goto T2686;
5135          princ_str("make_shortfloat(x)",VV[26]);          princ_str("make_shortfloat(x)",VV[26]);
5136          goto T2680;          goto T2671;
5137          goto T2695;          goto T2686;
5138  T2695:;  T2686:;
5139          if((V735!= VV[345]))goto T2697;          if((V745!= VV[348]))goto T2688;
5140          princ_str("make_longfloat(x)",VV[26]);          princ_str("make_longfloat(x)",VV[26]);
5141          goto T2680;          goto T2671;
5142          goto T2697;          goto T2688;
5143  T2697:;}  T2688:;}
5144          goto T2680;          goto T2671;
5145  T2680:;  T2671:;
5146          princ_char(59,VV[26]);          princ_char(59,VV[26]);
5147          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
5148          {object V736 = Cnil;          {object V746 = Cnil;
5149          VMR50(V736)}          VMR50(V746)}
5150          base[0]=base[0];          base[0]=base[0];
5151          return Cnil;          return Cnil;
5152  }  }
5153  /*      local entry for function T1DEFLA        */  /*      local entry for function T1DEFLA        */
5154    
5155  static object LI52(V738)  static object LI52(V748)
5156    
5157  object V738;  object V748;
5158  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
5159          goto TTL;          goto TTL;
5160  TTL:;  TTL:;
5161          {object V739 = Cnil;          {object V749 = Cnil;
5162          VMR51(V739)}          VMR51(V749)}
5163          return Cnil;          return Cnil;
5164  }  }
5165  /*      local entry for function PARSE-CVSPECS  */  /*      local entry for function PARSE-CVSPECS  */
5166    
5167  static object LI53(V741)  static object LI53(V751)
5168    
5169  object V741;  object V751;
5170  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
5171          goto TTL;          goto TTL;
5172  TTL:;  TTL:;
5173          {register object V742;          {register object V752;
5174          V742= Cnil;          V752= Cnil;
5175          {register object V743;          {register object V753;
5176          register object V744;          register object V754;
5177          V743= (V741);          V753= (V751);
5178          V744= car((V743));          V754= CMPcar((V753));
5179          goto T2706;          goto T2697;
5180  T2706:;  T2697:;
5181          if(!(endp_prop((V743)))){          if(!(((V753))==Cnil)){
5182          goto T2707;}          goto T2698;}
5183          {object V745 = reverse((V742));          {object V755 = reverse((V752));
5184          VMR52(V745)}          VMR52(V755)}
5185          goto T2707;          goto T2698;
5186  T2707:;  T2698:;
5187          if(!(type_of((V744))==t_symbol)){          if(!(type_of((V754))==t_symbol)){
5188          goto T2713;}          goto T2704;}
5189          {object V746;          {object V756;
5190          base[2]= symbol_name((V744));          base[2]= symbol_name((V754));
5191          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5192          Lstring_downcase();          Lstring_downcase();
5193          vs_top=sup;          vs_top=sup;
5194          V747= vs_base[0];          V757= vs_base[0];
5195          V746= list(2,VV[75],V747);          V756= list(2,VV[75],V757);
5196          V742= make_cons((V746),(V742));          V752= make_cons((V756),(V752));
5197          goto T2711;}          goto T2702;}
5198          goto T2713;          goto T2704;
5199  T2713:;  T2704:;
5200          if(!(type_of((V744))==t_string)){          if(!(type_of((V754))==t_string)){
         goto T2720;}  
         {object V748;  
         V748= list(2,VV[75],(V744));  
         V742= make_cons((V748),(V742));  
5201          goto T2711;}          goto T2711;}
5202          goto T2720;          {object V758;
5203  T2720:;          V758= list(2,VV[75],(V754));
5204          if(!(type_of((V744))==t_cons)){          V752= make_cons((V758),(V752));
5205          goto T2725;}          goto T2702;}
         {register object x= car((V744)),V749= VV[242];  
         while(!endp(V749))  
         if(eql(x,V749->c.c_car)){  
         goto T2728;  
         }else V749=V749->c.c_cdr;  
         goto T2725;}  
         goto T2728;  
 T2728:;  
         {register object V750;  
         register object V751;  
         V750= cdr((V744));  
         V751= car((V750));  
         goto T2732;  
 T2732:;  
         if(!(endp_prop((V750)))){  
         goto T2733;}  
5206          goto T2711;          goto T2711;
5207          goto T2733;  T2711:;
5208  T2733:;          if(!(type_of((V754))==t_cons)){
5209          {register object V752;          goto T2716;}
5210          V753= car((V744));          {register object x= CMPcar((V754)),V759= VV[242];
5211          if(!(type_of((V751))==t_symbol)){          while(V759!=Cnil)
5212          goto T2741;}          if(eql(x,V759->c.c_car)){
5213          base[4]= symbol_name((V751));          goto T2719;
5214            }else V759=V759->c.c_cdr;
5215            goto T2716;}
5216            goto T2719;
5217    T2719:;
5218            {register object V760;
5219            register object V761;
5220            V760= CMPcdr((V754));
5221            V761= CMPcar((V760));
5222            goto T2723;
5223    T2723:;
5224            if(!(((V760))==Cnil)){
5225            goto T2724;}
5226            goto T2702;
5227            goto T2724;
5228    T2724:;
5229            {register object V762;
5230            V763= CMPcar((V754));
5231            if(!(type_of((V761))==t_symbol)){
5232            goto T2732;}
5233            base[4]= symbol_name((V761));
5234          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5235          Lstring_downcase();          Lstring_downcase();
5236          vs_top=sup;          vs_top=sup;
5237          V754= vs_base[0];          V764= vs_base[0];
5238          goto T2739;          goto T2730;
5239          goto T2741;          goto T2732;
5240  T2741:;  T2732:;
5241          if(!(type_of((V751))==t_string)){          if(!(type_of((V761))==t_string)){
5242          goto T2745;}          goto T2736;}
5243          V754= (V751);          V764= (V761);
5244          goto T2739;          goto T2730;
5245          goto T2745;          goto T2736;
5246  T2745:;  T2736:;
5247          V754= (VFUN_NARGS=2,(*(LnkLI266))(VV[243],(V751)));          V764= (VFUN_NARGS=2,(*(LnkLI266))(VV[243],(V761)));
5248          goto T2739;          goto T2730;
5249  T2739:;  T2730:;
5250          V752= list(2,/* INLINE-ARGS */V753,V754);          V762= list(2,/* INLINE-ARGS */V763,V764);
5251          V742= make_cons((V752),(V742));}          V752= make_cons((V762),(V752));}
5252          V750= cdr((V750));          V760= CMPcdr((V760));
5253          V751= car((V750));          V761= CMPcar((V760));
5254          goto T2732;}          goto T2723;}
5255          goto T2725;          goto T2716;
5256  T2725:;  T2716:;
5257          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[244],(V744))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[244],(V754))));
5258          goto T2711;          goto T2702;
5259  T2711:;  T2702:;
5260          V743= cdr((V743));          V753= CMPcdr((V753));
5261          V744= car((V743));          V754= CMPcar((V753));
5262          goto T2706;}}          goto T2697;}}
5263          base[0]=base[0];          base[0]=base[0];
5264          return Cnil;          return Cnil;
5265  }  }
5266  /*      local entry for function T3LOCAL-DCFUN  */  /*      local entry for function T3LOCAL-DCFUN  */
5267    
5268  static object LI54(V760,V761,V762,V763,V764)  static object LI54(V770,V771,V772,V773,V774)
5269    
5270  object V760;object V761;object V762;register object V763;register object V764;  object V770;object V771;object V772;register object V773;register object V774;
5271  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
5272          bds_check;          bds_check;
5273          goto TTL;          goto TTL;
5274  TTL:;  TTL:;
5275          {object V765;          {object V775;
5276          register object V766;          register object V776;
5277          object V767;          object V777;
5278          if(((V760))==Cnil){          if(((V770))==Cnil){
5279          goto T2760;}          goto T2751;}
5280          V765= small_fixnum(0);          V775= small_fixnum(0);
5281          goto T2758;          goto T2749;
5282          goto T2760;          goto T2751;
5283  T2760:;  T2751:;
5284          V765= structure_ref((V763),VV[33],4);          V775= STREF(object,(V773),16);
5285          goto T2758;          goto T2749;
5286  T2758:;  T2749:;
5287          V766= Cnil;          V776= Cnil;
5288          bds_bind(VV[21],(*(LnkLI307))(cadr((V764))));          bds_bind(VV[21],(*(LnkLI310))(CMPcadr((V774))));
5289          bds_bind(VV[118],Cnil);          bds_bind(VV[118],Cnil);
5290          V767= caaddr((V764));          V777= CMPcaaddr((V774));
5291          if((structure_ref((V763),VV[33],0))==Cnil){          if((STREF(object,(V773),0))==Cnil){
5292          goto T2768;}          goto T2759;}
5293          V768= structure_ref((V763),VV[33],0);          V778= STREF(object,(V773),0);
5294          goto T2766;          goto T2757;
5295          goto T2768;          goto T2759;
5296  T2768:;  T2759:;
5297          V768= Cnil;          V778= Cnil;
5298            goto T2757;
5299    T2757:;
5300            (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[245],V778)));
5301            princ_str("\nstatic void ",VV[26]);
5302            if(((V770))==Cnil){
5303            goto T2766;}
5304            V779= VV[246];
5305            goto T2764;
5306          goto T2766;          goto T2766;
5307  T2766:;  T2766:;
5308          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[245],V768)));          V779= VV[247];
5309          princ_str("\nstatic void ",VV[26]);          goto T2764;
5310          if(((V760))==Cnil){  T2764:;
5311            (void)((*(LnkLI275))(V779));
5312            (void)((*(LnkLI275))(STREF(object,(V773),12)));
5313            princ_char(40,VV[26]);
5314            princ_str("base0",VV[26]);
5315            if(((V777))==Cnil){
5316          goto T2775;}          goto T2775;}
5317          V769= VV[246];          V780= VV[248];
5318          goto T2773;          goto T2773;
5319          goto T2775;          goto T2775;
5320  T2775:;  T2775:;
5321          V769= VV[247];          V780= VV[249];
5322          goto T2773;          goto T2773;
5323  T2773:;  T2773:;
5324          (void)((*(LnkLI275))(V769));          (void)((*(LnkLI275))(V780));
5325          V770= structure_ref((V763),VV[33],3);          (void)((*(LnkLI312))(STREF(object,CMPcadr((V774)),4),small_fixnum(2)));
5326          (void)((*(LnkLI275))(/* INLINE-ARGS */V770));          (void)((*(LnkLI317))(CMPcaaddr((V774)),Cnil));
         princ_char(40,VV[26]);  
         princ_str("base0",VV[26]);  
         if(((V767))==Cnil){  
         goto T2784;}  
         V771= VV[248];  
         goto T2782;  
         goto T2784;  
 T2784:;  
         V771= VV[249];  
         goto T2782;  
 T2782:;  
         (void)((*(LnkLI275))(V771));  
         V772= structure_ref(cadr((V764)),VV[63],1);  
         (void)((*(LnkLI309))(/* INLINE-ARGS */V772,small_fixnum(2)));  
         (void)((*(LnkLI314))(caaddr((V764)),Cnil));  
5327          princ_str("register object *",VV[26]);          princ_str("register object *",VV[26]);
5328          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5329          princ_str("base0;",VV[26]);          princ_str("base0;",VV[26]);
5330          bds_bind(VV[250],(V762));          bds_bind(VV[250],(V772));
5331          bds_bind(VV[129],VV[125]);          bds_bind(VV[129],VV[125]);
5332          bds_bind(VV[19],Cnil);          bds_bind(VV[19],Cnil);
5333          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5334          bds_bind(VV[131],small_fixnum(0));          bds_bind(VV[131],small_fixnum(0));
5335          bds_bind(VV[132],one_plus((V765)));          bds_bind(VV[132],one_plus((V775)));
5336          bds_bind(VV[133],(V762));          bds_bind(VV[133],(V772));
5337          bds_bind(VV[134],(V761));          bds_bind(VV[134],(V771));
5338          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
5339          bds_bind(VV[136],(VV[129]->s.s_dbind));          bds_bind(VV[136],(VV[129]->s.s_dbind));
5340          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));          (VV[138]->s.s_dbind)= number_plus((VV[138]->s.s_dbind),small_fixnum(1));
5341          bds_bind(VV[137],symbol_value(VV[138]));          bds_bind(VV[137],(VV[138]->s.s_dbind));
5342          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
5343          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
5344          bds_bind(VV[141],Cnil);          bds_bind(VV[141],Cnil);
5345          bds_bind(VV[142],small_fixnum(0));          bds_bind(VV[142],small_fixnum(0));
5346          V766= (VV[137]->s.s_dbind);          V776= (VV[137]->s.s_dbind);
5347          princ_str("\n{",VV[26]);          princ_str("\n{",VV[26]);
5348          V773= structure_ref(cadr((V764)),VV[63],1);          (void)((*(LnkLI318))(STREF(object,CMPcadr((V774)),4),STREF(object,(V773),12),VV[251]));
         V774= structure_ref((V763),VV[33],3);  
         (void)((*(LnkLI315))(/* INLINE-ARGS */V773,/* INLINE-ARGS */V774,VV[251]));  
5349          princ_str("\n   VMB",VV[26]);          princ_str("\n   VMB",VV[26]);
5350          (void)((*(LnkLI275))((V766)));          (void)((*(LnkLI275))((V776)));
5351          princ_str(" VMS",VV[26]);          princ_str(" VMS",VV[26]);
5352          (void)((*(LnkLI275))((V766)));          (void)((*(LnkLI275))((V776)));
5353          princ_str(" VMV",VV[26]);          princ_str(" VMV",VV[26]);
5354          (void)((*(LnkLI275))((V766)));          (void)((*(LnkLI275))((V776)));
5355          if((symbol_value(VV[150]))==Cnil){          if(((VV[150]->s.s_dbind))==Cnil){
5356          goto T2808;}          goto T2799;}
5357          princ_str("\n   ihs_check;",VV[26]);          princ_str("\n   ihs_check;",VV[26]);
5358          goto T2808;          goto T2799;
5359  T2808:;  T2799:;
5360          base[19]= caddr(cddr((V764)));          base[19]= CMPcaddr(CMPcddr((V774)));
5361          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
5362          (void) (*Lnk316)();          (void) (*Lnk319)();
5363          vs_top=sup;          vs_top=sup;
5364          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){
5365          goto T2816;}          goto T2807;}
5366          if(((VV[139]->s.s_dbind))!=Cnil){          if(((VV[139]->s.s_dbind))!=Cnil){
5367          goto T2816;}          goto T2807;}
5368          if(((VV[141]->s.s_dbind))!=Cnil){          if(((VV[141]->s.s_dbind))!=Cnil){
5369          goto T2816;}          goto T2807;}
5370          goto T2814;          goto T2805;
5371          goto T2816;          goto T2807;
5372  T2816:;  T2807:;
5373          princ_str("\n   base[0]=base[0];",VV[26]);          princ_str("\n   base[0]=base[0];",VV[26]);
5374          goto T2814;          goto T2805;
5375  T2814:;  T2805:;
5376          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
5377          (void)((*(LnkLI317))((V766),Ct));          (void)((*(LnkLI320))((V776),Ct));
5378          V775= structure_ref((V763),VV[33],3);          {object V781 = (*(LnkLI314))(STREF(object,(V773),12));
         {object V776 = (*(LnkLI311))(/* INLINE-ARGS */V775);  
5379          bds_unwind1;          bds_unwind1;
5380          bds_unwind1;          bds_unwind1;
5381          bds_unwind1;          bds_unwind1;
# Line 5201  T2814:; Line 5393  T2814:;
5393          bds_unwind1;          bds_unwind1;
5394          bds_unwind1;          bds_unwind1;
5395          bds_unwind1;          bds_unwind1;
5396          VMR53(V776)}}          VMR53(V781)}}
5397          base[0]=base[0];          base[0]=base[0];
5398          return Cnil;          return Cnil;
5399  }  }
5400  /*      local entry for function T3LOCAL-FUN    */  /*      local entry for function T3LOCAL-FUN    */
5401    
5402  static object LI55(V782,V783,V784,V785,V786)  static object LI55(V787,V788,V789,V790,V791)
5403    
5404  object V782;object V783;object V784;object V785;object V786;  object V787;object V788;object V789;object V790;object V791;
5405  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
5406          bds_check;          bds_check;
5407          goto TTL;          goto TTL;
5408  TTL:;  TTL:;
5409          {long V787;          {long V792;
5410          if(((V782))==Cnil){          if(((V787))==Cnil){
5411            goto T2819;}
5412            V792= 0;
5413            goto T2817;
5414            goto T2819;
5415    T2819:;
5416            V792= fix(STREF(object,(V790),16));
5417            goto T2817;
5418    T2817:;
5419            bds_bind(VV[21],(*(LnkLI310))(CMPcadr((V791))));
5420            bds_bind(VV[118],Cnil);
5421            if(!(((V787))==(VV[252]))){
5422            goto T2822;}
5423            {object V793 = (*(LnkLI251))((V787),(V788),(V789),(V790),(V791));
5424            bds_unwind1;
5425            bds_unwind1;
5426            VMR54(V793)}
5427            goto T2822;
5428    T2822:;
5429            if((STREF(object,(V790),0))==Cnil){
5430          goto T2828;}          goto T2828;}
5431          V787= 0;          V794= STREF(object,(V790),0);
5432          goto T2826;          goto T2826;
5433          goto T2828;          goto T2828;
5434  T2828:;  T2828:;
5435          V787= fix(structure_ref((V785),VV[33],4));          V794= Cnil;
5436          goto T2826;          goto T2826;
5437  T2826:;  T2826:;
5438          bds_bind(VV[21],(*(LnkLI307))(cadr((V786))));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[253],V794)));
5439          bds_bind(VV[118],Cnil);          princ_str("\nstatic void ",VV[32]);
5440          if(!(((V782))==(VV[252]))){          if(((V787))==Cnil){
5441          goto T2831;}          goto T2835;}
5442          {object V788 = (*(LnkLI251))((V782),(V783),(V784),(V785),(V786));          V795= VV[254];
5443          bds_unwind1;          goto T2833;
         bds_unwind1;  
         VMR54(V788)}  
         goto T2831;  
 T2831:;  
         if((structure_ref((V785),VV[33],0))==Cnil){  
         goto T2837;}  
         V789= structure_ref((V785),VV[33],0);  
         goto T2835;  
         goto T2837;  
 T2837:;  
         V789= Cnil;  
5444          goto T2835;          goto T2835;
5445  T2835:;  T2835:;
5446          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[253],V789)));          V795= VV[255];
5447          princ_str("\nstatic void ",VV[32]);          goto T2833;
5448          if(((V782))==Cnil){  T2833:;
5449            (void)((*(LnkLI278))(V795));
5450            (void)((*(LnkLI278))(STREF(object,(V790),12)));
5451            princ_str("();",VV[32]);
5452            princ_str("\nstatic void ",VV[26]);
5453            if(((V787))==Cnil){
5454          goto T2844;}          goto T2844;}
5455          V790= VV[254];          V796= VV[256];
5456          goto T2842;          goto T2842;
5457          goto T2844;          goto T2844;
5458  T2844:;  T2844:;
5459          V790= VV[255];          V796= VV[257];
5460          goto T2842;          goto T2842;
5461  T2842:;  T2842:;
5462          (void)((*(LnkLI278))(V790));          (void)((*(LnkLI275))(V796));
5463          V791= structure_ref((V785),VV[33],3);          (void)((*(LnkLI275))(STREF(object,(V790),12)));
         (void)((*(LnkLI278))(/* INLINE-ARGS */V791));  
         princ_str("();",VV[32]);  
         princ_str("\nstatic void ",VV[26]);  
         if(((V782))==Cnil){  
         goto T2853;}  
         V792= VV[256];  
         goto T2851;  
         goto T2853;  
 T2853:;  
         V792= VV[257];  
         goto T2851;  
 T2851:;  
         (void)((*(LnkLI275))(V792));  
         V793= structure_ref((V785),VV[33],3);  
         (void)((*(LnkLI275))(/* INLINE-ARGS */V793));  
5464          princ_char(40,VV[26]);          princ_char(40,VV[26]);
5465          {register object V794;          {register object V797;
5466          register long V795;          register long V798;
5467          V794= make_fixnum(V787);          V797= CMPmake_fixnum(V792);
5468          V795= 0;          V798= 0;
5469          goto T2861;          goto T2852;
5470  T2861:;  T2852:;
5471          V796 = make_fixnum(V795);          V799 = CMPmake_fixnum(V798);
5472          if(!(number_compare(V796,(V794))>=0)){          if(!(number_compare(V799,(V797))>=0)){
5473          goto T2862;}          goto T2853;}
5474          princ_str("base",VV[26]);          princ_str("base",VV[26]);
5475          V797 = make_fixnum(V795);          V800 = CMPmake_fixnum(V798);
5476          (void)((*(LnkLI275))(V797));          (void)((*(LnkLI275))(V800));
5477          princ_char(41,VV[26]);          princ_char(41,VV[26]);
5478          goto T2857;          goto T2848;
5479          goto T2862;          goto T2853;
5480  T2862:;  T2853:;
5481          princ_str("base",VV[26]);          princ_str("base",VV[26]);
5482          V798 = make_fixnum(V795);          V801 = CMPmake_fixnum(V798);
5483          (void)((*(LnkLI275))(V798));          (void)((*(LnkLI275))(V801));
5484          princ_char(44,VV[26]);          princ_char(44,VV[26]);
5485          V795= (long)(V795)+1;          V798= (long)(V798)+1;
5486          goto T2861;}          goto T2852;}
5487          goto T2857;          goto T2848;
5488  T2857:;  T2848:;
5489          princ_str("\nregister object ",VV[26]);          princ_str("\nregister object ",VV[26]);
5490          {register object V799;          {register object V802;
5491          register long V800;          register long V803;
5492          V799= make_fixnum(V787);          V802= CMPmake_fixnum(V792);
5493          V800= 0;          V803= 0;
5494          goto T2882;          goto T2873;
5495  T2882:;  T2873:;
5496          V801 = make_fixnum(V800);          V804 = CMPmake_fixnum(V803);
5497          if(!(number_compare(V801,(V799))>=0)){          if(!(number_compare(V804,(V802))>=0)){
5498          goto T2883;}          goto T2874;}
5499          princ_char(42,VV[26]);          princ_char(42,VV[26]);
5500          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5501          princ_str("base",VV[26]);          princ_str("base",VV[26]);
5502          V802 = make_fixnum(V800);          V805 = CMPmake_fixnum(V803);
5503          (void)((*(LnkLI275))(V802));          (void)((*(LnkLI275))(V805));
5504          princ_char(59,VV[26]);          princ_char(59,VV[26]);
5505          goto T2878;          goto T2869;
5506          goto T2883;          goto T2874;
5507  T2883:;  T2874:;
5508          princ_char(42,VV[26]);          princ_char(42,VV[26]);
5509          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5510          princ_str("base",VV[26]);          princ_str("base",VV[26]);
5511          V803 = make_fixnum(V800);          V806 = CMPmake_fixnum(V803);
5512          (void)((*(LnkLI275))(V803));          (void)((*(LnkLI275))(V806));
5513          princ_char(44,VV[26]);          princ_char(44,VV[26]);
5514          V800= (long)(V800)+1;          V803= (long)(V803)+1;
5515          goto T2882;}          goto T2873;}
5516          goto T2878;          goto T2869;
5517  T2878:;  T2869:;
5518          V804= structure_ref(cadr((V786)),VV[63],1);          (void)((*(LnkLI312))(STREF(object,CMPcadr((V791)),4),small_fixnum(2)));
         (void)((*(LnkLI309))(/* INLINE-ARGS */V804,small_fixnum(2)));  
5519          bds_bind(VV[129],VV[128]);          bds_bind(VV[129],VV[128]);
5520          bds_bind(VV[250],(V784));          bds_bind(VV[250],(V789));
5521          bds_bind(VV[19],Cnil);          bds_bind(VV[19],Cnil);
5522          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5523          bds_bind(VV[131],small_fixnum(0));          bds_bind(VV[131],small_fixnum(0));
5524          V805 = make_fixnum(V787);          V807 = CMPmake_fixnum(V792);
5525          bds_bind(VV[132],one_plus(V805));          bds_bind(VV[132],one_plus(V807));
5526          bds_bind(VV[133],(V784));          bds_bind(VV[133],(V789));
5527          bds_bind(VV[134],(V783));          bds_bind(VV[134],(V788));
5528          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
5529          bds_bind(VV[136],(VV[129]->s.s_dbind));          bds_bind(VV[136],(VV[129]->s.s_dbind));
5530          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));          (VV[138]->s.s_dbind)= number_plus((VV[138]->s.s_dbind),small_fixnum(1));
5531          bds_bind(VV[137],symbol_value(VV[138]));          bds_bind(VV[137],(VV[138]->s.s_dbind));
5532          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
5533          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
5534          bds_bind(VV[141],Cnil);          bds_bind(VV[141],Cnil);
# Line 5352  T2878:; Line 5541  T2878:;
5541          princ_str("sup=base+VM",VV[26]);          princ_str("sup=base+VM",VV[26]);
5542          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
5543          princ_char(59,VV[26]);          princ_char(59,VV[26]);
5544          V806= structure_ref(cadr((V786)),VV[63],1);          (void)((*(LnkLI318))(STREF(object,CMPcadr((V791)),4),STREF(object,(V790),12),VV[258]));
         V807= structure_ref((V785),VV[33],3);  
         (void)((*(LnkLI315))(/* INLINE-ARGS */V806,/* INLINE-ARGS */V807,VV[258]));  
5545          princ_str(" VC",VV[26]);          princ_str(" VC",VV[26]);
5546          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
5547          if((symbol_value(VV[164]))==Cnil){          if(((VV[164]->s.s_dbind))==Cnil){
5548          goto T2923;}          goto T2914;}
5549          princ_str("\n   vs_reserve(VM",VV[26]);          princ_str("\n   vs_reserve(VM",VV[26]);
5550          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
5551          princ_str(");",VV[26]);          princ_str(");",VV[26]);
5552          goto T2921;          goto T2912;
5553          goto T2923;          goto T2914;
5554  T2923:;  T2914:;
5555          princ_str("\n   vs_check;",VV[26]);          princ_str("\n   vs_check;",VV[26]);
5556          goto T2921;          goto T2912;
5557  T2921:;  T2912:;
5558          if((symbol_value(VV[150]))==Cnil){          if(((VV[150]->s.s_dbind))==Cnil){
5559          goto T2929;}          goto T2920;}
5560          princ_str("\n   ihs_check;",VV[26]);          princ_str("\n   ihs_check;",VV[26]);
5561          goto T2929;          goto T2920;
5562  T2929:;  T2920:;
5563          if(((V782))==Cnil){          if(((V787))==Cnil){
5564          goto T2935;}          goto T2926;}
5565          (void)((VFUN_NARGS=2,(*(LnkLI332))(caddr((V786)),caddr(cddr((V786))))));          (void)((VFUN_NARGS=2,(*(LnkLI335))(CMPcaddr((V791)),CMPcaddr(CMPcddr((V791))))));
5566          goto T2933;          goto T2924;
5567          goto T2935;          goto T2926;
5568  T2935:;  T2926:;
5569          (void)((VFUN_NARGS=3,(*(LnkLI332))(caddr((V786)),caddr(cddr((V786))),(V785))));          (void)((VFUN_NARGS=3,(*(LnkLI335))(CMPcaddr((V791)),CMPcaddr(CMPcddr((V791))),(V790))));
5570          goto T2933;          goto T2924;
5571  T2933:;  T2924:;
5572          princ_str("\n}",VV[26]);          princ_str("\n}",VV[26]);
5573          {object V808;          {object V808;
5574          V808= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind));          V808= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind));
5575          setq(VV[34],make_cons((V808),symbol_value(VV[34])));}          (VV[34]->s.s_dbind)= make_cons((V808),(VV[34]->s.s_dbind));}
5576          princ_str("\n#define VC",VV[32]);          princ_str("\n#define VC",VV[32]);
5577          (void)((*(LnkLI278))((VV[137]->s.s_dbind)));          (void)((*(LnkLI278))((VV[137]->s.s_dbind)));
5578          V809= (*(LnkLI333))();          V809= (*(LnkLI336))();
5579          bds_unwind1;          bds_unwind1;
5580          bds_unwind1;          bds_unwind1;
5581          bds_unwind1;          bds_unwind1;
# Line 5404  T2933:; Line 5591  T2933:;
5591          bds_unwind1;          bds_unwind1;
5592          bds_unwind1;          bds_unwind1;
5593          bds_unwind1;          bds_unwind1;
5594          V810= structure_ref((V785),VV[33],3);          {object V810 = (*(LnkLI314))(STREF(object,(V790),12));
         {object V811 = (*(LnkLI311))(/* INLINE-ARGS */V810);  
5595          bds_unwind1;          bds_unwind1;
5596          bds_unwind1;          bds_unwind1;
5597          VMR54(V811)}}          VMR54(V810)}}
5598          base[0]=base[0];          base[0]=base[0];
5599          return Cnil;          return Cnil;
5600  }  }
# Line 5419  static object LI56() Line 5605  static object LI56()
5605  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
5606          goto TTL;          goto TTL;
5607  TTL:;  TTL:;
5608            {register object V811;
5609            V811= Cnil;
5610          {register object V812;          {register object V812;
5611          V812= Cnil;          register object V813;
5612          {register object V813;          V812= (VV[19]->s.s_dbind);
5613          register object V814;          V813= CMPcar((V812));
5614          V813= symbol_value(VV[19]);          goto T2941;
5615          V814= car((V813));  T2941:;
5616          goto T2950;          if(!(((V812))==Cnil)){
5617  T2950:;          goto T2942;}
5618          if(!(endp_prop((V813)))){          goto T2937;
5619          goto T2951;}          goto T2942;
5620          goto T2946;  T2942:;
5621          goto T2951;          {register object V814;
5622  T2951:;          if(!(type_of((V813))==t_cons)){
5623            goto T2949;}
5624          {register object V815;          {register object V815;
5625          if(!(type_of((V814))==t_cons)){          V815= CMPcar((V813));
5626          goto T2958;}          V813= CMPcdr((V813));
5627          {register object V816;          V814= (V815);
5628          V816= car((V814));          goto T2947;}
5629          V814= cdr((V814));          goto T2949;
5630          V815= (V816);  T2949:;
5631            V814= Ct;
5632            goto T2947;
5633    T2947:;
5634            if(!(((V811))==((V814)))){
5635          goto T2956;}          goto T2956;}
5636          goto T2958;          base[1]= (VV[32]->s.s_dbind);
 T2958:;  
         V815= Ct;  
         goto T2956;  
 T2956:;  
         if(!(((V812))==((V815)))){  
         goto T2965;}  
         base[1]= symbol_value(VV[32]);  
5637          base[2]= VV[259];          base[2]= VV[259];
5638          base[3]= (V814);          base[3]= (V813);
5639          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5640          Lformat();          Lformat();
5641          vs_top=sup;          vs_top=sup;
5642          goto T2963;          goto T2954;
5643          goto T2965;          goto T2956;
5644  T2965:;  T2956:;
5645          if(!(((V812))==Cnil)){          if(!(((V811))==Cnil)){
5646          goto T2971;}          goto T2962;}
5647          goto T2970;          goto T2961;
5648          goto T2971;          goto T2962;
5649  T2971:;  T2962:;
5650          base[1]= symbol_value(VV[32]);          base[1]= (VV[32]->s.s_dbind);
5651          base[2]= VV[260];          base[2]= VV[260];
5652          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5653          Lformat();          Lformat();
5654          vs_top=sup;          vs_top=sup;
5655          goto T2970;          goto T2961;
5656  T2970:;  T2961:;
5657          V812= (V815);          V811= (V814);
5658          base[1]= symbol_value(VV[32]);          base[1]= (VV[32]->s.s_dbind);
5659          base[2]= VV[261];          base[2]= VV[261];
5660          base[3]= (*(LnkLI281))((V812));          base[3]= (*(LnkLI281))((V811));
5661          base[4]= (V814);          base[4]= (V813);
5662          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
5663          Lformat();          Lformat();
5664          vs_top=sup;          vs_top=sup;
5665          goto T2963;          goto T2954;
5666  T2963:;  T2954:;
5667          if(!(((V812))==(VV[262]))){          if(!(((V811))==(VV[262]))){
5668          goto T2955;}          goto T2946;}
5669          base[1]= symbol_value(VV[32]);          base[1]= (VV[32]->s.s_dbind);
5670          base[2]= VV[263];          base[2]= VV[263];
5671          base[3]= (V814);          base[3]= (V813);
5672          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5673          Lformat();          Lformat();
5674          vs_top=sup;}          vs_top=sup;}
         goto T2955;  
 T2955:;  
         V813= cdr((V813));  
         V814= car((V813));  
         goto T2950;}  
5675          goto T2946;          goto T2946;
5676  T2946:;  T2946:;
5677          if(symbol_value(VV[19])==Cnil){          V812= CMPcdr((V812));
5678          goto T2991;}          V813= CMPcar((V812));
5679          base[0]= symbol_value(VV[32]);          goto T2941;}
5680            goto T2937;
5681    T2937:;
5682            if((VV[19]->s.s_dbind)==Cnil){
5683            goto T2982;}
5684            base[0]= (VV[32]->s.s_dbind);
5685          base[1]= VV[264];          base[1]= VV[264];
5686          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5687          Lformat();          Lformat();
5688          vs_top=sup;          vs_top=sup;
5689          goto T2991;          goto T2982;
5690  T2991:;  T2982:;
5691          if((symbol_value(VV[17]))==Cnil){          if(((VV[17]->s.s_dbind))==Cnil){
5692          goto T2995;}          goto T2986;}
5693          if(eql(symbol_value(VV[142]),small_fixnum(0))){          if(eql((VV[142]->s.s_dbind),small_fixnum(0))){
5694          goto T2995;}          goto T2986;}
5695          base[0]= symbol_value(VV[32]);          base[0]= (VV[32]->s.s_dbind);
5696          base[1]= VV[265];          base[1]= VV[265];
5697          base[2]= symbol_value(VV[142]);          base[2]= (VV[142]->s.s_dbind);
5698          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5699          Lformat();          Lformat();
5700          vs_top=sup;          vs_top=sup;
5701          {object V817 = vs_base[0];          {object V816 = vs_base[0];
5702          VMR55(V817)}          VMR55(V816)}
5703          goto T2995;          goto T2986;
5704  T2995:;  T2986:;
5705          {object V818 = Cnil;          {object V817 = Cnil;
5706          VMR55(V818)}}          VMR55(V817)}}
5707          base[0]=base[0];          base[0]=base[0];
5708          return Cnil;          return Cnil;
5709  }  }
# Line 5527  static void L26(base0) Line 5713  static void L26(base0)
5713  register object *base0;  register object *base0;
5714  {       register object *base=vs_base;  {       register object *base=vs_base;
5715          register object *sup=base+VM56; VC56          register object *sup=base+VM56; VC56
5716          vs_reserve(VM56);          vs_check;
5717          {object V819;          {object V818;
5718          check_arg(1);          V818=(base[0]);
         V819=(base[0]);  
5719          vs_top=sup;          vs_top=sup;
5720          goto TTL;          goto TTL;
5721  TTL:;  TTL:;
5722          V820= structure_ref((V819),VV[70],4);          if(eql(STREF(object,(V818),16),VV[73])){
5723          if(eql(/* INLINE-ARGS */V820,VV[73])){          goto T2994;}
5724          goto T3003;}          goto T2993;
5725          goto T3002;          goto T2994;
5726          goto T3003;  T2994:;
 T3003:;  
5727          (VV[154]->s.s_dbind)= Ct;          (VV[154]->s.s_dbind)= Ct;
5728          goto T3002;          goto T2993;
5729  T3002:;  T2993:;
5730          {object V821;          {object V819;
5731          V821= (*(LnkLI346))((V819));          V819= (*(LnkLI349))((V818));
5732          if(((V821))==Cnil){          if(((V819))==Cnil){
5733          goto T3008;}          goto T2999;}
5734          {object V822;          {object V820;
5735          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));          (VV[89]->s.s_dbind)= number_plus((VV[89]->s.s_dbind),small_fixnum(1));
5736          V822= symbol_value(VV[89]);          V820= (VV[89]->s.s_dbind);
5737          (void)(structure_set((V819),VV[70],1,(V821)));          V821= Ct;
5738          (void)(structure_set((V819),VV[70],4,(V822)));          STSET(object,(V818),4, (V819));
5739            (void)((V819));
5740            V822= Ct;
5741            STSET(object,(V818),16, (V820));
5742            (void)((V820));
5743          princ_str("\n   ",VV[26]);          princ_str("\n   ",VV[26]);
5744          if((base0[1])!=Cnil){          if((base0[1])!=Cnil){
5745          goto T3015;}          goto T3006;}
5746          princ_char(123,VV[26]);          princ_char(123,VV[26]);
5747          base0[1]= Ct;          base0[1]= Ct;
5748          goto T3015;          goto T3006;
5749  T3015:;  T3006:;
5750          base[1]= (V819);          base[1]= (*(LnkLI350))((V818));
5751          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
         (void) (*Lnk347)();  
5752          return;}          return;}
5753          goto T3008;          goto T2999;
5754  T3008:;  T2999:;
5755          base[1]= Cnil;          base[1]= Cnil;
5756          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5757          return;}          return;}
5758          }          }
5759  }  }
5760  static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* WT-VAR-DECL */  static object  LnkTLI350(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[350],(void **)(void *)&LnkLI350,1,first,ap);va_end(ap);return V1;} /* WT-VAR-DECL */
5761  static object  LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[346],(void **)(void *)&LnkLI346,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */  static object  LnkTLI349(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[349],(void **)(void *)&LnkLI349,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
5762  static object  LnkTLI251(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[251],(void **)(void *)&LnkLI251,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */  static object  LnkTLI251(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[251],(void **)(void *)&LnkLI251,5,first,ap);va_end(ap);return V1;} /* T3LOCAL-DCFUN */
5763  static object  LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */  static object  LnkTLI344(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[344],(void **)(void *)&LnkLI344,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */
5764  static object  LnkTLI340(){return call_proc0(VV[340],(void **)(void *)&LnkLI340);} /* WFS-ERROR */  static object  LnkTLI343(){return call_proc0(VV[343],(void **)(void *)&LnkLI343);} /* WFS-ERROR */
5765  static void LnkT339(){ call_or_link(VV[339],(void **)(void *)&Lnk339);} /* C2DM */  static void LnkT342(){ call_or_link(VV[342],(void **)(void *)&Lnk342);} /* C2DM */
5766  static object  LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)(void *)&LnkLI338,3,first,ap);va_end(ap);return V1;} /* C1DM */  static object  LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,3,first,ap);va_end(ap);return V1;} /* C1DM */
5767  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)(void *)&LnkLI337,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */  static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[340],(void **)(void *)&LnkLI340,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */
5768  static object  LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)(void *)&LnkLI336,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */  static object  LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[339],(void **)(void *)&LnkLI339,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */
5769  static object  LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[335],(void **)(void *)&LnkLI335,first,ap);va_end(ap);return V1;} /* WARN */  static object  LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[338],(void **)(void *)&LnkLI338,first,ap);va_end(ap);return V1;} /* WARN */
5770  static object  LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[334],(void **)(void *)&LnkLI334,1,first,ap);va_end(ap);return V1;} /* REGISTER */  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[337],(void **)(void *)&LnkLI337,1,first,ap);va_end(ap);return V1;} /* REGISTER */
5771  static object  LnkTLI333(){return call_proc0(VV[333],(void **)(void *)&LnkLI333);} /* WT-CVARS */  static object  LnkTLI336(){return call_proc0(VV[336],(void **)(void *)&LnkLI336);} /* WT-CVARS */
5772  static object  LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[332],(void **)(void *)&LnkLI332,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */  static object  LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[335],(void **)(void *)&LnkLI335,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
5773  static object  LnkTLI331(){return call_proc0(VV[331],(void **)(void *)&LnkLI331);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI334(){return call_proc0(VV[334],(void **)(void *)&LnkLI334);} /* CLOSE-INLINE-BLOCKS */
5774  static object  LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,1,first,ap);va_end(ap);return V1;} /* WT-VS */  static object  LnkTLI333(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[333],(void **)(void *)&LnkLI333,1,first,ap);va_end(ap);return V1;} /* WT-VS */
5775  static object  LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)(void *)&LnkLI329,1,first,ap);va_end(ap);return V1;} /* C2BIND */  static object  LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[332],(void **)(void *)&LnkLI332,1,first,ap);va_end(ap);return V1;} /* C2BIND */
5776  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[331],(void **)(void *)&LnkLI331,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
5777  static object  LnkTLI327(){return call_proc0(VV[327],(void **)(void *)&LnkLI327);} /* BABOON */  static object  LnkTLI330(){return call_proc0(VV[330],(void **)(void *)&LnkLI330);} /* BABOON */
5778  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */  static object  LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)(void *)&LnkLI329,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
5779  static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* INC-INLINE-BLOCKS */  static object  LnkTLI328(){return call_proc0(VV[328],(void **)(void *)&LnkLI328);} /* INC-INLINE-BLOCKS */
5780  static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[324],(void **)(void *)&LnkLI324,first,ap);va_end(ap);return V1;} /* CS-PUSH */  static object  LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[327],(void **)(void *)&LnkLI327,first,ap);va_end(ap);return V1;} /* CS-PUSH */
5781  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
5782  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)(void *)&LnkLI325,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
5783  static object  LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */  static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */
5784  static object  LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[320],(void **)(void *)&LnkLI320,first,ap);va_end(ap);return V1;} /* CONCATENATE */  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[323],(void **)(void *)&LnkLI323,first,ap);va_end(ap);return V1;} /* CONCATENATE */
5785  static object  LnkTLI319(){return call_proc0(VV[319],(void **)(void *)&LnkLI319);} /* CVS-PUSH */  static object  LnkTLI322(){return call_proc0(VV[322],(void **)(void *)&LnkLI322);} /* CVS-PUSH */
5786  static object  LnkTLI318(){return call_proc0(VV[318],(void **)(void *)&LnkLI318);} /* VS-PUSH */  static object  LnkTLI321(){return call_proc0(VV[321],(void **)(void *)&LnkLI321);} /* VS-PUSH */
5787  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */  static object  LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)(void *)&LnkLI320,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */
5788  static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* C2EXPR */  static void LnkT319(){ call_or_link(VV[319],(void **)(void *)&Lnk319);} /* C2EXPR */
5789  static object  LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[315],(void **)(void *)&LnkLI315,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */  static object  LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */
5790  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */
5791  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[313],(void **)(void *)&LnkLI313,first,ap);va_end(ap);return V1;} /* WT-COMMENT */  static object  LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[316],(void **)(void *)&LnkLI316,first,ap);va_end(ap);return V1;} /* WT-COMMENT */
5792  static object  LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[312],(void **)(void *)&LnkLI312,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */  static object  LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[315],(void **)(void *)&LnkLI315,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */
5793  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */
5794  static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* T3DEFUN-AUX */  static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* T3DEFUN-AUX */
5795  static object  LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */  static object  LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[312],(void **)(void *)&LnkLI312,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */
5796  static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* FIXNUMP */  static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* FIXNUMP */
5797  static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,1,first,ap);va_end(ap);return V1;} /* VOLATILE */  static object  LnkTLI310(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[310],(void **)(void *)&LnkLI310,1,first,ap);va_end(ap);return V1;} /* VOLATILE */
5798  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* MAXARGS */  static object  LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,1,first,ap);va_end(ap);return V1;} /* MAXARGS */
5799  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* VARARG-P */  static object  LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)(void *)&LnkLI308,1,first,ap);va_end(ap);return V1;} /* VARARG-P */
5800  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */  static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */
5801  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
5802  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */
5803  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[301],(void **)(void *)&LnkLI301,first,ap);va_end(ap);return V1;} /* ADD-INIT */  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[304],(void **)(void *)&LnkLI304,first,ap);va_end(ap);return V1;} /* ADD-INIT */
5804  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[300],(void **)(void *)&LnkLI300,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[303],(void **)(void *)&LnkLI303,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
5805  static object  LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[299],(void **)(void *)&LnkLI299,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */
5806  static object  LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[298],(void **)(void *)&LnkLI298,257,first,ap);va_end(ap);return V1;} /* F-TYPE */  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,257,first,ap);va_end(ap);return V1;} /* F-TYPE */
5807  static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* SUBTYPEP */  static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* SUBTYPEP */
5808  static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* STRUCTURE-SUBTYPE-P */  static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* STRUCTURE-SUBTYPE-P */
5809  static object  LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[295],(void **)(void *)&LnkLI295,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */  static object  LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[298],(void **)(void *)&LnkLI298,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
5810  static object  LnkTLI294(){return call_proc0(VV[294],(void **)(void *)&LnkLI294);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI297(){return call_proc0(VV[297],(void **)(void *)&LnkLI297);} /* ADD-LOAD-TIME-SHARP-COMMA */
5811  static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */  static object  LnkTLI296(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[296],(void **)(void *)&LnkLI296,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */
5812  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */  static object  LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[295],(void **)(void *)&LnkLI295,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
5813  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */  static object  LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[294],(void **)(void *)&LnkLI294,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */
5814  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */  static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */
5815  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */
5816  static object  LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[288],(void **)(void *)&LnkLI288,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
5817  static object  LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[287],(void **)(void *)&LnkLI287,1,first,ap);va_end(ap);return V1;} /* T1PROGN */  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* T1PROGN */
5818  static object  LnkTLI284(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[284],(void **)(void *)&LnkLI284,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */  static object  LnkTLI284(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[284],(void **)(void *)&LnkLI284,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
5819  static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* CMP-EVAL */  static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* CMP-EVAL */
5820  static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* DECLARATION-TYPE */  static object  LnkTLI282(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[282],(void **)(void *)&LnkLI282,1,first,ap);va_end(ap);return V1;} /* DECLARATION-TYPE */
5821  static object  LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */  static object  LnkTLI281(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[281],(void **)(void *)&LnkLI281,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
5822  static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* WT-DATA-FILE */  static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* WT-DATA-FILE */
5823  static object  LnkTLI279(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[279],(void **)(void *)&LnkLI279,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */  static object  LnkTLI279(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[279],(void **)(void *)&LnkLI279,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */

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

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