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

Diff of /gcl/cmpnew/cmptop.c

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

revision 1.12 by camm, Tue Jul 15 18:03:36 2003 UTC revision 1.13 by camm, Tue Sep 2 20:32:42 2003 UTC
# Line 36  TTL:; Line 36  TTL:;
36          goto T8;}          goto T8;}
37          if(!(((V2))==(VV[3]))){          if(!(((V2))==(VV[3]))){
38          goto T11;}          goto T11;}
39          V5= (VFUN_NARGS=1,(*(LnkLI265))(VV[4]));          V5= (VFUN_NARGS=1,(*(LnkLI266))(VV[4]));
40          frs_pop();          frs_pop();
41          base[3]= V5;          base[3]= V5;
42          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 49  T11:; Line 49  T11:;
49          goto T14;}          goto T14;}
50          if((symbol_value(VV[6]))==Cnil){          if((symbol_value(VV[6]))==Cnil){
51          goto T16;}          goto T16;}
52          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[7],(V1))));          (void)((VFUN_NARGS=2,(*(LnkLI267))(VV[7],(V1))));
53          goto T16;          goto T16;
54  T16:;  T16:;
55          {object V6;          {object V6;
# Line 65  T16:; Line 65  T16:;
65          Lcopy_list();          Lcopy_list();
66          vs_top=sup;          vs_top=sup;
67          V7= vs_base[0];          V7= vs_base[0];
68          V6= (*(LnkLI267))((V4),(V2),V7);          V6= (*(LnkLI268))((V4),(V2),V7);
69          goto T19;          goto T19;
70          goto T21;          goto T21;
71  T21:;  T21:;
72          V6= (V1);          V6= (V1);
73          goto T19;          goto T19;
74  T19:;  T19:;
75          (void)((*(LnkLI268))(Ct,(V6)));          (void)((*(LnkLI269))(Ct,(V6)));
76          V8= (*(LnkLI269))((V6));          V8= (*(LnkLI270))((V6));
77          frs_pop();          frs_pop();
78          base[3]= V8;          base[3]= V8;
79          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 87  T14:; Line 87  T14:;
87          goto T29;}          goto T29;}
88          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
89          goto T32;}          goto T32;}
90          (void)((*(LnkLI270))());          (void)((*(LnkLI271))());
91          goto T32;          goto T32;
92  T32:;  T32:;
93          base[3]= (V3);          base[3]= (V3);
# Line 103  T29:; Line 103  T29:;
103          goto T37;}          goto T37;}
104          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
105          goto T39;}          goto T39;}
106          (void)((*(LnkLI270))());          (void)((*(LnkLI271))());
107          goto T39;          goto T39;
108  T39:;  T39:;
109          base[3]= (*(LnkLI271))((V1));          base[3]= (*(LnkLI272))((V1));
110          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
111          (void) (*Lnk272)();          (void) (*Lnk273)();
112          frs_pop();          frs_pop();
113          bds_unwind1;          bds_unwind1;
114          bds_unwind1;          bds_unwind1;
# Line 117  T39:; Line 117  T39:;
117  T37:;  T37:;
118          if((get((V2),VV[11],Cnil))==Cnil){          if((get((V2),VV[11],Cnil))==Cnil){
119          goto T44;}          goto T44;}
120          V9= (*(LnkLI273))((V1));          V9= (*(LnkLI274))((V1));
121          frs_pop();          frs_pop();
122          base[3]= V9;          base[3]= V9;
123          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 139  T44:; Line 139  T44:;
139          Lcopy_list();          Lcopy_list();
140          vs_top=sup;          vs_top=sup;
141          V11= vs_base[0];          V11= vs_base[0];
142          V10= (*(LnkLI267))((V4),(V2),V11);          V10= (*(LnkLI268))((V4),(V2),V11);
143          base[3]= (V10);          base[3]= (V10);
144          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
145          (void) (*Lnk272)();          (void) (*Lnk273)();
146          frs_pop();          frs_pop();
147          bds_unwind1;          bds_unwind1;
148          bds_unwind1;          bds_unwind1;
149          return;}          return;}
150          goto T47;          goto T47;
151  T47:;  T47:;
152          V12= (*(LnkLI273))((V1));          V12= (*(LnkLI274))((V1));
153          frs_pop();          frs_pop();
154          base[3]= V12;          base[3]= V12;
155          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 160  T47:; Line 160  T47:;
160  T8:;  T8:;
161          if(!(type_of((V2))==t_cons)){          if(!(type_of((V2))==t_cons)){
162          goto T56;}          goto T56;}
163          V13= (*(LnkLI273))((V1));          V13= (*(LnkLI274))((V1));
164          frs_pop();          frs_pop();
165          base[3]= V13;          base[3]= V13;
166          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 169  T8:; Line 169  T8:;
169          return;          return;
170          goto T56;          goto T56;
171  T56:;  T56:;
172          V14= (VFUN_NARGS=2,(*(LnkLI265))(VV[12],(V2)));          V14= (VFUN_NARGS=2,(*(LnkLI266))(VV[12],(V2)));
173          frs_pop();          frs_pop();
174          base[3]= V14;          base[3]= V14;
175          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 228  object V17; Line 228  object V17;
228  TTL:;  TTL:;
229          {object V18;          {object V18;
230          V18= Cnil;          V18= Cnil;
         bds_bind(VV[17],Cnil);  
231          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
232          bds_bind(VV[20],VV[19]);          bds_bind(VV[19],Cnil);
233          bds_bind(VV[21],Cnil);          bds_bind(VV[21],VV[20]);
234          bds_bind(VV[22],small_fixnum(0));          bds_bind(VV[22],Cnil);
235          bds_bind(VV[23],Cnil);          bds_bind(VV[23],small_fixnum(0));
236            bds_bind(VV[24],Cnil);
237          bds_bind(VV[0],Cnil);          bds_bind(VV[0],Cnil);
238          setq(VV[24],reverse(symbol_value(VV[24])));          bds_bind(VV[17],Cnil);
239          princ_str("\nvoid init_",VV[25]);          setq(VV[25],reverse(symbol_value(VV[25])));
240          (void)((*(LnkLI274))((V17)));          princ_str("\nvoid init_",VV[26]);
241          princ_str("(){",VV[25]);          (void)((*(LnkLI275))((V17)));
242          princ_str("do_init(VV);",VV[25]);          princ_str("(){",VV[26]);
243          princ_char(125,VV[25]);          princ_str("do_init(VV);",VV[26]);
244            princ_char(125,VV[26]);
245          {object V19;          {object V19;
246          V19= symbol_value(VV[24]);          V19= symbol_value(VV[25]);
247          bds_bind(VV[0],car((V19)));          bds_bind(VV[0],car((V19)));
248          goto T77;          goto T77;
249  T77:;  T77:;
# Line 253  T77:; Line 254  T77:;
254          goto T78;          goto T78;
255  T78:;  T78:;
256          setq(VV[1],Ct);          setq(VV[1],Ct);
257          V18= get(car((VV[0]->s.s_dbind)),VV[26],Cnil);          (VV[17]->s.s_dbind)= Cnil;
258            V18= get(car((VV[0]->s.s_dbind)),VV[27],Cnil);
259          if(((V18))==Cnil){          if(((V18))==Cnil){
260          goto T84;}          goto T86;}
261          base[8]= (V18);          base[9]= (V18);
262          {object V20;          {object V20;
263          V20= cdr((VV[0]->s.s_dbind));          V20= cdr((VV[0]->s.s_dbind));
264           vs_top=base+9;           vs_top=base+10;
265           while(!endp(V20))           while(!endp(V20))
266           {vs_push(car(V20));V20=cdr(V20);}           {vs_push(car(V20));V20=cdr(V20);}
267          vs_base=base+9;}          vs_base=base+10;}
268          super_funcall_no_event(base[8]);          super_funcall_no_event(base[9]);
269          vs_top=sup;          vs_top=sup;
270          goto T84;          goto T86;
271  T84:;  T86:;
272          V19= cdr((V19));          V19= cdr((V19));
273          (VV[0]->s.s_dbind)= car((V19));          (VV[0]->s.s_dbind)= car((V19));
274          goto T77;}          goto T77;}
275          goto T73;          goto T73;
276  T73:;  T73:;
277          {object V21;          {object V21;
278          V21= symbol_value(VV[24]);          V21= symbol_value(VV[25]);
279          bds_bind(VV[0],car((V21)));          bds_bind(VV[0],car((V21)));
280          goto T99;          goto T101;
281  T99:;  T101:;
282          if(!(endp_prop((V21)))){          if(!(endp_prop((V21)))){
283          goto T100;}          goto T102;}
284          bds_unwind1;          bds_unwind1;
285          goto T95;          goto T97;
286          goto T100;          goto T102;
287  T100:;  T102:;
288          setq(VV[1],Ct);          setq(VV[1],Ct);
289          V18= get(car((VV[0]->s.s_dbind)),VV[27],Cnil);          (VV[17]->s.s_dbind)= Cnil;
290            V18= get(car((VV[0]->s.s_dbind)),VV[28],Cnil);
291          if(((V18))==Cnil){          if(((V18))==Cnil){
292          goto T106;}          goto T110;}
293          base[8]= (V18);          base[9]= (V18);
294          {object V22;          {object V22;
295          V22= cdr((VV[0]->s.s_dbind));          V22= cdr((VV[0]->s.s_dbind));
296           vs_top=base+9;           vs_top=base+10;
297           while(!endp(V22))           while(!endp(V22))
298           {vs_push(car(V22));V22=cdr(V22);}           {vs_push(car(V22));V22=cdr(V22);}
299          vs_base=base+9;}          vs_base=base+10;}
300          super_funcall_no_event(base[8]);          super_funcall_no_event(base[9]);
301          vs_top=sup;          vs_top=sup;
302          goto T106;          goto T110;
303  T106:;  T110:;
304          V21= cdr((V21));          V21= cdr((V21));
305          (VV[0]->s.s_dbind)= car((V21));          (VV[0]->s.s_dbind)= car((V21));
306          goto T99;}          goto T101;}
307          goto T95;          goto T97;
308  T95:;  T97:;
309          {object V23;          {object V23;
310          V23= Cnil;          V23= Cnil;
311          goto T119;          goto T123;
312  T119:;  T123:;
313          if(!(endp_prop(symbol_value(VV[28])))){          if(!(endp_prop(symbol_value(VV[29])))){
314          goto T121;}          goto T125;}
         goto T117;  
315          goto T121;          goto T121;
316  T121:;          goto T125;
317          V23= car(symbol_value(VV[28]));  T125:;
318            V23= car(symbol_value(VV[29]));
319          {object V24;          {object V24;
320          V24= car(symbol_value(VV[28]));          V24= car(symbol_value(VV[29]));
321          setq(VV[28],cdr(symbol_value(VV[28])));}          setq(VV[29],cdr(symbol_value(VV[29])));}
322            (VV[17]->s.s_dbind)= Cnil;
323          {object V25;          {object V25;
324          V25= (V23);          V25= (V23);
325           vs_top=base+7;           vs_top=base+8;
326           while(!endp(V25))           while(!endp(V25))
327           {vs_push(car(V25));V25=cdr(V25);}           {vs_push(car(V25));V25=cdr(V25);}
328          vs_base=base+7;}          vs_base=base+8;}
329          (void) (*Lnk257)();          (void) (*Lnk258)();
330          vs_top=sup;          vs_top=sup;
331          goto T119;}          goto T123;}
332          goto T117;          goto T121;
333  T117:;  T121:;
334          {object V26;          {object V26;
335          object V27;          object V27;
336          V26= symbol_value(VV[29]);          V26= symbol_value(VV[30]);
337          V27= car((V26));          V27= car((V26));
338          goto T136;          goto T142;
339  T136:;  T142:;
340          if(!(endp_prop((V26)))){          if(!(endp_prop((V26)))){
341          goto T137;}          goto T143;}
342          goto T132;          goto T138;
343          goto T137;          goto T143;
344  T137:;  T143:;
345            (VV[17]->s.s_dbind)= Cnil;
346          {object V28;          {object V28;
347          V28= (V27);          V28= (V27);
348           vs_top=base+8;           vs_top=base+9;
349           while(!endp(V28))           while(!endp(V28))
350           {vs_push(car(V28));V28=cdr(V28);}           {vs_push(car(V28));V28=cdr(V28);}
351          vs_base=base+8;}          vs_base=base+9;}
352          (void) (*Lnk275)();          (void) (*Lnk276)();
353          vs_top=sup;          vs_top=sup;
354          V26= cdr((V26));          V26= cdr((V26));
355          V27= car((V26));          V27= car((V26));
356          goto T136;}          goto T142;}
357          goto T132;          goto T138;
358  T132:;  T138:;
359          {object V29;          {object V29;
360          object V30;          object V30;
361          V29= (VV[17]->s.s_dbind);          V29= (VV[18]->s.s_dbind);
362          V30= car((V29));          V30= car((V29));
363          goto T152;          goto T160;
364  T152:;  T160:;
365          if(!(endp_prop((V29)))){          if(!(endp_prop((V29)))){
366          goto T153;}          goto T161;}
367          goto T148;          goto T156;
368          goto T153;          goto T161;
369  T153:;  T161:;
370          (void)((*(LnkLI276))((V30)));          (VV[17]->s.s_dbind)= Cnil;
371            (void)((*(LnkLI277))((V30)));
372          V29= cdr((V29));          V29= cdr((V29));
373          V30= car((V29));          V30= car((V29));
374          goto T152;}          goto T160;}
375          goto T148;          goto T156;
376  T148:;  T156:;
377          {object V31;          {object V31;
378          object V32;          object V32;
379          V31= symbol_value(VV[30]);          V31= symbol_value(VV[31]);
380          V32= car((V31));          V32= car((V31));
381          goto T167;          goto T177;
382  T167:;  T177:;
383          if(!(endp_prop((V31)))){          if(!(endp_prop((V31)))){
384          goto T168;}          goto T178;}
385          goto T163;          goto T173;
386          goto T168;          goto T178;
387  T168:;  T178:;
388          princ_str("\nstatic void LC",VV[31]);          princ_str("\nstatic void LC",VV[32]);
389          V33= structure_ref((V32),VV[32],3);          V33= structure_ref((V32),VV[33],3);
390          (void)((*(LnkLI277))(/* INLINE-ARGS */V33));          (void)((*(LnkLI278))(/* INLINE-ARGS */V33));
391          princ_str("();",VV[31]);          princ_str("();",VV[32]);
392          V31= cdr((V31));          V31= cdr((V31));
393          V32= car((V31));          V32= car((V31));
394          goto T167;}          goto T177;}
395          goto T163;          goto T173;
396  T163:;  T173:;
397          {object V34;          {object V34;
398          object V35;          object V35;
399          V34= symbol_value(VV[33]);          V34= symbol_value(VV[34]);
400          V35= car((V34));          V35= car((V34));
401          goto T185;          goto T195;
402  T185:;  T195:;
403          if(!(endp_prop((V34)))){          if(!(endp_prop((V34)))){
404          goto T186;}          goto T196;}
405          goto T181;          goto T191;
406          goto T186;          goto T196;
407  T186:;  T196:;
408          princ_str("\n#define VM",VV[31]);          princ_str("\n#define VM",VV[32]);
409          (void)((*(LnkLI277))(car((V35))));          (void)((*(LnkLI278))(car((V35))));
410          princ_char(32,VV[31]);          princ_char(32,VV[32]);
411          (void)((*(LnkLI277))(cdr((V35))));          (void)((*(LnkLI278))(cdr((V35))));
412          V34= cdr((V34));          V34= cdr((V34));
413          V35= car((V34));          V35= car((V34));
414          goto T185;}          goto T195;}
415          goto T181;          goto T191;
416  T181:;  T191:;
417          (void)((*(LnkLI278))(Cnil));          (void)((*(LnkLI279))(Cnil));
418          {object V36;          {object V36;
419          object V37;          object V37;
420          base[8]= (VV[22]->s.s_dbind);          base[9]= (VV[23]->s.s_dbind);
421          base[9]= symbol_value(VV[34]);          base[10]= symbol_value(VV[35]);
422          base[10]= small_fixnum(1);          base[11]= small_fixnum(1);
423          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+9)+3;
424          Lminus();          Lminus();
425          vs_top=sup;          vs_top=sup;
426          V36= vs_base[0];          V36= vs_base[0];
427          V37= small_fixnum(0);          V37= small_fixnum(0);
428          goto T208;          goto T218;
429  T208:;  T218:;
430          if(!(number_compare((V37),(V36))>=0)){          if(!(number_compare((V37),(V36))>=0)){
431          goto T209;}          goto T219;}
432          goto T201;          goto T211;
433          goto T209;          goto T219;
434  T209:;  T219:;
435          (void)((*(LnkLI278))(Cnil));          (void)((*(LnkLI279))(Cnil));
436          V37= one_plus((V37));          V37= one_plus((V37));
437          goto T208;}          goto T218;}
438          goto T201;          goto T211;
439  T201:;  T211:;
440          princ_str("\nstatic char * VVi[",VV[31]);          princ_str("\nstatic char * VVi[",VV[32]);
441          V38= number_plus(small_fixnum(1),symbol_value(VV[34]));          V38= number_plus(small_fixnum(1),symbol_value(VV[35]));
442          (void)((*(LnkLI277))(/* INLINE-ARGS */V38));          (void)((*(LnkLI278))(/* INLINE-ARGS */V38));
443          princ_str("]={",VV[31]);          princ_str("]={",VV[32]);
444          princ_str("\n#define Cdata VV[",VV[31]);          princ_str("\n#define Cdata VV[",VV[32]);
445          (void)((*(LnkLI277))(symbol_value(VV[34])));          (void)((*(LnkLI278))(symbol_value(VV[35])));
446          princ_char(93,VV[31]);          princ_char(93,VV[32]);
447          if((VV[21]->s.s_dbind)!=Cnil){          if((VV[22]->s.s_dbind)!=Cnil){
448          goto T225;}          goto T235;}
449          princ_char(10,VV[31]);          princ_char(10,VV[32]);
450          (void)((*(LnkLI277))(small_fixnum(0)));          (void)((*(LnkLI278))(small_fixnum(0)));
451          goto T225;          goto T235;
452  T225:;  T235:;
453          {register object V39;          {register object V39;
454          V39= nreverse((VV[21]->s.s_dbind));          V39= nreverse((VV[22]->s.s_dbind));
455          goto T231;          goto T241;
456  T231:;  T241:;
457          if(((V39))!=Cnil){          if(((V39))!=Cnil){
458          goto T232;}          goto T242;}
459          princ_str("\n};",VV[31]);          princ_str("\n};",VV[32]);
460          goto T228;          goto T238;
         goto T232;  
 T232:;  
         princ_str("\n(char *)(",VV[31]);  
         (void)((*(LnkLI277))(caar((V39))));  
         (void)((*(LnkLI277))(cadar((V39))));  
         if((cdr((V39)))==Cnil){  
         goto T244;}  
         V40= VV[35];  
         goto T242;  
         goto T244;  
 T244:;  
         V40= VV[36];  
461          goto T242;          goto T242;
462  T242:;  T242:;
463          (void)((*(LnkLI277))(V40));          princ_str("\n(char *)(",VV[32]);
464            (void)((*(LnkLI278))(caar((V39))));
465            (void)((*(LnkLI278))(cadar((V39))));
466            if((cdr((V39)))==Cnil){
467            goto T254;}
468            V40= VV[36];
469            goto T252;
470            goto T254;
471    T254:;
472            V40= VV[37];
473            goto T252;
474    T252:;
475            (void)((*(LnkLI278))(V40));
476          V39= cdr((V39));          V39= cdr((V39));
477          goto T231;}          goto T241;}
478          goto T228;          goto T238;
479  T228:;  T238:;
480          princ_str("\n#define VV ((object *)VVi)",VV[31]);          princ_str("\n#define VV ((object *)VVi)",VV[32]);
481          vs_base=vs_top;          vs_base=vs_top;
482          (void) (*Lnk279)();          (void) (*Lnk280)();
483          vs_top=sup;          vs_top=sup;
484          {object V41;          {object V41;
485          object V42;          object V42;
486          V41= (VV[17]->s.s_dbind);          V41= (VV[18]->s.s_dbind);
487          V42= car((V41));          V42= car((V41));
488          goto T255;          goto T265;
489  T255:;  T265:;
490          if(!(endp_prop((V41)))){          if(!(endp_prop((V41)))){
491          goto T256;}          goto T266;}
492          {object V43 = Cnil;          {object V43 = Cnil;
493          bds_unwind1;          bds_unwind1;
494          bds_unwind1;          bds_unwind1;
# Line 491  T255:; Line 497  T255:;
497          bds_unwind1;          bds_unwind1;
498          bds_unwind1;          bds_unwind1;
499          bds_unwind1;          bds_unwind1;
500            bds_unwind1;
501          VMR3(V43)}          VMR3(V43)}
502          goto T256;          goto T266;
503  T256:;  T266:;
504          {register object V44;          {register object V44;
505          register object V45;          register object V45;
506          object V46;          object V46;
# Line 502  T256:; Line 509  T256:;
509          V45= caddr((V42));          V45= caddr((V42));
510          V46= cadddr((V42));          V46= cadddr((V42));
511          V47= Cnil;          V47= Cnil;
512          if(!(((V45))==(VV[37]))){          if(!(((V45))==(VV[38]))){
513          goto T266;}          goto T276;}
514          princ_str("\nstatic object *Lclptr",VV[31]);          princ_str("\nstatic object *Lclptr",VV[32]);
515          (void)((*(LnkLI277))((V44)));          (void)((*(LnkLI278))((V44)));
516          princ_char(59,VV[31]);          princ_char(59,VV[32]);
         V47= VV[38];  
         goto T264;  
         goto T266;  
 T266:;  
         if(((V45))==Cnil){  
         goto T275;}  
         V47= (*(LnkLI280))((V45));  
         goto T273;  
         goto T275;  
 T275:;  
517          V47= VV[39];          V47= VV[39];
518          goto T273;          goto T274;
519  T273:;          goto T276;
520          goto T264;  T276:;
 T264:;  
521          if(((V45))==Cnil){          if(((V45))==Cnil){
522          goto T278;}          goto T285;}
523          if(((V45))==(VV[37])){          V47= (*(LnkLI281))((V45));
524          goto T278;}          goto T283;
525            goto T285;
526    T285:;
527            V47= VV[40];
528            goto T283;
529    T283:;
530            goto T274;
531    T274:;
532            if(((V45))==Cnil){
533            goto T288;}
534            if(((V45))==(VV[38])){
535            goto T288;}
536          if(((V46))!=Cnil){          if(((V46))!=Cnil){
537          goto T277;}          goto T287;}
538          if((Ct)==((V45))){          if((Ct)==((V45))){
539          goto T278;}          goto T288;}
540          goto T277;          goto T287;
541  T277:;  T287:;
542          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[32]);
543          base[8]= (V47);          base[9]= (V47);
544          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+9)+1;
545          (void) (*Lnk281)();          (void) (*Lnk282)();
546          vs_top=sup;          vs_top=sup;
547          V48= vs_base[0];          V48= vs_base[0];
548          (void)((*(LnkLI277))(V48));          (void)((*(LnkLI278))(V48));
549          princ_str(" LnkT",VV[31]);          princ_str(" LnkT",VV[32]);
550          (void)((*(LnkLI277))((V44)));          (void)((*(LnkLI278))((V44)));
551          princ_str("(object,...);",VV[31]);          princ_str("(object,...);",VV[32]);
552          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[32]);
553          base[8]= (V47);          base[9]= (V47);
554          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+9)+1;
555          (void) (*Lnk281)();          (void) (*Lnk282)();
556          vs_top=sup;          vs_top=sup;
557          V49= vs_base[0];          V49= vs_base[0];
558          (void)((*(LnkLI277))(V49));          (void)((*(LnkLI278))(V49));
559          princ_str(" (*Lnk",VV[31]);          princ_str(" (*Lnk",VV[32]);
560          (void)((*(LnkLI277))((V44)));          (void)((*(LnkLI278))((V44)));
561          princ_str(")() = (",VV[31]);          princ_str(")() = (",VV[32]);
562          base[8]= (V47);          base[9]= (V47);
563          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+9)+1;
564          (void) (*Lnk281)();          (void) (*Lnk282)();
565          vs_top=sup;          vs_top=sup;
566          V50= vs_base[0];          V50= vs_base[0];
567          (void)((*(LnkLI277))(V50));          (void)((*(LnkLI278))(V50));
568          princ_str("(*)()) LnkT",VV[31]);          princ_str("(*)()) LnkT",VV[32]);
569          (void)((*(LnkLI277))((V44)));          (void)((*(LnkLI278))((V44)));
570          princ_char(59,VV[31]);          princ_char(59,VV[32]);
571          goto T260;          goto T270;
572          goto T278;          goto T288;
573  T278:;  T288:;
574          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[32]);
575          base[8]= (V47);          base[9]= (V47);
576          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+9)+1;
577          (void) (*Lnk281)();          (void) (*Lnk282)();
578          vs_top=sup;          vs_top=sup;
579          V51= vs_base[0];          V51= vs_base[0];
580          (void)((*(LnkLI277))(V51));          (void)((*(LnkLI278))(V51));
581          princ_str(" LnkT",VV[31]);          princ_str(" LnkT",VV[32]);
582          (void)((*(LnkLI277))((V44)));          (void)((*(LnkLI278))((V44)));
583          princ_str("();",VV[31]);          princ_str("();",VV[32]);
584          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[32]);
585          base[8]= (V47);          base[9]= (V47);
586          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+9)+1;
587          (void) (*Lnk281)();          (void) (*Lnk282)();
588          vs_top=sup;          vs_top=sup;
589          V52= vs_base[0];          V52= vs_base[0];
590          (void)((*(LnkLI277))(V52));          (void)((*(LnkLI278))(V52));
591          princ_str(" (*Lnk",VV[31]);          princ_str(" (*Lnk",VV[32]);
592          (void)((*(LnkLI277))((V44)));          (void)((*(LnkLI278))((V44)));
593          princ_str(")() = LnkT",VV[31]);          princ_str(")() = LnkT",VV[32]);
594          (void)((*(LnkLI277))((V44)));          (void)((*(LnkLI278))((V44)));
595          princ_char(59,VV[31]);}          princ_char(59,VV[32]);}
596          goto T260;          goto T270;
597  T260:;  T270:;
598          V41= cdr((V41));          V41= cdr((V41));
599          V42= car((V41));          V42= car((V41));
600          goto T255;}}          goto T265;}}
601          base[0]=base[0];          base[0]=base[0];
602          return Cnil;          return Cnil;
603  }  }
# Line 603  object V55;register object V56; Line 610  object V55;register object V56;
610          goto TTL;          goto TTL;
611  TTL:;  TTL:;
612          if((V55)!=Cnil){          if((V55)!=Cnil){
613          goto T329;}          goto T339;}
614          if(type_of(car((V56)))==t_symbol){          if(type_of(car((V56)))==t_symbol){
615          goto T330;}          goto T340;}
616          goto T329;          goto T339;
617          goto T330;          goto T340;
618  T330:;  T340:;
619          V55= get(car((V56)),VV[40],Cnil);          V55= get(car((V56)),VV[41],Cnil);
620          goto T329;          goto T339;
621  T329:;  T339:;
622          if(((V55))==Cnil){          if(((V55))==Cnil){
623          goto T335;}          goto T345;}
624          if((VV[41])==(symbol_value(VV[42]))){          if((VV[42])==(symbol_value(VV[43]))){
625          goto T333;}          goto T343;}
626          goto T335;          goto T345;
627  T335:;  T345:;
628          if(!(type_of(symbol_value(VV[42]))==t_cons)){          if(!(type_of(symbol_value(VV[43]))==t_cons)){
629          goto T334;}          goto T344;}
630          {register object x= VV[43],V57= symbol_value(VV[42]);          {register object x= VV[44],V57= symbol_value(VV[43]);
631          while(!endp(V57))          while(!endp(V57))
632          if(eql(x,V57->c.c_car)){          if(eql(x,V57->c.c_car)){
633          goto T341;          goto T351;
634          }else V57=V57->c.c_cdr;          }else V57=V57->c.c_cdr;
635          goto T334;}          goto T344;}
636          goto T341;          goto T351;
637  T341:;  T351:;
638          goto T333;          goto T343;
639  T333:;  T343:;
640          if(((V56))==Cnil){          if(((V56))==Cnil){
641          goto T342;}          goto T352;}
642          base[0]= (V56);          base[0]= (V56);
643          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
644          (void) (*Lnk282)();          (void) (*Lnk283)();
645          vs_top=sup;          vs_top=sup;
646          goto T342;          goto T352;
647  T342:;  T352:;
648          {object V58 = Ct;          {object V58 = Ct;
649          VMR4(V58)}          VMR4(V58)}
650          goto T334;          goto T344;
651  T334:;  T344:;
652          {object V59 = Cnil;          {object V59 = Cnil;
653          VMR4(V59)}          VMR4(V59)}
654          base[0]=base[0];          base[0]=base[0];
# Line 665  TTL:; Line 672  TTL:;
672          V61= Cnil;          V61= Cnil;
673          V62= Cnil;          V62= Cnil;
674          if(!(endp_prop((V60)))){          if(!(endp_prop((V60)))){
675          goto T348;}          goto T358;}
676          (void)((*(LnkLI283))(VV[44],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI284))(VV[45],small_fixnum(1),small_fixnum(0)));
677          goto T348;          goto T358;
678  T348:;  T358:;
679          {register object V63;          {register object V63;
680          register object V64;          register object V64;
681          V63= car((V60));          V63= car((V60));
682          V64= car((V63));          V64= car((V63));
683          goto T355;          goto T365;
684  T355:;  T365:;
685          if(!(endp_prop((V63)))){          if(!(endp_prop((V63)))){
686          goto T356;}          goto T366;}
687          goto T351;          goto T361;
688          goto T356;          goto T366;
689  T356:;  T366:;
690          {object V65= (V64);          {object V65= (V64);
691          if((V65!= VV[284]))goto T361;          if((V65!= VV[285]))goto T371;
692          V61= Ct;          V61= Ct;
693          goto T360;          goto T370;
694          goto T361;          goto T371;
695  T361:;  T371:;
696          if((V65!= VV[285]))goto T363;          if((V65!= VV[286]))goto T373;
697          V61= Ct;          V61= Ct;
698          goto T360;          goto T370;
699          goto T363;          goto T373;
700  T363:;  T373:;
701          if((V65!= VV[43]))goto T365;          if((V65!= VV[44]))goto T375;
702          V62= Ct;          V62= Ct;
703          goto T360;          goto T370;
704          goto T365;          goto T375;
705  T365:;  T375:;
706          if((V65!= VV[286]))goto T367;          if((V65!= VV[287]))goto T377;
707          V62= Ct;          V62= Ct;
708          goto T360;          goto T370;
709          goto T367;          goto T377;
710  T367:;  T377:;
711          if((V65!= VV[287]))goto T369;          if((V65!= VV[288]))goto T379;
712          goto T360;          goto T370;
713          goto T369;          goto T379;
714  T369:;  T379:;
715          if((V65!= VV[288]))goto T370;          if((V65!= VV[289]))goto T380;
716          goto T360;          goto T370;
717            goto T380;
718    T380:;
719            (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[46],(V64))));}
720          goto T370;          goto T370;
721  T370:;  T370:;
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V64))));}  
         goto T360;  
 T360:;  
722          V63= cdr((V63));          V63= cdr((V63));
723          V64= car((V63));          V64= car((V63));
724          goto T355;}          goto T365;}
725          goto T351;          goto T361;
726  T351:;  T361:;
727          base[1]= car((V60));          base[1]= car((V60));
728          bds_bind(VV[42],base[1]);          bds_bind(VV[43],base[1]);
729          if(((V61))==Cnil){          if(((V61))==Cnil){
730          goto T378;}          goto T388;}
731          base[2]= (*(LnkLI289))(cdr((V60)));          base[2]= (*(LnkLI290))(cdr((V60)));
732          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
733          bds_unwind1;          bds_unwind1;
734          return;          return;
735          goto T378;          goto T388;
736  T378:;  T388:;
737          if(((V62))==Cnil){          if(((V62))==Cnil){
738          goto T381;}          goto T391;}
739          base[2]= make_cons(VV[46],cdr((V60)));          base[2]= make_cons(VV[47],cdr((V60)));
740          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
741          (void) (*Lnk282)();          (void) (*Lnk283)();
742          bds_unwind1;          bds_unwind1;
743          return;          return;
744          goto T381;          goto T391;
745  T381:;  T391:;
746          base[2]= Cnil;          base[2]= Cnil;
747          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
748          bds_unwind1;          bds_unwind1;
# Line 751  object V67; Line 758  object V67;
758          bds_check;          bds_check;
759          goto TTL;          goto TTL;
760  TTL:;  TTL:;
761          if(!(equal(car((V67)),VV[47]))){          if(!(equal(car((V67)),VV[48]))){
762          goto T385;}          goto T395;}
763          bds_bind(VV[48],Ct);          bds_bind(VV[49],Ct);
764          {object V68 = (*(LnkLI289))(cdr((V67)));          {object V68 = (*(LnkLI290))(cdr((V67)));
765          bds_unwind1;          bds_unwind1;
766          VMR6(V68)}          VMR6(V68)}
767          goto T385;          goto T395;
768  T385:;  T395:;
769          {register object V69;          {register object V69;
770          register object V70;          register object V70;
771          V69= (V67);          V69= (V67);
772          V70= car((V69));          V70= car((V69));
773          goto T390;          goto T400;
774  T390:;  T400:;
775          if(!(endp_prop((V69)))){          if(!(endp_prop((V69)))){
776          goto T391;}          goto T401;}
777          {object V71 = Cnil;          {object V71 = Cnil;
778          VMR6(V71)}          VMR6(V71)}
779          goto T391;          goto T401;
780  T391:;  T401:;
781          base[1]= (V70);          base[1]= (V70);
782          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
783          (void) (*Lnk272)();          (void) (*Lnk273)();
784          vs_top=sup;          vs_top=sup;
785          V69= cdr((V69));          V69= cdr((V69));
786          V70= car((V69));          V70= car((V69));
787          goto T390;}          goto T400;}
788          base[0]=base[0];          base[0]=base[0];
789          return Cnil;          return Cnil;
790  }  }
# Line 801  TTL:; Line 808  TTL:;
808          register object V79;          register object V79;
809          V78= (V75);          V78= (V75);
810          V79= car((V78));          V79= car((V78));
811          goto T409;          goto T419;
812  T409:;  T419:;
813          if(!(endp_prop((V78)))){          if(!(endp_prop((V78)))){
814          goto T410;}          goto T420;}
815          goto T405;          goto T415;
816          goto T410;          goto T420;
817  T410:;  T420:;
818          {register object x= car((V79)),V80= (V77);          {register object x= car((V79)),V80= (V77);
819          while(!endp(V80))          while(!endp(V80))
820          if(eql(x,V80->c.c_car)){          if(eql(x,V80->c.c_car)){
821          V76= V80;          V76= V80;
822          goto T415;          goto T425;
823          }else V80=V80->c.c_cdr;          }else V80=V80->c.c_cdr;
824          V76= Cnil;}          V76= Cnil;}
825          goto T415;          goto T425;
826  T415:;  T425:;
827          if((V76)==Cnil){          if((V76)==Cnil){
828          goto T416;}          goto T426;}
829          {register object V81;          {register object V81;
830          register object V82;          register object V82;
831          V81= (V76);          V81= (V76);
832          V82= cadr((V79));          V82= cadr((V79));
833          if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81));          if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81));
834          ((V81))->c.c_car = (V82);}          ((V81))->c.c_car = (V82);}
835          goto T416;          goto T426;
836  T416:;  T426:;
837          V78= cdr((V78));          V78= cdr((V78));
838          V79= car((V78));          V79= car((V78));
839          goto T409;}          goto T419;}
840          goto T405;          goto T415;
841  T405:;  T415:;
842          {register object x= VV[49],V83= (V77);          {register object x= VV[50],V83= (V77);
843          while(!endp(V83))          while(!endp(V83))
844          if(eql(x,V83->c.c_car)){          if(eql(x,V83->c.c_car)){
845          V76= V83;          V76= V83;
846          goto T429;          goto T439;
847          }else V83=V83->c.c_cdr;          }else V83=V83->c.c_cdr;
848          V76= Cnil;}          V76= Cnil;}
849          goto T429;          goto T439;
850  T429:;  T439:;
851          if(((V76))==Cnil){          if(((V76))==Cnil){
852          goto T427;}          goto T437;}
853          {object V85;          {object V85;
854          V85= append((V75),cdr((V76)));          V85= append((V75),cdr((V76)));
855          if(type_of(V76)!=t_cons)FEwrong_type_argument(Scons,V76);          if(type_of(V76)!=t_cons)FEwrong_type_argument(Scons,V76);
856          (V76)->c.c_cdr = (V85);          (V76)->c.c_cdr = (V85);
857          goto T425;}          goto T435;}
858          goto T427;          goto T437;
859  T427:;  T437:;
860          V86= make_cons(VV[49],(V75));          V86= make_cons(VV[50],(V75));
861          V77= append((V77),/* INLINE-ARGS */V86);          V77= append((V77),/* INLINE-ARGS */V86);
862          goto T425;          goto T435;
863  T425:;  T435:;
864          {object V87 = listA(3,car((V74)),(V77),cddr((V74)));          {object V87 = listA(3,car((V74)),(V77),cddr((V74)));
865          VMR7(V87)}}          VMR7(V87)}}
866          base[0]=base[0];          base[0]=base[0];
# Line 869  object V89; Line 876  object V89;
876          goto TTL;          goto TTL;
877  TTL:;  TTL:;
878          {object V90;          {object V90;
879          V90= symbol_value(VV[50]);          V90= symbol_value(VV[51]);
880          bds_bind(VV[52],Cnil);          bds_bind(VV[53],Cnil);
881          if(endp_prop((V89))){          if(endp_prop((V89))){
882          goto T435;}          goto T445;}
883          if(!(endp_prop(cdr((V89))))){          if(!(endp_prop(cdr((V89))))){
884          goto T434;}          goto T444;}
885          goto T435;          goto T445;
886  T435:;  T445:;
887          V92 = make_fixnum((long)length((V89)));          V92 = make_fixnum((long)length((V89)));
888          (void)((*(LnkLI283))(VV[51],small_fixnum(2),V92));          (void)((*(LnkLI284))(VV[52],small_fixnum(2),V92));
         goto T434;  
 T434:;  
         if(type_of(car((V89)))==t_symbol){  
         goto T439;}  
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V89)))));  
         goto T439;  
 T439:;  
         V93= make_cons(VV[51],(V89));  
         (void)((*(LnkLI268))(Cnil,/* INLINE-ARGS */V93));  
889          goto T444;          goto T444;
890  T444:;  T444:;
891            if(type_of(car((V89)))==t_symbol){
892            goto T449;}
893            (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[54],car((V89)))));
894            goto T449;
895    T449:;
896            V93= make_cons(VV[52],(V89));
897            (void)((*(LnkLI269))(Cnil,/* INLINE-ARGS */V93));
898            goto T454;
899    T454:;
900          setq(VV[6],Ct);          setq(VV[6],Ct);
901          setq(VV[54],Cnil);          setq(VV[55],Cnil);
902          {register object V94;          {register object V94;
903          object V95;          object V95;
904          object V96;          object V96;
905          register object V97;{object V98;          register object V97;{object V98;
906          V98= get(car((V89)),VV[60],Cnil);          V98= get(car((V89)),VV[61],Cnil);
907          if(V98==Cnil)goto T451;          if(V98==Cnil)goto T461;
908          V95= V98;          V95= V98;
909          goto T450;          goto T460;
910          goto T451;          goto T461;
911  T451:;}  T461:;}
912          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1)));
913          V95= symbol_value(VV[61]);          V95= symbol_value(VV[62]);
914          goto T450;          goto T460;
915  T450:;  T460:;
916          V97= car((V89));          V97= car((V89));
         bds_bind(VV[55],Cnil);  
917          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
918          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
919          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
         V94= Cnil;  
920          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
921            V94= Cnil;
922            bds_bind(VV[60],Cnil);
923          V96= Cnil;          V96= Cnil;
924          V94= (VFUN_NARGS=2,(*(LnkLI290))(cdr((V89)),(V97)));          V94= (VFUN_NARGS=2,(*(LnkLI291))(cdr((V89)),(V97)));
925          if(!(eql((V90),symbol_value(VV[50])))){          if(!(eql((V90),symbol_value(VV[51])))){
926          goto T458;}          goto T468;}
927          goto T457;          goto T467;
928          goto T458;          goto T468;
929  T458:;  T468:;
930          (void)(structure_set(cadr((V94)),VV[62],4,Ct));          (void)(structure_set(cadr((V94)),VV[63],4,Ct));
931          goto T457;          goto T467;
932  T457:;  T467:;
933          V99= structure_ref(cadr((V94)),VV[62],1);          V99= structure_ref(cadr((V94)),VV[63],1);
934          (void)((*(LnkLI291))(/* INLINE-ARGS */V99));          (void)((*(LnkLI292))(/* INLINE-ARGS */V99));
935          if((get((V97),VV[63],Cnil))==Cnil){          if((get((V97),VV[64],Cnil))==Cnil){
936          goto T461;}          goto T471;}
937          {object V100;          {object V100;
938          V100= make_fixnum((long)length(car(caddr((V94)))));          V100= make_fixnum((long)length(car(caddr((V94)))));
939          (void)(sputprop((V97),VV[63],(V100)));          (void)(sputprop((V97),VV[64],(V100)));
940          base[6]= (V100);          base[6]= (V100);
941          base[7]= VV[65];          base[7]= VV[66];
942          base[8]= Ct;          base[8]= Ct;
943          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
944          Lmake_list();          Lmake_list();
945          vs_top=sup;          vs_top=sup;
946          V101= vs_base[0];          V101= vs_base[0];
947          V102= list(4,VV[64],(V97),V101,Ct);          V102= list(4,VV[65],(V97),V101,Ct);
948          (void)((*(LnkLI292))(/* INLINE-ARGS */V102));}          (void)((*(LnkLI293))(/* INLINE-ARGS */V102));}
949          goto T461;          goto T471;
950  T461:;  T471:;
951          if((get((V97),VV[66],Cnil))==Cnil){          if((get((V97),VV[67],Cnil))==Cnil){
952          goto T472;}          goto T482;}
953          {object V103;          {object V103;
954          register object V104;          register object V104;
955          V103= caddr((V94));          V103= caddr((V94));
956          V104= Cnil;          V104= Cnil;
957          if((cadr((V103)))==Cnil){          if((cadr((V103)))==Cnil){
958          goto T477;}          goto T487;}
959          goto T472;          goto T482;
960          goto T477;          goto T487;
961  T477:;  T487:;
962          if((caddr((V103)))==Cnil){          if((caddr((V103)))==Cnil){
963          goto T479;}          goto T489;}
964          goto T472;          goto T482;
965          goto T479;          goto T489;
966  T479:;  T489:;
967          if((cadddr((V103)))==Cnil){          if((cadddr((V103)))==Cnil){
968          goto T481;}          goto T491;}
969          goto T472;          goto T482;
970          goto T481;          goto T491;
971  T481:;  T491:;
972          if(((long)length(car((V103))))<(64)){          if(((long)length(car((V103))))<(64)){
973          goto T483;}          goto T493;}
974          goto T472;          goto T482;
975          goto T483;          goto T493;
976  T483:;  T493:;
977          {register object V105;          {register object V105;
978          register object V106;          register object V106;
979          object V107;          object V107;
980          V105= car((V103));          V105= car((V103));
981          V106= get((V97),VV[67],Cnil);          V106= get((V97),VV[68],Cnil);
982          V107= Cnil;          V107= Cnil;
983          goto T490;          goto T500;
984  T490:;  T500:;
985          if(!(endp_prop((V105)))){          if(!(endp_prop((V105)))){
986          goto T491;}          goto T501;}
987          if(endp_prop((V106))){          if(endp_prop((V106))){
988          goto T494;}          goto T504;}
989          goto T486;          goto T496;
990          goto T494;          goto T504;
991  T494:;  T504:;
992          if(((V104))==Cnil){          if(((V104))==Cnil){
993          goto T497;}          goto T507;}
994          V89= (*(LnkLI293))((V89),(V104));          V89= (*(LnkLI294))((V89),(V104));
995          bds_unwind1;          bds_unwind1;
996          bds_unwind1;          bds_unwind1;
997          bds_unwind1;          bds_unwind1;
998          bds_unwind1;          bds_unwind1;
999          bds_unwind1;          bds_unwind1;
1000          goto T444;          goto T454;
1001          goto T497;          goto T507;
1002  T497:;  T507:;
1003          if(((V107))==Cnil){          if(((V107))==Cnil){
1004          goto T485;}          goto T495;}
1005          goto T486;          goto T496;
1006          goto T491;          goto T501;
1007  T491:;  T501:;
1008          {register object V108;          {register object V108;
1009          V108= car((V105));          V108= car((V105));
1010          if(!(equal(car((V106)),VV[68]))){          if(!(equal(car((V106)),VV[69]))){
1011          goto T504;}          goto T514;}
1012          goto T486;          goto T496;
1013          goto T504;          goto T514;
1014  T504:;  T514:;
1015          V109= structure_ref((V108),VV[69],1);          V109= structure_ref((V108),VV[70],1);
1016          if((/* INLINE-ARGS */V109)==(VV[70])){          if((/* INLINE-ARGS */V109)==(VV[71])){
1017          goto T510;}          goto T520;}
1018          V110= structure_ref((V108),VV[69],1);          V110= structure_ref((V108),VV[70],1);
1019          if(!((/* INLINE-ARGS */V110)==(VV[71]))){          if(!((/* INLINE-ARGS */V110)==(VV[72]))){
1020          goto T509;}          goto T519;}
1021          if(!((car((V106)))==(Ct))){          if(!((car((V106)))==(Ct))){
1022          goto T509;}          goto T519;}
1023          goto T510;          goto T520;
1024  T510:;  T520:;
1025          if((structure_ref((V108),VV[69],3))!=Cnil){          if((structure_ref((V108),VV[70],3))!=Cnil){
1026          goto T509;}          goto T519;}
1027          V111= structure_ref((V108),VV[69],4);          V111= structure_ref((V108),VV[70],4);
1028          if(!((/* INLINE-ARGS */V111)==(VV[72]))){          if(!((/* INLINE-ARGS */V111)==(VV[73]))){
1029          goto T508;}          goto T518;}
1030          goto T509;          goto T519;
1031  T509:;  T519:;
1032          {object V112;          {object V112;
1033          V113= structure_ref((V108),VV[69],0);          V113= structure_ref((V108),VV[70],0);
1034          vs_base=vs_top;          vs_base=vs_top;
1035          Lgensym();          Lgensym();
1036          vs_top=sup;          vs_top=sup;
1037          V114= vs_base[0];          V114= vs_base[0];
1038          V112= list(2,/* INLINE-ARGS */V113,V114);          V112= list(2,/* INLINE-ARGS */V113,V114);
1039          V104= make_cons((V112),(V104));}          V104= make_cons((V112),(V104));}
1040          goto T508;          goto T518;
1041  T508:;  T518:;
1042          V115= car((V106));          V115= car((V106));
1043          V116= structure_ref((V108),VV[69],5);          V116= structure_ref((V108),VV[70],5);
1044          if(((*(LnkLI294))(/* INLINE-ARGS */V115,/* INLINE-ARGS */V116))==Cnil){          if(((*(LnkLI295))(/* INLINE-ARGS */V115,/* INLINE-ARGS */V116))==Cnil){
1045          goto T507;}          goto T517;}
1046          {register object x= car((V106)),V117= VV[73];          {register object x= car((V106)),V117= VV[74];
1047          while(!endp(V117))          while(!endp(V117))
1048          if(eql(x,V117->c.c_car)){          if(eql(x,V117->c.c_car)){
1049          goto T502;          goto T512;
1050          }else V117=V117->c.c_cdr;}          }else V117=V117->c.c_cdr;}
1051          V118= structure_ref((V108),VV[69],4);          V118= structure_ref((V108),VV[70],4);
1052          if((/* INLINE-ARGS */V118)==(VV[74])){          if((/* INLINE-ARGS */V118)==(VV[75])){
1053          goto T502;}          goto T512;}
1054          if((symbol_value(VV[75]))!=Cnil){          if((symbol_value(VV[76]))!=Cnil){
1055          goto T502;}          goto T512;}
1056          V120= structure_ref(cadr((V94)),VV[62],0);          V120= structure_ref(cadr((V94)),VV[63],0);
1057          {register object x= (V108),V119= /* INLINE-ARGS */V120;          {register object x= (V108),V119= /* INLINE-ARGS */V120;
1058          while(!endp(V119))          while(!endp(V119))
1059          if(eql(x,V119->c.c_car)){          if(eql(x,V119->c.c_car)){
1060          goto T532;          goto T542;
1061          }else V119=V119->c.c_cdr;          }else V119=V119->c.c_cdr;
1062          goto T502;}          goto T512;}
1063          goto T532;          goto T542;
1064  T532:;  T542:;
1065          goto T507;          goto T517;
1066  T507:;  T517:;
1067          if(((V104))!=Cnil){          if(((V104))!=Cnil){
1068          goto T533;}          goto T543;}
1069          V121= structure_ref((V108),VV[69],0);          V121= structure_ref((V108),VV[70],0);
1070          (void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V97),/* INLINE-ARGS */V121)));          (void)((VFUN_NARGS=3,(*(LnkLI267))(VV[77],(V97),/* INLINE-ARGS */V121)));
1071          goto T533;          goto T543;
1072  T533:;  T543:;
1073          V107= Ct;}          V107= Ct;}
1074          goto T502;          goto T512;
1075  T502:;  T512:;
1076          V105= cdr((V105));          V105= cdr((V105));
1077          V106= cdr((V106));          V106= cdr((V106));
1078          goto T490;}          goto T500;}
1079          goto T486;          goto T496;
1080  T486:;  T496:;
1081          goto T472;          goto T482;
1082          goto T485;          goto T495;
1083  T485:;  T495:;
1084          if(!(type_of((V95))==t_fixnum||          if(!(type_of((V95))==t_fixnum||
1085  type_of((V95))==t_bignum||  type_of((V95))==t_bignum||
1086  type_of((V95))==t_ratio||  type_of((V95))==t_ratio||
1087  type_of((V95))==t_shortfloat||  type_of((V95))==t_shortfloat||
1088  type_of((V95))==t_longfloat||  type_of((V95))==t_longfloat||
1089  type_of((V95))==t_complex)){  type_of((V95))==t_complex)){
1090          goto T472;}}          goto T482;}}
1091          {object V122;          {object V122;
1092          V123= get((V97),VV[67],Cnil);          V123= get((V97),VV[68],Cnil);
1093          V124= get((V97),VV[77],Cnil);          V124= get((V97),VV[78],Cnil);
1094          V125= get((V97),VV[67],Cnil);          V125= get((V97),VV[68],Cnil);
1095          V122= list(5,(V97),V123,V124,small_fixnum(3),(*(LnkLI295))((V95),V125));          V122= list(5,(V97),V123,V124,small_fixnum(3),(*(LnkLI296))((V95),V125));
1096          setq(VV[78],make_cons((V122),symbol_value(VV[78])));          setq(VV[79],make_cons((V122),symbol_value(VV[79])));
1097          goto T470;}          goto T480;}
1098          goto T472;          goto T482;
1099  T472:;  T482:;
1100          {object V126;          {object V126;
1101          V127= get((V97),VV[77],Cnil);          V127= get((V97),VV[78],Cnil);
1102          V126= ((V127)==(Ct)?Ct:Cnil);          V126= ((V127)==(Ct)?Ct:Cnil);
1103          if(((V126))==Cnil){          if(((V126))==Cnil){
1104          goto T470;}}          goto T480;}}
1105          goto T470;          goto T480;
1106  T470:;  T480:;
1107          if((cadddr((V94)))==Cnil){          if((cadddr((V94)))==Cnil){
1108          goto T550;}          goto T560;}
1109          V96= cadddr((V94));          V96= cadddr((V94));
1110          goto T550;          goto T560;
1111  T550:;  T560:;
1112          (void)((*(LnkLI296))());          (void)((*(LnkLI297))());
1113          {object V128;          {object V128;
1114          V128= list(6,VV[51],(V97),(V95),(V94),(V96),(VV[59]->s.s_dbind));          V128= list(6,VV[52],(V97),(V95),(V94),(V96),(VV[60]->s.s_dbind));
1115          setq(VV[24],make_cons((V128),symbol_value(VV[24])));}          setq(VV[25],make_cons((V128),symbol_value(VV[25])));}
1116          {object V129;          {object V129;
1117          V129= make_cons((V97),(V95));          V129= make_cons((V97),(V95));
1118          setq(VV[79],make_cons((V129),symbol_value(VV[79])));          setq(VV[80],make_cons((V129),symbol_value(VV[80])));
1119          V130= symbol_value(VV[79]);          V130= symbol_value(VV[80]);
1120          bds_unwind1;          bds_unwind1;
1121          bds_unwind1;          bds_unwind1;
1122          bds_unwind1;          bds_unwind1;
# Line 1130  object V134;object V135; Line 1137  object V134;object V135;
1137          goto TTL;          goto TTL;
1138  TTL:;  TTL:;
1139          if(((V135))!=Cnil){          if(((V135))!=Cnil){
1140          goto T561;}          goto T571;}
1141          base[0]= Cnil;          base[0]= Cnil;
1142          base[1]= VV[80];          base[1]= VV[81];
1143          base[2]= (V134);          base[2]= (V134);
1144          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1145          Lformat();          Lformat();
1146          vs_top=sup;          vs_top=sup;
1147          {object V136 = vs_base[0];          {object V136 = vs_base[0];
1148          VMR9(V136)}          VMR9(V136)}
1149          goto T561;          goto T571;
1150  T561:;  T571:;
1151          {register object V137;          {register object V137;
1152          V137= (VFUN_NARGS=7,(*(LnkLI297))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));          V137= (VFUN_NARGS=7,(*(LnkLI298))(small_fixnum(100),VV[82],VV[83],VV[84],small_fixnum(0),VV[85],Ct));
1153          base[0]= (V137);          base[0]= (V137);
1154          base[1]= VV[85];          base[1]= VV[86];
1155          base[2]= (V134);          base[2]= (V134);
1156          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1157          Lformat();          Lformat();
# Line 1153  T561:; Line 1160  T561:;
1160          register long V139;          register long V139;
1161          V139= 0;          V139= 0;
1162          V138= (V135);          V138= (V135);
1163          goto T574;          goto T584;
1164  T574:;  T584:;
1165          if(!(endp_prop(cdr((V138))))){          if(!(endp_prop(cdr((V138))))){
1166          goto T575;}          goto T585;}
1167          base[0]= (V137);          base[0]= (V137);
1168          base[1]= VV[86];          base[1]= VV[87];
1169          base[2]= make_fixnum(V139);          base[2]= make_fixnum(V139);
1170          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1171          Lformat();          Lformat();
1172          vs_top=sup;          vs_top=sup;
1173          goto T571;          goto T581;
1174          goto T575;          goto T585;
1175  T575:;  T585:;
1176          base[0]= (V137);          base[0]= (V137);
1177          base[1]= VV[87];          base[1]= VV[88];
1178          base[2]= make_fixnum(V139);          base[2]= make_fixnum(V139);
1179          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1180          Lformat();          Lformat();
1181          vs_top=sup;          vs_top=sup;
1182          V138= cdr((V138));          V138= cdr((V138));
1183          V139= (long)(V139)+1;          V139= (long)(V139)+1;
1184          goto T574;}          goto T584;}
1185          goto T571;          goto T581;
1186  T571:;  T581:;
1187          {object V140 = (V137);          {object V140 = (V137);
1188          VMR9(V140)}}          VMR9(V140)}}
1189          base[0]=base[0];          base[0]=base[0];
# Line 1189  static object LI10(object first,...) Line 1196  static object LI10(object first,...)
1196          va_list ap;          va_list ap;
1197          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
1198          {object V141;          {object V141;
         Vcs[0]=Vcs[0];  
1199          va_start(ap,first);          va_start(ap,first);
1200          narg = narg - 0;          narg = narg - 0;
1201          if (narg <= 0) goto T590;          if (narg <= 0) goto T600;
1202          else {          else {
1203          V141= first;}          V141= first;}
1204          --narg; goto T591;          --narg; goto T601;
1205          goto T590;          goto T600;
1206  T590:;  T600:;
1207          V141= Cnil;          V141= Cnil;
1208          goto T591;          goto T601;
1209  T591:;  T601:;
1210          {object V142;          {object V142;
1211          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
1212          V142= symbol_value(VV[88]);          V142= symbol_value(VV[89]);
1213          {object V143;          {object V143;
1214          if(((V141))==Cnil){          if(((V141))==Cnil){
1215          goto T598;}          goto T608;}
1216          V143= make_cons((V141),(V142));          V143= make_cons((V141),(V142));
1217          goto T596;          goto T606;
1218          goto T598;          goto T608;
1219  T598:;  T608:;
1220          V143= (V142);          V143= (V142);
1221          goto T596;          goto T606;
1222  T596:;  T606:;
1223          setq(VV[18],make_cons((V143),symbol_value(VV[18])));}          setq(VV[19],make_cons((V143),symbol_value(VV[19])));}
1224          {object V144 = (V142);          {object V144 = (V142);
1225          VMR10(V144)}}          VMR10(V144)}}
1226          va_end(ap);          va_end(ap);
# Line 1230  register object V146; Line 1236  register object V146;
1236          goto TTL;          goto TTL;
1237  TTL:;  TTL:;
1238          base[0]= (V146);          base[0]= (V146);
1239          base[1]= VV[69];          base[1]= VV[70];
1240          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1241          (void) (*Lnk298)();          (void) (*Lnk299)();
1242          vs_top=sup;          vs_top=sup;
1243          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1244          goto T601;}          goto T611;}
1245          V146= structure_ref((V146),VV[69],5);          V146= structure_ref((V146),VV[70],5);
1246          goto T601;          goto T611;
1247  T601:;  T611:;
1248          if(((V146))==Cnil){          if(((V146))==Cnil){
1249          goto T608;}          goto T618;}
1250          base[0]= (V146);          base[0]= (V146);
1251          base[1]= VV[89];          base[1]= VV[90];
1252          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1253          (void) (*Lnk299)();          (void) (*Lnk300)();
1254          vs_top=sup;          vs_top=sup;
1255          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1256          goto T608;}          goto T618;}
1257          {long V147 = 1;          {long V147 = 1;
1258          VMR11((object)V147)}          VMR11((object)V147)}
1259          goto T608;          goto T618;
1260  T608:;  T618:;
1261          {long V148 = 0;          {long V148 = 0;
1262          VMR11((object)V148)}          VMR11((object)V148)}
1263          base[0]=base[0];          base[0]=base[0];
# Line 1270  TTL:; Line 1276  TTL:;
1276          register object V156;          register object V156;
1277          V153= (long)length((V151));          V153= (long)length((V151));
1278          V154= 8;          V154= 8;
1279          V155= make_fixnum((long)(*(LnkLI300))((V152)));          V155= make_fixnum((long)(*(LnkLI301))((V152)));
1280          V156= Ct;          V156= Ct;
1281          goto T618;          goto T628;
1282  T618:;  T628:;
1283          if(eql(small_fixnum(0),(V155))){          if(eql(small_fixnum(0),(V155))){
1284          goto T620;}          goto T630;}
1285          V153= (long)(V153)+((long)((fix((V155))) << (V154)));          V153= (long)(V153)+((long)((fix((V155))) << (V154)));
1286          goto T620;          goto T630;
1287  T620:;  T630:;
1288          if(((V156))==Cnil){          if(((V156))==Cnil){
1289          goto T624;}          goto T634;}
1290          V154= 10;          V154= 10;
1291          V156= Cnil;          V156= Cnil;
1292          goto T624;          goto T634;
1293  T624:;  T634:;
1294          if(((V151))!=Cnil){          if(((V151))!=Cnil){
1295          goto T630;}          goto T640;}
1296          {long V157 = V153;          {long V157 = V153;
1297          VMR12((object)V157)}          VMR12((object)V157)}
1298          goto T630;          goto T640;
1299  T630:;  T640:;
1300          V154= (long)(V154)+(2);          V154= (long)(V154)+(2);
1301          {register object V159;          {register object V159;
1302          V159= car((V151));          V159= car((V151));
1303          V151= cdr((V151));          V151= cdr((V151));
1304          V158= (V159);}          V158= (V159);}
1305          V155= make_fixnum((long)(*(LnkLI300))(V158));          V155= make_fixnum((long)(*(LnkLI301))(V158));
1306          goto T618;}          goto T628;}
1307  }  }
1308  /*      local entry for function WT-IF-PROCLAIMED       */  /*      local entry for function WT-IF-PROCLAIMED       */
1309    
# Line 1307  register object V163;object V164;object Line 1313  register object V163;object V164;object
1313  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1314          goto TTL;          goto TTL;
1315  TTL:;  TTL:;
1316          if(((VFUN_NARGS=1,(*(LnkLI302))((V163))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI303))((V163))))==Cnil){
1317          goto T642;}          goto T652;}
1318          {register object x= (V163),V166= symbol_value(VV[78]);          {register object x= (V163),V166= symbol_value(VV[79]);
1319          while(!endp(V166))          while(!endp(V166))
1320          if(type_of(V166->c.c_car)==t_cons &&eql(x,V166->c.c_car->c.c_car)){          if(type_of(V166->c.c_car)==t_cons &&eql(x,V166->c.c_car->c.c_car)){
1321          goto T646;          goto T656;
1322          }else V166=V166->c.c_cdr;          }else V166=V166->c.c_cdr;
1323          goto T645;}          goto T655;}
1324          goto T646;          goto T656;
1325  T646:;  T656:;
1326          V167= list(2,VV[91],(V163));          V167= list(2,VV[92],(V163));
1327          V168= (*(LnkLI304))(VV[92],(V164));          V168= (*(LnkLI305))(VV[93],(V164));
1328          V169= get((V163),VV[67],Cnil);          V169= get((V163),VV[68],Cnil);
1329          V170= get((V163),VV[77],Cnil);          V170= get((V163),VV[78],Cnil);
1330          V171 = make_fixnum((long)(*(LnkLI305))(V169,V170));          V171 = make_fixnum((long)(*(LnkLI306))(V169,V170));
1331          V172= list(4,VV[90],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,V171);          V172= list(4,VV[91],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,V171);
1332          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V172)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V172)));
1333          {object V173 = Ct;          {object V173 = Ct;
1334          VMR13(V173)}          VMR13(V173)}
1335          goto T645;          goto T655;
1336  T645:;  T655:;
1337          {register object V174;          {register object V174;
1338          register object V175;          register object V175;
1339          object V176;          object V176;
1340          V174= make_fixnum((long)length(car(caddr((V165)))));          V174= make_fixnum((long)length(car(caddr((V165)))));
1341          V177= get((V163),VV[67],Cnil);          V177= get((V163),VV[68],Cnil);
1342          V175= make_fixnum((long)length(V177));          V175= make_fixnum((long)length(V177));
1343          V179= get((V163),VV[67],Cnil);          V179= get((V163),VV[68],Cnil);
1344          {register object x= VV[68],V178= V179;          {register object x= VV[69],V178= V179;
1345          while(!endp(V178))          while(!endp(V178))
1346          if(eql(x,V178->c.c_car)){          if(eql(x,V178->c.c_car)){
1347          V176= V178;          V176= V178;
1348          goto T654;          goto T664;
1349          }else V178=V178->c.c_cdr;          }else V178=V178->c.c_cdr;
1350          V176= Cnil;}          V176= Cnil;}
1351          goto T654;          goto T664;
1352  T654:;  T664:;
1353          if(((V176))==Cnil){          if(((V176))==Cnil){
1354          goto T657;}          goto T667;}
1355          base[0]= (V174);          base[0]= (V174);
1356          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1357          Lmonotonically_nonincreasing();          Lmonotonically_nonincreasing();
1358          vs_top=sup;          vs_top=sup;
1359          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1360          goto T659;}          goto T669;}
1361          goto T650;          goto T660;
1362          goto T659;          goto T669;
1363  T659:;{object V180;  T669:;{object V180;
1364          V181 = make_fixnum((long)length((V176)));          V181 = make_fixnum((long)length((V176)));
1365          V180= number_minus((V175),V181);          V180= number_minus((V175),V181);
1366          if(V180==Cnil)goto T662;          if(V180==Cnil)goto T672;
1367          goto T650;          goto T660;
1368          goto T662;          goto T672;
1369  T662:;}  T672:;}
1370          V182 = make_fixnum((long)length((V176)));          V182 = make_fixnum((long)length((V176)));
1371          V183= number_minus((V175),V182);          V183= number_minus((V175),V182);
1372          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V163),/* INLINE-ARGS */V183,(V174))));          (void)((VFUN_NARGS=4,(*(LnkLI267))(VV[94],(V163),/* INLINE-ARGS */V183,(V174))));
1373          goto T650;          goto T660;
1374          goto T657;          goto T667;
1375  T657:;  T667:;
1376          if(eql((V174),(V175))){          if(eql((V174),(V175))){
1377          goto T665;}          goto T675;}
1378          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V163),(V175),(V174))));          (void)((VFUN_NARGS=4,(*(LnkLI267))(VV[95],(V163),(V175),(V174))));
1379          goto T650;          goto T660;
1380          goto T665;          goto T675;
1381  T665:;  T675:;
1382          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V163))));}          (void)((VFUN_NARGS=2,(*(LnkLI267))(VV[96],(V163))));}
1383          goto T650;          goto T660;
1384  T650:;  T660:;
1385          {object V184 = Cnil;          {object V184 = Cnil;
1386          VMR13(V184)}          VMR13(V184)}
1387          goto T642;          goto T652;
1388  T642:;  T652:;
1389          {object V185 = Cnil;          {object V185 = Cnil;
1390          VMR13(V185)}          VMR13(V185)}
1391          base[0]=base[0];          base[0]=base[0];
# Line 1393  object V187; Line 1399  object V187;
1399  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1400          goto TTL;          goto TTL;
1401  TTL:;  TTL:;
1402          if((structure_ref((V187),VV[62],4))==Cnil){          if((structure_ref((V187),VV[63],4))==Cnil){
1403          goto T668;}          goto T678;}
1404          {object V188 = VV[96];          {object V188 = VV[97];
1405          VMR14(V188)}          VMR14(V188)}
1406          goto T668;          goto T678;
1407  T668:;  T678:;
1408          {object V189 = VV[97];          {object V189 = VV[98];
1409          VMR14(V189)}          VMR14(V189)}
1410          return Cnil;          return Cnil;
1411  }  }
# Line 1411  object V191; Line 1417  object V191;
1417  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1418          goto TTL;          goto TTL;
1419  TTL:;  TTL:;
1420          if(!(equal(symbol_value(VV[20]),VV[98]))){          if(!(equal(symbol_value(VV[21]),VV[99]))){
1421          goto T671;}          goto T681;}
1422          {long V192= fix(structure_ref((V191),VV[69],6));          {long V192= fix(structure_ref((V191),VV[70],6));
1423          if(!((/* INLINE-ARGS */V192)>=(fix(symbol_value(VV[99]))))){          if(!((/* INLINE-ARGS */V192)>=(fix(symbol_value(VV[100]))))){
1424          goto T671;}}          goto T681;}}
1425          {object V193 = VV[100];          {object V193 = VV[101];
1426          VMR15(V193)}          VMR15(V193)}
1427          goto T671;          goto T681;
1428  T671:;  T681:;
1429          {object V194 = VV[101];          {object V194 = VV[102];
1430          VMR15(V194)}          VMR15(V194)}
1431          return Cnil;          return Cnil;
1432  }  }
# Line 1432  object V196; Line 1438  object V196;
1438  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1439          goto TTL;          goto TTL;
1440  TTL:;  TTL:;
1441          V197= get((V196),VV[77],Cnil);          V197= get((V196),VV[78],Cnil);
1442          if(equal(V197,Ct)){          if(equal(V197,Ct)){
1443          goto T675;}          goto T685;}
1444          {object V198 = Cnil;          {object V198 = Cnil;
1445          VMR16(V198)}          VMR16(V198)}
1446          goto T675;          goto T685;
1447  T675:;  T685:;
1448          {register object V199;          {register object V199;
1449          V199= get((V196),VV[67],Cnil);          V199= get((V196),VV[68],Cnil);
1450          goto T680;          goto T690;
1451  T680:;  T690:;
1452          if(((V199))!=Cnil){          if(((V199))!=Cnil){
1453          goto T681;}          goto T691;}
1454          {object V200 = Ct;          {object V200 = Ct;
1455          VMR16(V200)}          VMR16(V200)}
1456          goto T681;          goto T691;
1457  T681:;  T691:;
1458          if(!(type_of((V199))==t_cons)){          if(!(type_of((V199))==t_cons)){
1459          goto T686;}          goto T696;}
1460          goto T685;          goto T695;
1461          goto T686;          goto T696;
1462  T686:;  T696:;
1463          {object V201 = Cnil;          {object V201 = Cnil;
1464          VMR16(V201)}          VMR16(V201)}
1465          goto T685;          goto T695;
1466  T685:;  T695:;
1467          if(!((car((V199)))==(Ct))){          if(!((car((V199)))==(Ct))){
1468          goto T689;}          goto T699;}
1469          goto T688;          goto T698;
1470          goto T689;          goto T699;
1471  T689:;  T699:;
1472          if(!((car((V199)))==(VV[68]))){          if(!((car((V199)))==(VV[69]))){
1473          goto T691;}          goto T701;}
1474          goto T688;          goto T698;
1475          goto T691;          goto T701;
1476  T691:;  T701:;
1477          {object V202 = Cnil;          {object V202 = Cnil;
1478          VMR16(V202)}          VMR16(V202)}
1479          goto T688;          goto T698;
1480  T688:;  T698:;
1481          V199= cdr((V199));          V199= cdr((V199));
1482          goto T680;}          goto T690;}
1483          return Cnil;          return Cnil;
1484  }  }
1485  /*      local entry for function MAXARGS        */  /*      local entry for function MAXARGS        */
# Line 1485  register object V204; Line 1491  register object V204;
1491          goto TTL;          goto TTL;
1492  TTL:;  TTL:;
1493          if((cadddr((V204)))!=Cnil){          if((cadddr((V204)))!=Cnil){
1494          goto T696;}          goto T706;}
1495          if((caddr((V204)))==Cnil){          if((caddr((V204)))==Cnil){
1496          goto T697;}          goto T707;}
1497          goto T696;          goto T706;
1498  T696:;  T706:;
1499          {object V205 = small_fixnum(64);          {object V205 = small_fixnum(64);
1500          VMR17(V205)}          VMR17(V205)}
1501          goto T697;          goto T707;
1502  T697:;  T707:;
1503          base[0]= make_fixnum((long)length(car((V204))));          base[0]= make_fixnum((long)length(car((V204))));
1504          base[1]= make_fixnum((long)length(cadr((V204))));          base[1]= make_fixnum((long)length(cadr((V204))));
1505          V206 = make_fixnum((long)length(car(cddddr((V204)))));          V206 = make_fixnum((long)length(car(cddddr((V204)))));
# Line 1516  object V210;object V211; Line 1522  object V210;object V211;
1522  TTL:;  TTL:;
1523          {object V212;          {object V212;
1524          V212= list(2,(V210),(V211));          V212= list(2,(V210),(V211));
1525          setq(VV[21],make_cons((V212),symbol_value(VV[21])));}          setq(VV[22],make_cons((V212),symbol_value(VV[22])));}
1526          {object V213;          {object V213;
1527          V213= symbol_value(VV[22]);          V213= symbol_value(VV[23]);
1528          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[23],number_plus(symbol_value(VV[23]),small_fixnum(1)));
1529          {object V214 = (V213);          {object V214 = (V213);
1530          VMR18(V214)}}          VMR18(V214)}}
1531          base[0]=base[0];          base[0]=base[0];
# Line 1533  register object V220;register object V22 Line 1539  register object V220;register object V22
1539  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1540          goto TTL;          goto TTL;
1541  TTL:;  TTL:;
1542          if((get((V220),VV[102],Cnil))==Cnil){          if((get((V220),VV[103],Cnil))==Cnil){
1543          goto T709;}          goto T719;}
1544          {object V225 = Cnil;          {object V225 = Cnil;
1545          VMR19(V225)}          VMR19(V225)}
1546          goto T709;          goto T719;
1547  T709:;  T719:;
1548          if(((V223))==Cnil){          if(((V223))==Cnil){
1549          goto T712;}          goto T722;}
1550          V226= list(4,VV[103],list(2,VV[91],(V220)),(V223),VV[104]);          V226= list(4,VV[104],list(2,VV[92],(V220)),(V223),VV[105]);
1551          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V226)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V226)));
1552          goto T712;          goto T722;
1553  T712:;  T722:;
1554          {object V227;          {object V227;
1555          V227= (*(LnkLI306))((V220),(V221),(V222));          V227= (*(LnkLI307))((V220),(V221),(V222));
1556          if(((V227))==Cnil){          if(((V227))==Cnil){
1557          goto T718;}          goto T728;}
1558          goto T715;          goto T725;
1559          goto T718;          goto T728;
1560  T718:;  T728:;
1561          if(((*(LnkLI307))((V220)))==Cnil){          if(((*(LnkLI308))((V220)))==Cnil){
1562          goto T721;}          goto T731;}
1563          {object V228;          {object V228;
1564          V228= cadddr(caddr((V222)));          V228= cadddr(caddr((V222)));
1565          if(((V228))==Cnil){          if(((V228))==Cnil){
1566          goto T725;}          goto T735;}
1567          V229= list(2,VV[91],(V220));          V229= list(2,VV[92],(V220));
1568          V230= (*(LnkLI304))(VV[106],(V221));          V230= (*(LnkLI305))(VV[107],(V221));
1569          V231 = make_fixnum((long)length(car(caddr((V222)))));          V231 = make_fixnum((long)length(car(caddr((V222)))));
1570          V232= (*(LnkLI308))(caddr((V222)));          V232= (*(LnkLI309))(caddr((V222)));
1571          V233= (*(LnkLI301))(/* INLINE-ARGS */V232,small_fixnum(8));          V233= (*(LnkLI302))(/* INLINE-ARGS */V232,small_fixnum(8));
1572          V234= number_plus(V231,/* INLINE-ARGS */V233);          V234= number_plus(V231,/* INLINE-ARGS */V233);
1573          base[0]= Cnil;          base[0]= Cnil;
1574          base[1]= VV[107];          base[1]= VV[108];
1575          base[2]= (V221);          base[2]= (V221);
1576          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1577          Lformat();          Lformat();
1578          vs_top=sup;          vs_top=sup;
1579          V235= vs_base[0];          V235= vs_base[0];
1580          V236= list(5,VV[105],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,/* INLINE-ARGS */V234,(*(LnkLI304))(V235,VV[108]));          V236= list(5,VV[106],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,/* INLINE-ARGS */V234,(*(LnkLI305))(V235,VV[109]));
1581          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V236)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V236)));
         goto T715;  
1582          goto T725;          goto T725;
1583  T725:;          goto T735;
1584          V237= list(2,VV[91],(V220));  T735:;
1585          V238= (*(LnkLI304))(VV[110],(V221));          V237= list(2,VV[92],(V220));
1586            V238= (*(LnkLI305))(VV[111],(V221));
1587          V239 = make_fixnum((long)length(car(caddr((V222)))));          V239 = make_fixnum((long)length(car(caddr((V222)))));
1588          V240= (*(LnkLI308))(caddr((V222)));          V240= (*(LnkLI309))(caddr((V222)));
1589          V241= (*(LnkLI301))(/* INLINE-ARGS */V240,small_fixnum(8));          V241= (*(LnkLI302))(/* INLINE-ARGS */V240,small_fixnum(8));
1590          V242= list(4,VV[109],/* INLINE-ARGS */V237,/* INLINE-ARGS */V238,number_plus(V239,/* INLINE-ARGS */V241));          V242= list(4,VV[110],/* INLINE-ARGS */V237,/* INLINE-ARGS */V238,number_plus(V239,/* INLINE-ARGS */V241));
1591          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V242)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V242)));
1592          goto T715;}          goto T725;}
1593          goto T721;          goto T731;
1594  T721:;  T731:;
1595          if(!(type_of((V221))==t_fixnum||          if(!(type_of((V221))==t_fixnum||
1596  type_of((V221))==t_bignum||  type_of((V221))==t_bignum||
1597  type_of((V221))==t_ratio||  type_of((V221))==t_ratio||
1598  type_of((V221))==t_shortfloat||  type_of((V221))==t_shortfloat||
1599  type_of((V221))==t_longfloat||  type_of((V221))==t_longfloat||
1600  type_of((V221))==t_complex)){  type_of((V221))==t_complex)){
1601          goto T732;}          goto T742;}
1602          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[32]);
1603          (void)((*(LnkLI277))((V221)));          (void)((*(LnkLI278))((V221)));
1604          princ_str("();",VV[31]);          princ_str("();",VV[32]);
1605          V243= list(2,VV[91],(V220));          V243= list(2,VV[92],(V220));
1606          V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI304))(VV[112],(V221)));          V244= list(3,VV[112],/* INLINE-ARGS */V243,(*(LnkLI305))(VV[113],(V221)));
1607          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V244)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V244)));
1608          goto T715;          goto T725;
1609          goto T732;          goto T742;
1610  T732:;  T742:;
1611          princ_char(10,VV[31]);          princ_char(10,VV[32]);
1612          (void)((*(LnkLI277))((V221)));          (void)((*(LnkLI278))((V221)));
1613          princ_str("();",VV[31]);          princ_str("();",VV[32]);
1614          V245= list(2,VV[91],(V220));          V245= list(2,VV[92],(V220));
1615          V246= list(3,VV[111],/* INLINE-ARGS */V245,(*(LnkLI304))(VV[113],(V221)));          V246= list(3,VV[112],/* INLINE-ARGS */V245,(*(LnkLI305))(VV[114],(V221)));
1616          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V246)));}          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V246)));}
1617          goto T715;          goto T725;
1618  T715:;  T725:;
1619          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){          if(!(number_compare(symbol_value(VV[115]),small_fixnum(2))<0)){
1620          goto T743;}          goto T753;}
1621          {object V247 = sputprop((V220),VV[115],Ct);          {object V247 = sputprop((V220),VV[116],Ct);
1622          VMR19(V247)}          VMR19(V247)}
1623          goto T743;          goto T753;
1624  T743:;  T753:;
1625          {object V248 = Cnil;          {object V248 = Cnil;
1626          VMR19(V248)}          VMR19(V248)}
1627          base[0]=base[0];          base[0]=base[0];
# Line 1629  object V251;object V252; Line 1635  object V251;object V252;
1635  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1636          goto TTL;          goto TTL;
1637  TTL:;  TTL:;
1638          {object V253 = putprop((V251),(V252),VV[116]);          {object V253 = putprop((V251),(V252),VV[117]);
1639          VMR20(V253)}          VMR20(V253)}
1640          return Cnil;          return Cnil;
1641  }  }
# Line 1644  register object V259;register object V26 Line 1650  register object V259;register object V26
1650  TTL:;  TTL:;
1651          {register object V264;          {register object V264;
1652          V264= Cnil;          V264= Cnil;
1653          bds_bind(VV[0],list(2,VV[51],(V259)));          bds_bind(VV[0],list(2,VV[52],(V259)));
1654          bds_bind(VV[20],(*(LnkLI309))(cadr((V261))));          bds_bind(VV[21],(*(LnkLI310))(cadr((V261))));
1655          bds_bind(VV[117],Cnil);          bds_bind(VV[118],Cnil);
1656          {register object V265;          {register object V265;
1657          register object V266;          register object V266;
1658          V265= symbol_value(VV[78]);          V265= symbol_value(VV[79]);
1659          V266= car((V265));          V266= car((V265));
1660          goto T755;          goto T765;
1661  T755:;  T765:;
1662          if(!(endp_prop((V265)))){          if(!(endp_prop((V265)))){
1663          goto T756;}          goto T766;}
1664          goto T750;          goto T760;
1665          goto T756;          goto T766;
1666  T756:;{object V267;  T766:;{object V267;
1667          base[4]= cadddr((V266));          base[4]= cadddr((V266));
1668          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1669          (void) (*Lnk310)();          (void) (*Lnk311)();
1670          vs_top=sup;          vs_top=sup;
1671          V267= vs_base[0];          V267= vs_base[0];
1672          if(V267==Cnil)goto T761;          if(V267==Cnil)goto T771;
1673          goto T760;          goto T770;
1674          goto T761;          goto T771;
1675  T761:;}  T771:;}
1676          base[4]= VV[118];          base[4]= VV[119];
1677          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1678          Lerror();          Lerror();
1679          vs_top=sup;          vs_top=sup;
1680          goto T760;          goto T770;
1681  T760:;  T770:;
1682          if((car((V266)))==((V259))){          if((car((V266)))==((V259))){
1683          goto T766;}          goto T776;}
1684          goto T765;          goto T775;
1685          goto T766;          goto T776;
1686  T766:;  T776:;
1687          if((cadr(cddddr((V266))))==Cnil){          if((cadr(cddddr((V266))))==Cnil){
1688          goto T768;}          goto T778;}
1689          goto T765;          goto T775;
1690          goto T768;          goto T778;
1691  T768:;  T778:;
1692          V264= (V266);          V264= (V266);
1693          if(((V264))==Cnil){          if(((V264))==Cnil){
1694          goto T750;}          goto T760;}
1695          goto T751;          goto T761;
1696          goto T765;          goto T775;
1697  T765:;  T775:;
1698          V265= cdr((V265));          V265= cdr((V265));
1699          V266= car((V265));          V266= car((V265));
1700          goto T755;}          goto T765;}
1701          goto T751;          goto T761;
1702  T751:;  T761:;
1703          if(((VFUN_NARGS=1,(*(LnkLI302))((V259))))!=Cnil){          if(((VFUN_NARGS=1,(*(LnkLI303))((V259))))!=Cnil){
1704          goto T776;}          goto T786;}
1705          {object V268;          {object V268;
1706          V268= list(4,(V259),(V260),cadr((V264)),caddr((V264)));          V268= list(4,(V259),(V260),cadr((V264)),caddr((V264)));
1707          setq(VV[29],make_cons((V268),symbol_value(VV[29])));}          setq(VV[30],make_cons((V268),symbol_value(VV[30])));}
1708          goto T776;          goto T786;
1709  T776:;  T786:;
1710          V269= structure_ref(cadr((V261)),VV[62],1);          V269= structure_ref(cadr((V261)),VV[63],1);
1711          (void)((*(LnkLI311))(/* INLINE-ARGS */V269,small_fixnum(0)));          (void)((*(LnkLI312))(/* INLINE-ARGS */V269,small_fixnum(0)));
1712          base[3]= VV[119];          base[3]= VV[120];
1713          {object V270= caddr((V264));          {object V270= caddr((V264));
1714          if((V270!= VV[89]))goto T784;          if((V270!= VV[90]))goto T794;
         base[4]= VV[120];  
         goto T783;  
         goto T784;  
 T784:;  
         if((V270!= VV[142]))goto T785;  
1715          base[4]= VV[121];          base[4]= VV[121];
1716          goto T783;          goto T793;
1717          goto T785;          goto T794;
1718  T785:;  T794:;
1719          if((V270!= VV[143]))goto T786;          if((V270!= VV[143]))goto T795;
1720          base[4]= VV[122];          base[4]= VV[122];
1721          goto T783;          goto T793;
1722          goto T786;          goto T795;
1723  T786:;  T795:;
1724          if((V270!= VV[144]))goto T787;          if((V270!= VV[144]))goto T796;
1725          base[4]= VV[123];          base[4]= VV[123];
1726          goto T783;          goto T793;
1727          goto T787;          goto T796;
1728  T787:;  T796:;
1729          base[4]= VV[124];}          if((V270!= VV[145]))goto T797;
1730          goto T783;          base[4]= VV[124];
1731  T783:;          goto T793;
1732            goto T797;
1733    T797:;
1734            base[4]= VV[125];}
1735            goto T793;
1736    T793:;
1737          base[5]= (V259);          base[5]= (V259);
1738          base[6]= (V260);          base[6]= (V260);
1739          base[7]= (V261);          base[7]= (V261);
1740          base[8]= (V263);          base[8]= (V263);
1741          base[9]= (V264);          base[9]= (V264);
1742          vs_top=(vs_base=base+3)+7;          vs_top=(vs_base=base+3)+7;
1743          (void) (*Lnk312)();          (void) (*Lnk313)();
1744          vs_top=sup;          vs_top=sup;
1745          goto T748;          goto T758;
1746          goto T750;          goto T760;
1747  T750:;  T760:;
1748          if(((*(LnkLI307))((V259)))==Cnil){          if(((*(LnkLI308))((V259)))==Cnil){
1749          goto T794;}          goto T804;}
1750          V271= structure_ref(cadr((V261)),VV[62],1);          V271= structure_ref(cadr((V261)),VV[63],1);
1751          (void)((*(LnkLI311))(/* INLINE-ARGS */V271,small_fixnum(0)));          (void)((*(LnkLI312))(/* INLINE-ARGS */V271,small_fixnum(0)));
1752          base[3]= VV[125];          base[3]= VV[126];
1753          base[4]= VV[124];          base[4]= VV[125];
1754          base[5]= (V259);          base[5]= (V259);
1755          base[6]= (V260);          base[6]= (V260);
1756          base[7]= (V261);          base[7]= (V261);
1757          base[8]= (V263);          base[8]= (V263);
1758          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1759          (void) (*Lnk312)();          (void) (*Lnk313)();
1760          vs_top=sup;          vs_top=sup;
1761          goto T748;          goto T758;
1762          goto T794;          goto T804;
1763  T794:;  T804:;
1764          V272= structure_ref(cadr((V261)),VV[62],1);          V272= structure_ref(cadr((V261)),VV[63],1);
1765          (void)((*(LnkLI311))(/* INLINE-ARGS */V272,small_fixnum(2)));          (void)((*(LnkLI312))(/* INLINE-ARGS */V272,small_fixnum(2)));
1766          base[3]= VV[126];          base[3]= VV[127];
1767          base[4]= VV[127];          base[4]= VV[128];
1768          base[5]= (V259);          base[5]= (V259);
1769          base[6]= (V260);          base[6]= (V260);
1770          base[7]= (V261);          base[7]= (V261);
1771          base[8]= (V263);          base[8]= (V263);
1772          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1773          (void) (*Lnk312)();          (void) (*Lnk313)();
1774          vs_top=sup;          vs_top=sup;
1775          goto T748;          goto T758;
1776  T748:;  T758:;
1777          (void)((*(LnkLI313))((V260)));          (void)((*(LnkLI314))((V260)));
1778          {object V273 = (*(LnkLI314))((V259),(V261));          {object V273 = (*(LnkLI315))((V259),(V261));
1779          bds_unwind1;          bds_unwind1;
1780          bds_unwind1;          bds_unwind1;
1781          bds_unwind1;          bds_unwind1;
# Line 1788  static void L22() Line 1794  static void L22()
1794          object V275;          object V275;
1795          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1796          V274=(base[0]);          V274=(base[0]);
1797          bds_bind(VV[128],base[1]);          bds_bind(VV[129],base[1]);
1798          vs_base=vs_base+2;          vs_base=vs_base+2;
1799          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1800          {object *p=vs_top;          {object *p=vs_top;
1801           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1802          V275=(base[2]);          V275=(base[2]);
1803          vs_top=sup;          vs_top=sup;
1804          bds_bind(VV[18],Cnil);          bds_bind(VV[19],Cnil);
         bds_bind(VV[129],small_fixnum(0));  
1805          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
1806          bds_bind(VV[131],small_fixnum(0));          bds_bind(VV[131],small_fixnum(0));
1807          bds_bind(VV[132],small_fixnum(0));          bds_bind(VV[132],small_fixnum(0));
1808          bds_bind(VV[133],Cnil);          bds_bind(VV[133],small_fixnum(0));
1809          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],Cnil);
1810          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
1811          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          bds_bind(VV[136],(VV[129]->s.s_dbind));
1812          bds_bind(VV[136],symbol_value(VV[137]));          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));
1813          bds_bind(VV[138],Cnil);          bds_bind(VV[137],symbol_value(VV[138]));
1814          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
1815          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
1816          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],Cnil);
1817            bds_bind(VV[142],small_fixnum(0));
1818          base[16]= (V274);          base[16]= (V274);
1819          {object V276;          {object V276;
1820          V276= (V275);          V276= (V275);
# Line 1851  TTL:; Line 1857  TTL:;
1857          object V290;          object V290;
1858          V290= cadr((V286));          V290= cadr((V286));
1859          V289= (V288);          V289= (V288);
1860          goto T821;          goto T831;
1861  T821:;  T831:;
1862          if(!(endp_prop((V289)))){          if(!(endp_prop((V289)))){
1863          goto T822;}          goto T832;}
1864          goto T818;          goto T828;
1865          goto T822;          goto T832;
1866  T822:;  T832:;
1867          V291= structure_ref(car((V289)),VV[69],1);          V291= structure_ref(car((V289)),VV[70],1);
1868          if(!((/* INLINE-ARGS */V291)==(VV[71]))){          if(!((/* INLINE-ARGS */V291)==(VV[72]))){
1869          goto T828;}          goto T838;}
1870          {object V292;          {object V292;
1871          V293= car((V289));          V293= car((V289));
1872          V294= structure_ref(car((V289)),VV[69],4);          V294= structure_ref(car((V289)),VV[70],4);
1873          V292= make_cons(/* INLINE-ARGS */V293,/* INLINE-ARGS */V294);          V292= make_cons(/* INLINE-ARGS */V293,/* INLINE-ARGS */V294);
1874          V287= make_cons((V292),(V287));          V287= make_cons((V292),(V287));
1875          goto T826;}          goto T836;}
1876          goto T828;          goto T838;
1877  T828:;  T838:;
1878          V295= car((V289));          V295= car((V289));
1879          {object V297= car((V290));          {object V297= car((V290));
1880          if((V297!= VV[89]))goto T833;          if((V297!= VV[90]))goto T843;
1881          V296= VV[89];          V296= VV[90];
1882          goto T832;          goto T842;
1883          goto T833;          goto T843;
1884  T833:;  T843:;
1885          if((V297!= VV[142]))goto T834;          if((V297!= VV[143]))goto T844;
         V296= VV[142];  
         goto T832;  
         goto T834;  
 T834:;  
         if((V297!= VV[143]))goto T835;  
1886          V296= VV[143];          V296= VV[143];
1887          goto T832;          goto T842;
1888          goto T835;          goto T844;
1889  T835:;  T844:;
1890          if((V297!= VV[144]))goto T836;          if((V297!= VV[144]))goto T845;
1891          V296= VV[144];          V296= VV[144];
1892          goto T832;          goto T842;
1893            goto T845;
1894    T845:;
1895            if((V297!= VV[145]))goto T846;
1896            V296= VV[145];
1897            goto T842;
1898            goto T846;
1899    T846:;
1900            V296= VV[75];}
1901            goto T842;
1902    T842:;
1903            (void)(structure_set(/* INLINE-ARGS */V295,VV[70],1,V296));
1904          goto T836;          goto T836;
1905  T836:;  T836:;
         V296= VV[74];}  
         goto T832;  
 T832:;  
         (void)(structure_set(/* INLINE-ARGS */V295,VV[69],1,V296));  
         goto T826;  
 T826:;  
1906          V298= car((V289));          V298= car((V289));
1907          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
1908          (void)(structure_set(/* INLINE-ARGS */V298,VV[69],4,symbol_value(VV[88])));          (void)(structure_set(/* INLINE-ARGS */V298,VV[70],4,symbol_value(VV[89])));
1909          V289= cdr((V289));          V289= cdr((V289));
1910          V290= cdr((V290));          V290= cdr((V290));
1911          goto T821;}          goto T831;}
1912          goto T818;          goto T828;
1913  T818:;  T828:;
1914          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[145],(V282))));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[146],(V282))));
1915          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[32]);
1916          base[1]= (*(LnkLI280))(caddr((V286)));          base[1]= (*(LnkLI281))(caddr((V286)));
1917          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1918          (void) (*Lnk281)();          (void) (*Lnk282)();
1919          vs_top=sup;          vs_top=sup;
1920          V299= vs_base[0];          V299= vs_base[0];
1921          (void)((*(LnkLI277))(V299));          (void)((*(LnkLI278))(V299));
1922          princ_str("LI",VV[31]);          princ_str("LI",VV[32]);
1923          (void)((*(LnkLI277))((V283)));          (void)((*(LnkLI278))((V283)));
1924          princ_str("();",VV[31]);          princ_str("();",VV[32]);
1925          princ_str("\nstatic ",VV[25]);          princ_str("\nstatic ",VV[26]);
1926          base[1]= (*(LnkLI280))(caddr((V286)));          base[1]= (*(LnkLI281))(caddr((V286)));
1927          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1928          (void) (*Lnk281)();          (void) (*Lnk282)();
1929          vs_top=sup;          vs_top=sup;
1930          V300= vs_base[0];          V300= vs_base[0];
1931          (void)((*(LnkLI274))(V300));          (void)((*(LnkLI275))(V300));
1932          princ_str("LI",VV[25]);          princ_str("LI",VV[26]);
1933          (void)((*(LnkLI274))((V283)));          (void)((*(LnkLI275))((V283)));
1934          princ_char(40,VV[25]);          princ_char(40,VV[26]);
1935          (void)((*(LnkLI316))((V288),cadr((V286))));          (void)((*(LnkLI317))((V288),cadr((V286))));
1936          {object V301;          {object V301;
1937          V301= symbol_value(VV[136]);          V301= symbol_value(VV[137]);
1938          if((symbol_value(VV[147]))==Cnil){          if((symbol_value(VV[148]))==Cnil){
1939          goto T864;}          goto T874;}
1940          base[1]= make_cons((V282),(V288));          base[1]= make_cons((V282),(V288));
1941          goto T862;          goto T872;
1942          goto T864;          goto T874;
1943  T864:;  T874:;
1944          base[1]= Cnil;          base[1]= Cnil;
1945          goto T862;          goto T872;
1946  T862:;  T872:;
1947          bds_bind(VV[146],base[1]);          bds_bind(VV[147],base[1]);
1948          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[135],symbol_value(VV[135]));
1949          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[26]);
1950          V302= structure_ref(cadr((V284)),VV[62],1);          V302= structure_ref(cadr((V284)),VV[63],1);
1951          (void)((*(LnkLI317))(/* INLINE-ARGS */V302,(V283),VV[148]));          (void)((*(LnkLI318))(/* INLINE-ARGS */V302,(V283),VV[149]));
1952          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[26]);
1953          (void)((*(LnkLI274))((V301)));          (void)((*(LnkLI275))((V301)));
1954          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[26]);
1955          (void)((*(LnkLI274))((V301)));          (void)((*(LnkLI275))((V301)));
1956          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[26]);
1957          (void)((*(LnkLI274))((V301)));          (void)((*(LnkLI275))((V301)));
1958          if(((V285))==Cnil){          if(((V285))==Cnil){
1959          goto T876;}          goto T886;}
1960          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[26]);
1961          goto T876;          goto T886;
1962  T876:;  T886:;
1963          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
1964          goto T880;}          goto T890;}
1965          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[26]);
1966          goto T880;          goto T890;
1967  T880:;  T890:;
1968          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[147]->s.s_dbind))==Cnil){
1969          goto T884;}          goto T894;}
1970          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind));
1971          princ_str("\n   goto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[26]);
1972          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[26]);
1973          goto T884;          goto T894;
1974  T884:;  T894:;
1975          {register object V304;          {register object V304;
1976          register object V305;          register object V305;
1977          V304= (V287);          V304= (V287);
1978          V305= car((V304));          V305= car((V304));
1979          goto T896;          goto T906;
1980  T896:;  T906:;
1981          if(!(endp_prop((V304)))){          if(!(endp_prop((V304)))){
1982          goto T897;}          goto T907;}
1983          goto T892;          goto T902;
1984          goto T897;          goto T907;
1985  T897:;  T907:;
1986          princ_str("\n   bds_bind(VV[",VV[25]);          princ_str("\n   bds_bind(VV[",VV[26]);
1987          (void)((*(LnkLI274))(cdr((V305))));          (void)((*(LnkLI275))(cdr((V305))));
1988          princ_str("],V",VV[25]);          princ_str("],V",VV[26]);
1989          V306= structure_ref(car((V305)),VV[69],4);          V306= structure_ref(car((V305)),VV[70],4);
1990          (void)((*(LnkLI274))(/* INLINE-ARGS */V306));          (void)((*(LnkLI275))(/* INLINE-ARGS */V306));
1991          princ_str(");",VV[25]);          princ_str(");",VV[26]);
1992          (VV[134]->s.s_dbind)= make_cons(VV[151],(VV[134]->s.s_dbind));          (VV[135]->s.s_dbind)= make_cons(VV[152],(VV[135]->s.s_dbind));
1993          (void)(structure_set(car((V305)),VV[69],1,VV[71]));          (void)(structure_set(car((V305)),VV[70],1,VV[72]));
1994          (void)(structure_set(car((V305)),VV[69],4,cdr((V305))));          (void)(structure_set(car((V305)),VV[70],4,cdr((V305))));
1995          V304= cdr((V304));          V304= cdr((V304));
1996          V305= car((V304));          V305= car((V304));
1997          goto T896;}          goto T906;}
1998          goto T892;          goto T902;
1999  T892:;  T902:;
2000          base[3]= caddr(cddr((V284)));          base[3]= caddr(cddr((V284)));
2001          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2002          (void) (*Lnk318)();          (void) (*Lnk319)();
2003          vs_top=sup;          vs_top=sup;
2004          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
2005          goto T920;}          goto T930;}
2006          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[139]))!=Cnil){
2007          goto T920;}          goto T930;}
2008          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[141]))!=Cnil){
2009          goto T920;}          goto T930;}
2010          goto T918;          goto T928;
2011          goto T920;          goto T930;
2012  T920:;  T930:;
2013          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[26]);
2014          goto T918;          goto T928;
2015  T918:;  T928:;
2016          V308= (*(LnkLI280))(caddr((V286)));          V308= (*(LnkLI281))(caddr((V286)));
2017          if(!(equal(VV[152],/* INLINE-ARGS */V308))){          if(!(equal(VV[153],/* INLINE-ARGS */V308))){
2018          goto T927;}          goto T937;}
2019          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[26]);
2020          goto T927;          goto T937;
2021  T927:;  T937:;
2022          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
2023          {object V309 = (*(LnkLI319))((V301),caddr((V286)));          {object V309 = (*(LnkLI320))((V301),caddr((V286)));
2024          bds_unwind1;          bds_unwind1;
2025          bds_unwind1;          bds_unwind1;
2026          VMR23(V309)}}}          VMR23(V309)}}}
# Line 2029  object V311; Line 2035  object V311;
2035  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2036          goto TTL;          goto TTL;
2037  TTL:;  TTL:;
2038          if((symbol_value(VV[153]))==Cnil){          if((symbol_value(VV[154]))==Cnil){
2039          goto T934;}          goto T944;}
2040          V312= (*(LnkLI320))();          V312= (*(LnkLI321))();
2041          {object V313 = structure_set((V311),VV[69],2,/* INLINE-ARGS */V312);          {object V313 = structure_set((V311),VV[70],2,/* INLINE-ARGS */V312);
2042          VMR24(V313)}          VMR24(V313)}
2043          goto T934;          goto T944;
2044  T934:;  T944:;
2045          V314= (*(LnkLI321))();          V314= (*(LnkLI322))();
2046          {object V315 = structure_set((V311),VV[69],2,/* INLINE-ARGS */V314);          {object V315 = structure_set((V311),VV[70],2,/* INLINE-ARGS */V314);
2047          VMR24(V315)}          VMR24(V315)}
2048          return Cnil;          return Cnil;
2049  }  }
# Line 2059  TTL:; Line 2065  TTL:;
2065          object V330;          object V330;
2066          object V331;          object V331;
2067          V324= Cnil;          V324= Cnil;
2068          bds_bind(VV[153],Cnil);          bds_bind(VV[154],Cnil);
2069          base[1]= Cnil;          base[1]= Cnil;
2070          V325= Cnil;          V325= Cnil;
2071          V326= Ct;          V326= Ct;
2072          V327= Cnil;          V327= Cnil;
2073          bds_bind(VV[154],small_fixnum(0));          bds_bind(VV[155],small_fixnum(0));
2074          V328= Cnil;          V328= Cnil;
2075          V329= caddr((V322));          V329= caddr((V322));
2076          V330= Cnil;{object V332;          V330= Cnil;{object V332;
2077          V332= caddr((V329));          V332= caddr((V329));
2078          if(V332==Cnil)goto T944;          if(V332==Cnil)goto T954;
2079          V331= V332;          V331= V332;
2080          goto T943;          goto T953;
2081          goto T944;          goto T954;
2082  T944:;}{object V333;  T954:;}{object V333;
2083          V333= cadr((V329));          V333= cadr((V329));
2084          if(V333==Cnil)goto T946;          if(V333==Cnil)goto T956;
2085          V331= V333;          V331= V333;
2086          goto T943;          goto T953;
2087          goto T946;          goto T956;
2088  T946:;}  T956:;}
2089          V331= cadddr((V329));          V331= cadddr((V329));
2090          goto T943;          goto T953;
2091  T943:;  T953:;
2092          {object V334;          {object V334;
2093          register object V335;          register object V335;
2094          V334= car((V329));          V334= car((V329));
2095          V335= car((V334));          V335= car((V334));
2096          goto T952;          goto T962;
2097  T952:;  T962:;
2098          if(!(endp_prop((V334)))){          if(!(endp_prop((V334)))){
2099          goto T953;}          goto T963;}
2100          goto T948;          goto T958;
2101          goto T953;          goto T963;
2102  T953:;  T963:;
2103          {object V336;          {object V336;
2104          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
2105          V336= list(2,VV[155],symbol_value(VV[88]));          V336= list(2,VV[156],symbol_value(VV[89]));
2106          V324= make_cons((V336),(V324));}          V324= make_cons((V336),(V324));}
2107          V334= cdr((V334));          V334= cdr((V334));
2108          V335= car((V334));          V335= car((V334));
2109          goto T952;}          goto T962;}
2110          goto T948;          goto T958;
2111  T948:;  T958:;
2112          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[156],(V320))));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[157],(V320))));
2113          {object V337;          {object V337;
2114          V337= VV[157];          V337= VV[158];
2115          princ_str("\nstatic object LI",VV[25]);          princ_str("\nstatic object LI",VV[26]);
2116          (void)((*(LnkLI274))((V321)));          (void)((*(LnkLI275))((V321)));
2117          princ_char(40,VV[25]);          princ_char(40,VV[26]);
2118          if(((V324))==Cnil){          if(((V324))==Cnil){
2119          goto T972;}          goto T982;}
2120          {object V338;          {object V338;
2121          V338= (V324);          V338= (V324);
2122          goto T976;          goto T986;
2123  T976:;  T986:;
2124          if(((V338))!=Cnil){          if(((V338))!=Cnil){
         goto T977;}  
         goto T972;  
         goto T977;  
 T977:;  
         princ_str("object ",VV[25]);  
         (void)((*(LnkLI274))(car((V338))));  
         V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[159]));  
         if(!((cdr((V338)))==Cnil)){  
2125          goto T987;}          goto T987;}
2126          goto T986;          goto T982;
2127          goto T987;          goto T987;
2128  T987:;  T987:;
2129          princ_char(44,VV[25]);          princ_str("object ",VV[26]);
2130          V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[160]));          (void)((*(LnkLI275))(car((V338))));
2131          goto T986;          V337= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V337),VV[160]));
2132  T986:;          if(!((cdr((V338)))==Cnil)){
2133            goto T997;}
2134            goto T996;
2135            goto T997;
2136    T997:;
2137            princ_char(44,VV[26]);
2138            V337= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V337),VV[161]));
2139            goto T996;
2140    T996:;
2141          V338= cdr((V338));          V338= cdr((V338));
2142          goto T976;}          goto T986;}
2143          goto T972;          goto T982;
2144  T972:;  T982:;
2145          if(((V331))==Cnil){          if(((V331))==Cnil){
2146          goto T995;}          goto T1005;}
2147          if(((V324))==Cnil){          if(((V324))==Cnil){
2148          goto T998;}          goto T1008;}
2149          princ_char(44,VV[25]);          princ_char(44,VV[26]);
2150          V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[161]));          V337= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V337),VV[162]));
2151          goto T998;          goto T1008;
2152  T998:;  T1008:;
2153          princ_str("object first,...",VV[25]);          princ_str("object first,...",VV[26]);
2154          V337= (VFUN_NARGS=3,(*(LnkLI322))(VV[158],(V337),VV[162]));          V337= (VFUN_NARGS=3,(*(LnkLI323))(VV[159],(V337),VV[163]));
2155          goto T995;          goto T1005;
2156  T995:;  T1005:;
2157          princ_char(41,VV[25]);          princ_char(41,VV[26]);
2158          princ_str("\nstatic object LI",VV[31]);          princ_str("\nstatic object LI",VV[32]);
2159          (void)((*(LnkLI277))((V321)));          (void)((*(LnkLI278))((V321)));
2160          princ_char(40,VV[31]);          princ_char(40,VV[32]);
2161          (void)((*(LnkLI277))((V337)));          (void)((*(LnkLI278))((V337)));
2162          princ_str(");",VV[31]);}          princ_str(");",VV[32]);}
2163          {object V339;          {object V339;
2164          V339= symbol_value(VV[136]);          V339= symbol_value(VV[137]);
2165          if(symbol_value(VV[147])==Cnil){          if(symbol_value(VV[148])==Cnil){
2166          base[5]= Cnil;          base[5]= Cnil;
2167          goto T1015;}          goto T1025;}
2168          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2169          goto T1016;}          goto T1026;}
2170          base[5]= Cnil;          base[5]= Cnil;
2171          goto T1015;          goto T1025;
2172          goto T1016;          goto T1026;
2173  T1016:;  T1026:;
2174          {object V340;          {object V340;
2175          object V341;          object V341;
2176          V340= car((V329));          V340= car((V329));
2177          V341= car((V340));          V341= car((V340));
2178          goto T1023;          goto T1033;
2179  T1023:;  T1033:;
2180          if(!(endp_prop((V340)))){          if(!(endp_prop((V340)))){
2181          goto T1024;}          goto T1034;}
         goto T1018;  
         goto T1024;  
 T1024:;  
         if((structure_ref((V341),VV[69],3))==Cnil){  
         goto T1028;}  
         goto T1019;  
2182          goto T1028;          goto T1028;
2183  T1028:;          goto T1034;
2184    T1034:;
2185            if((structure_ref((V341),VV[70],3))==Cnil){
2186            goto T1038;}
2187            goto T1029;
2188            goto T1038;
2189    T1038:;
2190          V340= cdr((V340));          V340= cdr((V340));
2191          V341= car((V340));          V341= car((V340));
2192          goto T1023;}          goto T1033;}
2193          goto T1019;          goto T1029;
2194  T1019:;  T1029:;
2195          base[5]= Cnil;          base[5]= Cnil;
2196          goto T1015;          goto T1025;
2197          goto T1018;          goto T1028;
2198  T1018:;  T1028:;
2199          if((cadr((V329)))==Cnil){          if((cadr((V329)))==Cnil){
2200          goto T1036;}          goto T1046;}
2201          base[5]= Cnil;          base[5]= Cnil;
2202          goto T1015;          goto T1025;
2203          goto T1036;          goto T1046;
2204  T1036:;  T1046:;
2205          if((car(cddddr((V329))))==Cnil){          if((car(cddddr((V329))))==Cnil){
2206          goto T1038;}          goto T1048;}
2207          base[5]= Cnil;          base[5]= Cnil;
2208          goto T1015;          goto T1025;
2209          goto T1038;          goto T1048;
2210  T1038:;  T1048:;
2211          base[5]= make_cons((V320),car((V329)));          base[5]= make_cons((V320),car((V329)));
2212          goto T1015;          goto T1025;
2213  T1015:;  T1025:;
2214          bds_bind(VV[146],base[5]);          bds_bind(VV[147],base[5]);
2215          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[135],symbol_value(VV[135]));
2216          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[26]);
2217          if(((V331))==Cnil){          if(((V331))==Cnil){
2218          goto T1042;}          goto T1052;}
2219          princ_str("\n   va_list ap;",VV[25]);          princ_str("\n   va_list ap;",VV[26]);
2220          goto T1042;          goto T1052;
2221  T1042:;  T1052:;
2222          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);          princ_str("\n   int narg = VFUN_NARGS;",VV[26]);
2223          V342= structure_ref(cadr((V322)),VV[62],1);          V342= structure_ref(cadr((V322)),VV[63],1);
2224          (void)((*(LnkLI317))(/* INLINE-ARGS */V342,(V321),VV[148]));          (void)((*(LnkLI318))(/* INLINE-ARGS */V342,(V321),VV[149]));
2225          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[26]);
2226          (void)((*(LnkLI274))((V339)));          (void)((*(LnkLI275))((V339)));
2227          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[26]);
2228          (void)((*(LnkLI274))((V339)));          (void)((*(LnkLI275))((V339)));
2229          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[26]);
2230          (void)((*(LnkLI274))((V339)));          (void)((*(LnkLI275))((V339)));
2231          if(((V323))==Cnil){          if(((V323))==Cnil){
2232          goto T1056;}          goto T1066;}
2233          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[26]);
2234          goto T1056;          goto T1066;
2235  T1056:;  T1066:;
2236          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
2237          goto T1060;}          goto T1070;}
2238          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[26]);
2239          goto T1060;          goto T1070;
2240  T1060:;  T1070:;
2241          if((V331)!=Cnil){          if((V331)!=Cnil){
2242          goto T1064;}          goto T1074;}
2243          princ_str("\n   if ( narg!= ",VV[25]);          princ_str("\n   if ( narg!= ",VV[26]);
2244          V343 = make_fixnum((long)length((V324)));          V343 = make_fixnum((long)length((V324)));
2245          (void)((*(LnkLI274))(V343));          (void)((*(LnkLI275))(V343));
2246          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]);          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[26]);
2247          V344 = make_fixnum((long)length((V324)));          V344 = make_fixnum((long)length((V324)));
2248          (void)((*(LnkLI274))(V344));          (void)((*(LnkLI275))(V344));
2249          princ_str("));",VV[25]);          princ_str("));",VV[26]);
2250          goto T1064;          goto T1074;
2251  T1064:;  T1074:;
2252          {object V345;          {object V345;
2253          object V346;          object V346;
2254          V345= car((V329));          V345= car((V329));
2255          V346= car((V345));          V346= car((V345));
2256          goto T1075;          goto T1085;
2257  T1075:;  T1085:;
2258          if(!(endp_prop((V345)))){          if(!(endp_prop((V345)))){
2259          goto T1076;}          goto T1086;}
2260          goto T1071;          goto T1081;
2261          goto T1076;          goto T1086;
2262  T1076:;  T1086:;
2263          base[9]= (V346);          base[9]= (V346);
2264          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2265          L26(base);          L26(base);
2266          vs_top=sup;          vs_top=sup;
2267          V345= cdr((V345));          V345= cdr((V345));
2268          V346= car((V345));          V346= car((V345));
2269          goto T1075;}          goto T1085;}
2270          goto T1071;          goto T1081;
2271  T1071:;  T1081:;
2272          {object V347;          {object V347;
2273          object V348;          object V348;
2274          V347= cadr((V329));          V347= cadr((V329));
2275          V348= car((V347));          V348= car((V347));
2276          goto T1091;          goto T1101;
2277  T1091:;  T1101:;
2278          if(!(endp_prop((V347)))){          if(!(endp_prop((V347)))){
2279          goto T1092;}          goto T1102;}
2280          goto T1087;          goto T1097;
2281          goto T1092;          goto T1102;
2282  T1092:;  T1102:;
2283          base[9]= car((V348));          base[9]= car((V348));
2284          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2285          L26(base);          L26(base);
2286          vs_top=sup;          vs_top=sup;
2287          if((caddr((V348)))==Cnil){          if((caddr((V348)))==Cnil){
2288          goto T1098;}          goto T1108;}
2289          base[9]= caddr((V348));          base[9]= caddr((V348));
2290          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2291          L26(base);          L26(base);
2292          vs_top=sup;          vs_top=sup;
2293          goto T1098;          goto T1108;
2294  T1098:;  T1108:;
2295          V347= cdr((V347));          V347= cdr((V347));
2296          V348= car((V347));          V348= car((V347));
2297          goto T1091;}          goto T1101;}
2298          goto T1087;          goto T1097;
2299  T1087:;  T1097:;
2300          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2301          goto T1107;}          goto T1117;}
2302          base[7]= caddr((V329));          base[7]= caddr((V329));
2303          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2304          L26(base);          L26(base);
2305          vs_top=sup;          vs_top=sup;
2306          goto T1107;          goto T1117;
2307  T1107:;  T1117:;
2308          {object V349;          {object V349;
2309          object V350;          object V350;
2310          V349= car(cddddr((V329)));          V349= car(cddddr((V329)));
2311          V350= car((V349));          V350= car((V349));
2312          goto T1114;          goto T1124;
2313  T1114:;  T1124:;
2314          if(!(endp_prop((V349)))){          if(!(endp_prop((V349)))){
2315          goto T1115;}          goto T1125;}
2316          goto T1070;          goto T1080;
2317          goto T1115;          goto T1125;
2318  T1115:;  T1125:;
2319          base[9]= cadr((V350));          base[9]= cadr((V350));
2320          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2321          L26(base);          L26(base);
2322          vs_top=sup;          vs_top=sup;
2323          if((cadddr((V350)))==Cnil){          if((cadddr((V350)))==Cnil){
2324          goto T1121;}          goto T1131;}
2325          base[9]= cadddr((V350));          base[9]= cadddr((V350));
2326          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2327          L26(base);          L26(base);
2328          vs_top=sup;          vs_top=sup;
2329          goto T1121;          goto T1131;
2330  T1121:;  T1131:;
2331          V349= cdr((V349));          V349= cdr((V349));
2332          V350= car((V349));          V350= car((V349));
2333          goto T1114;}          goto T1124;}
2334          goto T1070;          goto T1080;
2335  T1070:;  T1080:;
         if(((VV[153]->s.s_dbind))==Cnil){  
         goto T1132;}  
         goto T1130;  
         goto T1132;  
 T1132:;  
         princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);  
         goto T1130;  
 T1130:;  
2336          if((cadr((V329)))!=Cnil){          if((cadr((V329)))!=Cnil){
2337          goto T1136;}          goto T1141;}
2338          if((caddr((V329)))!=Cnil){          if((caddr((V329)))!=Cnil){
2339          goto T1136;}          goto T1141;}
2340          if((cadddr((V329)))==Cnil){          if((cadddr((V329)))==Cnil){
2341          goto T1135;}          goto T1140;}
2342          goto T1136;          goto T1141;
2343  T1136:;  T1141:;
2344          if(((V330))!=Cnil){          if(((V330))!=Cnil){
2345          goto T1135;}          goto T1140;}
2346          V330= Ct;          V330= Ct;
2347          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[26]);
2348          goto T1135;          goto T1140;
2349  T1135:;  T1140:;
2350          if((symbol_value(VV[163]))!=Cnil){          if((symbol_value(VV[164]))!=Cnil){
2351          goto T1149;}          goto T1154;}
2352          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[165]))==Cnil){
2353          goto T1147;}          goto T1152;}
2354          goto T1149;          goto T1154;
2355  T1149:;  T1154:;
2356          if((car((V329)))==Cnil){          if((car((V329)))==Cnil){
2357          goto T1147;}          goto T1152;}
2358          princ_str("\n   if(narg <",VV[25]);          princ_str("\n   if(narg <",VV[26]);
2359          V351 = make_fixnum((long)length(car((V329))));          V351 = make_fixnum((long)length(car((V329))));
2360          (void)((*(LnkLI274))(V351));          (void)((*(LnkLI275))(V351));
2361          princ_str(") too_few_arguments();",VV[25]);          princ_str(") too_few_arguments();",VV[26]);
2362          goto T1147;          goto T1152;
2363  T1147:;  T1152:;
2364          {object V352;          {object V352;
2365          object V353;          object V353;
2366          V352= car((V329));          V352= car((V329));
2367          V353= car((V352));          V353= car((V352));
2368          goto T1161;          goto T1166;
2369  T1161:;  T1166:;
2370          if(!(endp_prop((V352)))){          if(!(endp_prop((V352)))){
2371          goto T1162;}          goto T1167;}
         goto T1157;  
2372          goto T1162;          goto T1162;
2373  T1162:;          goto T1167;
2374          (void)((*(LnkLI323))((V353)));  T1167:;
2375            (void)((*(LnkLI324))((V353)));
2376          V352= cdr((V352));          V352= cdr((V352));
2377          V353= car((V352));          V353= car((V352));
2378          goto T1161;}          goto T1166;}
2379          goto T1157;          goto T1162;
2380  T1157:;  T1162:;
2381          {object V354;          {object V354;
2382          object V355;          object V355;
2383          V354= cadr((V329));          V354= cadr((V329));
2384          V355= car((V354));          V355= car((V354));
2385          goto T1176;          goto T1181;
2386  T1176:;  T1181:;
2387          if(!(endp_prop((V354)))){          if(!(endp_prop((V354)))){
2388          goto T1177;}          goto T1182;}
         goto T1172;  
2389          goto T1177;          goto T1177;
2390  T1177:;          goto T1182;
2391          (void)((*(LnkLI323))(car((V355))));  T1182:;
2392            (void)((*(LnkLI324))(car((V355))));
2393          V354= cdr((V354));          V354= cdr((V354));
2394          V355= car((V354));          V355= car((V354));
2395          goto T1176;}          goto T1181;}
2396          goto T1172;          goto T1177;
2397  T1172:;  T1177:;
2398          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2399          goto T1187;}          goto T1192;}
2400          (void)((*(LnkLI323))(caddr((V329))));          (void)((*(LnkLI324))(caddr((V329))));
2401          goto T1187;          goto T1192;
2402  T1187:;  T1192:;
2403          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[154]->s.s_dbind))==Cnil){
2404          goto T1193;}          goto T1198;}
2405          V327= symbol_value(VV[129]);          V327= symbol_value(VV[130]);
2406          goto T1191;          goto T1196;
2407          goto T1193;          goto T1198;
2408  T1193:;  T1198:;
2409          V327= symbol_value(VV[141]);          V327= symbol_value(VV[142]);
2410          goto T1191;          goto T1196;
2411  T1191:;  T1196:;
2412          {object V356;          {object V356;
2413          object V357;          object V357;
2414          V356= car(cddddr((V329)));          V356= car(cddddr((V329)));
2415          V357= car((V356));          V357= car((V356));
2416          goto T1199;          goto T1204;
2417  T1199:;  T1204:;
2418          if(!(endp_prop((V356)))){          if(!(endp_prop((V356)))){
2419          goto T1200;}          goto T1205;}
         goto T1195;  
2420          goto T1200;          goto T1200;
2421  T1200:;          goto T1205;
2422          (void)((*(LnkLI323))(cadr((V357))));  T1205:;
2423            (void)((*(LnkLI324))(cadr((V357))));
2424          V356= cdr((V356));          V356= cdr((V356));
2425          V357= car((V356));          V357= car((V356));
2426          goto T1199;}          goto T1204;}
2427          goto T1195;          goto T1200;
2428  T1195:;  T1200:;
2429          {object V358;          {object V358;
2430          object V359;          object V359;
2431          V358= car(cddddr((V329)));          V358= car(cddddr((V329)));
2432          V359= car((V358));          V359= car((V358));
2433          goto T1214;          goto T1219;
2434  T1214:;  T1219:;
2435          if(!(endp_prop((V358)))){          if(!(endp_prop((V358)))){
2436          goto T1215;}          goto T1220;}
         goto T1210;  
2437          goto T1215;          goto T1215;
2438  T1215:;          goto T1220;
2439          (void)((*(LnkLI323))(cadddr((V359))));  T1220:;
2440            (void)((*(LnkLI324))(cadddr((V359))));
2441          V358= cdr((V358));          V358= cdr((V358));
2442          V359= car((V358));          V359= car((V358));
2443          goto T1214;}          goto T1219;}
2444          goto T1210;          goto T1215;
2445  T1210:;  T1215:;
2446          {object V360;          {object V360;
2447          object V361;          object V361;
2448          V361= car((V329));          V361= car((V329));
2449          V360= (V324);          V360= (V324);
2450          goto T1228;          goto T1233;
2451  T1228:;  T1233:;
2452          if(((V360))!=Cnil){          if(((V360))!=Cnil){
2453          goto T1229;}          goto T1234;}
2454          goto T1225;          goto T1230;
2455          goto T1229;          goto T1234;
2456  T1229:;  T1234:;
2457          (void)((*(LnkLI324))(car((V361)),car((V360))));          (void)((*(LnkLI325))(car((V361)),car((V360))));
2458          V360= cdr((V360));          V360= cdr((V360));
2459          V361= cdr((V361));          V361= cdr((V361));
2460          goto T1228;}          goto T1233;}
2461          goto T1225;          goto T1230;
2462  T1225:;  T1230:;
2463          if((cadr((V329)))==Cnil){          if((cadr((V329)))==Cnil){
2464          goto T1238;}          goto T1243;}
2465            bds_bind(VV[134],symbol_value(VV[134]));
2466            bds_bind(VV[135],(VV[135]->s.s_dbind));
2467          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2468          bds_bind(VV[134],(VV[134]->s.s_dbind));          princ_str("\n   narg = narg - ",VV[26]);
         bds_bind(VV[132],symbol_value(VV[132]));  
         princ_str("\n   narg = narg - ",VV[25]);  
2469          V362 = make_fixnum((long)length((V324)));          V362 = make_fixnum((long)length((V324)));
2470          (void)((*(LnkLI274))(V362));          (void)((*(LnkLI275))(V362));
2471          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2472          {object V363;          {object V363;
2473          V363= Ct;          V363= Ct;
2474          {object V364;          {object V364;
2475          object V365;          object V365;
2476          V364= cadr((V329));          V364= cadr((V329));
2477          V365= car((V364));          V365= car((V364));
2478          goto T1249;          goto T1254;
2479  T1249:;  T1254:;
2480          if(!(endp_prop((V364)))){          if(!(endp_prop((V364)))){
2481          goto T1250;}          goto T1255;}
2482          bds_unwind1;          bds_unwind1;
2483          bds_unwind1;          bds_unwind1;
2484          bds_unwind1;          bds_unwind1;
2485          goto T1241;          goto T1246;
2486          goto T1250;          goto T1255;
2487  T1250:;  T1255:;
2488          {object V366;          {object V366;
2489          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));          setq(VV[166],number_plus(symbol_value(VV[166]),small_fixnum(1)));
2490          V366= make_cons(symbol_value(VV[165]),Cnil);          V366= make_cons(symbol_value(VV[166]),Cnil);
2491          V325= make_cons((V366),(V325));}          V325= make_cons((V366),(V325));}
2492          princ_str("\n   if (",VV[25]);          princ_str("\n   if (",VV[26]);
2493          if((cdr((V325)))==Cnil){          if((cdr((V325)))==Cnil){
2494          goto T1263;}          goto T1268;}
         V367= VV[166];  
         goto T1261;  
         goto T1263;  
 T1263:;  
2495          V367= VV[167];          V367= VV[167];
2496          goto T1261;          goto T1266;
2497  T1261:;          goto T1268;
2498          (void)((*(LnkLI274))(V367));  T1268:;
2499          princ_str("narg <= 0) ",VV[25]);          V367= VV[168];
2500            goto T1266;
2501    T1266:;
2502            (void)((*(LnkLI275))(V367));
2503            princ_str("narg <= 0) ",VV[26]);
2504          if(type_of(car((V325)))!=t_cons)FEwrong_type_argument(Scons,car((V325)));          if(type_of(car((V325)))!=t_cons)FEwrong_type_argument(Scons,car((V325)));
2505          (car((V325)))->c.c_cdr = Ct;          (car((V325)))->c.c_cdr = Ct;
2506          (void)(car((V325)));          (void)(car((V325)));
2507          princ_str("goto T",VV[25]);          princ_str("goto T",VV[26]);
2508          (void)((*(LnkLI274))(car(car((V325)))));          (void)((*(LnkLI275))(car(car((V325)))));
2509          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2510          princ_str("\n   else {",VV[25]);          princ_str("\n   else {",VV[26]);
2511          if(((V330))!=Cnil){          if(((V330))!=Cnil){
2512          goto T1273;}          goto T1278;}
2513          V330= Ct;          V330= Ct;
2514          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[26]);
2515          goto T1273;          goto T1278;
2516  T1273:;  T1278:;
2517          V368= car((V365));          V368= car((V365));
2518          if(((V363))==Cnil){          if(((V363))==Cnil){
2519          goto T1282;}          goto T1287;}
         V369= make_cons(VV[168],Cnil);  
         goto T1280;  
         goto T1282;  
 T1282:;  
2520          V369= make_cons(VV[169],Cnil);          V369= make_cons(VV[169],Cnil);
2521          goto T1280;          goto T1285;
2522  T1280:;          goto T1287;
2523          (void)((*(LnkLI324))(/* INLINE-ARGS */V368,V369));  T1287:;
2524            V369= make_cons(VV[170],Cnil);
2525            goto T1285;
2526    T1285:;
2527            (void)((*(LnkLI325))(/* INLINE-ARGS */V368,V369));
2528          V363= Cnil;          V363= Cnil;
2529          princ_char(125,VV[25]);          princ_char(125,VV[26]);
2530          if((caddr((V365)))==Cnil){          if((caddr((V365)))==Cnil){
2531          goto T1288;}          goto T1293;}
2532          (void)((*(LnkLI324))(caddr((V365)),Ct));          (void)((*(LnkLI325))(caddr((V365)),Ct));
2533          goto T1288;          goto T1293;
2534  T1288:;  T1293:;
2535          V364= cdr((V364));          V364= cdr((V364));
2536          V365= car((V364));          V365= car((V364));
2537          goto T1249;}}          goto T1254;}}
2538          goto T1241;          goto T1246;
2539  T1241:;  T1246:;
2540          V325= nreverse((V325));          V325= nreverse((V325));
2541          {object V370;          {object V370;
2542          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));          setq(VV[166],number_plus(symbol_value(VV[166]),small_fixnum(1)));
2543          V370= make_cons(symbol_value(VV[165]),Cnil);          V370= make_cons(symbol_value(VV[166]),Cnil);
2544          princ_str("\n   --narg; ",VV[25]);          princ_str("\n   --narg; ",VV[26]);
2545          if(type_of((V370))!=t_cons)FEwrong_type_argument(Scons,(V370));          if(type_of((V370))!=t_cons)FEwrong_type_argument(Scons,(V370));
2546          ((V370))->c.c_cdr = Ct;          ((V370))->c.c_cdr = Ct;
2547          princ_str("goto T",VV[25]);          princ_str("goto T",VV[26]);
2548          (void)((*(LnkLI274))(car((V370))));          (void)((*(LnkLI275))(car((V370))));
2549          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2550          {object V371;          {object V371;
2551          object V372;          object V372;
2552          V371= cadr((V329));          V371= cadr((V329));
2553          V372= car((V371));          V372= car((V371));
2554          goto T1311;          goto T1316;
2555  T1311:;  T1316:;
2556          if(!(endp_prop((V371)))){          if(!(endp_prop((V371)))){
2557          goto T1312;}          goto T1317;}
         goto T1307;  
2558          goto T1312;          goto T1312;
2559  T1312:;          goto T1317;
2560    T1317:;
2561          if((cdr(car((V325))))==Cnil){          if((cdr(car((V325))))==Cnil){
2562          goto T1316;}          goto T1321;}
2563          princ_str("\n   goto T",VV[25]);          princ_str("\n   goto T",VV[26]);
2564          (void)((*(LnkLI274))(car(car((V325)))));          (void)((*(LnkLI275))(car(car((V325)))));
2565          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2566          princ_str("\nT",VV[25]);          princ_str("\nT",VV[26]);
2567          (void)((*(LnkLI274))(car(car((V325)))));          (void)((*(LnkLI275))(car(car((V325)))));
2568          princ_str(":;",VV[25]);          princ_str(":;",VV[26]);
2569          goto T1316;          goto T1321;
2570  T1316:;  T1321:;
2571          {object V373;          {object V373;
2572          V373= car((V325));          V373= car((V325));
2573          V325= cdr((V325));}          V325= cdr((V325));}
2574          (void)((*(LnkLI325))(car((V372)),cadr((V372))));          (void)((*(LnkLI326))(car((V372)),cadr((V372))));
2575          if((caddr((V372)))==Cnil){          if((caddr((V372)))==Cnil){
2576          goto T1331;}          goto T1336;}
2577          (void)((*(LnkLI324))(caddr((V372)),Cnil));          (void)((*(LnkLI325))(caddr((V372)),Cnil));
2578          goto T1331;          goto T1336;
2579  T1331:;  T1336:;
2580          V371= cdr((V371));          V371= cdr((V371));
2581          V372= car((V371));          V372= car((V371));
2582          goto T1311;}          goto T1316;}
2583          goto T1307;          goto T1312;
2584  T1307:;  T1312:;
2585          if((cdr((V370)))==Cnil){          if((cdr((V370)))==Cnil){
2586          goto T1238;}          goto T1243;}
2587          princ_str("\n   goto T",VV[25]);          princ_str("\n   goto T",VV[26]);
2588          (void)((*(LnkLI274))(car((V370))));          (void)((*(LnkLI275))(car((V370))));
2589          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2590          princ_str("\nT",VV[25]);          princ_str("\nT",VV[26]);
2591          (void)((*(LnkLI274))(car((V370))));          (void)((*(LnkLI275))(car((V370))));
2592          princ_str(":;",VV[25]);}          princ_str(":;",VV[26]);}
2593          goto T1238;          goto T1243;
2594  T1238:;  T1243:;
2595          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2596          goto T1348;}          goto T1353;}
2597          V328= (VFUN_NARGS=0,(*(LnkLI326))());          V328= (VFUN_NARGS=0,(*(LnkLI327))());
2598          {object V374;          {object V374;
2599          V374= cadr((V329));          V374= cadr((V329));
2600          if(((V374))==Cnil){          if(((V374))==Cnil){
         goto T1356;}  
         goto T1353;  
         goto T1356;  
 T1356:;  
         princ_str("\n   narg= narg - ",VV[25]);  
         V375 = make_fixnum((long)length(car((V329))));  
         (void)((*(LnkLI274))(V375));  
         princ_char(59,VV[25]);}  
         goto T1353;  
 T1353:;  
         if(((V330))!=Cnil){  
2601          goto T1361;}          goto T1361;}
2602          V330= Ct;          goto T1358;
         princ_str("\n   va_start(ap,first);",VV[25]);  
2603          goto T1361;          goto T1361;
2604  T1361:;  T1361:;
2605          princ_str("\n   V",VV[25]);          princ_str("\n   narg= narg - ",VV[26]);
2606          (void)((*(LnkLI274))((V328)));          V375 = make_fixnum((long)length(car((V329))));
2607          princ_str(" = ",VV[25]);          (void)((*(LnkLI275))(V375));
2608          V376= structure_ref(caddr((V329)),VV[69],5);          princ_char(59,VV[26]);}
2609          if(!((/* INLINE-ARGS */V376)==(VV[171]))){          goto T1358;
2610          goto T1372;}  T1358:;
2611            if(((V330))!=Cnil){
2612            goto T1366;}
2613            V330= Ct;
2614            princ_str("\n   va_start(ap,first);",VV[26]);
2615            goto T1366;
2616    T1366:;
2617            princ_str("\n   V",VV[26]);
2618            (void)((*(LnkLI275))((V328)));
2619            princ_str(" = ",VV[26]);
2620            V376= structure_ref(caddr((V329)),VV[70],5);
2621            if(!((/* INLINE-ARGS */V376)==(VV[172]))){
2622            goto T1377;}
2623          base[7]= Ct;          base[7]= Ct;
2624          goto T1371;          goto T1376;
2625          goto T1372;          goto T1377;
2626  T1372:;  T1377:;
2627          base[7]= symbol_value(VV[170]);          base[7]= symbol_value(VV[171]);
         goto T1371;  
 T1371:;  
         bds_bind(VV[170],base[7]);  
         if((cadddr((V329)))==Cnil){  
         goto T1376;}  
         if(((VV[170]->s.s_dbind))==Cnil){  
         goto T1379;}  
         princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);  
         goto T1374;  
         goto T1379;  
 T1379:;  
         princ_str("make_list(narg);",VV[25]);  
         goto T1374;  
2628          goto T1376;          goto T1376;
2629  T1376:;  T1376:;
2630          if(((VV[170]->s.s_dbind))==Cnil){          bds_bind(VV[171],base[7]);
2631            if((cadddr((V329)))==Cnil){
2632            goto T1381;}
2633            if(((VV[171]->s.s_dbind))==Cnil){
2634          goto T1384;}          goto T1384;}
2635          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[26]);
2636          goto T1374;          goto T1379;
2637          goto T1384;          goto T1384;
2638  T1384:;  T1384:;
2639          princ_str("list_vector_new(narg,first,ap);",VV[25]);          princ_str("make_list(narg);",VV[26]);
2640          goto T1374;          goto T1379;
2641  T1374:;          goto T1381;
2642    T1381:;
2643            if(((VV[171]->s.s_dbind))==Cnil){
2644            goto T1389;}
2645            princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[26]);
2646            goto T1379;
2647            goto T1389;
2648    T1389:;
2649            princ_str("list_vector_new(narg,first,ap);",VV[26]);
2650            goto T1379;
2651    T1379:;
2652          V377= caddr((V329));          V377= caddr((V329));
2653          V378= list(2,VV[155],(V328));          V378= list(2,VV[156],(V328));
2654          V379= (*(LnkLI324))(/* INLINE-ARGS */V377,/* INLINE-ARGS */V378);          V379= (*(LnkLI325))(/* INLINE-ARGS */V377,/* INLINE-ARGS */V378);
2655          bds_unwind1;          bds_unwind1;
2656          goto T1348;          goto T1353;
2657  T1348:;  T1353:;
2658          if((cadddr((V329)))==Cnil){          if((cadddr((V329)))==Cnil){
2659          goto T1388;}          goto T1393;}
2660          {object V380;          {object V380;
2661          V380= caddr((V329));          V380= caddr((V329));
2662          if(((V380))==Cnil){          if(((V380))==Cnil){
2663          goto T1394;}          goto T1399;}
2664          goto T1391;          goto T1396;
2665          goto T1394;          goto T1399;
2666  T1394:;  T1399:;
2667          {object V381;          {object V381;
2668          V381= cadr((V329));          V381= cadr((V329));
2669          if(((V381))==Cnil){          if(((V381))==Cnil){
         goto T1398;}  
         goto T1391;  
         goto T1398;  
 T1398:;  
         princ_str("\n   narg= narg - ",VV[25]);  
         V382 = make_fixnum((long)length(car((V329))));  
         (void)((*(LnkLI274))(V382));  
         princ_char(59,VV[25]);}}  
         goto T1391;  
 T1391:;  
         if(((V330))!=Cnil){  
2670          goto T1403;}          goto T1403;}
2671          V330= Ct;          goto T1396;
         princ_str("\n   va_start(ap,first);",VV[25]);  
2672          goto T1403;          goto T1403;
2673  T1403:;  T1403:;
2674            princ_str("\n   narg= narg - ",VV[26]);
2675            V382 = make_fixnum((long)length(car((V329))));
2676            (void)((*(LnkLI275))(V382));
2677            princ_char(59,VV[26]);}}
2678            goto T1396;
2679    T1396:;
2680            if(((V330))!=Cnil){
2681            goto T1408;}
2682            V330= Ct;
2683            princ_str("\n   va_start(ap,first);",VV[26]);
2684            goto T1408;
2685    T1408:;
2686          {object V383;          {object V383;
2687          object V384= car(cddddr((V329)));          object V384= car(cddddr((V329)));
2688          if(endp(V384)){          if(endp(V384)){
2689          V326= Cnil;          V326= Cnil;
2690          goto T1410;}          goto T1415;}
2691          base[7]=V383=MMcons(Cnil,Cnil);          base[7]=V383=MMcons(Cnil,Cnil);
2692          goto T1411;          goto T1416;
2693  T1411:;  T1416:;
2694          (V383->c.c_car)= caddr((V384->c.c_car));          (V383->c.c_car)= caddr((V384->c.c_car));
2695          V384=MMcdr(V384);          V384=MMcdr(V384);
2696          if(endp(V384)){          if(endp(V384)){
2697          V326= base[7];          V326= base[7];
2698          goto T1410;}          goto T1415;}
2699          V383=MMcdr(V383)=MMcons(Cnil,Cnil);          V383=MMcdr(V383)=MMcons(Cnil,Cnil);
2700          goto T1411;}          goto T1416;}
2701          goto T1410;          goto T1415;
2702  T1410:;  T1415:;
2703          {object V385;          {object V385;
2704          object V386;          object V386;
2705          V386= make_fixnum((long)length(car(cddddr((V329)))));          V386= make_fixnum((long)length(car(cddddr((V329)))));
# Line 2712  T1410:; Line 2710  T1410:;
2710          V387= (V326);          V387= (V326);
2711          V388= car(cddddr((V329)));          V388= car(cddddr((V329)));
2712          V389= car((V388));          V389= car((V388));
2713          goto T1419;          goto T1424;
2714  T1419:;  T1424:;
2715          if(((V387))!=Cnil){          if(((V387))!=Cnil){
         goto T1420;}  
         goto T1414;  
         goto T1420;  
 T1420:;  
         if(!((caar((V387)))==(VV[172]))){  
2716          goto T1425;}          goto T1425;}
2717          if((caddr(car((V387))))==(Cnil)){          goto T1419;
         goto T1424;}  
2718          goto T1425;          goto T1425;
2719  T1425:;  T1425:;
2720            if(!((caar((V387)))==(VV[173]))){
2721            goto T1430;}
2722            if((caddr(car((V387))))==(Cnil)){
2723            goto T1429;}
2724            goto T1430;
2725    T1430:;
2726          V385= Ct;          V385= Ct;
2727          goto T1424;          goto T1429;
2728  T1424:;  T1429:;
2729          if(!((caar((V387)))==(VV[172]))){          if(!((caar((V387)))==(VV[173]))){
2730          goto T1431;}          goto T1436;}
2731          {object V390;          {object V390;
2732          V390= caddr(car((V387)));          V390= caddr(car((V387)));
2733          if(!(((V390))==(Cnil))){          if(!(((V390))==(Cnil))){
2734          goto T1437;}          goto T1442;}
2735          goto T1435;          goto T1440;
2736          goto T1437;          goto T1442;
2737  T1437:;  T1442:;
2738          if(type_of((V390))==t_cons){          if(type_of((V390))==t_cons){
2739          goto T1439;}          goto T1444;}
2740          goto T1431;          goto T1436;
2741          goto T1439;          goto T1444;
2742  T1439:;  T1444:;
2743          {register object x= car((V390)),V391= VV[173];          {register object x= car((V390)),V391= VV[174];
2744          while(!endp(V391))          while(!endp(V391))
2745          if(eql(x,V391->c.c_car)){          if(eql(x,V391->c.c_car)){
2746          goto T1435;          goto T1440;
2747          }else V391=V391->c.c_cdr;          }else V391=V391->c.c_cdr;
2748          goto T1431;}}          goto T1436;}}
2749          goto T1435;          goto T1440;
2750  T1435:;  T1440:;
2751          V392= structure_ref(cadddr((V389)),VV[69],1);          V392= structure_ref(cadddr((V389)),VV[70],1);
2752          if((/* INLINE-ARGS */V392)==(VV[174])){          if((/* INLINE-ARGS */V392)==(VV[175])){
2753          goto T1430;}          goto T1435;}
2754          goto T1431;          goto T1436;
2755  T1431:;  T1436:;
2756          V385= Ct;          V385= Ct;
2757          if(type_of(V387)!=t_cons)FEwrong_type_argument(Scons,V387);          if(type_of(V387)!=t_cons)FEwrong_type_argument(Scons,V387);
2758          (V387)->c.c_car = small_fixnum(0);          (V387)->c.c_car = small_fixnum(0);
2759          goto T1430;          goto T1435;
2760  T1430:;  T1435:;
2761          V387= cdr((V387));          V387= cdr((V387));
2762          V388= cdr((V388));          V388= cdr((V388));
2763          V389= car((V388));          V389= car((V388));
2764          goto T1419;}          goto T1424;}
2765          goto T1414;          goto T1419;
2766  T1414:;  T1419:;
2767          if(!(((long)length((V326)))>(15))){          if(!(((long)length((V326)))>(15))){
2768          goto T1452;}          goto T1457;}
2769          V385= Ct;          V385= Ct;
2770          goto T1452;          goto T1457;
2771  T1452:;  T1457:;
2772          princ_str("\n   {",VV[25]);          princ_str("\n   {",VV[26]);
2773          vs_base=vs_top;          vs_base=vs_top;
2774          (void) (*Lnk327)();          (void) (*Lnk328)();
2775          vs_top=sup;          vs_top=sup;
2776          bds_bind(VV[25],symbol_value(VV[31]));          bds_bind(VV[26],symbol_value(VV[32]));
2777          if(((V385))==Cnil){          if(((V385))==Cnil){
2778          goto T1460;}          goto T1465;}
2779          princ_char(10,VV[31]);          princ_char(10,VV[32]);
2780          princ_str("static object VK",VV[25]);          princ_str("static object VK",VV[26]);
2781          (void)((*(LnkLI274))((V321)));          (void)((*(LnkLI275))((V321)));
2782          princ_str("defaults[",VV[25]);          princ_str("defaults[",VV[26]);
2783          V395 = make_fixnum((long)length((V326)));          V395 = make_fixnum((long)length((V326)));
2784          (void)((*(LnkLI274))(V395));          (void)((*(LnkLI275))(V395));
2785          princ_str("]={",VV[25]);          princ_str("]={",VV[26]);
2786          {object V396;          {object V396;
2787          register object V397;          register object V397;
2788          V396= (V326);          V396= (V326);
2789          V397= Cnil;          V397= Cnil;
2790          goto T1472;          goto T1477;
2791  T1472:;  T1477:;
2792          if(((V396))!=Cnil){          if(((V396))!=Cnil){
2793          goto T1473;}          goto T1478;}
2794          goto T1470;          goto T1475;
2795          goto T1473;          goto T1478;
2796  T1473:;  T1478:;
2797          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[26]);
2798          if(!(eql(car((V396)),small_fixnum(0)))){          if(!(eql(car((V396)),small_fixnum(0)))){
2799          goto T1481;}          goto T1486;}
2800          princ_str("-1",VV[25]);          princ_str("-1",VV[26]);
2801          goto T1479;          goto T1484;
2802          goto T1481;          goto T1486;
2803  T1481:;  T1486:;
2804          V397= caddr(car((V396)));          V397= caddr(car((V396)));
2805          if(!(((V397))==(Cnil))){          if(!(((V397))==(Cnil))){
         goto T1485;}  
         princ_str("-2",VV[25]);  
         goto T1479;  
         goto T1485;  
 T1485:;  
         if(!(type_of((V397))==t_cons)){  
         goto T1490;}  
         if(!((car((V397)))==(VV[175]))){  
2806          goto T1490;}          goto T1490;}
2807          (void)((*(LnkLI274))(cadr((V397))));          princ_str("-2",VV[26]);
2808          goto T1479;          goto T1484;
2809          goto T1490;          goto T1490;
2810  T1490:;  T1490:;
2811          if(!(type_of((V397))==t_cons)){          if(!(type_of((V397))==t_cons)){
2812          goto T1496;}          goto T1495;}
2813          if(!((car((V397)))==(VV[176]))){          if(!((car((V397)))==(VV[176]))){
2814          goto T1496;}          goto T1495;}
2815          V398= (*(LnkLI328))(caddr((V397)));          (void)((*(LnkLI275))(cadr((V397))));
2816          (void)((*(LnkLI274))(/* INLINE-ARGS */V398));          goto T1484;
2817          goto T1479;          goto T1495;
2818          goto T1496;  T1495:;
2819  T1496:;          if(!(type_of((V397))==t_cons)){
         (void)((*(LnkLI329))());  
         goto T1479;  
 T1479:;  
         if((cdr((V396)))==Cnil){  
2820          goto T1501;}          goto T1501;}
2821          princ_char(44,VV[25]);          if(!((car((V397)))==(VV[177]))){
2822            goto T1501;}
2823            V398= (*(LnkLI329))(caddr((V397)));
2824            (void)((*(LnkLI275))(/* INLINE-ARGS */V398));
2825            goto T1484;
2826          goto T1501;          goto T1501;
2827  T1501:;  T1501:;
2828            (void)((*(LnkLI330))());
2829            goto T1484;
2830    T1484:;
2831            if((cdr((V396)))==Cnil){
2832            goto T1506;}
2833            princ_char(44,VV[26]);
2834            goto T1506;
2835    T1506:;
2836          V396= cdr((V396));          V396= cdr((V396));
2837          goto T1472;}          goto T1477;}
2838          goto T1470;          goto T1475;
2839  T1470:;  T1475:;
2840          princ_str("};",VV[25]);          princ_str("};",VV[26]);
2841          goto T1460;          goto T1465;
2842  T1460:;  T1465:;
2843          princ_char(10,VV[31]);          princ_char(10,VV[32]);
2844          princ_str("static struct { short n,allow_other_keys;",VV[25]);          princ_str("static struct { short n,allow_other_keys;",VV[26]);
2845          princ_str("object *defaults;",VV[25]);          princ_str("object *defaults;",VV[26]);
2846          princ_str("\n    KEYTYPE keys[",VV[25]);          princ_str("\n    KEYTYPE keys[",VV[26]);
2847          (void)((*(LnkLI274))((number_compare((V386),small_fixnum(1))>=0?((V386)):small_fixnum(1))));          (void)((*(LnkLI275))((number_compare((V386),small_fixnum(1))>=0?((V386)):small_fixnum(1))));
2848          princ_str("];",VV[25]);          princ_str("];",VV[26]);
2849          princ_str("} LI",VV[25]);          princ_str("} LI",VV[26]);
2850          (void)((*(LnkLI274))((V321)));          (void)((*(LnkLI275))((V321)));
2851          princ_str("key=",VV[25]);          princ_str("key=",VV[26]);
2852          princ_char(123,VV[25]);          princ_char(123,VV[26]);
2853          V399 = make_fixnum((long)length(car(cddddr((V329)))));          V399 = make_fixnum((long)length(car(cddddr((V329)))));
2854          (void)((*(LnkLI274))(V399));          (void)((*(LnkLI275))(V399));
2855          princ_char(44,VV[25]);          princ_char(44,VV[26]);
2856          if((cadr(cddddr((V329))))==Cnil){          if((cadr(cddddr((V329))))==Cnil){
         goto T1528;}  
         V400= small_fixnum(1);  
         goto T1526;  
         goto T1528;  
 T1528:;  
         V400= small_fixnum(0);  
         goto T1526;  
 T1526:;  
         (void)((*(LnkLI274))(V400));  
         princ_char(44,VV[25]);  
         if(((V385))==Cnil){  
2857          goto T1533;}          goto T1533;}
2858          princ_str("VK",VV[25]);          V400= small_fixnum(1);
         (void)((*(LnkLI274))((V321)));  
         princ_str("defaults",VV[25]);  
2859          goto T1531;          goto T1531;
2860          goto T1533;          goto T1533;
2861  T1533:;  T1533:;
2862          princ_str("Cstd_key_defaults",VV[25]);          V400= small_fixnum(0);
2863          goto T1531;          goto T1531;
2864  T1531:;  T1531:;
2865            (void)((*(LnkLI275))(V400));
2866            princ_char(44,VV[26]);
2867            if(((V385))==Cnil){
2868            goto T1538;}
2869            princ_str("VK",VV[26]);
2870            (void)((*(LnkLI275))((V321)));
2871            princ_str("defaults",VV[26]);
2872            goto T1536;
2873            goto T1538;
2874    T1538:;
2875            princ_str("Cstd_key_defaults",VV[26]);
2876            goto T1536;
2877    T1536:;
2878          if((car(cddddr((V329))))==Cnil){          if((car(cddddr((V329))))==Cnil){
2879          goto T1539;}          goto T1544;}
2880          princ_str(",{",VV[25]);          princ_str(",{",VV[26]);
2881          {object V401;          {object V401;
2882          V401= reverse(car(cddddr((V329))));          V401= reverse(car(cddddr((V329))));
2883          goto T1547;          goto T1552;
2884  T1547:;  T1552:;
2885          if(((V401))!=Cnil){          if(((V401))!=Cnil){
2886          goto T1548;}          goto T1553;}
2887          goto T1544;          goto T1549;
2888          goto T1548;          goto T1553;
2889  T1548:;  T1553:;
2890          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[26]);
2891          V402= (*(LnkLI330))(caar((V401)));          V402= (*(LnkLI331))(caar((V401)));
2892          (void)((*(LnkLI274))(/* INLINE-ARGS */V402));          (void)((*(LnkLI275))(/* INLINE-ARGS */V402));
2893          if((cdr((V401)))==Cnil){          if((cdr((V401)))==Cnil){
2894          goto T1556;}          goto T1561;}
2895          princ_char(44,VV[25]);          princ_char(44,VV[26]);
2896          goto T1556;          goto T1561;
2897  T1556:;  T1561:;
2898          V401= cdr((V401));          V401= cdr((V401));
2899          goto T1547;}          goto T1552;}
2900            goto T1549;
2901    T1549:;
2902            princ_char(125,VV[26]);
2903          goto T1544;          goto T1544;
2904  T1544:;  T1544:;
2905          princ_char(125,VV[25]);          princ_str("};",VV[26]);
         goto T1539;  
 T1539:;  
         princ_str("};",VV[25]);  
2906          bds_unwind1;          bds_unwind1;
2907          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2908          goto T1567;}          goto T1572;}
2909          princ_str("\n   parse_key_rest_new(",VV[25]);          princ_str("\n   parse_key_rest_new(",VV[26]);
2910          V403= list(2,VV[155],(V328));          V403= list(2,VV[156],(V328));
2911          (void)((*(LnkLI274))(/* INLINE-ARGS */V403));          (void)((*(LnkLI275))(/* INLINE-ARGS */V403));
2912          princ_char(44,VV[25]);          princ_char(44,VV[26]);
2913          goto T1565;          goto T1570;
2914          goto T1567;          goto T1572;
2915  T1567:;  T1572:;
2916          princ_str("\n   parse_key_new_new(",VV[25]);          princ_str("\n   parse_key_new_new(",VV[26]);
2917          goto T1565;          goto T1570;
2918  T1565:;  T1570:;
2919          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){          if(!(eql(small_fixnum(0),symbol_value(VV[142])))){
2920          goto T1573;}          goto T1578;}
2921          setq(VV[141],small_fixnum(1));          setq(VV[142],small_fixnum(1));
2922          goto T1573;          goto T1578;
2923  T1573:;  T1578:;
2924          princ_str("narg,",VV[25]);          princ_str("narg,",VV[26]);
2925          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[154]->s.s_dbind))==Cnil){
2926          goto T1581;}          goto T1586;}
         V404= VV[177];  
         goto T1579;  
         goto T1581;  
 T1581:;  
2927          V404= VV[178];          V404= VV[178];
2928          goto T1579;          goto T1584;
2929  T1579:;          goto T1586;
2930          (void)((*(LnkLI274))(V404));  T1586:;
2931          princ_char(43,VV[25]);          setq(VV[17],Ct);
2932          (void)((*(LnkLI274))((V327)));          V404= VV[179];
2933          princ_str(",(struct key *)(void *)&LI",VV[25]);          goto T1584;
2934          (void)((*(LnkLI274))((V321)));  T1584:;
2935          princ_str("key,first,ap);",VV[25]);}          (void)((*(LnkLI275))(V404));
2936          goto T1388;          princ_char(43,VV[26]);
2937  T1388:;          (void)((*(LnkLI275))((V327)));
2938            princ_str(",(struct key *)(void *)&LI",VV[26]);
2939            (void)((*(LnkLI275))((V321)));
2940            princ_str("key,first,ap);",VV[26]);}
2941            goto T1393;
2942    T1393:;
2943          {object V405;          {object V405;
2944          register object V406;          register object V406;
2945          V405= car(cddddr((V329)));          V405= car(cddddr((V329)));
2946          V406= car((V405));          V406= car((V405));
2947          goto T1592;          goto T1599;
2948  T1592:;  T1599:;
2949          if(!(endp_prop((V405)))){          if(!(endp_prop((V405)))){
2950          goto T1593;}          goto T1600;}
2951          goto T1588;          goto T1595;
2952          goto T1593;          goto T1600;
2953  T1593:;  T1600:;
2954          {object V408;          {object V408;
2955          V408= car((V326));          V408= car((V326));
2956          V326= cdr((V326));          V326= cdr((V326));
2957          V407= (V408);}          V407= (V408);}
2958          if(eql(small_fixnum(0),V407)){          if(eql(small_fixnum(0),V407)){
2959          goto T1599;}          goto T1606;}
2960          (void)((*(LnkLI331))(cadr((V406))));          (void)((*(LnkLI332))(cadr((V406))));
2961          goto T1597;          goto T1604;
2962          goto T1599;          goto T1606;
2963  T1599:;  T1606:;
2964          princ_str("\n   if(",VV[25]);          princ_str("\n   if(",VV[26]);
2965          V409= structure_ref(cadr((V406)),VV[69],2);          V409= structure_ref(cadr((V406)),VV[70],2);
2966          (void)((*(LnkLI332))(/* INLINE-ARGS */V409));          (void)((*(LnkLI333))(/* INLINE-ARGS */V409));
2967          princ_str("==0){",VV[25]);          princ_str("==0){",VV[26]);
2968            bds_bind(VV[134],symbol_value(VV[134]));
2969            bds_bind(VV[135],(VV[135]->s.s_dbind));
2970          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2971          bds_bind(VV[134],(VV[134]->s.s_dbind));          V410= (*(LnkLI326))(cadr((V406)),caddr((V406)));
         bds_bind(VV[132],symbol_value(VV[132]));  
         V410= (*(LnkLI325))(cadr((V406)),caddr((V406)));  
2972          bds_unwind1;          bds_unwind1;
2973          bds_unwind1;          bds_unwind1;
2974          bds_unwind1;          bds_unwind1;
2975          V411= structure_ref(cadddr((V406)),VV[69],1);          V411= structure_ref(cadddr((V406)),VV[70],1);
2976          if((/* INLINE-ARGS */V411)==(VV[174])){          if((/* INLINE-ARGS */V411)==(VV[175])){
2977          goto T1611;}          goto T1618;}
2978          (void)((*(LnkLI324))(cadddr((V406)),Cnil));          (void)((*(LnkLI325))(cadddr((V406)),Cnil));
2979          goto T1611;          goto T1618;
2980  T1611:;  T1618:;
2981          princ_str("\n   }else{",VV[25]);          princ_str("\n   }else{",VV[26]);
2982          (void)((*(LnkLI331))(cadr((V406))));          (void)((*(LnkLI332))(cadr((V406))));
2983          V412= structure_ref(cadddr((V406)),VV[69],1);          V412= structure_ref(cadddr((V406)),VV[70],1);
2984          if((/* INLINE-ARGS */V412)==(VV[174])){          if((/* INLINE-ARGS */V412)==(VV[175])){
2985          goto T1617;}          goto T1624;}
2986          (void)((*(LnkLI324))(cadddr((V406)),Ct));          (void)((*(LnkLI325))(cadddr((V406)),Ct));
2987          goto T1617;          goto T1624;
2988  T1617:;  T1624:;
2989          princ_char(125,VV[25]);          princ_char(125,VV[26]);
2990          goto T1597;          goto T1604;
2991  T1597:;  T1604:;
2992          V405= cdr((V405));          V405= cdr((V405));
2993          V406= car((V405));          V406= car((V405));
2994          goto T1592;}          goto T1599;}
2995          goto T1588;          goto T1595;
2996  T1588:;  T1595:;
2997          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[147]->s.s_dbind))==Cnil){
2998          goto T1626;}          goto T1633;}
2999          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[135]->s.s_dbind)= make_cons(VV[151],(VV[135]->s.s_dbind));
3000          princ_str("\n   goto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[26]);
3001          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[26]);
3002          goto T1626;          goto T1633;
3003  T1626:;  T1633:;
3004          base[7]= caddr(cddr((V322)));          base[7]= caddr(cddr((V322)));
3005          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3006          (void) (*Lnk318)();          (void) (*Lnk319)();
3007          vs_top=sup;          vs_top=sup;
3008          if(((V330))==Cnil){          if(((V330))==Cnil){
3009          goto T1636;}          goto T1643;}
3010          V330= Cnil;          V330= Cnil;
3011          princ_str("\n   va_end(ap);",VV[25]);          princ_str("\n   va_end(ap);",VV[26]);
3012          goto T1636;          goto T1643;
3013  T1636:;  T1643:;
3014          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
3015          goto T1644;}          goto T1651;}
3016          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[139]))!=Cnil){
3017          goto T1644;}          goto T1651;}
3018          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[141]))!=Cnil){
3019          goto T1644;}          goto T1651;}
3020          goto T1642;          goto T1649;
3021          goto T1644;          goto T1651;
3022  T1644:;  T1651:;
3023          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[26]);
3024          goto T1642;          goto T1649;
3025  T1642:;  T1649:;
3026          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[26]);
3027          princ_char(125,VV[25]);          princ_char(125,VV[26]);
3028          if((base[1])==Cnil){          if((base[1])==Cnil){
3029          goto T1655;}          goto T1662;}
3030          princ_str("\n   }",VV[25]);          princ_str("\n   }",VV[26]);
3031          goto T1655;          goto T1662;
3032  T1655:;  T1662:;
3033          (void)((*(LnkLI333))());          (void)((*(LnkLI334))());
3034          V414= get((V320),VV[77],Cnil);          V414= get((V320),VV[78],Cnil);
3035          {object V415 = (*(LnkLI319))((V339),V414);          {object V415 = (*(LnkLI320))((V339),V414);
3036          bds_unwind1;          bds_unwind1;
3037          bds_unwind1;          bds_unwind1;
3038          bds_unwind1;          bds_unwind1;
# Line 3050  object V420;register object V421;object Line 3049  object V420;register object V421;object
3049  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
3050          goto TTL;          goto TTL;
3051  TTL:;  TTL:;
3052          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[179],(V420))));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[180],(V420))));
3053          if(!(type_of((V421))==t_fixnum||          if(!(type_of((V421))==t_fixnum||
3054  type_of((V421))==t_bignum||  type_of((V421))==t_bignum||
3055  type_of((V421))==t_ratio||  type_of((V421))==t_ratio||
3056  type_of((V421))==t_shortfloat||  type_of((V421))==t_shortfloat||
3057  type_of((V421))==t_longfloat||  type_of((V421))==t_longfloat||
3058  type_of((V421))==t_complex)){  type_of((V421))==t_complex)){
3059          goto T1664;}          goto T1671;}
3060          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[26]);
3061          (void)((*(LnkLI274))((V421)));          (void)((*(LnkLI275))((V421)));
3062          princ_str("()",VV[25]);          princ_str("()",VV[26]);
3063          goto T1662;          goto T1669;
3064          goto T1664;          goto T1671;
3065  T1664:;  T1671:;
3066          princ_char(10,VV[25]);          princ_char(10,VV[26]);
3067          (void)((*(LnkLI274))((V421)));          (void)((*(LnkLI275))((V421)));
3068          princ_str("()",VV[25]);          princ_str("()",VV[26]);
3069          goto T1662;          goto T1669;
3070  T1662:;  T1669:;
3071          princ_str("\n{",VV[25]);          princ_str("\n{",VV[26]);
3072          princ_str("register object *",VV[25]);          princ_str("register object *",VV[26]);
3073          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI275))(symbol_value(VV[21])));
3074          princ_str("base=vs_base;",VV[25]);          princ_str("base=vs_base;",VV[26]);
3075          V424= structure_ref(cadr((V422)),VV[62],1);          V424= structure_ref(cadr((V422)),VV[63],1);
3076          (void)((*(LnkLI317))(/* INLINE-ARGS */V424,(V421),VV[148]));          (void)((*(LnkLI318))(/* INLINE-ARGS */V424,(V421),VV[149]));
3077          princ_str("\n   register object *",VV[25]);          princ_str("\n   register object *",VV[26]);
3078          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI275))(symbol_value(VV[21])));
3079          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[26]);
3080          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI275))(symbol_value(VV[137])));
3081          princ_char(59,VV[25]);          princ_char(59,VV[26]);
3082          princ_str(" VC",VV[25]);          princ_str(" VC",VV[26]);
3083          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI275))(symbol_value(VV[137])));
3084          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
3085          goto T1689;}          goto T1696;}
3086          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[26]);
3087          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI275))(symbol_value(VV[137])));
3088          princ_str(");",VV[25]);          princ_str(");",VV[26]);
3089          goto T1687;          goto T1694;
3090          goto T1689;          goto T1696;
3091  T1689:;  T1696:;
3092          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[26]);
3093          goto T1687;          goto T1694;
3094  T1687:;  T1694:;
3095          if(((V423))==Cnil){          if(((V423))==Cnil){
3096          goto T1695;}          goto T1702;}
3097          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[26]);
3098          goto T1695;          goto T1702;
3099  T1695:;  T1702:;
3100          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
3101          goto T1699;}          goto T1706;}
3102          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[26]);
3103          goto T1699;          goto T1706;
3104  T1699:;  T1706:;
3105          (void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V422)),caddr(cddr((V422))),(V420))));          (void)((VFUN_NARGS=3,(*(LnkLI335))(caddr((V422)),caddr(cddr((V422))),(V420))));
3106          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
3107          {object V425;          {object V425;
3108          V425= make_cons(symbol_value(VV[136]),symbol_value(VV[130]));          V425= make_cons(symbol_value(VV[137]),symbol_value(VV[131]));
3109          setq(VV[33],make_cons((V425),symbol_value(VV[33])));}          setq(VV[34],make_cons((V425),symbol_value(VV[34])));}
3110          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[32]);
3111          (void)((*(LnkLI277))(symbol_value(VV[136])));          (void)((*(LnkLI278))(symbol_value(VV[137])));
3112          {object V426 = (*(LnkLI335))();          {object V426 = (*(LnkLI336))();
3113          VMR26(V426)}          VMR26(V426)}
3114          base[0]=base[0];          base[0]=base[0];
3115          return Cnil;          return Cnil;
# Line 3124  register object V429;object V430; Line 3123  register object V429;object V430;
3123          goto TTL;          goto TTL;
3124  TTL:;  TTL:;
3125          {object V431;          {object V431;
3126          V431= make_cons((V429),symbol_value(VV[130]));          V431= make_cons((V429),symbol_value(VV[131]));
3127          setq(VV[33],make_cons((V431),symbol_value(VV[33])));}          setq(VV[34],make_cons((V431),symbol_value(VV[34])));}
3128          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
3129          goto T1717;}          goto T1724;}
3130          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[139]))!=Cnil){
3131          goto T1717;}          goto T1724;}
3132          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[141]))!=Cnil){
3133          goto T1717;}          goto T1724;}
3134          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[32]);
3135          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3136          goto T1715;          goto T1722;
3137          goto T1717;          goto T1724;
3138  T1717:;  T1724:;
3139          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[32]);
3140          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3141          princ_char(32,VV[31]);          princ_char(32,VV[32]);
3142          princ_str("register object *",VV[31]);          princ_str("register object *",VV[32]);
3143          (void)((*(LnkLI277))(symbol_value(VV[20])));          (void)((*(LnkLI278))(symbol_value(VV[21])));
3144          princ_str("base=vs_top;",VV[31]);          princ_str("base=vs_top;",VV[32]);
3145          goto T1715;          goto T1722;
3146  T1715:;  T1722:;
3147          (void)((*(LnkLI335))());          (void)((*(LnkLI336))());
3148          if((symbol_value(VV[138]))==Cnil){          if((symbol_value(VV[139]))==Cnil){
3149          goto T1734;}          goto T1741;}
3150          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[32]);
3151          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3152          princ_char(32,VV[31]);          princ_char(32,VV[32]);
3153          princ_str(" register object *",VV[31]);          princ_str(" register object *",VV[32]);
3154          (void)((*(LnkLI277))(symbol_value(VV[20])));          (void)((*(LnkLI278))(symbol_value(VV[21])));
3155          princ_str("sup=vs_top+",VV[31]);          princ_str("sup=vs_top+",VV[32]);
3156          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI278))(symbol_value(VV[131])));
3157          princ_str(";vs_top=sup;",VV[31]);          princ_str(";vs_top=sup;",VV[32]);
3158          goto T1732;          goto T1739;
3159          goto T1734;          goto T1741;
3160  T1734:;  T1741:;
3161          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
3162          goto T1745;}          goto T1752;}
3163          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[32]);
3164          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3165          goto T1732;          goto T1739;
3166          goto T1745;          goto T1752;
3167  T1745:;  T1752:;
3168          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[32]);
3169          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3170          princ_str(" vs_top += ",VV[31]);          princ_str(" vs_top += ",VV[32]);
3171          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI278))(symbol_value(VV[131])));
3172          princ_char(59,VV[31]);          princ_char(59,VV[32]);
3173          goto T1732;          goto T1739;
3174  T1732:;  T1739:;
3175          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
3176          goto T1756;}          goto T1763;}
3177          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[32]);
3178          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3179          goto T1754;          goto T1761;
3180          goto T1756;          goto T1763;
3181  T1756:;  T1763:;
3182          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
3183          goto T1761;}          goto T1768;}
3184          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[32]);
3185          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3186          princ_str(" vs_reserve(",VV[31]);          princ_str(" vs_reserve(",VV[32]);
3187          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI278))(symbol_value(VV[131])));
3188          princ_str(");",VV[31]);          princ_str(");",VV[32]);
3189          goto T1754;          goto T1761;
3190            goto T1768;
3191    T1768:;
3192            princ_str("\n#define VMV",VV[32]);
3193            (void)((*(LnkLI278))((V429)));
3194            princ_str(" vs_check;",VV[32]);
3195          goto T1761;          goto T1761;
3196  T1761:;  T1761:;
3197          princ_str("\n#define VMV",VV[31]);          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
3198          (void)((*(LnkLI277))((V429)));          goto T1779;}
3199          princ_str(" vs_check;",VV[31]);          princ_str("\n#define VMR",VV[32]);
3200          goto T1754;          (void)((*(LnkLI278))((V429)));
3201  T1754:;          princ_str("(VMT",VV[32]);
3202          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          (void)((*(LnkLI278))((V429)));
3203          goto T1772;}          princ_str(") return(VMT",VV[32]);
3204          princ_str("\n#define VMR",VV[31]);          (void)((*(LnkLI278))((V429)));
3205          (void)((*(LnkLI277))((V429)));          princ_str(");",VV[32]);
         princ_str("(VMT",VV[31]);  
         (void)((*(LnkLI277))((V429)));  
         princ_str(") return(VMT",VV[31]);  
         (void)((*(LnkLI277))((V429)));  
         princ_str(");",VV[31]);  
3206          {object V432 = Cnil;          {object V432 = Cnil;
3207          VMR27(V432)}          VMR27(V432)}
3208          goto T1772;          goto T1779;
3209  T1772:;  T1779:;
3210          princ_str("\n#define VMR",VV[31]);          princ_str("\n#define VMR",VV[32]);
3211          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3212          princ_str("(VMT",VV[31]);          princ_str("(VMT",VV[32]);
3213          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3214          princ_str(") vs_top=base ; return(VMT",VV[31]);          princ_str(") vs_top=base ; return(VMT",VV[32]);
3215          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3216          princ_str(");",VV[31]);          princ_str(");",VV[32]);
3217          {object V433 = Cnil;          {object V433 = Cnil;
3218          VMR27(V433)}          VMR27(V433)}
3219          base[0]=base[0];          base[0]=base[0];
# Line 3230  object V436;object V437; Line 3229  object V436;object V437;
3229  TTL:;  TTL:;
3230          {register object V438;          {register object V438;
3231          V438= (V436);          V438= (V436);
3232          goto T1790;          goto T1797;
3233  T1790:;  T1797:;
3234          if(!(endp_prop((V438)))){          if(!(endp_prop((V438)))){
3235          goto T1791;}          goto T1798;}
3236          goto T1788;          goto T1795;
3237          goto T1791;          goto T1798;
3238  T1791:;  T1798:;
3239          {register object V439;          {register object V439;
3240          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
3241          V439= symbol_value(VV[88]);          V439= symbol_value(VV[89]);
3242          (void)(structure_set(car((V438)),VV[69],4,(V439)));          (void)(structure_set(car((V438)),VV[70],4,(V439)));
3243          princ_char(86,VV[25]);          princ_char(86,VV[26]);
3244          (void)((*(LnkLI274))((V439)));}          (void)((*(LnkLI275))((V439)));}
3245          if(endp_prop(cdr((V438)))){          if(endp_prop(cdr((V438)))){
3246          goto T1801;}          goto T1808;}
3247          princ_char(44,VV[25]);          princ_char(44,VV[26]);
3248          goto T1801;          goto T1808;
3249  T1801:;  T1808:;
3250          V438= cdr((V438));          V438= cdr((V438));
3251          goto T1790;}          goto T1797;}
3252          goto T1788;          goto T1795;
3253  T1788:;  T1795:;
3254          princ_str(")\n",VV[25]);          princ_str(")\n",VV[26]);
3255          if(((V436))==Cnil){          if(((V436))==Cnil){
3256          goto T1811;}          goto T1818;}
3257          princ_char(10,VV[25]);          princ_char(10,VV[26]);
3258          {register object V440;          {register object V440;
3259          register object V441;          register object V441;
3260          register object V442;          register object V442;
3261          V440= (V436);          V440= (V436);
3262          V441= (V437);          V441= (V437);
3263          V442= Cnil;          V442= Cnil;
3264          goto T1815;          goto T1822;
3265  T1815:;  T1822:;
3266          if(!(endp_prop((V440)))){          if(!(endp_prop((V440)))){
3267          goto T1816;}          goto T1823;}
3268          princ_char(59,VV[25]);          princ_char(59,VV[26]);
3269          {object V443 = Cnil;          {object V443 = Cnil;
3270          VMR28(V443)}          VMR28(V443)}
3271          goto T1816;          goto T1823;
3272  T1816:;  T1823:;
3273          if(((V442))==Cnil){          if(((V442))==Cnil){
3274          goto T1821;}          goto T1828;}
3275          princ_char(59,VV[25]);          princ_char(59,VV[26]);
3276          goto T1821;          goto T1828;
3277  T1821:;  T1828:;
3278          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI275))(symbol_value(VV[21])));
3279          V444= (*(LnkLI336))(car((V440)));          V444= (*(LnkLI337))(car((V440)));
3280          (void)((*(LnkLI274))(/* INLINE-ARGS */V444));          (void)((*(LnkLI275))(/* INLINE-ARGS */V444));
3281          V445= (*(LnkLI280))(car((V441)));          V445= (*(LnkLI281))(car((V441)));
3282          (void)((*(LnkLI274))(/* INLINE-ARGS */V445));          (void)((*(LnkLI275))(/* INLINE-ARGS */V445));
3283          V442= car((V441));          V442= car((V441));
3284          princ_char(86,VV[25]);          princ_char(86,VV[26]);
3285          V446= structure_ref(car((V440)),VV[69],4);          V446= structure_ref(car((V440)),VV[70],4);
3286          (void)((*(LnkLI274))(/* INLINE-ARGS */V446));          (void)((*(LnkLI275))(/* INLINE-ARGS */V446));
3287          V440= cdr((V440));          V440= cdr((V440));
3288          V441= cdr((V441));          V441= cdr((V441));
3289          goto T1815;}          goto T1822;}
3290          goto T1811;          goto T1818;
3291  T1811:;  T1818:;
3292          {object V447 = Cnil;          {object V447 = Cnil;
3293          VMR28(V447)}          VMR28(V447)}
3294          return Cnil;          return Cnil;
# Line 3305  TTL:; Line 3304  TTL:;
3304          {object V452;          {object V452;
3305          V452= Cnil;          V452= Cnil;
3306          {object V453;          {object V453;
3307          V453= (number_compare(symbol_value(VV[114]),small_fixnum(2))>=0?Ct:Cnil);          V453= (number_compare(symbol_value(VV[115]),small_fixnum(2))>=0?Ct:Cnil);
3308          if(((V453))==Cnil){          if(((V453))==Cnil){
3309          goto T1841;}          goto T1848;}
3310          {object V454 = (V453);          {object V454 = (V453);
3311          VMR29(V454)}          VMR29(V454)}
3312          goto T1841;          goto T1848;
3313  T1841:;  T1848:;
3314          if((get((V450),VV[115],Cnil))!=Cnil){          if((get((V450),VV[116],Cnil))!=Cnil){
3315          goto T1844;}          goto T1851;}
3316          {object V455 = (VFUN_NARGS=2,(*(LnkLI337))(VV[180],(V450)));          {object V455 = (VFUN_NARGS=2,(*(LnkLI338))(VV[181],(V450)));
3317          VMR29(V455)}          VMR29(V455)}
3318          goto T1844;          goto T1851;
3319  T1844:;  T1851:;
3320          (void)(remprop((V450),VV[115]));          (void)(remprop((V450),VV[116]));
3321          {register object V456;          {register object V456;
3322          V456= small_fixnum(0);          V456= small_fixnum(0);
3323          {register object V457;          {register object V457;
3324          register object V458;          register object V458;
3325          V457= structure_ref(cadr((V451)),VV[62],1);          V457= structure_ref(cadr((V451)),VV[63],1);
3326          V458= car((V457));          V458= car((V457));
3327          goto T1851;          goto T1858;
3328  T1851:;  T1858:;
3329          if(!(endp_prop((V457)))){          if(!(endp_prop((V457)))){
3330          goto T1852;}          goto T1859;}
3331          goto T1847;          goto T1854;
3332          goto T1852;          goto T1859;
3333  T1852:;  T1859:;
3334          V459= structure_ref((V458),VV[69],2);          V459= structure_ref((V458),VV[70],2);
3335          if(!(type_of(/* INLINE-ARGS */V459)==t_cons)){          if(!(type_of(/* INLINE-ARGS */V459)==t_cons)){
3336          goto T1856;}          goto T1863;}
3337          V460= structure_ref((V458),VV[69],2);          V460= structure_ref((V458),VV[70],2);
3338          if(!(type_of(cdr(/* INLINE-ARGS */V460))==t_fixnum)){          if(!(type_of(cdr(/* INLINE-ARGS */V460))==t_fixnum)){
3339          goto T1856;}          goto T1863;}
3340          V461= structure_ref((V458),VV[69],2);          V461= structure_ref((V458),VV[70],2);
3341          {object V462= cdr(/* INLINE-ARGS */V461);          {object V462= cdr(/* INLINE-ARGS */V461);
3342          V456= (number_compare((V456),V462)>=0?((V456)):V462);}          V456= (number_compare((V456),V462)>=0?((V456)):V462);}
3343          goto T1856;          goto T1863;
3344  T1856:;  T1863:;
3345          V457= cdr((V457));          V457= cdr((V457));
3346          V458= car((V457));          V458= car((V457));
3347          goto T1851;}          goto T1858;}
3348          goto T1847;          goto T1854;
3349  T1847:;  T1854:;
3350          base[0]= one_plus((V456));          base[0]= one_plus((V456));
3351          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3352          Lmake_list();          Lmake_list();
# Line 3355  T1847:; Line 3354  T1847:;
3354          V452= vs_base[0];          V452= vs_base[0];
3355          {register object V463;          {register object V463;
3356          register object V464;          register object V464;
3357          V463= structure_ref(cadr((V451)),VV[62],1);          V463= structure_ref(cadr((V451)),VV[63],1);
3358          V464= car((V463));          V464= car((V463));
3359          goto T1874;          goto T1881;
3360  T1874:;  T1881:;
3361          if(!(endp_prop((V463)))){          if(!(endp_prop((V463)))){
3362          goto T1875;}          goto T1882;}
3363          goto T1870;          goto T1877;
3364          goto T1875;          goto T1882;
3365  T1875:;  T1882:;
3366          V465= structure_ref((V464),VV[69],2);          V465= structure_ref((V464),VV[70],2);
3367          if(!(type_of(/* INLINE-ARGS */V465)==t_cons)){          if(!(type_of(/* INLINE-ARGS */V465)==t_cons)){
3368          goto T1879;}          goto T1886;}
3369          V466= structure_ref((V464),VV[69],2);          V466= structure_ref((V464),VV[70],2);
3370          if(!(type_of(cdr(/* INLINE-ARGS */V466))==t_fixnum)){          if(!(type_of(cdr(/* INLINE-ARGS */V466))==t_fixnum)){
3371          goto T1879;}          goto T1886;}
3372          {object V467;          {object V467;
3373          register object V469;          register object V469;
3374          V470= structure_ref((V464),VV[69],2);          V470= structure_ref((V464),VV[70],2);
3375          V467= cdr(/* INLINE-ARGS */V470);          V467= cdr(/* INLINE-ARGS */V470);
3376          V469= structure_ref((V464),VV[69],0);          V469= structure_ref((V464),VV[70],0);
3377          if(type_of(nthcdr(fixint((V467)),V452))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V467)),V452));          if(type_of(nthcdr(fixint((V467)),V452))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V467)),V452));
3378          (nthcdr(fixint((V467)),V452))->c.c_car = (V469);          (nthcdr(fixint((V467)),V452))->c.c_car = (V469);
3379          (void)(nthcdr(fixint((V467)),V452));}          (void)(nthcdr(fixint((V467)),V452));}
3380          goto T1879;          goto T1886;
3381  T1879:;  T1886:;
3382          V463= cdr((V463));          V463= cdr((V463));
3383          V464= car((V463));          V464= car((V463));
3384          goto T1874;}          goto T1881;}
3385          goto T1870;          goto T1877;
3386  T1870:;  T1877:;
3387          (void)(sputprop((V450),VV[116],(V452)));          (void)(sputprop((V450),VV[117],(V452)));
3388          {object V471;          {object V471;
3389          V471= get((V450),VV[116],Cnil);          V471= get((V450),VV[117],Cnil);
3390          if(((V471))==Cnil){          if(((V471))==Cnil){
3391          goto T1895;}          goto T1902;}
3392          if((cdr((V471)))!=Cnil){          if((cdr((V471)))!=Cnil){
3393          goto T1894;}          goto T1901;}
3394          if((car((V471)))==Cnil){          if((car((V471)))==Cnil){
3395          goto T1895;}          goto T1902;}
3396          goto T1894;          goto T1901;
3397  T1894:;  T1901:;
3398          V472= list(2,VV[91],(V450));          V472= list(2,VV[92],(V450));
3399          V473= list(3,VV[116],/* INLINE-ARGS */V472,list(2,VV[91],(V471)));          V473= list(3,VV[117],/* INLINE-ARGS */V472,list(2,VV[92],(V471)));
3400          {object V474 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V473));          {object V474 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V473));
3401          VMR29(V474)}          VMR29(V474)}
3402          goto T1895;          goto T1902;
3403  T1895:;  T1902:;
3404          {object V475 = Cnil;          {object V475 = Cnil;
3405          VMR29(V475)}}}}}          VMR29(V475)}}}}}
3406          base[0]=base[0];          base[0]=base[0];
# Line 3416  object V478;object V479; Line 3415  object V478;object V479;
3415          goto TTL;          goto TTL;
3416  TTL:;  TTL:;
3417          {object V480;          {object V480;
3418          V480= number_minus(symbol_value(VV[181]),(V479));          V480= number_minus(symbol_value(VV[182]),(V479));
3419          if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[183]))==0)){
3420          goto T1903;}          goto T1910;}
3421          V481= (VFUN_NARGS=1,(*(LnkLI339))((V478)));          V481= (VFUN_NARGS=1,(*(LnkLI340))((V478)));
3422          {long V482 = (long)(*(LnkLI338))(/* INLINE-ARGS */V481,(V480));          {long V482 = (long)(*(LnkLI339))(/* INLINE-ARGS */V481,(V480));
3423          VMR30((object)V482)}          VMR30((object)V482)}
3424          goto T1903;          goto T1910;
3425  T1903:;  T1910:;
3426          {register object V483;          {register object V483;
3427          register object V484;          register object V484;
3428          V483= Cnil;          V483= Cnil;
# Line 3432  T1903:; Line 3431  T1903:;
3431          register object V486;          register object V486;
3432          V485= (V478);          V485= (V478);
3433          V486= car((V485));          V486= car((V485));
3434          goto T1909;          goto T1916;
3435  T1909:;  T1916:;
3436          if(!(endp_prop((V485)))){          if(!(endp_prop((V485)))){
3437          goto T1910;}          goto T1917;}
3438          goto T1905;          goto T1912;
3439          goto T1910;          goto T1917;
3440  T1910:;  T1917:;
3441          V488= structure_ref((V486),VV[69],5);          V488= structure_ref((V486),VV[70],5);
3442          {register object x= /* INLINE-ARGS */V488,V487= VV[183];          {register object x= /* INLINE-ARGS */V488,V487= VV[184];
3443          while(!endp(V487))          while(!endp(V487))
3444          if(x==(V487->c.c_car)){          if(x==(V487->c.c_car)){
3445          goto T1917;          goto T1924;
3446          }else V487=V487->c.c_cdr;          }else V487=V487->c.c_cdr;
3447          goto T1916;}          goto T1923;}
3448          goto T1917;          goto T1924;
3449  T1917:;{object V489;  T1924:;{object V489;
3450          {register object x= (V486),V490= (V484);          {register object x= (V486),V490= (V484);
3451          while(!endp(V490))          while(!endp(V490))
3452          if(eql(x,V490->c.c_car)){          if(eql(x,V490->c.c_car)){
3453          V489= V490;          V489= V490;
3454          goto T1919;          goto T1926;
3455          }else V490=V490->c.c_cdr;          }else V490=V490->c.c_cdr;
3456          V489= Cnil;}          V489= Cnil;}
3457          goto T1919;          goto T1926;
3458  T1919:;  T1926:;
3459          if(V489==Cnil)goto T1918;          if(V489==Cnil)goto T1925;
3460          goto T1914;          goto T1921;
3461          goto T1918;          goto T1925;
3462  T1918:;}  T1925:;}
3463          {register object V491;          {register object V491;
3464          V491= (V486);          V491= (V486);
3465          V484= make_cons((V491),(V484));          V484= make_cons((V491),(V484));
3466          goto T1914;}          goto T1921;}
3467          goto T1916;          goto T1923;
3468  T1916:;{object V492;  T1923:;{object V492;
3469          {register object x= (V486),V493= (V483);          {register object x= (V486),V493= (V483);
3470          while(!endp(V493))          while(!endp(V493))
3471          if(x==(V493->c.c_car)){          if(x==(V493->c.c_car)){
3472          V492= V493;          V492= V493;
3473          goto T1923;          goto T1930;
3474          }else V493=V493->c.c_cdr;          }else V493=V493->c.c_cdr;
3475          V492= Cnil;}          V492= Cnil;}
3476          goto T1923;          goto T1930;
3477  T1923:;  T1930:;
3478          if(V492==Cnil)goto T1922;          if(V492==Cnil)goto T1929;
3479          goto T1914;          goto T1921;
3480          goto T1922;          goto T1929;
3481  T1922:;}  T1929:;}
3482          {register object V494;          {register object V494;
3483          V494= (V486);          V494= (V486);
3484          V484= make_cons((V494),(V484));}          V484= make_cons((V494),(V484));}
3485          goto T1914;          goto T1921;
3486  T1914:;  T1921:;
3487          V485= cdr((V485));          V485= cdr((V485));
3488          V486= car((V485));          V486= car((V485));
3489          goto T1909;}          goto T1916;}
3490          goto T1905;          goto T1912;
3491  T1905:;  T1912:;
3492          (void)((*(LnkLI338))((V483),(V480)));          (void)((*(LnkLI339))((V483),(V480)));
3493          {long V495 = (long)(*(LnkLI338))((V484),symbol_value(VV[182]));          {long V495 = (long)(*(LnkLI339))((V484),symbol_value(VV[183]));
3494          VMR30((object)V495)}}}          VMR30((object)V495)}}}
3495          base[0]=base[0];          base[0]=base[0];
3496  }  }
# Line 3513  TTL:; Line 3512  TTL:;
3512          V502= 100000;          V502= 100000;
3513          V503= fix((V499));          V503= fix((V499));
3514          V504= 0;          V504= 0;
3515          V498= (VFUN_NARGS=1,(*(LnkLI339))((V498)));          V498= (VFUN_NARGS=1,(*(LnkLI340))((V498)));
3516          goto T1940;          goto T1947;
3517  T1940:;  T1947:;
3518          {register object V505;          {register object V505;
3519          object V506;          object V506;
3520          V505= (V498);          V505= (V498);
3521          V506= car((V505));          V506= car((V505));
3522          goto T1946;          goto T1953;
3523  T1946:;  T1953:;
3524          if(!(endp_prop((V505)))){          if(!(endp_prop((V505)))){
3525          goto T1947;}          goto T1954;}
3526          goto T1942;          goto T1949;
3527          goto T1947;          goto T1954;
3528  T1947:;  T1954:;
3529          V500= fix(structure_ref((V506),VV[69],6));          V500= fix(structure_ref((V506),VV[70],6));
3530          if(!((V500)>=(V501))){          if(!((V500)>=(V501))){
3531          goto T1953;}          goto T1960;}
3532          V504= (long)(V504)+(1);          V504= (long)(V504)+(1);
3533          if(!((V500)<(V502))){          if(!((V500)<(V502))){
3534          goto T1958;}          goto T1965;}
3535          V502= V500;          V502= V500;
3536          goto T1958;          goto T1965;
3537  T1958:;  T1965:;
3538          if(!((V504)>(V503))){          if(!((V504)>(V503))){
3539          goto T1953;}          goto T1960;}
3540          goto T1941;          goto T1948;
3541          goto T1953;          goto T1960;
3542  T1953:;  T1960:;
3543          V505= cdr((V505));          V505= cdr((V505));
3544          V506= car((V505));          V506= car((V505));
3545          goto T1946;}          goto T1953;}
3546          goto T1942;          goto T1949;
3547  T1942:;  T1949:;
3548          if(!((V504)<(V503))){          if(!((V504)<(V503))){
3549          goto T1969;}          goto T1976;}
3550          V501= (long)(V501)-(1);          V501= (long)(V501)-(1);
3551          goto T1969;          goto T1976;
3552  T1969:;  T1976:;
3553          {register object V507;          {register object V507;
3554          register object V508;          register object V508;
3555          V507= (V498);          V507= (V498);
3556          V508= car((V507));          V508= car((V507));
3557          goto T1977;          goto T1984;
3558  T1977:;  T1984:;
3559          if(!(endp_prop((V507)))){          if(!(endp_prop((V507)))){
3560          goto T1978;}          goto T1985;}
3561          goto T1973;          goto T1980;
3562          goto T1978;          goto T1985;
3563  T1978:;  T1985:;
3564          {long V509= fix(structure_ref((V508),VV[69],6));          {long V509= fix(structure_ref((V508),VV[70],6));
3565          if(!((/* INLINE-ARGS */V509)<(V501))){          if(!((/* INLINE-ARGS */V509)<(V501))){
3566          goto T1982;}}          goto T1989;}}
3567          (void)(structure_set((V508),VV[69],6,small_fixnum(0)));          (void)(structure_set((V508),VV[70],6,small_fixnum(0)));
3568          goto T1982;          goto T1989;
3569  T1982:;  T1989:;
3570          V507= cdr((V507));          V507= cdr((V507));
3571          V508= car((V507));          V508= car((V507));
3572          goto T1977;}          goto T1984;}
3573          goto T1973;          goto T1980;
3574  T1973:;  T1980:;
3575          {long V510 = V501;          {long V510 = V501;
3576          VMR31((object)V510)}          VMR31((object)V510)}
3577          goto T1941;          goto T1948;
3578  T1941:;  T1948:;
3579          V504= 0;          V504= 0;
3580          V501= (long)(V502)+(1);          V501= (long)(V502)+(1);
3581          V502= 1000000;          V502= 1000000;
3582          goto T1940;}          goto T1947;}
3583          base[0]=base[0];          base[0]=base[0];
3584  }  }
3585  /*      local entry for function WT-GLOBAL-ENTRY        */  /*      local entry for function WT-GLOBAL-ENTRY        */
# Line 3591  object V515;object V516;object V517;obje Line 3590  object V515;object V516;object V517;obje
3590  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
3591          goto TTL;          goto TTL;
3592  TTL:;  TTL:;
3593          if((get((V515),VV[102],Cnil))==Cnil){          if((get((V515),VV[103],Cnil))==Cnil){
3594          goto T1997;}          goto T2004;}
3595          {object V519 = Cnil;          {object V519 = Cnil;
3596          VMR32(V519)}          VMR32(V519)}
3597          goto T1997;          goto T2004;
3598  T1997:;  T2004:;
3599          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[186],(V515))));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[187],(V515))));
3600          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[26]);
3601          (void)((*(LnkLI274))((V516)));          (void)((*(LnkLI275))((V516)));
3602          princ_str("()",VV[25]);          princ_str("()",VV[26]);
3603          princ_str("\n{  register object *base=vs_base;",VV[25]);          princ_str("\n{  register object *base=vs_base;",VV[26]);
3604          if((symbol_value(VV[163]))!=Cnil){          if((symbol_value(VV[164]))!=Cnil){
3605          goto T2008;}          goto T2015;}
3606          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[165]))==Cnil){
3607          goto T2007;}          goto T2014;}
3608          goto T2008;          goto T2015;
3609  T2008:;  T2015:;
3610          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[26]);
3611          V520 = make_fixnum((long)length((V517)));          V520 = make_fixnum((long)length((V517)));
3612          (void)((*(LnkLI274))(V520));          (void)((*(LnkLI275))(V520));
3613          princ_str(");",VV[25]);          princ_str(");",VV[26]);
3614          goto T2007;          goto T2014;
3615  T2007:;  T2014:;
3616          princ_str("\n   base[0]=",VV[25]);          princ_str("\n   base[0]=",VV[26]);
3617          {object V522= (V518);          {object V522= (V518);
3618          if((V522!= VV[89]))goto T2019;          if((V522!= VV[90]))goto T2026;
3619          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){
3620          goto T2021;}          goto T2028;}
         V521= VV[187];  
         goto T2018;  
         goto T2021;  
 T2021:;  
3621          V521= VV[188];          V521= VV[188];
3622          goto T2018;          goto T2025;
3623          goto T2019;          goto T2028;
3624  T2019:;  T2028:;
         if((V522!= VV[142]))goto T2023;  
3625          V521= VV[189];          V521= VV[189];
3626          goto T2018;          goto T2025;
3627          goto T2023;          goto T2026;
3628  T2023:;  T2026:;
3629          if((V522!= VV[143]))goto T2024;          if((V522!= VV[143]))goto T2030;
3630          V521= VV[190];          V521= VV[190];
3631          goto T2018;          goto T2025;
3632          goto T2024;          goto T2030;
3633  T2024:;  T2030:;
3634          if((V522!= VV[144]))goto T2025;          if((V522!= VV[144]))goto T2031;
3635          V521= VV[191];          V521= VV[191];
3636          goto T2018;          goto T2025;
3637            goto T2031;
3638    T2031:;
3639            if((V522!= VV[145]))goto T2032;
3640            V521= VV[192];
3641            goto T2025;
3642            goto T2032;
3643    T2032:;
3644            V521= VV[193];}
3645          goto T2025;          goto T2025;
3646  T2025:;  T2025:;
3647          V521= VV[192];}          (void)((*(LnkLI275))(V521));
3648          goto T2018;          princ_str("(LI",VV[26]);
3649  T2018:;          (void)((*(LnkLI275))((V516)));
3650          (void)((*(LnkLI274))(V521));          princ_char(40,VV[26]);
         princ_str("(LI",VV[25]);  
         (void)((*(LnkLI274))((V516)));  
         princ_char(40,VV[25]);  
3651          {register object V523;          {register object V523;
3652          register long V524;          register long V524;
3653          V524= 0;          V524= 0;
3654          V523= (V517);          V523= (V517);
         goto T2032;  
 T2032:;  
         if(!(endp_prop((V523)))){  
         goto T2033;}  
         goto T2029;  
         goto T2033;  
 T2033:;  
         {object V526= car((V523));  
         if((V526!= VV[89]))goto T2040;  
         V525= VV[193];  
3655          goto T2039;          goto T2039;
3656    T2039:;
3657            if(!(endp_prop((V523)))){
3658            goto T2040;}
3659            goto T2036;
3660          goto T2040;          goto T2040;
3661  T2040:;  T2040:;
3662          if((V526!= VV[142]))goto T2041;          {object V526= car((V523));
3663            if((V526!= VV[90]))goto T2047;
3664          V525= VV[194];          V525= VV[194];
3665          goto T2039;          goto T2046;
3666          goto T2041;          goto T2047;
3667  T2041:;  T2047:;
3668          if((V526!= VV[143]))goto T2042;          if((V526!= VV[143]))goto T2048;
3669          V525= VV[195];          V525= VV[195];
3670          goto T2039;          goto T2046;
3671          goto T2042;          goto T2048;
3672  T2042:;  T2048:;
3673          if((V526!= VV[144]))goto T2043;          if((V526!= VV[144]))goto T2049;
3674          V525= VV[196];          V525= VV[196];
3675          goto T2039;          goto T2046;
3676          goto T2043;          goto T2049;
3677  T2043:;  T2049:;
3678          V525= VV[197];}          if((V526!= VV[145]))goto T2050;
3679          goto T2039;          V525= VV[197];
3680  T2039:;          goto T2046;
3681          (void)((*(LnkLI274))(V525));          goto T2050;
3682          princ_str("(base[",VV[25]);  T2050:;
3683            V525= VV[198];}
3684            goto T2046;
3685    T2046:;
3686            (void)((*(LnkLI275))(V525));
3687            princ_str("(base[",VV[26]);
3688          V527 = make_fixnum(V524);          V527 = make_fixnum(V524);
3689          (void)((*(LnkLI274))(V527));          (void)((*(LnkLI275))(V527));
3690          princ_str("])",VV[25]);          princ_str("])",VV[26]);
3691          if(endp_prop(cdr((V523)))){          if(endp_prop(cdr((V523)))){
3692          goto T2047;}          goto T2054;}
3693          princ_char(44,VV[25]);          princ_char(44,VV[26]);
3694          goto T2047;          goto T2054;
3695  T2047:;  T2054:;
3696          V523= cdr((V523));          V523= cdr((V523));
3697          V524= (long)(V524)+1;          V524= (long)(V524)+1;
3698          goto T2032;}          goto T2039;}
3699          goto T2029;          goto T2036;
3700  T2029:;  T2036:;
3701          princ_str("));",VV[25]);          princ_str("));",VV[26]);
3702          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=base)+1;",VV[26]);
3703          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
3704          {object V528 = Cnil;          {object V528 = Cnil;
3705          VMR32(V528)}          VMR32(V528)}
3706          return Cnil;          return Cnil;
# Line 3715  object V530; Line 3714  object V530;
3714          goto TTL;          goto TTL;
3715  TTL:;  TTL:;
3716          {object V531= (V530);          {object V531= (V530);
3717          if((V531!= VV[89]))goto T2060;          if((V531!= VV[90]))goto T2067;
3718          {object V532 = VV[198];          {object V532 = VV[199];
3719          VMR33(V532)}          VMR33(V532)}
3720          goto T2060;          goto T2067;
3721  T2060:;  T2067:;
3722          if((V531!= VV[261]))goto T2061;          if((V531!= VV[262]))goto T2068;
3723          {object V533 = VV[199];          {object V533 = VV[200];
3724          VMR33(V533)}          VMR33(V533)}
3725          goto T2061;          goto T2068;
3726  T2061:;  T2068:;
3727          if((V531!= VV[142]))goto T2062;          if((V531!= VV[143]))goto T2069;
3728          {object V534 = VV[200];          {object V534 = VV[201];
3729          VMR33(V534)}          VMR33(V534)}
3730          goto T2062;          goto T2069;
3731  T2062:;  T2069:;
3732          if((V531!= VV[144]))goto T2063;          if((V531!= VV[145]))goto T2070;
3733          {object V535 = VV[201];          {object V535 = VV[202];
3734          VMR33(V535)}          VMR33(V535)}
3735          goto T2063;          goto T2070;
3736  T2063:;  T2070:;
3737          if((V531!= VV[143]))goto T2064;          if((V531!= VV[144]))goto T2071;
3738          {object V536 = VV[202];          {object V536 = VV[203];
3739          VMR33(V536)}          VMR33(V536)}
3740          goto T2064;          goto T2071;
3741  T2064:;  T2071:;
3742          {object V537 = VV[203];          {object V537 = VV[204];
3743          VMR33(V537)}}          VMR33(V537)}}
3744          return Cnil;          return Cnil;
3745  }  }
# Line 3754  register object V539; Line 3753  register object V539;
3753          goto TTL;          goto TTL;
3754  TTL:;  TTL:;
3755          if(endp_prop((V539))){          if(endp_prop((V539))){
3756          goto T2066;}          goto T2073;}
3757          if(!(endp_prop(cdr((V539))))){          if(!(endp_prop(cdr((V539))))){
3758          goto T2065;}          goto T2072;}
3759          goto T2066;          goto T2073;
3760  T2066:;  T2073:;
3761          V540 = make_fixnum((long)length((V539)));          V540 = make_fixnum((long)length((V539)));
3762          (void)((*(LnkLI283))(VV[204],small_fixnum(2),V540));          (void)((*(LnkLI284))(VV[205],small_fixnum(2),V540));
3763          goto T2065;          goto T2072;
3764  T2065:;  T2072:;
3765          if(type_of(car((V539)))==t_symbol){          if(type_of(car((V539)))==t_symbol){
3766          goto T2070;}          goto T2077;}
3767          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V539)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[206],car((V539)))));
3768          goto T2070;          goto T2077;
3769  T2070:;  T2077:;
3770          V541= make_cons(VV[204],(V539));          V541= make_cons(VV[205],(V539));
3771          (void)((*(LnkLI268))(Ct,/* INLINE-ARGS */V541));          (void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V541));
3772          setq(VV[6],Ct);          setq(VV[6],Ct);
3773          {register object V542;          {register object V542;
3774          object V543;          object V543;
3775          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1)));
3776          V543= symbol_value(VV[61]);          V543= symbol_value(VV[62]);
         bds_bind(VV[55],Cnil);  
3777          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
3778          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
3779          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
         bds_bind(VV[52],Cnil);  
3780          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
3781            bds_bind(VV[53],Cnil);
3782            bds_bind(VV[60],Cnil);
3783          V542= Cnil;          V542= Cnil;
3784          V542= (*(LnkLI340))(car((V539)),cadr((V539)),cddr((V539)));          V542= (*(LnkLI341))(car((V539)),cadr((V539)),cddr((V539)));
3785          (void)((*(LnkLI296))());          (void)((*(LnkLI297))());
3786          {object V544;          {object V544;
3787          V544= list(7,VV[204],car((V539)),(V543),cddr((V542)),car((V542)),cadr((V542)),(VV[59]->s.s_dbind));          V544= list(7,VV[205],car((V539)),(V543),cddr((V542)),car((V542)),cadr((V542)),(VV[60]->s.s_dbind));
3788          setq(VV[24],make_cons((V544),symbol_value(VV[24])));          setq(VV[25],make_cons((V544),symbol_value(VV[25])));
3789          {object V545 = symbol_value(VV[24]);          {object V545 = symbol_value(VV[25]);
3790          bds_unwind1;          bds_unwind1;
3791          bds_unwind1;          bds_unwind1;
3792          bds_unwind1;          bds_unwind1;
# Line 3807  object V552;object V553;object V554;obje Line 3806  object V552;object V553;object V554;obje
3806          goto TTL;          goto TTL;
3807  TTL:;  TTL:;
3808          if(((V555))==Cnil){          if(((V555))==Cnil){
3809          goto T2083;}          goto T2090;}
3810          V558= list(4,VV[103],list(2,VV[91],(V552)),(V555),VV[206]);          V558= list(4,VV[104],list(2,VV[92],(V552)),(V555),VV[207]);
3811          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V558)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V558)));
3812          goto T2083;          goto T2090;
3813  T2083:;  T2090:;
3814          if(((V556))==Cnil){          if(((V556))==Cnil){
3815          goto T2086;}          goto T2093;}
3816          V559= list(2,VV[91],(V552));          V559= list(2,VV[92],(V552));
3817          V560= list(4,VV[103],/* INLINE-ARGS */V559,list(2,VV[91],(V556)),VV[207]);          V560= list(4,VV[104],/* INLINE-ARGS */V559,list(2,VV[92],(V556)),VV[208]);
3818          (void)((VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V560)));          (void)((VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V560)));
3819          goto T2086;          goto T2093;
3820  T2086:;  T2093:;
3821          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[32]);
3822          (void)((*(LnkLI277))((V553)));          (void)((*(LnkLI278))((V553)));
3823          princ_str("();",VV[31]);          princ_str("();",VV[32]);
3824          V561= list(2,VV[91],(V552));          V561= list(2,VV[92],(V552));
3825          V562= list(3,VV[208],/* INLINE-ARGS */V561,(*(LnkLI304))(VV[209],(V553)));          V562= list(3,VV[209],/* INLINE-ARGS */V561,(*(LnkLI305))(VV[210],(V553)));
3826          {object V563 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V562));          {object V563 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V562));
3827          VMR35(V563)}          VMR35(V563)}
3828          return Cnil;          return Cnil;
3829  }  }
# Line 3837  object V570;object V571;register object Line 3836  object V570;object V571;register object
3836          bds_check;          bds_check;
3837          goto TTL;          goto TTL;
3838  TTL:;  TTL:;
3839          if((get((V570),VV[210],Cnil))==Cnil){          if((get((V570),VV[211],Cnil))==Cnil){
3840          goto T2095;}          goto T2102;}
3841          bds_bind(VV[20],VV[211]);          bds_bind(VV[21],VV[212]);
3842          goto T2093;          goto T2100;
3843          goto T2095;          goto T2102;
3844  T2095:;  T2102:;
3845          bds_bind(VV[20],VV[212]);          bds_bind(VV[21],VV[213]);
3846          goto T2093;          goto T2100;
3847  T2093:;  T2100:;
3848          bds_bind(VV[128],VV[127]);          bds_bind(VV[129],VV[128]);
3849          bds_bind(VV[18],Cnil);          bds_bind(VV[19],Cnil);
         bds_bind(VV[129],small_fixnum(0));  
3850          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
3851          bds_bind(VV[131],small_fixnum(0));          bds_bind(VV[131],small_fixnum(0));
3852          bds_bind(VV[132],small_fixnum(0));          bds_bind(VV[132],small_fixnum(0));
3853          bds_bind(VV[133],Cnil);          bds_bind(VV[133],small_fixnum(0));
3854          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],Cnil);
3855          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
3856          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          bds_bind(VV[136],(VV[129]->s.s_dbind));
3857          bds_bind(VV[136],symbol_value(VV[137]));          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));
3858          bds_bind(VV[138],Cnil);          bds_bind(VV[137],symbol_value(VV[138]));
3859          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
3860          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
3861          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],Cnil);
3862          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[213],(V570))));          bds_bind(VV[142],small_fixnum(0));
3863          princ_str("\nstatic void L",VV[25]);          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[214],(V570))));
3864          (void)((*(LnkLI274))((V571)));          princ_str("\nstatic void L",VV[26]);
3865          princ_str("()",VV[25]);          (void)((*(LnkLI275))((V571)));
3866          princ_str("\n{register object *",VV[25]);          princ_str("()",VV[26]);
3867          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          princ_str("\n{register object *",VV[26]);
3868          princ_str("base=vs_base;",VV[25]);          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
3869          V576= structure_ref(car(cddddr((V572))),VV[62],1);          princ_str("base=vs_base;",VV[26]);
3870          (void)((*(LnkLI317))(/* INLINE-ARGS */V576,(V571),VV[148]));          V576= structure_ref(car(cddddr((V572))),VV[63],1);
3871          princ_str("\n   register object *",VV[25]);          (void)((*(LnkLI318))(/* INLINE-ARGS */V576,(V571),VV[149]));
3872          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          princ_str("\n   register object *",VV[26]);
3873          princ_str("sup=base+VM",VV[25]);          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
3874          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str("sup=base+VM",VV[26]);
3875          princ_char(59,VV[25]);          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
3876          princ_str(" VC",VV[25]);          princ_char(59,VV[26]);
3877          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str(" VC",VV[26]);
3878          if((symbol_value(VV[163]))==Cnil){          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
3879          goto T2121;}          if((symbol_value(VV[164]))==Cnil){
3880          princ_str("\n   vs_reserve(VM",VV[25]);          goto T2128;}
3881          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str("\n   vs_reserve(VM",VV[26]);
3882          princ_str(");",VV[25]);          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
3883          goto T2119;          princ_str(");",VV[26]);
3884          goto T2121;          goto T2126;
3885  T2121:;          goto T2128;
3886          princ_str("\n   vs_check;",VV[25]);  T2128:;
3887          goto T2119;          princ_str("\n   vs_check;",VV[26]);
3888  T2119:;          goto T2126;
3889    T2126:;
3890          if(((V575))==Cnil){          if(((V575))==Cnil){
3891          goto T2127;}          goto T2134;}
3892          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[26]);
3893          goto T2127;          goto T2134;
3894  T2127:;  T2134:;
3895          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
3896          goto T2131;}          goto T2138;}
3897          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[26]);
3898          goto T2131;          goto T2138;
3899  T2131:;  T2138:;
3900          base[15]= car((V572));          base[15]= car((V572));
3901          base[16]= cadr((V572));          base[16]= cadr((V572));
3902          base[17]= caddr((V572));          base[17]= caddr((V572));
3903          base[18]= cadddr((V572));          base[18]= cadddr((V572));
3904          vs_top=(vs_base=base+15)+4;          vs_top=(vs_base=base+15)+4;
3905          (void) (*Lnk341)();          (void) (*Lnk342)();
3906          vs_top=sup;          vs_top=sup;
3907          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
3908          {object V577;          {object V577;
3909          V577= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));          V577= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind));
3910          setq(VV[33],make_cons((V577),symbol_value(VV[33])));}          setq(VV[34],make_cons((V577),symbol_value(VV[34])));}
3911          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[32]);
3912          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));          (void)((*(LnkLI278))((VV[137]->s.s_dbind)));
3913          {object V578 = (*(LnkLI335))();          {object V578 = (*(LnkLI336))();
3914          bds_unwind1;          bds_unwind1;
3915          bds_unwind1;          bds_unwind1;
3916          bds_unwind1;          bds_unwind1;
# Line 3943  TTL:; Line 3942  TTL:;
3942          {register object V581;          {register object V581;
3943          V581= Cnil;          V581= Cnil;
3944          setq(VV[6],Ct);          setq(VV[6],Ct);
3945          if((symbol_value(VV[48]))==Cnil){          if((symbol_value(VV[49]))==Cnil){
3946          goto T2152;}          goto T2159;}
3947          (void)((*(LnkLI268))(Cnil,(V580)));          (void)((*(LnkLI269))(Cnil,(V580)));
3948          {object V582;          {object V582;
3949          base[0]= VV[214];          base[0]= VV[215];
3950          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3951          Lgensym();          Lgensym();
3952          vs_top=sup;          vs_top=sup;
3953          V582= vs_base[0];          V582= vs_base[0];
3954          V583= listA(3,VV[64],(V582),VV[215]);          V583= listA(3,VV[65],(V582),VV[216]);
3955          (void)((*(LnkLI292))(/* INLINE-ARGS */V583));          (void)((*(LnkLI293))(/* INLINE-ARGS */V583));
3956          base[0]= list(5,VV[51],(V582),Cnil,(V580),Cnil);          base[0]= list(5,VV[52],(V582),Cnil,(V580),Cnil);
3957          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3958          (void) (*Lnk272)();          (void) (*Lnk273)();
3959          vs_top=sup;          vs_top=sup;
3960          {object V584;          {object V584;
3961          V584= list(2,VV[216],make_cons((V582),Cnil));          V584= list(2,VV[217],make_cons((V582),Cnil));
3962          setq(VV[24],make_cons((V584),symbol_value(VV[24])));          setq(VV[25],make_cons((V584),symbol_value(VV[25])));
3963          {object V585 = symbol_value(VV[24]);          {object V585 = symbol_value(VV[25]);
3964          VMR37(V585)}}}          VMR37(V585)}}}
3965          goto T2152;          goto T2159;
3966  T2152:;  T2159:;
3967          {object V586;          {object V586;
3968          if(type_of((V580))==t_cons){          if(type_of((V580))==t_cons){
3969          goto T2163;}          goto T2170;}
3970          V586= Cnil;          V586= Cnil;
3971          goto T2162;          goto T2169;
3972          goto T2163;          goto T2170;
3973  T2163:;  T2170:;
3974          if(type_of(car((V580)))==t_symbol){          if(type_of(car((V580)))==t_symbol){
3975          goto T2165;}          goto T2172;}
3976          V586= Cnil;          V586= Cnil;
         goto T2162;  
         goto T2165;  
 T2165:;  
         if(!((car((V580)))==(VV[217]))){  
         goto T2169;}  
         goto T2167;  
3977          goto T2169;          goto T2169;
3978  T2169:;          goto T2172;
3979    T2172:;
3980            if(!((car((V580)))==(VV[218]))){
3981            goto T2176;}
3982            goto T2174;
3983            goto T2176;
3984    T2176:;
3985          base[0]= car((V580));          base[0]= car((V580));
3986          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3987          Lspecial_form_p();          Lspecial_form_p();
3988          vs_top=sup;          vs_top=sup;
3989          V587= vs_base[0];          V587= vs_base[0];
3990          if((V587)==Cnil){          if((V587)==Cnil){
3991          goto T2167;}          goto T2174;}
3992          V586= Cnil;          V586= Cnil;
3993          goto T2162;          goto T2169;
3994          goto T2167;          goto T2174;
3995  T2167:;  T2174:;
3996          {register object V588;          {register object V588;
3997          register long V589;          register long V589;
3998          V588= cdr((V580));          V588= cdr((V580));
3999          V589= 1;          V589= 1;
4000          goto T2176;          goto T2183;
4001  T2176:;  T2183:;
4002          if((V589)>=(1000)){          if((V589)>=(1000)){
4003          goto T2178;}          goto T2185;}
4004          if(type_of((V588))==t_cons){          if(type_of((V588))==t_cons){
4005          goto T2177;}          goto T2184;}
4006          goto T2178;          goto T2185;
4007  T2178:;  T2185:;
4008          V586= Cnil;          V586= Cnil;
4009          goto T2162;          goto T2169;
4010          goto T2177;          goto T2184;
4011  T2177:;  T2184:;
4012          if(!(type_of(car((V588)))==t_cons)){          if(!(type_of(car((V588)))==t_cons)){
4013          goto T2183;}          goto T2190;}
4014          if(!((caar((V588)))==(VV[64]))){          if(!((caar((V588)))==(VV[65]))){
4015          goto T2183;}          goto T2190;}
4016          V581= cadr(car((V588)));          V581= cadr(car((V588)));
4017          if(!(type_of((V581))==t_cons)){          if(!(type_of((V581))==t_cons)){
4018          goto T2183;}          goto T2190;}
4019          if(!((car((V581)))==(VV[218]))){          if(!((car((V581)))==(VV[219]))){
4020          goto T2183;}          goto T2190;}
4021          {register object V590;          {register object V590;
4022          vs_base=vs_top;          vs_base=vs_top;
4023          Lgensym();          Lgensym();
4024          vs_top=sup;          vs_top=sup;
4025          V590= vs_base[0];          V590= vs_base[0];
4026          base[0]= listA(3,VV[51],(V590),cdr((V581)));          base[0]= listA(3,VV[52],(V590),cdr((V581)));
4027          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4028          (void) (*Lnk272)();          (void) (*Lnk273)();
4029          vs_top=sup;          vs_top=sup;
4030          base[1]= (V580);          base[1]= (V580);
4031          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
# Line 4035  T2177:; Line 4034  T2177:;
4034          Lsubseq();          Lsubseq();
4035          vs_top=sup;          vs_top=sup;
4036          base[0]= vs_base[0];          base[0]= vs_base[0];
4037          V591= list(2,VV[219],list(2,VV[91],(V590)));          V591= list(2,VV[220],list(2,VV[92],(V590)));
4038          base[1]= make_cons(/* INLINE-ARGS */V591,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V591,Cnil);
4039          V592 = make_fixnum(V589);          V592 = make_fixnum(V589);
4040          V593= number_plus(small_fixnum(1),V592);          V593= number_plus(small_fixnum(1),V592);
# Line 4045  T2177:; Line 4044  T2177:;
4044          vs_top=sup;          vs_top=sup;
4045          V580= vs_base[0];          V580= vs_base[0];
4046          goto TTL;}          goto TTL;}
4047          goto T2183;          goto T2190;
4048  T2183:;  T2190:;
4049          if(type_of((V588))==t_cons){          if(type_of((V588))==t_cons){
4050          goto T2206;}          goto T2213;}
4051          V588= Cnil;          V588= Cnil;
4052          goto T2205;          goto T2212;
4053          goto T2206;          goto T2213;
4054  T2206:;  T2213:;
4055          V588= cdr((V588));          V588= cdr((V588));
4056          goto T2205;          goto T2212;
4057  T2205:;  T2212:;
4058          V589= (long)(1)+(V589);          V589= (long)(1)+(V589);
4059          goto T2176;}          goto T2183;}
4060          goto T2162;          goto T2169;
4061  T2162:;  T2169:;
4062          if(((V586))==Cnil){          if(((V586))==Cnil){
4063          goto T2211;}          goto T2218;}
4064          {object V594 = (V586);          {object V594 = (V586);
4065          VMR37(V594)}          VMR37(V594)}
4066          goto T2211;          goto T2218;
4067  T2211:;  T2218:;
4068          (void)((*(LnkLI268))(Cnil,(V580)));          (void)((*(LnkLI269))(Cnil,(V580)));
         bds_bind(VV[55],Cnil);  
4069          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
4070          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
4071          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
4072          bds_bind(VV[52],Cnil);          bds_bind(VV[59],Cnil);
4073            bds_bind(VV[53],Cnil);
4074          {object V595;          {object V595;
4075          V595= list(2,VV[216],(V580));          V595= list(2,VV[217],(V580));
4076          setq(VV[24],make_cons((V595),symbol_value(VV[24])));}          setq(VV[25],make_cons((V595),symbol_value(VV[25])));}
4077          {object V596 = Cnil;          {object V596 = Cnil;
4078          bds_unwind1;          bds_unwind1;
4079          bds_unwind1;          bds_unwind1;
# Line 4096  TTL:; Line 4095  TTL:;
4095          {object V599;          {object V599;
4096          V599= (type_of((V598))!=t_cons?Ct:Cnil);          V599= (type_of((V598))!=t_cons?Ct:Cnil);
4097          if(((V599))==Cnil){          if(((V599))==Cnil){
4098          goto T2219;}          goto T2226;}
4099          {object V600 = (V599);          {object V600 = (V599);
4100          VMR38(V600)}          VMR38(V600)}
4101          goto T2219;          goto T2226;
4102  T2219:;  T2226:;
4103          {object V601;          {object V601;
4104          base[0]= (V598);          base[0]= (V598);
4105          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 4108  T2219:; Line 4107  T2219:;
4107          vs_top=sup;          vs_top=sup;
4108          V601= vs_base[0];          V601= vs_base[0];
4109          if(((V601))==Cnil){          if(((V601))==Cnil){
4110          goto T2224;}          goto T2231;}
4111          {object V602 = (V601);          {object V602 = (V601);
4112          VMR38(V602)}          VMR38(V602)}
4113          goto T2224;          goto T2231;
4114  T2224:;  T2231:;
4115          {object V603 = (VFUN_NARGS=1,(*(LnkLI303))((V598)));          {object V603 = (VFUN_NARGS=1,(*(LnkLI304))((V598)));
4116          VMR38(V603)}}}          VMR38(V603)}}}
4117          base[0]=base[0];          base[0]=base[0];
4118          return Cnil;          return Cnil;
# Line 4127  static object LI40() Line 4126  static object LI40()
4126  TTL:;  TTL:;
4127          {register object V604;          {register object V604;
4128          register object V605;          register object V605;
4129          V604= reverse(symbol_value(VV[52]));          V604= reverse(symbol_value(VV[53]));
4130          V605= car((V604));          V605= car((V604));
4131          goto T2229;          goto T2236;
4132  T2229:;  T2236:;
4133          if(!(endp_prop((V604)))){          if(!(endp_prop((V604)))){
4134          goto T2230;}          goto T2237;}
4135          {object V606 = Cnil;          {object V606 = Cnil;
4136          VMR39(V606)}          VMR39(V606)}
4137          goto T2230;          goto T2237;
4138  T2230:;  T2237:;
4139          if(!(type_of((V605))!=t_cons)){          if(!(type_of((V605))!=t_cons)){
4140          goto T2234;}          goto T2241;}
4141          (void)((*(LnkLI342))());          (void)((*(LnkLI343))());
4142          goto T2234;          goto T2241;
4143  T2234:;  T2241:;
4144          {register object V607;          {register object V607;
4145          V607= make_cons(VV[220],(V605));          V607= make_cons(VV[221],(V605));
4146          setq(VV[24],make_cons((V607),symbol_value(VV[24])));}          setq(VV[25],make_cons((V607),symbol_value(VV[25])));}
4147          V604= cdr((V604));          V604= cdr((V604));
4148          V605= car((V604));          V605= car((V604));
4149          goto T2229;}          goto T2236;}
4150          base[0]=base[0];          base[0]=base[0];
4151          return Cnil;          return Cnil;
4152  }  }
# Line 4159  object V610;object V611; Line 4158  object V610;object V611;
4158  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
4159          goto TTL;          goto TTL;
4160  TTL:;  TTL:;
4161          V612= list(3,VV[221],(V610),(V611));          V612= list(3,VV[222],(V610),(V611));
4162          {object V613 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V612));          {object V613 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V612));
4163          VMR40(V613)}          VMR40(V613)}
4164          return Cnil;          return Cnil;
4165  }  }
# Line 4172  object V615; Line 4171  object V615;
4171  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
4172          goto TTL;          goto TTL;
4173  TTL:;  TTL:;
4174          {object V616 = (*(LnkLI342))();          {object V616 = (*(LnkLI343))();
4175          VMR41(V616)}          VMR41(V616)}
4176          return Cnil;          return Cnil;
4177  }  }
# Line 4184  object V618; Line 4183  object V618;
4183  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
4184          goto TTL;          goto TTL;
4185  TTL:;  TTL:;
4186          V619= (*(LnkLI268))(Cnil,Cnil);          V619= (*(LnkLI269))(Cnil,Cnil);
4187          V620= make_cons(((/* INLINE-ARGS */V619)==Cnil?Ct:Cnil),Cnil);          V620= make_cons(((/* INLINE-ARGS */V619)==Cnil?Ct:Cnil),Cnil);
4188          V621= append((V618),/* INLINE-ARGS */V620);          V621= append((V618),/* INLINE-ARGS */V620);
4189          V622= make_cons(VV[222],/* INLINE-ARGS */V621);          V622= make_cons(VV[223],/* INLINE-ARGS */V621);
4190          (void)((*(LnkLI268))(Ct,/* INLINE-ARGS */V622));          (void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V622));
4191          V623= make_cons(VV[222],(V618));          V623= make_cons(VV[223],(V618));
4192          {object V624 = (*(LnkLI273))(/* INLINE-ARGS */V623);          {object V624 = (*(LnkLI274))(/* INLINE-ARGS */V623);
4193          VMR42(V624)}          VMR42(V624)}
4194          return Cnil;          return Cnil;
4195  }  }
# Line 4202  object V627;object V628; Line 4201  object V627;object V628;
4201  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
4202          goto TTL;          goto TTL;
4203  TTL:;  TTL:;
4204          princ_str("\n   VV[",VV[25]);          princ_str("\n   VV[",VV[26]);
4205          (void)((*(LnkLI274))((V628)));          (void)((*(LnkLI275))((V628)));
4206          princ_str("]->s.s_dbind = ",VV[25]);          princ_str("]->s.s_dbind = ",VV[26]);
4207          (void)((*(LnkLI274))((V627)));          (void)((*(LnkLI275))((V627)));
4208          princ_char(59,VV[25]);          princ_char(59,VV[26]);
4209          {object V629 = Cnil;          {object V629 = Cnil;
4210          VMR43(V629)}          VMR43(V629)}
4211          return Cnil;          return Cnil;
# Line 4223  TTL:; Line 4222  TTL:;
4222          register object V633;          register object V633;
4223          V632= (V631);          V632= (V631);
4224          V633= car((V632));          V633= car((V632));
4225          goto T2256;          goto T2263;
4226  T2256:;  T2263:;
4227          if(!(endp_prop((V632)))){          if(!(endp_prop((V632)))){
4228          goto T2257;}          goto T2264;}
4229          goto T2252;          goto T2259;
4230          goto T2257;          goto T2264;
4231  T2257:;  T2264:;
4232          if(type_of((V633))==t_string){          if(type_of((V633))==t_string){
4233          goto T2261;}          goto T2268;}
4234          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V633))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[224],(V633))));
4235          goto T2261;          goto T2268;
4236  T2261:;  T2268:;
4237          V632= cdr((V632));          V632= cdr((V632));
4238          V633= car((V632));          V633= car((V632));
4239          goto T2256;}          goto T2263;}
4240          goto T2252;          goto T2259;
4241  T2252:;  T2259:;
4242          {object V634;          {object V634;
4243          V634= list(2,VV[224],(V631));          V634= list(2,VV[225],(V631));
4244          setq(VV[24],make_cons((V634),symbol_value(VV[24])));          setq(VV[25],make_cons((V634),symbol_value(VV[25])));
4245          {object V635 = symbol_value(VV[24]);          {object V635 = symbol_value(VV[25]);
4246          VMR44(V635)}}          VMR44(V635)}}
4247          base[0]=base[0];          base[0]=base[0];
4248          return Cnil;          return Cnil;
# Line 4260  TTL:; Line 4259  TTL:;
4259          register object V639;          register object V639;
4260          V638= (V637);          V638= (V637);
4261          V639= car((V638));          V639= car((V638));
4262          goto T2274;          goto T2281;
4263  T2274:;  T2281:;
4264          if(!(endp_prop((V638)))){          if(!(endp_prop((V638)))){
4265          goto T2275;}          goto T2282;}
4266          {object V640 = Cnil;          {object V640 = Cnil;
4267          VMR45(V640)}          VMR45(V640)}
4268          goto T2275;          goto T2282;
4269  T2275:;  T2282:;
4270          princ_char(10,VV[25]);          princ_char(10,VV[26]);
4271          (void)((*(LnkLI274))((V639)));          (void)((*(LnkLI275))((V639)));
4272          V638= cdr((V638));          V638= cdr((V638));
4273          V639= car((V638));          V639= car((V638));
4274          goto T2274;}          goto T2281;}
4275          base[0]=base[0];          base[0]=base[0];
4276          return Cnil;          return Cnil;
4277  }  }
# Line 4287  TTL:; Line 4286  TTL:;
4286          {register object V643;          {register object V643;
4287          V643= Cnil;          V643= Cnil;
4288          if(endp_prop((V642))){          if(endp_prop((V642))){
4289          goto T2289;}          goto T2296;}
4290          if(!(endp_prop(cdr((V642))))){          if(!(endp_prop(cdr((V642))))){
4291          goto T2288;}          goto T2295;}
4292          goto T2289;          goto T2296;
4293  T2289:;  T2296:;
4294          V644 = make_fixnum((long)length((V642)));          V644 = make_fixnum((long)length((V642)));
4295          (void)((*(LnkLI283))(VV[225],small_fixnum(2),V644));          (void)((*(LnkLI284))(VV[226],small_fixnum(2),V644));
4296          goto T2288;          goto T2295;
4297  T2288:;  T2295:;
4298          if(type_of(car((V642)))==t_string){          if(type_of(car((V642)))==t_string){
4299          goto T2293;}          goto T2300;}
4300          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V642)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[227],car((V642)))));
4301          goto T2293;          goto T2300;
4302  T2293:;  T2300:;
4303          {object V645= cadr((V642));          {object V645= cadr((V642));
4304          if(type_of(V645)==t_fixnum||          if(type_of(V645)==t_fixnum||
4305  type_of(V645)==t_bignum||  type_of(V645)==t_bignum||
# Line 4308  type_of(V645)==t_ratio|| Line 4307  type_of(V645)==t_ratio||
4307  type_of(V645)==t_shortfloat||  type_of(V645)==t_shortfloat||
4308  type_of(V645)==t_longfloat||  type_of(V645)==t_longfloat||
4309  type_of(V645)==t_complex){  type_of(V645)==t_complex){
4310          goto T2296;}}          goto T2303;}}
4311          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V642)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[228],cadr((V642)))));
4312          goto T2296;          goto T2303;
4313  T2296:;  T2303:;
4314          {register object V646;          {register object V646;
4315          register object V647;          register object V647;
4316          V646= cddr((V642));          V646= cddr((V642));
4317          V647= car((V646));          V647= car((V646));
4318          goto T2303;          goto T2310;
4319  T2303:;  T2310:;
4320          if(!(endp_prop((V646)))){          if(!(endp_prop((V646)))){
4321          goto T2304;}          goto T2311;}
4322          goto T2299;          goto T2306;
4323          goto T2304;          goto T2311;
4324  T2304:;  T2311:;
4325          if(!(type_of((V647))==t_string)){          if(!(type_of((V647))==t_string)){
4326          goto T2310;}          goto T2317;}
4327          {register object V648;          {register object V648;
4328          V648= (V647);          V648= (V647);
4329          V643= make_cons((V648),(V643));          V643= make_cons((V648),(V643));
         goto T2308;}  
         goto T2310;  
 T2310:;  
         if(!(type_of((V647))==t_cons)){  
4330          goto T2315;}          goto T2315;}
4331            goto T2317;
4332    T2317:;
4333            if(!(type_of((V647))==t_cons)){
4334            goto T2322;}
4335          if(!(type_of(car((V647)))==t_symbol)){          if(!(type_of(car((V647)))==t_symbol)){
4336          goto T2318;}          goto T2325;}
4337          base[2]= car((V647));          base[2]= car((V647));
4338          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4339          Lspecial_form_p();          Lspecial_form_p();
4340          vs_top=sup;          vs_top=sup;
4341          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4342          goto T2320;}          goto T2327;}
4343          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V647)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[229],car((V647)))));
4344          goto T2320;          goto T2327;
4345  T2320:;  T2327:;
4346          {register object V649;          {register object V649;
4347          V650= car((V647));          V650= car((V647));
4348          V651= (*(LnkLI343))(cdr((V647)));          V651= (*(LnkLI344))(cdr((V647)));
4349          V652= make_cons(/* INLINE-ARGS */V650,/* INLINE-ARGS */V651);          V652= make_cons(/* INLINE-ARGS */V650,/* INLINE-ARGS */V651);
4350          V649= make_cons(/* INLINE-ARGS */V652,Cnil);          V649= make_cons(/* INLINE-ARGS */V652,Cnil);
4351          V643= make_cons((V649),(V643));          V643= make_cons((V649),(V643));
4352          goto T2308;}          goto T2315;}
4353          goto T2318;          goto T2325;
4354  T2318:;  T2325:;
4355          if(!(type_of(car((V647)))==t_cons)){          if(!(type_of(car((V647)))==t_cons)){
4356          goto T2327;}          goto T2334;}
4357          if(!(type_of(caar((V647)))==t_symbol)){          if(!(type_of(caar((V647)))==t_symbol)){
         goto T2327;}  
         if(!((caar((V647)))==(VV[91]))){  
4358          goto T2334;}          goto T2334;}
4359            if(!((caar((V647)))==(VV[92]))){
4360            goto T2341;}
4361          if(!(endp_prop(cdar((V647))))){          if(!(endp_prop(cdar((V647))))){
4362          goto T2336;}          goto T2343;}
4363          goto T2327;          goto T2334;
4364          goto T2336;          goto T2343;
4365  T2336:;  T2343:;
4366          if(!(((endp_prop(cddar((V647)))?Ct:Cnil))==Cnil)){          if(!(((endp_prop(cddar((V647)))?Ct:Cnil))==Cnil)){
4367          goto T2338;}          goto T2345;}
4368          goto T2327;          goto T2334;
4369          goto T2338;          goto T2345;
4370  T2338:;  T2345:;
4371          if(!(endp_prop(cdr((V647))))){          if(!(endp_prop(cdr((V647))))){
4372          goto T2340;}          goto T2347;}
         goto T2327;  
         goto T2340;  
 T2340:;  
         if(((endp_prop(cddr((V647)))?Ct:Cnil))==Cnil){  
         goto T2327;}  
         goto T2332;  
4373          goto T2334;          goto T2334;
4374  T2334:;          goto T2347;
4375    T2347:;
4376            if(((endp_prop(cddr((V647)))?Ct:Cnil))==Cnil){
4377            goto T2334;}
4378            goto T2339;
4379            goto T2341;
4380    T2341:;
4381          base[2]= caar((V647));          base[2]= caar((V647));
4382          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4383          Lspecial_form_p();          Lspecial_form_p();
4384          vs_top=sup;          vs_top=sup;
4385          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4386          goto T2327;}          goto T2334;}
4387          goto T2332;          goto T2339;
4388  T2332:;  T2339:;
4389          {register object V653;          {register object V653;
4390          V654= caar((V647));          V654= caar((V647));
4391          if(!((caar((V647)))==(VV[91]))){          if(!((caar((V647)))==(VV[92]))){
4392          goto T2346;}          goto T2353;}
4393          V656= (*(LnkLI328))(cadar((V647)));          V656= (*(LnkLI329))(cadar((V647)));
4394          V655= make_cons(/* INLINE-ARGS */V656,Cnil);          V655= make_cons(/* INLINE-ARGS */V656,Cnil);
4395          goto T2344;          goto T2351;
4396          goto T2346;          goto T2353;
4397  T2346:;  T2353:;
4398          V655= (*(LnkLI343))(cdar((V647)));          V655= (*(LnkLI344))(cdar((V647)));
4399          goto T2344;          goto T2351;
4400  T2344:;  T2351:;
4401          V657= make_cons(/* INLINE-ARGS */V654,V655);          V657= make_cons(/* INLINE-ARGS */V654,V655);
4402          V658= (*(LnkLI343))(cdr((V647)));          V658= (*(LnkLI344))(cdr((V647)));
4403          V653= make_cons(/* INLINE-ARGS */V657,/* INLINE-ARGS */V658);          V653= make_cons(/* INLINE-ARGS */V657,/* INLINE-ARGS */V658);
4404          V643= make_cons((V653),(V643));          V643= make_cons((V653),(V643));
4405          goto T2308;}          goto T2315;}
4406          goto T2327;          goto T2334;
4407  T2327:;  T2334:;
4408          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V647))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[230],(V647))));
4409          goto T2308;          goto T2315;
4410            goto T2322;
4411    T2322:;
4412            (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[231],(V647))));
4413          goto T2315;          goto T2315;
4414  T2315:;  T2315:;
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V647))));  
         goto T2308;  
 T2308:;  
4415          V646= cdr((V646));          V646= cdr((V646));
4416          V647= car((V646));          V647= car((V646));
4417          goto T2303;}          goto T2310;}
4418          goto T2299;          goto T2306;
4419  T2299:;  T2306:;
4420          {object V659;          {object V659;
4421          V660= car((V642));          V660= car((V642));
4422          V661= cadr((V642));          V661= cadr((V642));
4423          V659= list(4,VV[225],/* INLINE-ARGS */V660,/* INLINE-ARGS */V661,reverse((V643)));          V659= list(4,VV[226],/* INLINE-ARGS */V660,/* INLINE-ARGS */V661,reverse((V643)));
4424          setq(VV[24],make_cons((V659),symbol_value(VV[24])));          setq(VV[25],make_cons((V659),symbol_value(VV[25])));
4425          {object V662 = symbol_value(VV[24]);          {object V662 = symbol_value(VV[25]);
4426          VMR46(V662)}}}          VMR46(V662)}}}
4427          base[0]=base[0];          base[0]=base[0];
4428          return Cnil;          return Cnil;
# Line 4438  object V666;object V667;object V668; Line 4437  object V666;object V667;object V668;
4437  TTL:;  TTL:;
4438          {object V669;          {object V669;
4439          V669= Cnil;          V669= Cnil;
4440          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[231],VV[225])));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[232],VV[226])));
4441          princ_char(10,VV[25]);          princ_char(10,VV[26]);
4442          (void)((*(LnkLI274))((V666)));          (void)((*(LnkLI275))((V666)));
4443          princ_str("\n{",VV[25]);          princ_str("\n{",VV[26]);
4444          princ_str("\nobject *vs=vs_top;",VV[25]);          princ_str("\nobject *vs=vs_top;",VV[26]);
4445          princ_str("\nobject *old_top=vs_top+",VV[25]);          princ_str("\nobject *old_top=vs_top+",VV[26]);
4446          (void)((*(LnkLI274))((V667)));          (void)((*(LnkLI275))((V667)));
4447          princ_char(59,VV[25]);          princ_char(59,VV[26]);
4448          if(!(number_compare((V667),small_fixnum(0))>0)){          if(!(number_compare((V667),small_fixnum(0))>0)){
4449          goto T2369;}          goto T2376;}
4450          princ_str("\n   vs_top=old_top;",VV[25]);          princ_str("\n   vs_top=old_top;",VV[26]);
4451          goto T2369;          goto T2376;
4452  T2369:;  T2376:;
4453          princ_str("\n{",VV[25]);          princ_str("\n{",VV[26]);
4454          {object V670;          {object V670;
4455          register object V671;          register object V671;
4456          V670= (V668);          V670= (V668);
4457          V671= car((V670));          V671= car((V670));
         goto T2379;  
 T2379:;  
         if(!(endp_prop((V670)))){  
         goto T2380;}  
         goto T2375;  
         goto T2380;  
 T2380:;  
         if(!(type_of((V671))==t_string)){  
         goto T2386;}  
         princ_char(10,VV[25]);  
         (void)((*(LnkLI274))((V671)));  
         goto T2384;  
4458          goto T2386;          goto T2386;
4459  T2386:;  T2386:;
4460          if(!((caar((V671)))==(VV[91]))){          if(!(endp_prop((V670)))){
4461          goto T2391;}          goto T2387;}
4462          princ_char(10,VV[25]);          goto T2382;
4463          (void)((*(LnkLI274))(cadadr((V671))));          goto T2387;
4464    T2387:;
4465            if(!(type_of((V671))==t_string)){
4466            goto T2393;}
4467            princ_char(10,VV[26]);
4468            (void)((*(LnkLI275))((V671)));
4469            goto T2391;
4470            goto T2393;
4471    T2393:;
4472            if(!((caar((V671)))==(VV[92]))){
4473            goto T2398;}
4474            princ_char(10,VV[26]);
4475            (void)((*(LnkLI275))(cadadr((V671))));
4476          {object V672= caadr((V671));          {object V672= caadr((V671));
4477          if((V672!= VV[74]))goto T2396;          if((V672!= VV[75]))goto T2403;
4478          princ_str("=VV[",VV[25]);          princ_str("=VV[",VV[26]);
4479          (void)((*(LnkLI274))(cadar((V671))));          (void)((*(LnkLI275))(cadar((V671))));
4480          princ_str("];",VV[25]);          princ_str("];",VV[26]);
4481          goto T2384;          goto T2391;
4482          goto T2396;          goto T2403;
4483  T2396:;  T2403:;
4484          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[26]);
4485          base[1]= symbol_name(caadr((V671)));          base[1]= symbol_name(caadr((V671)));
4486          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4487          Lstring_downcase();          Lstring_downcase();
4488          vs_top=sup;          vs_top=sup;
4489          V673= vs_base[0];          V673= vs_base[0];
4490          (void)((*(LnkLI274))(V673));          (void)((*(LnkLI275))(V673));
4491          princ_str("(VV[",VV[25]);          princ_str("(VV[",VV[26]);
4492          (void)((*(LnkLI274))(cadar((V671))));          (void)((*(LnkLI275))(cadar((V671))));
4493          princ_str("]);",VV[25]);          princ_str("]);",VV[26]);
4494          goto T2384;}          goto T2391;}
4495          goto T2391;          goto T2398;
4496  T2391:;  T2398:;
4497          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);          princ_str("\n{vs_base=vs_top=old_top;",VV[26]);
4498          {register object V674;          {register object V674;
4499          register object V675;          register object V675;
4500          V674= cdar((V671));          V674= cdar((V671));
4501          V675= car((V674));          V675= car((V674));
         goto T2413;  
 T2413:;  
         if(!(endp_prop((V674)))){  
         goto T2414;}  
         goto T2409;  
         goto T2414;  
 T2414:;  
         princ_str("\nvs_push(",VV[25]);  
         {object V676= car((V675));  
         if((V676!= VV[74]))goto T2421;  
         (void)((*(LnkLI274))(cadr((V675))));  
4502          goto T2420;          goto T2420;
4503    T2420:;
4504            if(!(endp_prop((V674)))){
4505            goto T2421;}
4506            goto T2416;
4507          goto T2421;          goto T2421;
4508  T2421:;  T2421:;
4509          if((V676!= VV[344]))goto T2423;          princ_str("\nvs_push(",VV[26]);
4510          princ_str("code_char((long)",VV[25]);          {object V676= car((V675));
4511          (void)((*(LnkLI274))(cadr((V675))));          if((V676!= VV[75]))goto T2428;
4512          princ_char(41,VV[25]);          (void)((*(LnkLI275))(cadr((V675))));
4513          goto T2420;          goto T2427;
         goto T2423;  
 T2423:;  
         if((V676!= VV[345]))goto T2427;  
         if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){  
         goto T2428;}  
         princ_str("CMP",VV[25]);  
4514          goto T2428;          goto T2428;
4515  T2428:;  T2428:;
4516          princ_str("make_fixnum((long)",VV[25]);          if((V676!= VV[345]))goto T2430;
4517          (void)((*(LnkLI274))(cadr((V675))));          princ_str("code_char((long)",VV[26]);
4518          princ_char(41,VV[25]);          (void)((*(LnkLI275))(cadr((V675))));
4519          goto T2420;          princ_char(41,VV[26]);
4520          goto T2427;          goto T2427;
4521  T2427:;          goto T2430;
4522          if((V676!= VV[346]))goto T2435;  T2430:;
4523          princ_str("make_shortfloat((double)",VV[25]);          if((V676!= VV[346]))goto T2434;
4524          (void)((*(LnkLI274))(cadr((V675))));          if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){
4525          princ_char(41,VV[25]);          goto T2435;}
4526          goto T2420;          princ_str("CMP",VV[26]);
4527          goto T2435;          goto T2435;
4528  T2435:;  T2435:;
4529          if((V676!= VV[347]))goto T2439;          princ_str("make_fixnum((long)",VV[26]);
4530          princ_str("make_longfloat((double)",VV[25]);          (void)((*(LnkLI275))(cadr((V675))));
4531          (void)((*(LnkLI274))(cadr((V675))));          princ_char(41,VV[26]);
4532          princ_char(41,VV[25]);          goto T2427;
4533          goto T2420;          goto T2434;
4534          goto T2439;  T2434:;
4535  T2439:;}          if((V676!= VV[347]))goto T2442;
4536          goto T2420;          princ_str("make_shortfloat((double)",VV[26]);
4537  T2420:;          (void)((*(LnkLI275))(cadr((V675))));
4538          princ_str(");",VV[25]);          princ_char(41,VV[26]);
4539            goto T2427;
4540            goto T2442;
4541    T2442:;
4542            if((V676!= VV[348]))goto T2446;
4543            princ_str("make_longfloat((double)",VV[26]);
4544            (void)((*(LnkLI275))(cadr((V675))));
4545            princ_char(41,VV[26]);
4546            goto T2427;
4547            goto T2446;
4548    T2446:;}
4549            goto T2427;
4550    T2427:;
4551            princ_str(");",VV[26]);
4552          V674= cdr((V674));          V674= cdr((V674));
4553          V675= car((V674));          V675= car((V674));
4554          goto T2413;}          goto T2420;}
4555          goto T2409;          goto T2416;
4556  T2409:;  T2416:;
4557          {register object x= caar((V671)),V677= symbol_value(VV[79]);          {register object x= caar((V671)),V677= symbol_value(VV[80]);
4558          while(!endp(V677))          while(!endp(V677))
4559          if(type_of(V677->c.c_car)==t_cons &&eql(x,V677->c.c_car->c.c_car)){          if(type_of(V677->c.c_car)==t_cons &&eql(x,V677->c.c_car->c.c_car)){
4560          V669= (V677->c.c_car);          V669= (V677->c.c_car);
4561          goto T2454;          goto T2461;
4562          }else V677=V677->c.c_cdr;          }else V677=V677->c.c_cdr;
4563          V669= Cnil;}          V669= Cnil;}
4564          goto T2454;          goto T2461;
4565  T2454:;  T2461:;
4566          if(((V669))==Cnil){          if(((V669))==Cnil){
4567          goto T2452;}          goto T2459;}
4568          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
4569          goto T2456;}          goto T2463;}
4570          princ_str("\nihs_push(VV[",VV[25]);          princ_str("\nihs_push(VV[",VV[26]);
4571          V678= (*(LnkLI330))(caar((V671)));          V678= (*(LnkLI331))(caar((V671)));
4572          (void)((*(LnkLI274))(/* INLINE-ARGS */V678));          (void)((*(LnkLI275))(/* INLINE-ARGS */V678));
4573          princ_str("]);",VV[25]);          princ_str("]);",VV[26]);
4574          princ_str("\nL",VV[25]);          princ_str("\nL",VV[26]);
4575          (void)((*(LnkLI274))(cdr((V669))));          (void)((*(LnkLI275))(cdr((V669))));
4576          princ_str("();",VV[25]);          princ_str("();",VV[26]);
4577          princ_str("\nihs_pop();",VV[25]);          princ_str("\nihs_pop();",VV[26]);
4578          goto T2450;          goto T2457;
4579          goto T2456;          goto T2463;
4580  T2456:;  T2463:;
4581          princ_str("\nL",VV[25]);          princ_str("\nL",VV[26]);
4582          (void)((*(LnkLI274))(cdr((V669))));          (void)((*(LnkLI275))(cdr((V669))));
4583          princ_str("();",VV[25]);          princ_str("();",VV[26]);
4584          goto T2450;          goto T2457;
4585          goto T2452;          goto T2459;
4586  T2452:;  T2459:;
4587          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
4588          goto T2471;}          goto T2478;}
4589          princ_str("\nsuper_funcall(VV[",VV[25]);          princ_str("\nsuper_funcall(VV[",VV[26]);
4590          V679= (*(LnkLI330))(caar((V671)));          V679= (*(LnkLI331))(caar((V671)));
4591          (void)((*(LnkLI274))(/* INLINE-ARGS */V679));          (void)((*(LnkLI275))(/* INLINE-ARGS */V679));
4592          princ_str("]);",VV[25]);          princ_str("]);",VV[26]);
4593          goto T2450;          goto T2457;
4594          goto T2471;          goto T2478;
4595  T2471:;  T2478:;
4596          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
4597          goto T2477;}          goto T2484;}
4598          princ_str("\nsuper_funcall_no_event(VV[",VV[25]);          princ_str("\nsuper_funcall_no_event(VV[",VV[26]);
4599          V680= (*(LnkLI330))(caar((V671)));          V680= (*(LnkLI331))(caar((V671)));
4600          (void)((*(LnkLI274))(/* INLINE-ARGS */V680));          (void)((*(LnkLI275))(/* INLINE-ARGS */V680));
4601          princ_str("]);",VV[25]);          princ_str("]);",VV[26]);
4602          goto T2450;          goto T2457;
4603          goto T2477;          goto T2484;
4604  T2477:;  T2484:;
4605          princ_str("\nCMPfuncall(VV[",VV[25]);          princ_str("\nCMPfuncall(VV[",VV[26]);
4606          V681= (*(LnkLI330))(caar((V671)));          V681= (*(LnkLI331))(caar((V671)));
4607          (void)((*(LnkLI274))(/* INLINE-ARGS */V681));          (void)((*(LnkLI275))(/* INLINE-ARGS */V681));
4608          princ_str("]->s.s_gfdef);",VV[25]);          princ_str("]->s.s_gfdef);",VV[26]);
4609          goto T2450;          goto T2457;
4610  T2450:;  T2457:;
4611          if(endp_prop(cdr((V671)))){          if(endp_prop(cdr((V671)))){
4612          goto T2485;}          goto T2492;}
4613          princ_char(10,VV[25]);          princ_char(10,VV[26]);
4614          (void)((*(LnkLI274))(cadadr((V671))));          (void)((*(LnkLI275))(cadadr((V671))));
4615          {object V682= caadr((V671));          {object V682= caadr((V671));
4616          if((V682!= VV[74]))goto T2492;          if((V682!= VV[75]))goto T2499;
4617          princ_str("=vs_base[0];",VV[25]);          princ_str("=vs_base[0];",VV[26]);
4618          goto T2491;          goto T2498;
4619          goto T2492;          goto T2499;
4620  T2492:;  T2499:;
4621          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[26]);
4622          base[1]= symbol_name(caadr((V671)));          base[1]= symbol_name(caadr((V671)));
4623          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4624          Lstring_downcase();          Lstring_downcase();
4625          vs_top=sup;          vs_top=sup;
4626          V683= vs_base[0];          V683= vs_base[0];
4627          (void)((*(LnkLI274))(V683));          (void)((*(LnkLI275))(V683));
4628          princ_str("(vs_base[0]);",VV[25]);}          princ_str("(vs_base[0]);",VV[26]);}
4629          goto T2491;          goto T2498;
4630  T2491:;  T2498:;
4631          {register object V684;          {register object V684;
4632          register object V685;          register object V685;
4633          V684= cddr((V671));          V684= cddr((V671));
4634          V685= car((V684));          V685= car((V684));
4635          goto T2502;          goto T2509;
4636  T2502:;  T2509:;
4637          if(!(endp_prop((V684)))){          if(!(endp_prop((V684)))){
4638          goto T2503;}          goto T2510;}
4639          goto T2485;          goto T2492;
4640          goto T2503;          goto T2510;
4641  T2503:;  T2510:;
4642          princ_str("\nvs_base++;",VV[25]);          princ_str("\nvs_base++;",VV[26]);
4643          princ_char(10,VV[25]);          princ_char(10,VV[26]);
4644          (void)((*(LnkLI274))(cadr((V685))));          (void)((*(LnkLI275))(cadr((V685))));
4645          {object V686= car((V685));          {object V686= car((V685));
4646          if((V686!= VV[74]))goto T2513;          if((V686!= VV[75]))goto T2520;
4647          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[26]);
4648          goto T2512;          goto T2519;
4649          goto T2513;          goto T2520;
4650  T2513:;  T2520:;
4651          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[26]);
4652          base[3]= symbol_name(car((V685)));          base[3]= symbol_name(car((V685)));
4653          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4654          Lstring_downcase();          Lstring_downcase();
4655          vs_top=sup;          vs_top=sup;
4656          V687= vs_base[0];          V687= vs_base[0];
4657          (void)((*(LnkLI274))(V687));          (void)((*(LnkLI275))(V687));
4658          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[26]);}
4659          goto T2512;          goto T2519;
4660  T2512:;  T2519:;
4661          V684= cdr((V684));          V684= cdr((V684));
4662          V685= car((V684));          V685= car((V684));
4663          goto T2502;}          goto T2509;}
4664          goto T2485;          goto T2492;
4665  T2485:;  T2492:;
4666          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
4667          goto T2384;          goto T2391;
4668  T2384:;  T2391:;
4669          V670= cdr((V670));          V670= cdr((V670));
4670          V671= car((V670));          V671= car((V670));
4671          goto T2379;}          goto T2386;}
4672          goto T2375;          goto T2382;
4673  T2375:;  T2382:;
4674          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
4675          princ_str("\nvs_top=vs;",VV[25]);          princ_str("\nvs_top=vs;",VV[26]);
4676          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
4677          {object V688 = Cnil;          {object V688 = Cnil;
4678          VMR47(V688)}}          VMR47(V688)}}
4679          base[0]=base[0];          base[0]=base[0];
# Line 4694  TTL:; Line 4693  TTL:;
4693          register object V694;          register object V694;
4694          V691= Cnil;          V691= Cnil;
4695          V692= Cnil;          V692= Cnil;
4696          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1)));
4697          V693= symbol_value(VV[61]);          V693= symbol_value(VV[62]);
4698          V694= Cnil;          V694= Cnil;
4699          if(endp_prop((V690))){          if(endp_prop((V690))){
4700          goto T2542;}          goto T2549;}
4701          if(endp_prop(cdr((V690)))){          if(endp_prop(cdr((V690)))){
4702          goto T2542;}          goto T2549;}
4703          if(!(endp_prop(cddr((V690))))){          if(!(endp_prop(cddr((V690))))){
         goto T2541;}  
         goto T2542;  
 T2542:;  
         V695 = make_fixnum((long)length((V690)));  
         (void)((*(LnkLI283))(VV[232],small_fixnum(3),V695));  
         goto T2541;  
 T2541:;  
         if(type_of(car((V690)))==t_symbol){  
4704          goto T2548;}          goto T2548;}
4705          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V690)))));          goto T2549;
4706    T2549:;
4707            V695 = make_fixnum((long)length((V690)));
4708            (void)((*(LnkLI284))(VV[233],small_fixnum(3),V695));
4709          goto T2548;          goto T2548;
4710  T2548:;  T2548:;
4711            if(type_of(car((V690)))==t_symbol){
4712            goto T2555;}
4713            (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[234],car((V690)))));
4714            goto T2555;
4715    T2555:;
4716          {register object V696;          {register object V696;
4717          register object V697;          register object V697;
4718          V696= cadr((V690));          V696= cadr((V690));
4719          V697= car((V696));          V697= car((V696));
4720          goto T2555;          goto T2562;
4721  T2555:;  T2562:;
4722          if(!(endp_prop((V696)))){          if(!(endp_prop((V696)))){
4723          goto T2556;}          goto T2563;}
4724          goto T2551;          goto T2558;
4725          goto T2556;          goto T2563;
4726  T2556:;  T2563:;
4727          {register object x= (V697),V698= VV[234];          {register object x= (V697),V698= VV[235];
4728          while(!endp(V698))          while(!endp(V698))
4729          if(eql(x,V698->c.c_car)){          if(eql(x,V698->c.c_car)){
4730          goto T2560;          goto T2567;
4731          }else V698=V698->c.c_cdr;}          }else V698=V698->c.c_cdr;}
4732          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V697))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[236],(V697))));
4733          goto T2560;          goto T2567;
4734  T2560:;  T2567:;
4735          V696= cdr((V696));          V696= cdr((V696));
4736          V697= car((V696));          V697= car((V696));
4737          goto T2555;}          goto T2562;}
4738          goto T2551;          goto T2558;
4739  T2551:;  T2558:;
4740          V694= caddr((V690));          V694= caddr((V690));
4741          if(!(type_of((V694))==t_symbol)){          if(!(type_of((V694))==t_symbol)){
4742          goto T2572;}          goto T2579;}
4743          V691= VV[74];          V691= VV[75];
4744          base[1]= symbol_name((V694));          base[1]= symbol_name((V694));
4745          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4746          Lstring_downcase();          Lstring_downcase();
4747          vs_top=sup;          vs_top=sup;
4748          V692= vs_base[0];          V692= vs_base[0];
4749          goto T2570;          goto T2577;
         goto T2572;  
 T2572:;  
         if(!(type_of((V694))==t_string)){  
         goto T2579;}  
         V691= VV[74];  
         V692= (V694);  
         goto T2570;  
4750          goto T2579;          goto T2579;
4751  T2579:;  T2579:;
4752            if(!(type_of((V694))==t_string)){
4753            goto T2586;}
4754            V691= VV[75];
4755            V692= (V694);
4756            goto T2577;
4757            goto T2586;
4758    T2586:;
4759          if(!(type_of((V694))==t_cons)){          if(!(type_of((V694))==t_cons)){
4760          goto T2585;}          goto T2592;}
4761          {register object x= car((V694)),V699= VV[236];          {register object x= car((V694)),V699= VV[237];
4762          while(!endp(V699))          while(!endp(V699))
4763          if(eql(x,V699->c.c_car)){          if(eql(x,V699->c.c_car)){
4764          goto T2589;          goto T2596;
4765          }else V699=V699->c.c_cdr;          }else V699=V699->c.c_cdr;
4766          goto T2585;}          goto T2592;}
4767          goto T2589;          goto T2596;
4768  T2589:;  T2596:;
4769          if(!(type_of(cdr((V694)))==t_cons)){          if(!(type_of(cdr((V694)))==t_cons)){
         goto T2585;}  
         if(type_of(cadr((V694)))==t_symbol){  
4770          goto T2592;}          goto T2592;}
4771            if(type_of(cadr((V694)))==t_symbol){
4772            goto T2599;}
4773          if(!(type_of(cadr((V694)))==t_string)){          if(!(type_of(cadr((V694)))==t_string)){
4774          goto T2585;}          goto T2592;}
4775          goto T2592;          goto T2599;
4776  T2592:;  T2599:;
4777          if(!(endp_prop(cddr((V694))))){          if(!(endp_prop(cddr((V694))))){
4778          goto T2585;}          goto T2592;}
4779          if(!(type_of(cadr((V694)))==t_symbol)){          if(!(type_of(cadr((V694)))==t_symbol)){
4780          goto T2600;}          goto T2607;}
4781          base[1]= symbol_name(cadr((V694)));          base[1]= symbol_name(cadr((V694)));
4782          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4783          Lstring_downcase();          Lstring_downcase();
4784          vs_top=sup;          vs_top=sup;
4785          V692= vs_base[0];          V692= vs_base[0];
4786          goto T2598;          goto T2605;
4787          goto T2600;          goto T2607;
4788  T2600:;  T2607:;
4789          V692= cadr((V694));          V692= cadr((V694));
4790          goto T2598;          goto T2605;
4791  T2598:;  T2605:;
4792          V691= car((V694));          V691= car((V694));
4793          goto T2570;          goto T2577;
4794          goto T2585;          goto T2592;
4795  T2585:;  T2592:;
4796          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V694))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[238],(V694))));
4797          goto T2570;          goto T2577;
4798  T2570:;  T2577:;
4799          {object V700;          {object V700;
4800          V700= list(6,VV[232],car((V690)),(V693),cadr((V690)),(V691),(V692));          V700= list(6,VV[233],car((V690)),(V693),cadr((V690)),(V691),(V692));
4801          setq(VV[24],make_cons((V700),symbol_value(VV[24])));}          setq(VV[25],make_cons((V700),symbol_value(VV[25])));}
4802          {object V701;          {object V701;
4803          V701= make_cons(car((V690)),(V693));          V701= make_cons(car((V690)),(V693));
4804          setq(VV[79],make_cons((V701),symbol_value(VV[79])));          setq(VV[80],make_cons((V701),symbol_value(VV[80])));
4805          {object V702 = symbol_value(VV[79]);          {object V702 = symbol_value(VV[80]);
4806          VMR48(V702)}}}          VMR48(V702)}}}
4807          base[0]=base[0];          base[0]=base[0];
4808          return Cnil;          return Cnil;
# Line 4816  object V708;object V709;object V710;obje Line 4815  object V708;object V709;object V710;obje
4815  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
4816          goto TTL;          goto TTL;
4817  TTL:;  TTL:;
4818          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[32]);
4819          (void)((*(LnkLI277))((V709)));          (void)((*(LnkLI278))((V709)));
4820          princ_str("();",VV[31]);          princ_str("();",VV[32]);
4821          V713= list(2,VV[91],(V708));          V713= list(2,VV[92],(V708));
4822          V714= list(3,VV[111],/* INLINE-ARGS */V713,(*(LnkLI304))(VV[238],(V709)));          V714= list(3,VV[112],/* INLINE-ARGS */V713,(*(LnkLI305))(VV[239],(V709)));
4823          {object V715 = (VFUN_NARGS=1,(*(LnkLI303))(/* INLINE-ARGS */V714));          {object V715 = (VFUN_NARGS=1,(*(LnkLI304))(/* INLINE-ARGS */V714));
4824          VMR49(V715)}          VMR49(V715)}
4825          return Cnil;          return Cnil;
4826  }  }
# Line 4833  object V721;object V722;object V723;regi Line 4832  object V721;object V722;object V723;regi
4832  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
4833          goto TTL;          goto TTL;
4834  TTL:;  TTL:;
4835          (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[239],(V721))));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[240],(V721))));
4836          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[26]);
4837          (void)((*(LnkLI274))((V722)));          (void)((*(LnkLI275))((V722)));
4838          princ_str("()",VV[25]);          princ_str("()",VV[26]);
4839          princ_str("\n{  object *old_base=vs_base;",VV[25]);          princ_str("\n{  object *old_base=vs_base;",VV[26]);
4840          {object V726= (V724);          {object V726= (V724);
4841          if((V726!= VV[240]))goto T2621;          if((V726!= VV[241]))goto T2628;
4842          goto T2620;          goto T2627;
4843          goto T2621;          goto T2628;
4844  T2621:;  T2628:;
4845          if((V726!= VV[158]))goto T2622;          if((V726!= VV[159]))goto T2629;
4846          princ_str("\n   char *x;",VV[25]);          princ_str("\n   char *x;",VV[26]);
4847          goto T2620;          goto T2627;
4848          goto T2622;          goto T2629;
4849  T2622:;  T2629:;
4850          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[26]);
4851          base[0]= symbol_name((V724));          base[0]= symbol_name((V724));
4852          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4853          Lstring_downcase();          Lstring_downcase();
4854          vs_top=sup;          vs_top=sup;
4855          V727= vs_base[0];          V727= vs_base[0];
4856          (void)((*(LnkLI274))(V727));          (void)((*(LnkLI275))(V727));
4857          princ_str(" x;",VV[25]);}          princ_str(" x;",VV[26]);}
4858          goto T2620;          goto T2627;
4859  T2620:;  T2627:;
4860          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
4861          goto T2629;}          goto T2636;}
4862          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[26]);
4863          V728 = make_fixnum((long)length((V723)));          V728 = make_fixnum((long)length((V723)));
4864          (void)((*(LnkLI274))(V728));          (void)((*(LnkLI275))(V728));
4865          princ_str(");",VV[25]);          princ_str(");",VV[26]);
4866          goto T2629;          goto T2636;
4867  T2629:;  T2636:;
4868          if(((V724))==(VV[240])){          if(((V724))==(VV[241])){
4869          goto T2635;}          goto T2642;}
4870          princ_str("\n   x=",VV[25]);          princ_str("\n   x=",VV[26]);
4871          goto T2635;          goto T2642;
4872  T2635:;  T2642:;
4873          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[26]);
4874          (void)((*(LnkLI274))((V725)));          (void)((*(LnkLI275))((V725)));
4875          princ_char(40,VV[25]);          princ_char(40,VV[26]);
4876          if(endp_prop((V723))){          if(endp_prop((V723))){
4877          goto T2643;}          goto T2650;}
4878          {register object V729;          {register object V729;
4879          register long V730;          register long V730;
4880          V730= 0;          V730= 0;
4881          V729= (V723);          V729= (V723);
4882          goto T2648;          goto T2655;
4883  T2648:;  T2655:;
4884          {object V731= car((V729));          {object V731= car((V729));
4885          if((V731!= VV[74]))goto T2652;          if((V731!= VV[75]))goto T2659;
4886          princ_str("\n   vs_base[",VV[25]);          princ_str("\n   vs_base[",VV[26]);
4887          V732 = make_fixnum(V730);          V732 = make_fixnum(V730);
4888          (void)((*(LnkLI274))(V732));          (void)((*(LnkLI275))(V732));
4889          princ_char(93,VV[25]);          princ_char(93,VV[26]);
4890          goto T2651;          goto T2658;
4891          goto T2652;          goto T2659;
4892  T2652:;  T2659:;
4893          princ_str("\n   object_to_",VV[25]);          princ_str("\n   object_to_",VV[26]);
4894          base[0]= symbol_name(car((V729)));          base[0]= symbol_name(car((V729)));
4895          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4896          Lstring_downcase();          Lstring_downcase();
4897          vs_top=sup;          vs_top=sup;
4898          V733= vs_base[0];          V733= vs_base[0];
4899          (void)((*(LnkLI274))(V733));          (void)((*(LnkLI275))(V733));
4900          princ_str("(vs_base[",VV[25]);          princ_str("(vs_base[",VV[26]);
4901          V734 = make_fixnum(V730);          V734 = make_fixnum(V730);
4902          (void)((*(LnkLI274))(V734));          (void)((*(LnkLI275))(V734));
4903          princ_str("])",VV[25]);}          princ_str("])",VV[26]);}
4904          goto T2651;          goto T2658;
4905  T2651:;  T2658:;
4906          if(!(endp_prop(cdr((V729))))){          if(!(endp_prop(cdr((V729))))){
4907          goto T2663;}          goto T2670;}
4908          goto T2643;          goto T2650;
4909          goto T2663;          goto T2670;
4910  T2663:;  T2670:;
4911          princ_char(44,VV[25]);          princ_char(44,VV[26]);
4912          V729= cdr((V729));          V729= cdr((V729));
4913          V730= (long)(V730)+1;          V730= (long)(V730)+1;
4914          goto T2648;}          goto T2655;}
4915          goto T2643;          goto T2650;
4916  T2643:;  T2650:;
4917          princ_str(");",VV[25]);          princ_str(");",VV[26]);
4918          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[26]);
4919          princ_str("\n   vs_base[0]=",VV[25]);          princ_str("\n   vs_base[0]=",VV[26]);
4920          {object V735= (V724);          {object V735= (V724);
4921          if((V735!= VV[240]))goto T2679;          if((V735!= VV[241]))goto T2686;
4922          princ_str("Cnil",VV[25]);          princ_str("Cnil",VV[26]);
4923          goto T2678;          goto T2685;
         goto T2679;  
 T2679:;  
         if((V735!= VV[74]))goto T2681;  
         princ_char(120,VV[25]);  
         goto T2678;  
         goto T2681;  
 T2681:;  
         if((V735!= VV[344]))goto T2683;  
         princ_str("code_char(x)",VV[25]);  
         goto T2678;  
         goto T2683;  
 T2683:;  
         if((V735!= VV[345]))goto T2685;  
         if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){  
         goto T2686;}  
         princ_str("CMP",VV[25]);  
4924          goto T2686;          goto T2686;
4925  T2686:;  T2686:;
4926          princ_str("make_fixnum(x)",VV[25]);          if((V735!= VV[75]))goto T2688;
4927          goto T2678;          princ_char(120,VV[26]);
4928          goto T2685;          goto T2685;
4929  T2685:;          goto T2688;
4930          if((V735!= VV[158]))goto T2691;  T2688:;
4931          princ_str("make_simple_string(x)",VV[25]);          if((V735!= VV[345]))goto T2690;
4932          goto T2678;          princ_str("code_char(x)",VV[26]);
4933          goto T2691;          goto T2685;
4934  T2691:;          goto T2690;
4935          if((V735!= VV[346]))goto T2693;  T2690:;
4936          princ_str("make_shortfloat(x)",VV[25]);          if((V735!= VV[346]))goto T2692;
4937          goto T2678;          if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){
4938            goto T2693;}
4939            princ_str("CMP",VV[26]);
4940          goto T2693;          goto T2693;
4941  T2693:;  T2693:;
4942          if((V735!= VV[347]))goto T2695;          princ_str("make_fixnum(x)",VV[26]);
4943          princ_str("make_longfloat(x)",VV[25]);          goto T2685;
4944          goto T2678;          goto T2692;
4945          goto T2695;  T2692:;
4946  T2695:;}          if((V735!= VV[159]))goto T2698;
4947          goto T2678;          princ_str("make_simple_string(x)",VV[26]);
4948  T2678:;          goto T2685;
4949          princ_char(59,VV[25]);          goto T2698;
4950          princ_str("\n}",VV[25]);  T2698:;
4951            if((V735!= VV[347]))goto T2700;
4952            princ_str("make_shortfloat(x)",VV[26]);
4953            goto T2685;
4954            goto T2700;
4955    T2700:;
4956            if((V735!= VV[348]))goto T2702;
4957            princ_str("make_longfloat(x)",VV[26]);
4958            goto T2685;
4959            goto T2702;
4960    T2702:;}
4961            goto T2685;
4962    T2685:;
4963            princ_char(59,VV[26]);
4964            princ_str("\n}",VV[26]);
4965          {object V736 = Cnil;          {object V736 = Cnil;
4966          VMR50(V736)}          VMR50(V736)}
4967          base[0]=base[0];          base[0]=base[0];
# Line 4994  TTL:; Line 4993  TTL:;
4993          register object V744;          register object V744;
4994          V743= (V741);          V743= (V741);
4995          V744= car((V743));          V744= car((V743));
4996          goto T2704;          goto T2711;
4997  T2704:;  T2711:;
4998          if(!(endp_prop((V743)))){          if(!(endp_prop((V743)))){
4999          goto T2705;}          goto T2712;}
5000          {object V745 = reverse((V742));          {object V745 = reverse((V742));
5001          VMR52(V745)}          VMR52(V745)}
5002          goto T2705;          goto T2712;
5003  T2705:;  T2712:;
5004          if(!(type_of((V744))==t_symbol)){          if(!(type_of((V744))==t_symbol)){
5005          goto T2711;}          goto T2718;}
5006          {object V746;          {object V746;
5007          base[2]= symbol_name((V744));          base[2]= symbol_name((V744));
5008          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
5009          Lstring_downcase();          Lstring_downcase();
5010          vs_top=sup;          vs_top=sup;
5011          V747= vs_base[0];          V747= vs_base[0];
5012          V746= list(2,VV[74],V747);          V746= list(2,VV[75],V747);
5013          V742= make_cons((V746),(V742));          V742= make_cons((V746),(V742));
5014          goto T2709;}          goto T2716;}
5015          goto T2711;          goto T2718;
5016  T2711:;  T2718:;
5017          if(!(type_of((V744))==t_string)){          if(!(type_of((V744))==t_string)){
5018          goto T2718;}          goto T2725;}
5019          {object V748;          {object V748;
5020          V748= list(2,VV[74],(V744));          V748= list(2,VV[75],(V744));
5021          V742= make_cons((V748),(V742));          V742= make_cons((V748),(V742));
5022          goto T2709;}          goto T2716;}
5023          goto T2718;          goto T2725;
5024  T2718:;  T2725:;
5025          if(!(type_of((V744))==t_cons)){          if(!(type_of((V744))==t_cons)){
5026          goto T2723;}          goto T2730;}
5027          {register object x= car((V744)),V749= VV[241];          {register object x= car((V744)),V749= VV[242];
5028          while(!endp(V749))          while(!endp(V749))
5029          if(eql(x,V749->c.c_car)){          if(eql(x,V749->c.c_car)){
5030          goto T2726;          goto T2733;
5031          }else V749=V749->c.c_cdr;          }else V749=V749->c.c_cdr;
5032          goto T2723;}          goto T2730;}
5033          goto T2726;          goto T2733;
5034  T2726:;  T2733:;
5035          {register object V750;          {register object V750;
5036          register object V751;          register object V751;
5037          V750= cdr((V744));          V750= cdr((V744));
5038          V751= car((V750));          V751= car((V750));
5039          goto T2730;          goto T2737;
5040  T2730:;  T2737:;
5041          if(!(endp_prop((V750)))){          if(!(endp_prop((V750)))){
5042          goto T2731;}          goto T2738;}
5043          goto T2709;          goto T2716;
5044          goto T2731;          goto T2738;
5045  T2731:;  T2738:;
5046          {register object V752;          {register object V752;
5047          V753= car((V744));          V753= car((V744));
5048          if(!(type_of((V751))==t_symbol)){          if(!(type_of((V751))==t_symbol)){
5049          goto T2739;}          goto T2746;}
5050          base[4]= symbol_name((V751));          base[4]= symbol_name((V751));
5051          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5052          Lstring_downcase();          Lstring_downcase();
5053          vs_top=sup;          vs_top=sup;
5054          V754= vs_base[0];          V754= vs_base[0];
5055          goto T2737;          goto T2744;
5056          goto T2739;          goto T2746;
5057  T2739:;  T2746:;
5058          if(!(type_of((V751))==t_string)){          if(!(type_of((V751))==t_string)){
5059          goto T2743;}          goto T2750;}
5060          V754= (V751);          V754= (V751);
5061          goto T2737;          goto T2744;
5062          goto T2743;          goto T2750;
5063  T2743:;  T2750:;
5064          V754= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V751)));          V754= (VFUN_NARGS=2,(*(LnkLI266))(VV[243],(V751)));
5065          goto T2737;          goto T2744;
5066  T2737:;  T2744:;
5067          V752= list(2,/* INLINE-ARGS */V753,V754);          V752= list(2,/* INLINE-ARGS */V753,V754);
5068          V742= make_cons((V752),(V742));}          V742= make_cons((V752),(V742));}
5069          V750= cdr((V750));          V750= cdr((V750));
5070          V751= car((V750));          V751= car((V750));
5071          goto T2730;}          goto T2737;}
5072          goto T2723;          goto T2730;
5073  T2723:;  T2730:;
5074          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V744))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[244],(V744))));
5075          goto T2709;          goto T2716;
5076  T2709:;  T2716:;
5077          V743= cdr((V743));          V743= cdr((V743));
5078          V744= car((V743));          V744= car((V743));
5079          goto T2704;}}          goto T2711;}}
5080          base[0]=base[0];          base[0]=base[0];
5081          return Cnil;          return Cnil;
5082  }  }
# Line 5094  TTL:; Line 5093  TTL:;
5093          register object V766;          register object V766;
5094          object V767;          object V767;
5095          if(((V760))==Cnil){          if(((V760))==Cnil){
5096          goto T2758;}          goto T2765;}
5097          V765= small_fixnum(0);          V765= small_fixnum(0);
5098          goto T2756;          goto T2763;
5099          goto T2758;          goto T2765;
5100  T2758:;  T2765:;
5101          V765= structure_ref((V763),VV[32],4);          V765= structure_ref((V763),VV[33],4);
5102          goto T2756;          goto T2763;
5103  T2756:;  T2763:;
5104          V766= Cnil;          V766= Cnil;
5105          bds_bind(VV[20],(*(LnkLI309))(cadr((V764))));          bds_bind(VV[21],(*(LnkLI310))(cadr((V764))));
5106          bds_bind(VV[117],Cnil);          bds_bind(VV[118],Cnil);
5107          V767= caaddr((V764));          V767= caaddr((V764));
5108          if((structure_ref((V763),VV[32],0))==Cnil){          if((structure_ref((V763),VV[33],0))==Cnil){
         goto T2766;}  
         V768= structure_ref((V763),VV[32],0);  
         goto T2764;  
         goto T2766;  
 T2766:;  
         V768= Cnil;  
         goto T2764;  
 T2764:;  
         (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[244],V768)));  
         princ_str("\nstatic void ",VV[25]);  
         if(((V760))==Cnil){  
5109          goto T2773;}          goto T2773;}
5110          V769= VV[245];          V768= structure_ref((V763),VV[33],0);
5111          goto T2771;          goto T2771;
5112          goto T2773;          goto T2773;
5113  T2773:;  T2773:;
5114          V769= VV[246];          V768= Cnil;
5115          goto T2771;          goto T2771;
5116  T2771:;  T2771:;
5117          (void)((*(LnkLI274))(V769));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[245],V768)));
5118          V770= structure_ref((V763),VV[32],3);          princ_str("\nstatic void ",VV[26]);
5119          (void)((*(LnkLI274))(/* INLINE-ARGS */V770));          if(((V760))==Cnil){
5120          princ_char(40,VV[25]);          goto T2780;}
5121          princ_str("base0",VV[25]);          V769= VV[246];
5122          if(((V767))==Cnil){          goto T2778;
         goto T2782;}  
         V771= VV[247];  
         goto T2780;  
         goto T2782;  
 T2782:;  
         V771= VV[248];  
5123          goto T2780;          goto T2780;
5124  T2780:;  T2780:;
5125          (void)((*(LnkLI274))(V771));          V769= VV[247];
5126          V772= structure_ref(cadr((V764)),VV[62],1);          goto T2778;
5127          (void)((*(LnkLI311))(/* INLINE-ARGS */V772,small_fixnum(2)));  T2778:;
5128          (void)((*(LnkLI316))(caaddr((V764)),Cnil));          (void)((*(LnkLI275))(V769));
5129          princ_str("register object *",VV[25]);          V770= structure_ref((V763),VV[33],3);
5130          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI275))(/* INLINE-ARGS */V770));
5131          princ_str("base0;",VV[25]);          princ_char(40,VV[26]);
5132          bds_bind(VV[249],(V762));          princ_str("base0",VV[26]);
5133          bds_bind(VV[128],VV[124]);          if(((V767))==Cnil){
5134          bds_bind(VV[18],Cnil);          goto T2789;}
5135          bds_bind(VV[129],small_fixnum(0));          V771= VV[248];
5136            goto T2787;
5137            goto T2789;
5138    T2789:;
5139            V771= VV[249];
5140            goto T2787;
5141    T2787:;
5142            (void)((*(LnkLI275))(V771));
5143            V772= structure_ref(cadr((V764)),VV[63],1);
5144            (void)((*(LnkLI312))(/* INLINE-ARGS */V772,small_fixnum(2)));
5145            (void)((*(LnkLI317))(caaddr((V764)),Cnil));
5146            princ_str("register object *",VV[26]);
5147            (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5148            princ_str("base0;",VV[26]);
5149            bds_bind(VV[250],(V762));
5150            bds_bind(VV[129],VV[125]);
5151            bds_bind(VV[19],Cnil);
5152          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5153          bds_bind(VV[131],one_plus((V765)));          bds_bind(VV[131],small_fixnum(0));
5154          bds_bind(VV[132],(V762));          bds_bind(VV[132],one_plus((V765)));
5155          bds_bind(VV[133],(V761));          bds_bind(VV[133],(V762));
5156          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],(V761));
5157          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
5158          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          bds_bind(VV[136],(VV[129]->s.s_dbind));
5159          bds_bind(VV[136],symbol_value(VV[137]));          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));
5160          bds_bind(VV[138],Cnil);          bds_bind(VV[137],symbol_value(VV[138]));
5161          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
5162          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
5163          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],Cnil);
5164          V766= (VV[136]->s.s_dbind);          bds_bind(VV[142],small_fixnum(0));
5165          princ_str("\n{",VV[25]);          V766= (VV[137]->s.s_dbind);
5166          V773= structure_ref(cadr((V764)),VV[62],1);          princ_str("\n{",VV[26]);
5167          V774= structure_ref((V763),VV[32],3);          V773= structure_ref(cadr((V764)),VV[63],1);
5168          (void)((*(LnkLI317))(/* INLINE-ARGS */V773,/* INLINE-ARGS */V774,VV[250]));          V774= structure_ref((V763),VV[33],3);
5169          princ_str("\n   VMB",VV[25]);          (void)((*(LnkLI318))(/* INLINE-ARGS */V773,/* INLINE-ARGS */V774,VV[251]));
5170          (void)((*(LnkLI274))((V766)));          princ_str("\n   VMB",VV[26]);
5171          princ_str(" VMS",VV[25]);          (void)((*(LnkLI275))((V766)));
5172          (void)((*(LnkLI274))((V766)));          princ_str(" VMS",VV[26]);
5173          princ_str(" VMV",VV[25]);          (void)((*(LnkLI275))((V766)));
5174          (void)((*(LnkLI274))((V766)));          princ_str(" VMV",VV[26]);
5175          if((symbol_value(VV[149]))==Cnil){          (void)((*(LnkLI275))((V766)));
5176          goto T2806;}          if((symbol_value(VV[150]))==Cnil){
5177          princ_str("\n   ihs_check;",VV[25]);          goto T2813;}
5178          goto T2806;          princ_str("\n   ihs_check;",VV[26]);
5179  T2806:;          goto T2813;
5180    T2813:;
5181          base[19]= caddr(cddr((V764)));          base[19]= caddr(cddr((V764)));
5182          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
5183          (void) (*Lnk318)();          (void) (*Lnk319)();
5184          vs_top=sup;          vs_top=sup;
5185          if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){
5186          goto T2814;}          goto T2821;}
5187          if(((VV[138]->s.s_dbind))!=Cnil){          if(((VV[139]->s.s_dbind))!=Cnil){
5188          goto T2814;}          goto T2821;}
5189          if(((VV[140]->s.s_dbind))!=Cnil){          if(((VV[141]->s.s_dbind))!=Cnil){
5190          goto T2814;}          goto T2821;}
5191          goto T2812;          goto T2819;
5192          goto T2814;          goto T2821;
5193  T2814:;  T2821:;
5194          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[26]);
5195          goto T2812;          goto T2819;
5196  T2812:;  T2819:;
5197          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
5198          (void)((*(LnkLI319))((V766),Ct));          (void)((*(LnkLI320))((V766),Ct));
5199          V775= structure_ref((V763),VV[32],3);          V775= structure_ref((V763),VV[33],3);
5200          {object V776 = (*(LnkLI313))(/* INLINE-ARGS */V775);          {object V776 = (*(LnkLI314))(/* INLINE-ARGS */V775);
5201          bds_unwind1;          bds_unwind1;
5202          bds_unwind1;          bds_unwind1;
5203          bds_unwind1;          bds_unwind1;
# Line 5231  object V782;object V783;object V784;obje Line 5230  object V782;object V783;object V784;obje
5230  TTL:;  TTL:;
5231          {long V787;          {long V787;
5232          if(((V782))==Cnil){          if(((V782))==Cnil){
5233          goto T2826;}          goto T2833;}
5234          V787= 0;          V787= 0;
5235          goto T2824;          goto T2831;
5236          goto T2826;          goto T2833;
5237  T2826:;  T2833:;
5238          V787= fix(structure_ref((V785),VV[32],4));          V787= fix(structure_ref((V785),VV[33],4));
5239          goto T2824;          goto T2831;
5240  T2824:;  T2831:;
5241          bds_bind(VV[20],(*(LnkLI309))(cadr((V786))));          bds_bind(VV[21],(*(LnkLI310))(cadr((V786))));
5242          bds_bind(VV[117],Cnil);          bds_bind(VV[118],Cnil);
5243          if(!(((V782))==(VV[251]))){          if(!(((V782))==(VV[252]))){
5244          goto T2829;}          goto T2836;}
5245          {object V788 = (*(LnkLI250))((V782),(V783),(V784),(V785),(V786));          {object V788 = (*(LnkLI251))((V782),(V783),(V784),(V785),(V786));
5246          bds_unwind1;          bds_unwind1;
5247          bds_unwind1;          bds_unwind1;
5248          VMR54(V788)}          VMR54(V788)}
5249          goto T2829;          goto T2836;
5250  T2829:;  T2836:;
5251          if((structure_ref((V785),VV[32],0))==Cnil){          if((structure_ref((V785),VV[33],0))==Cnil){
         goto T2835;}  
         V789= structure_ref((V785),VV[32],0);  
         goto T2833;  
         goto T2835;  
 T2835:;  
         V789= Cnil;  
         goto T2833;  
 T2833:;  
         (void)((VFUN_NARGS=2,(*(LnkLI315))(VV[252],V789)));  
         princ_str("\nstatic void ",VV[31]);  
         if(((V782))==Cnil){  
5252          goto T2842;}          goto T2842;}
5253          V790= VV[253];          V789= structure_ref((V785),VV[33],0);
5254          goto T2840;          goto T2840;
5255          goto T2842;          goto T2842;
5256  T2842:;  T2842:;
5257          V790= VV[254];          V789= Cnil;
5258          goto T2840;          goto T2840;
5259  T2840:;  T2840:;
5260          (void)((*(LnkLI277))(V790));          (void)((VFUN_NARGS=2,(*(LnkLI316))(VV[253],V789)));
5261          V791= structure_ref((V785),VV[32],3);          princ_str("\nstatic void ",VV[32]);
         (void)((*(LnkLI277))(/* INLINE-ARGS */V791));  
         princ_str("();",VV[31]);  
         princ_str("\nstatic void ",VV[25]);  
5262          if(((V782))==Cnil){          if(((V782))==Cnil){
5263          goto T2851;}          goto T2849;}
5264          V792= VV[255];          V790= VV[254];
5265          goto T2849;          goto T2847;
         goto T2851;  
 T2851:;  
         V792= VV[256];  
5266          goto T2849;          goto T2849;
5267  T2849:;  T2849:;
5268          (void)((*(LnkLI274))(V792));          V790= VV[255];
5269          V793= structure_ref((V785),VV[32],3);          goto T2847;
5270          (void)((*(LnkLI274))(/* INLINE-ARGS */V793));  T2847:;
5271          princ_char(40,VV[25]);          (void)((*(LnkLI278))(V790));
5272            V791= structure_ref((V785),VV[33],3);
5273            (void)((*(LnkLI278))(/* INLINE-ARGS */V791));
5274            princ_str("();",VV[32]);
5275            princ_str("\nstatic void ",VV[26]);
5276            if(((V782))==Cnil){
5277            goto T2858;}
5278            V792= VV[256];
5279            goto T2856;
5280            goto T2858;
5281    T2858:;
5282            V792= VV[257];
5283            goto T2856;
5284    T2856:;
5285            (void)((*(LnkLI275))(V792));
5286            V793= structure_ref((V785),VV[33],3);
5287            (void)((*(LnkLI275))(/* INLINE-ARGS */V793));
5288            princ_char(40,VV[26]);
5289          {register object V794;          {register object V794;
5290          register long V795;          register long V795;
5291          V794= make_fixnum(V787);          V794= make_fixnum(V787);
5292          V795= 0;          V795= 0;
5293          goto T2859;          goto T2866;
5294  T2859:;  T2866:;
5295          V796 = make_fixnum(V795);          V796 = make_fixnum(V795);
5296          if(!(number_compare(V796,(V794))>=0)){          if(!(number_compare(V796,(V794))>=0)){
5297          goto T2860;}          goto T2867;}
5298          princ_str("base",VV[25]);          princ_str("base",VV[26]);
5299          V797 = make_fixnum(V795);          V797 = make_fixnum(V795);
5300          (void)((*(LnkLI274))(V797));          (void)((*(LnkLI275))(V797));
5301          princ_char(41,VV[25]);          princ_char(41,VV[26]);
5302          goto T2855;          goto T2862;
5303          goto T2860;          goto T2867;
5304  T2860:;  T2867:;
5305          princ_str("base",VV[25]);          princ_str("base",VV[26]);
5306          V798 = make_fixnum(V795);          V798 = make_fixnum(V795);
5307          (void)((*(LnkLI274))(V798));          (void)((*(LnkLI275))(V798));
5308          princ_char(44,VV[25]);          princ_char(44,VV[26]);
5309          V795= (long)(V795)+1;          V795= (long)(V795)+1;
5310          goto T2859;}          goto T2866;}
5311          goto T2855;          goto T2862;
5312  T2855:;  T2862:;
5313          princ_str("\nregister object ",VV[25]);          princ_str("\nregister object ",VV[26]);
5314          {register object V799;          {register object V799;
5315          register long V800;          register long V800;
5316          V799= make_fixnum(V787);          V799= make_fixnum(V787);
5317          V800= 0;          V800= 0;
5318          goto T2880;          goto T2887;
5319  T2880:;  T2887:;
5320          V801 = make_fixnum(V800);          V801 = make_fixnum(V800);
5321          if(!(number_compare(V801,(V799))>=0)){          if(!(number_compare(V801,(V799))>=0)){
5322          goto T2881;}          goto T2888;}
5323          princ_char(42,VV[25]);          princ_char(42,VV[26]);
5324          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5325          princ_str("base",VV[25]);          princ_str("base",VV[26]);
5326          V802 = make_fixnum(V800);          V802 = make_fixnum(V800);
5327          (void)((*(LnkLI274))(V802));          (void)((*(LnkLI275))(V802));
5328          princ_char(59,VV[25]);          princ_char(59,VV[26]);
5329          goto T2876;          goto T2883;
5330          goto T2881;          goto T2888;
5331  T2881:;  T2888:;
5332          princ_char(42,VV[25]);          princ_char(42,VV[26]);
5333          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5334          princ_str("base",VV[25]);          princ_str("base",VV[26]);
5335          V803 = make_fixnum(V800);          V803 = make_fixnum(V800);
5336          (void)((*(LnkLI274))(V803));          (void)((*(LnkLI275))(V803));
5337          princ_char(44,VV[25]);          princ_char(44,VV[26]);
5338          V800= (long)(V800)+1;          V800= (long)(V800)+1;
5339          goto T2880;}          goto T2887;}
5340          goto T2876;          goto T2883;
5341  T2876:;  T2883:;
5342          V804= structure_ref(cadr((V786)),VV[62],1);          V804= structure_ref(cadr((V786)),VV[63],1);
5343          (void)((*(LnkLI311))(/* INLINE-ARGS */V804,small_fixnum(2)));          (void)((*(LnkLI312))(/* INLINE-ARGS */V804,small_fixnum(2)));
5344          bds_bind(VV[128],VV[127]);          bds_bind(VV[129],VV[128]);
5345          bds_bind(VV[249],(V784));          bds_bind(VV[250],(V784));
5346          bds_bind(VV[18],Cnil);          bds_bind(VV[19],Cnil);
         bds_bind(VV[129],small_fixnum(0));  
5347          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5348            bds_bind(VV[131],small_fixnum(0));
5349          V805 = make_fixnum(V787);          V805 = make_fixnum(V787);
5350          bds_bind(VV[131],one_plus(V805));          bds_bind(VV[132],one_plus(V805));
5351          bds_bind(VV[132],(V784));          bds_bind(VV[133],(V784));
5352          bds_bind(VV[133],(V783));          bds_bind(VV[134],(V783));
5353          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
5354          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[136],(VV[129]->s.s_dbind));
5355          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));
5356          bds_bind(VV[136],symbol_value(VV[137]));          bds_bind(VV[137],symbol_value(VV[138]));
         bds_bind(VV[138],Cnil);  
5357          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
5358          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
5359          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],Cnil);
5360          princ_str("\n{  register object *",VV[25]);          bds_bind(VV[142],small_fixnum(0));
5361          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          princ_str("\n{  register object *",VV[26]);
5362          princ_str("base=vs_base;",VV[25]);          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5363          princ_str("\n   register object *",VV[25]);          princ_str("base=vs_base;",VV[26]);
5364          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          princ_str("\n   register object *",VV[26]);
5365          princ_str("sup=base+VM",VV[25]);          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5366          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str("sup=base+VM",VV[26]);
5367          princ_char(59,VV[25]);          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
5368          V806= structure_ref(cadr((V786)),VV[62],1);          princ_char(59,VV[26]);
5369          V807= structure_ref((V785),VV[32],3);          V806= structure_ref(cadr((V786)),VV[63],1);
5370          (void)((*(LnkLI317))(/* INLINE-ARGS */V806,/* INLINE-ARGS */V807,VV[257]));          V807= structure_ref((V785),VV[33],3);
5371          princ_str(" VC",VV[25]);          (void)((*(LnkLI318))(/* INLINE-ARGS */V806,/* INLINE-ARGS */V807,VV[258]));
5372          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str(" VC",VV[26]);
5373          if((symbol_value(VV[163]))==Cnil){          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
5374          goto T2921;}          if((symbol_value(VV[164]))==Cnil){
5375          princ_str("\n   vs_reserve(VM",VV[25]);          goto T2928;}
5376          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str("\n   vs_reserve(VM",VV[26]);
5377          princ_str(");",VV[25]);          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
5378          goto T2919;          princ_str(");",VV[26]);
5379          goto T2921;          goto T2926;
5380  T2921:;          goto T2928;
5381          princ_str("\n   vs_check;",VV[25]);  T2928:;
5382          goto T2919;          princ_str("\n   vs_check;",VV[26]);
5383  T2919:;          goto T2926;
5384          if((symbol_value(VV[149]))==Cnil){  T2926:;
5385          goto T2927;}          if((symbol_value(VV[150]))==Cnil){
5386          princ_str("\n   ihs_check;",VV[25]);          goto T2934;}
5387          goto T2927;          princ_str("\n   ihs_check;",VV[26]);
5388  T2927:;          goto T2934;
5389    T2934:;
5390          if(((V782))==Cnil){          if(((V782))==Cnil){
5391          goto T2933;}          goto T2940;}
5392          (void)((VFUN_NARGS=2,(*(LnkLI334))(caddr((V786)),caddr(cddr((V786))))));          (void)((VFUN_NARGS=2,(*(LnkLI335))(caddr((V786)),caddr(cddr((V786))))));
5393          goto T2931;          goto T2938;
5394          goto T2933;          goto T2940;
5395  T2933:;  T2940:;
5396          (void)((VFUN_NARGS=3,(*(LnkLI334))(caddr((V786)),caddr(cddr((V786))),(V785))));          (void)((VFUN_NARGS=3,(*(LnkLI335))(caddr((V786)),caddr(cddr((V786))),(V785))));
5397          goto T2931;          goto T2938;
5398  T2931:;  T2938:;
5399          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
5400          {object V808;          {object V808;
5401          V808= make_cons((VV[136]->s.s_dbind),(VV[130]->s.s_dbind));          V808= make_cons((VV[137]->s.s_dbind),(VV[131]->s.s_dbind));
5402          setq(VV[33],make_cons((V808),symbol_value(VV[33])));}          setq(VV[34],make_cons((V808),symbol_value(VV[34])));}
5403          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[32]);
5404          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));          (void)((*(LnkLI278))((VV[137]->s.s_dbind)));
5405          V809= (*(LnkLI335))();          V809= (*(LnkLI336))();
5406          bds_unwind1;          bds_unwind1;
5407          bds_unwind1;          bds_unwind1;
5408          bds_unwind1;          bds_unwind1;
# Line 5419  T2931:; Line 5418  T2931:;
5418          bds_unwind1;          bds_unwind1;
5419          bds_unwind1;          bds_unwind1;
5420          bds_unwind1;          bds_unwind1;
5421          V810= structure_ref((V785),VV[32],3);          V810= structure_ref((V785),VV[33],3);
5422          {object V811 = (*(LnkLI313))(/* INLINE-ARGS */V810);          {object V811 = (*(LnkLI314))(/* INLINE-ARGS */V810);
5423          bds_unwind1;          bds_unwind1;
5424          bds_unwind1;          bds_unwind1;
5425          VMR54(V811)}}          VMR54(V811)}}
# Line 5438  TTL:; Line 5437  TTL:;
5437          V812= Cnil;          V812= Cnil;
5438          {register object V813;          {register object V813;
5439          register object V814;          register object V814;
5440          V813= symbol_value(VV[18]);          V813= symbol_value(VV[19]);
5441          V814= car((V813));          V814= car((V813));
5442          goto T2948;          goto T2955;
5443  T2948:;  T2955:;
5444          if(!(endp_prop((V813)))){          if(!(endp_prop((V813)))){
5445          goto T2949;}          goto T2956;}
5446          goto T2944;          goto T2951;
5447          goto T2949;          goto T2956;
5448  T2949:;  T2956:;
5449          {register object V815;          {register object V815;
5450          if(!(type_of((V814))==t_cons)){          if(!(type_of((V814))==t_cons)){
5451          goto T2956;}          goto T2963;}
5452          {register object V816;          {register object V816;
5453          V816= car((V814));          V816= car((V814));
5454          V814= cdr((V814));          V814= cdr((V814));
5455          V815= (V816);          V815= (V816);
5456          goto T2954;}          goto T2961;}
5457          goto T2956;          goto T2963;
5458  T2956:;  T2963:;
5459          V815= Ct;          V815= Ct;
5460          goto T2954;          goto T2961;
5461  T2954:;  T2961:;
5462          if(!(((V812))==((V815)))){          if(!(((V812))==((V815)))){
5463          goto T2963;}          goto T2970;}
5464          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[32]);
5465          base[2]= VV[258];          base[2]= VV[259];
5466          base[3]= (V814);          base[3]= (V814);
5467          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5468          Lformat();          Lformat();
5469          vs_top=sup;          vs_top=sup;
         goto T2961;  
         goto T2963;  
 T2963:;  
         if(!(((V812))==Cnil)){  
         goto T2969;}  
5470          goto T2968;          goto T2968;
5471          goto T2969;          goto T2970;
5472  T2969:;  T2970:;
5473          base[1]= symbol_value(VV[31]);          if(!(((V812))==Cnil)){
5474          base[2]= VV[259];          goto T2976;}
5475            goto T2975;
5476            goto T2976;
5477    T2976:;
5478            base[1]= symbol_value(VV[32]);
5479            base[2]= VV[260];
5480          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5481          Lformat();          Lformat();
5482          vs_top=sup;          vs_top=sup;
5483          goto T2968;          goto T2975;
5484  T2968:;  T2975:;
5485          V812= (V815);          V812= (V815);
5486          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[32]);
5487          base[2]= VV[260];          base[2]= VV[261];
5488          base[3]= (*(LnkLI280))((V812));          base[3]= (*(LnkLI281))((V812));
5489          base[4]= (V814);          base[4]= (V814);
5490          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
5491          Lformat();          Lformat();
5492          vs_top=sup;          vs_top=sup;
5493          goto T2961;          goto T2968;
5494  T2961:;  T2968:;
5495          if(!(((V812))==(VV[261]))){          if(!(((V812))==(VV[262]))){
5496          goto T2953;}          goto T2960;}
5497          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[32]);
5498          base[2]= VV[262];          base[2]= VV[263];
5499          base[3]= (V814);          base[3]= (V814);
5500          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5501          Lformat();          Lformat();
5502          vs_top=sup;}          vs_top=sup;}
5503          goto T2953;          goto T2960;
5504  T2953:;  T2960:;
5505          V813= cdr((V813));          V813= cdr((V813));
5506          V814= car((V813));          V814= car((V813));
5507          goto T2948;}          goto T2955;}
5508          goto T2944;          goto T2951;
5509  T2944:;  T2951:;
5510          if(symbol_value(VV[18])==Cnil){          if(symbol_value(VV[19])==Cnil){
5511          goto T2989;}          goto T2996;}
5512          base[0]= symbol_value(VV[31]);          base[0]= symbol_value(VV[32]);
5513          base[1]= VV[263];          base[1]= VV[264];
5514          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5515          Lformat();          Lformat();
5516          vs_top=sup;          vs_top=sup;
5517          goto T2989;          goto T2996;
5518  T2989:;  T2996:;
5519          if(eql(symbol_value(VV[141]),small_fixnum(0))){          if((symbol_value(VV[17]))==Cnil){
5520          goto T2993;}          goto T3000;}
5521          base[0]= symbol_value(VV[31]);          if(eql(symbol_value(VV[142]),small_fixnum(0))){
5522          base[1]= VV[264];          goto T3000;}
5523          base[2]= symbol_value(VV[141]);          base[0]= symbol_value(VV[32]);
5524            base[1]= VV[265];
5525            base[2]= symbol_value(VV[142]);
5526          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5527          Lformat();          Lformat();
5528          vs_top=sup;          vs_top=sup;
5529          {object V817 = vs_base[0];          {object V817 = vs_base[0];
5530          VMR55(V817)}          VMR55(V817)}
5531          goto T2993;          goto T3000;
5532  T2993:;  T3000:;
5533          {object V818 = Cnil;          {object V818 = Cnil;
5534          VMR55(V818)}}          VMR55(V818)}}
5535          base[0]=base[0];          base[0]=base[0];
# Line 5547  register object *base0; Line 5548  register object *base0;
5548          vs_top=sup;          vs_top=sup;
5549          goto TTL;          goto TTL;
5550  TTL:;  TTL:;
5551          V820= structure_ref((V819),VV[69],4);          V820= structure_ref((V819),VV[70],4);
5552          if(eql(/* INLINE-ARGS */V820,VV[72])){          if(eql(/* INLINE-ARGS */V820,VV[73])){
5553          goto T2999;}          goto T3008;}
5554          goto T2998;          goto T3007;
5555          goto T2999;          goto T3008;
5556  T2999:;  T3008:;
5557          (VV[153]->s.s_dbind)= Ct;          (VV[154]->s.s_dbind)= Ct;
5558          goto T2998;          goto T3007;
5559  T2998:;  T3007:;
5560          {object V821;          {object V821;
5561          V821= (*(LnkLI348))((V819));          V821= (*(LnkLI349))((V819));
5562          if(((V821))==Cnil){          if(((V821))==Cnil){
5563          goto T3004;}          goto T3013;}
5564          {object V822;          {object V822;
5565          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
5566          V822= symbol_value(VV[88]);          V822= symbol_value(VV[89]);
5567          (void)(structure_set((V819),VV[69],1,(V821)));          (void)(structure_set((V819),VV[70],1,(V821)));
5568          (void)(structure_set((V819),VV[69],4,(V822)));          (void)(structure_set((V819),VV[70],4,(V822)));
5569          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[26]);
5570          if((base0[1])!=Cnil){          if((base0[1])!=Cnil){
5571          goto T3011;}          goto T3020;}
5572          princ_char(123,VV[25]);          princ_char(123,VV[26]);
5573          base0[1]= Ct;          base0[1]= Ct;
5574          goto T3011;          goto T3020;
5575  T3011:;  T3020:;
5576          base[1]= (V819);          base[1]= (V819);
5577          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5578          (void) (*Lnk349)();          (void) (*Lnk350)();
5579          return;}          return;}
5580          goto T3004;          goto T3013;
5581  T3004:;  T3013:;
5582          base[1]= Cnil;          base[1]= Cnil;
5583          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5584          return;}          return;}
5585          }          }
5586  }  }
5587  static void LnkT349(){ call_or_link(VV[349],(void **)(void *)&Lnk349);} /* WT-VAR-DECL */  static void LnkT350(){ call_or_link(VV[350],(void **)(void *)&Lnk350);} /* WT-VAR-DECL */
5588  static object  LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)(void *)&LnkLI348,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 */
5589  static object  LnkTLI250(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[250],(void **)(void *)&LnkLI250,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 */
5590  static object  LnkTLI343(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[343],(void **)(void *)&LnkLI343,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 */
5591  static object  LnkTLI342(){return call_proc0(VV[342],(void **)(void *)&LnkLI342);} /* WFS-ERROR */  static object  LnkTLI343(){return call_proc0(VV[343],(void **)(void *)&LnkLI343);} /* WFS-ERROR */
5592  static void LnkT341(){ call_or_link(VV[341],(void **)(void *)&Lnk341);} /* C2DM */  static void LnkT342(){ call_or_link(VV[342],(void **)(void *)&Lnk342);} /* C2DM */
5593  static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)(void *)&LnkLI340,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 */
5594  static object  LnkTLI339(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[339],(void **)(void *)&LnkLI339,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 */
5595  static object  LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)(void *)&LnkLI338,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 */
5596  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;} /* 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 */
5597  static object  LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)(void *)&LnkLI336,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 */
5598  static object  LnkTLI335(){return call_proc0(VV[335],(void **)(void *)&LnkLI335);} /* WT-CVARS */  static object  LnkTLI336(){return call_proc0(VV[336],(void **)(void *)&LnkLI336);} /* WT-CVARS */
5599  static object  LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[334],(void **)(void *)&LnkLI334,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 */
5600  static object  LnkTLI333(){return call_proc0(VV[333],(void **)(void *)&LnkLI333);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI334(){return call_proc0(VV[334],(void **)(void *)&LnkLI334);} /* CLOSE-INLINE-BLOCKS */
5601  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;} /* 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 */
5602  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;} /* 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 */
5603  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;} /* 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 */
5604  static object  LnkTLI329(){return call_proc0(VV[329],(void **)(void *)&LnkLI329);} /* BABOON */  static object  LnkTLI330(){return call_proc0(VV[330],(void **)(void *)&LnkLI330);} /* BABOON */
5605  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-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 */
5606  static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* INC-INLINE-BLOCKS */  static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* INC-INLINE-BLOCKS */
5607  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[326],(void **)(void *)&LnkLI326,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 */
5608  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-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 */
5609  static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,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 */
5610  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,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 */
5611  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[322],(void **)(void *)&LnkLI322,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 */
5612  static object  LnkTLI321(){return call_proc0(VV[321],(void **)(void *)&LnkLI321);} /* CVS-PUSH */  static object  LnkTLI322(){return call_proc0(VV[322],(void **)(void *)&LnkLI322);} /* CVS-PUSH */
5613  static object  LnkTLI320(){return call_proc0(VV[320],(void **)(void *)&LnkLI320);} /* VS-PUSH */  static object  LnkTLI321(){return call_proc0(VV[321],(void **)(void *)&LnkLI321);} /* VS-PUSH */
5614  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[319],(void **)(void *)&LnkLI319,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 */
5615  static void LnkT318(){ call_or_link(VV[318],(void **)(void *)&Lnk318);} /* C2EXPR */  static void LnkT319(){ call_or_link(VV[319],(void **)(void *)&Lnk319);} /* C2EXPR */
5616  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,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 */
5617  static object  LnkTLI316(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[316],(void **)(void *)&LnkLI316,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 */
5618  static object  LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[315],(void **)(void *)&LnkLI315,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 */
5619  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;} /* 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 */
5620  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)(void *)&LnkLI313,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 */
5621  static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* T3DEFUN-AUX */  static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* T3DEFUN-AUX */
5622  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,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 */
5623  static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* FIXNUMP */  static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* FIXNUMP */
5624  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;} /* 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 */
5625  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;} /* 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 */
5626  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;} /* 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 */
5627  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,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 */
5628  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,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 */
5629  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,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 */
5630  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;} /* 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 */
5631  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[302],(void **)(void *)&LnkLI302,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 */
5632  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[301],(void **)(void *)&LnkLI301,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<< */
5633  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[300],(void **)(void *)&LnkLI300,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 */
5634  static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* SUBTYPEP */  static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* SUBTYPEP */
5635  static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* STRUCTURE-SUBTYPE-P */  static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* STRUCTURE-SUBTYPE-P */
5636  static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[297],(void **)(void *)&LnkLI297,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 */
5637  static object  LnkTLI296(){return call_proc0(VV[296],(void **)(void *)&LnkLI296);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI297(){return call_proc0(VV[297],(void **)(void *)&LnkLI297);} /* ADD-LOAD-TIME-SHARP-COMMA */
5638  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;} /* 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 */
5639  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;} /* 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 */
5640  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;} /* 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 */
5641  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;} /* 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 */
5642  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,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 */
5643  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[290],(void **)(void *)&LnkLI290,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 */
5644  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;} /* 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 */
5645  static object  LnkTLI283(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[283],(void **)(void *)&LnkLI283,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 */
5646  static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* CMP-EVAL */  static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* CMP-EVAL */
5647  static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* DECLARATION-TYPE */  static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* DECLARATION-TYPE */
5648  static object  LnkTLI280(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[280],(void **)(void *)&LnkLI280,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 */
5649  static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* WT-DATA-FILE */  static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* WT-DATA-FILE */
5650  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,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 */
5651  static object  LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)(void *)&LnkLI277,1,first,ap);va_end(ap);return V1;} /* WT-H1 */  static object  LnkTLI278(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[278],(void **)(void *)&LnkLI278,1,first,ap);va_end(ap);return V1;} /* WT-H1 */
5652  static object  LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)(void *)&LnkLI276,1,first,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */  static object  LnkTLI277(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[277],(void **)(void *)&LnkLI277,1,first,ap);va_end(ap);return V1;} /* WT-FUNCTION-LINK */
5653  static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* WT-GLOBAL-ENTRY */  static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* WT-GLOBAL-ENTRY */
5654  static void LnkT257(){ call_or_link(VV[257],(void **)(void *)&Lnk257);} /* T3LOCAL-FUN */  static void LnkT258(){ call_or_link(VV[258],(void **)(void *)&Lnk258);} /* T3LOCAL-FUN */
5655  static object  LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)(void *)&LnkLI274,1,first,ap);va_end(ap);return V1;} /* WT1 */  static object  LnkTLI275(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[275],(void **)(void *)&LnkLI275,1,first,ap);va_end(ap);return V1;} /* WT1 */
5656  static object  LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)(void *)&LnkLI273,1,first,ap);va_end(ap);return V1;} /* T1ORDINARY */  static object  LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)(void *)&LnkLI274,1,first,ap);va_end(ap);return V1;} /* T1ORDINARY */
5657  static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* T1EXPR */  static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* T1EXPR */
5658  static object  LnkTLI271(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[271],(void **)(void *)&LnkLI271,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */  static object  LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */
5659  static object  LnkTLI270(){return call_proc0(VV[270],(void **)(void *)&LnkLI270);} /* PRINT-CURRENT-FORM */  static object  LnkTLI271(){return call_proc0(VV[271],(void **)(void *)&LnkLI271);} /* PRINT-CURRENT-FORM */
5660  static object  LnkTLI269(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[269],(void **)(void *)&LnkLI269,1,first,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */  static object  LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)(void *)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* WT-DATA-PACKAGE-OPERATION */
5661  static object  LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)(void *)&LnkLI268,2,first,ap);va_end(ap);return V1;} /* MAYBE-EVAL */  static object  LnkTLI269(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[269],(void **)(void *)&LnkLI269,2,first,ap);va_end(ap);return V1;} /* MAYBE-EVAL */
5662  static object  LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[267],(void **)(void *)&LnkLI267,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */  static object  LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[268],(void **)(void *)&LnkLI268,3,first,ap);va_end(ap);return V1;} /* CMP-EXPAND-MACRO */
5663  static object  LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)(void *)&LnkLI266,first,ap);va_end(ap);return V1;} /* CMPWARN */  static object  LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[267],(void **)(void *)&LnkLI267,first,ap);va_end(ap);return V1;} /* CMPWARN */
5664  static object  LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)(void *)&LnkLI265,first,ap);va_end(ap);return V1;} /* CMPERR */  static object  LnkTLI266(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[266],(void **)(void *)&LnkLI266,first,ap);va_end(ap);return V1;} /* CMPERR */
5665    
5666  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
5667  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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