/[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.10.4.1 by camm, Wed Jul 16 02:02:47 2003 UTC revision 1.10.4.1.4.1 by camm, Tue Sep 2 20:18:17 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[43]))goto T363;          if((V65!= VV[44]))goto T373;
697          V62= Ct;          V62= Ct;
698          goto T360;          goto T370;
699          goto T363;          goto T373;
700  T363:;  T373:;
701          if((V65!= VV[285]))goto T365;          if((V65!= VV[286]))goto T375;
702          goto T360;          goto T370;
703          goto T365;          goto T375;
704  T365:;  T375:;
705          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V64))));}          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[46],(V64))));}
706          goto T360;          goto T370;
707  T360:;  T370:;
708          V63= cdr((V63));          V63= cdr((V63));
709          V64= car((V63));          V64= car((V63));
710          goto T355;}          goto T365;}
711          goto T351;          goto T361;
712  T351:;  T361:;
713          base[1]= car((V60));          base[1]= car((V60));
714          bds_bind(VV[42],base[1]);          bds_bind(VV[43],base[1]);
715          if(((V61))==Cnil){          if(((V61))==Cnil){
716          goto T373;}          goto T383;}
717          base[2]= (*(LnkLI286))(cdr((V60)));          base[2]= (*(LnkLI287))(cdr((V60)));
718          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
719          bds_unwind1;          bds_unwind1;
720          return;          return;
721          goto T373;          goto T383;
722  T373:;  T383:;
723          if(((V62))==Cnil){          if(((V62))==Cnil){
724          goto T376;}          goto T386;}
725          base[2]= make_cons(VV[46],cdr((V60)));          base[2]= make_cons(VV[47],cdr((V60)));
726          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
727          (void) (*Lnk282)();          (void) (*Lnk283)();
728          bds_unwind1;          bds_unwind1;
729          return;          return;
730          goto T376;          goto T386;
731  T376:;  T386:;
732          base[2]= Cnil;          base[2]= Cnil;
733          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
734          bds_unwind1;          bds_unwind1;
# Line 737  object V67; Line 744  object V67;
744          bds_check;          bds_check;
745          goto TTL;          goto TTL;
746  TTL:;  TTL:;
747          if(!(equal(car((V67)),VV[47]))){          if(!(equal(car((V67)),VV[48]))){
748          goto T380;}          goto T390;}
749          bds_bind(VV[48],Ct);          bds_bind(VV[49],Ct);
750          {object V68 = (*(LnkLI286))(cdr((V67)));          {object V68 = (*(LnkLI287))(cdr((V67)));
751          bds_unwind1;          bds_unwind1;
752          VMR6(V68)}          VMR6(V68)}
753          goto T380;          goto T390;
754  T380:;  T390:;
755          {register object V69;          {register object V69;
756          register object V70;          register object V70;
757          V69= (V67);          V69= (V67);
758          V70= car((V69));          V70= car((V69));
759          goto T385;          goto T395;
760  T385:;  T395:;
761          if(!(endp_prop((V69)))){          if(!(endp_prop((V69)))){
762          goto T386;}          goto T396;}
763          {object V71 = Cnil;          {object V71 = Cnil;
764          VMR6(V71)}          VMR6(V71)}
765          goto T386;          goto T396;
766  T386:;  T396:;
767          base[1]= (V70);          base[1]= (V70);
768          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
769          (void) (*Lnk272)();          (void) (*Lnk273)();
770          vs_top=sup;          vs_top=sup;
771          V69= cdr((V69));          V69= cdr((V69));
772          V70= car((V69));          V70= car((V69));
773          goto T385;}          goto T395;}
774          base[0]=base[0];          base[0]=base[0];
775          return Cnil;          return Cnil;
776  }  }
# Line 787  TTL:; Line 794  TTL:;
794          register object V79;          register object V79;
795          V78= (V75);          V78= (V75);
796          V79= car((V78));          V79= car((V78));
797          goto T404;          goto T414;
798  T404:;  T414:;
799          if(!(endp_prop((V78)))){          if(!(endp_prop((V78)))){
800          goto T405;}          goto T415;}
801          goto T400;          goto T410;
802          goto T405;          goto T415;
803  T405:;  T415:;
804          {register object x= car((V79)),V80= (V77);          {register object x= car((V79)),V80= (V77);
805          while(!endp(V80))          while(!endp(V80))
806          if(eql(x,V80->c.c_car)){          if(eql(x,V80->c.c_car)){
807          V76= V80;          V76= V80;
808          goto T410;          goto T420;
809          }else V80=V80->c.c_cdr;          }else V80=V80->c.c_cdr;
810          V76= Cnil;}          V76= Cnil;}
811          goto T410;          goto T420;
812  T410:;  T420:;
813          if((V76)==Cnil){          if((V76)==Cnil){
814          goto T411;}          goto T421;}
815          {register object V81;          {register object V81;
816          register object V82;          register object V82;
817          V81= (V76);          V81= (V76);
818          V82= cadr((V79));          V82= cadr((V79));
819          if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81));          if(type_of((V81))!=t_cons)FEwrong_type_argument(Scons,(V81));
820          ((V81))->c.c_car = (V82);}          ((V81))->c.c_car = (V82);}
821          goto T411;          goto T421;
822  T411:;  T421:;
823          V78= cdr((V78));          V78= cdr((V78));
824          V79= car((V78));          V79= car((V78));
825          goto T404;}          goto T414;}
826          goto T400;          goto T410;
827  T400:;  T410:;
828          {register object x= VV[49],V83= (V77);          {register object x= VV[50],V83= (V77);
829          while(!endp(V83))          while(!endp(V83))
830          if(eql(x,V83->c.c_car)){          if(eql(x,V83->c.c_car)){
831          V76= V83;          V76= V83;
832          goto T424;          goto T434;
833          }else V83=V83->c.c_cdr;          }else V83=V83->c.c_cdr;
834          V76= Cnil;}          V76= Cnil;}
835          goto T424;          goto T434;
836  T424:;  T434:;
837          if(((V76))==Cnil){          if(((V76))==Cnil){
838          goto T422;}          goto T432;}
839          {object V85;          {object V85;
840          V85= append((V75),cdr((V76)));          V85= append((V75),cdr((V76)));
841          if(type_of(V76)!=t_cons)FEwrong_type_argument(Scons,V76);          if(type_of(V76)!=t_cons)FEwrong_type_argument(Scons,V76);
842          (V76)->c.c_cdr = (V85);          (V76)->c.c_cdr = (V85);
843          goto T420;}          goto T430;}
844          goto T422;          goto T432;
845  T422:;  T432:;
846          V86= make_cons(VV[49],(V75));          V86= make_cons(VV[50],(V75));
847          V77= append((V77),/* INLINE-ARGS */V86);          V77= append((V77),/* INLINE-ARGS */V86);
848          goto T420;          goto T430;
849  T420:;  T430:;
850          {object V87 = listA(3,car((V74)),(V77),cddr((V74)));          {object V87 = listA(3,car((V74)),(V77),cddr((V74)));
851          VMR7(V87)}}          VMR7(V87)}}
852          base[0]=base[0];          base[0]=base[0];
# Line 855  object V89; Line 862  object V89;
862          goto TTL;          goto TTL;
863  TTL:;  TTL:;
864          {object V90;          {object V90;
865          V90= symbol_value(VV[50]);          V90= symbol_value(VV[51]);
866          bds_bind(VV[52],Cnil);          bds_bind(VV[53],Cnil);
867          if(endp_prop((V89))){          if(endp_prop((V89))){
868          goto T430;}          goto T440;}
869          if(!(endp_prop(cdr((V89))))){          if(!(endp_prop(cdr((V89))))){
870          goto T429;}          goto T439;}
871          goto T430;          goto T440;
872  T430:;  T440:;
873          V92 = make_fixnum((long)length((V89)));          V92 = make_fixnum((long)length((V89)));
874          (void)((*(LnkLI283))(VV[51],small_fixnum(2),V92));          (void)((*(LnkLI284))(VV[52],small_fixnum(2),V92));
         goto T429;  
 T429:;  
         if(type_of(car((V89)))==t_symbol){  
         goto T434;}  
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V89)))));  
         goto T434;  
 T434:;  
         V93= make_cons(VV[51],(V89));  
         (void)((*(LnkLI268))(Cnil,/* INLINE-ARGS */V93));  
875          goto T439;          goto T439;
876  T439:;  T439:;
877            if(type_of(car((V89)))==t_symbol){
878            goto T444;}
879            (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[54],car((V89)))));
880            goto T444;
881    T444:;
882            V93= make_cons(VV[52],(V89));
883            (void)((*(LnkLI269))(Cnil,/* INLINE-ARGS */V93));
884            goto T449;
885    T449:;
886          setq(VV[6],Ct);          setq(VV[6],Ct);
887          setq(VV[54],Cnil);          setq(VV[55],Cnil);
888          {register object V94;          {register object V94;
889          object V95;          object V95;
890          object V96;          object V96;
891          register object V97;{object V98;          register object V97;{object V98;
892          V98= get(car((V89)),VV[60],Cnil);          V98= get(car((V89)),VV[61],Cnil);
893          if(V98==Cnil)goto T446;          if(V98==Cnil)goto T456;
894          V95= V98;          V95= V98;
895          goto T445;          goto T455;
896          goto T446;          goto T456;
897  T446:;}  T456:;}
898          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1)));
899          V95= symbol_value(VV[61]);          V95= symbol_value(VV[62]);
900          goto T445;          goto T455;
901  T445:;  T455:;
902          V97= car((V89));          V97= car((V89));
         bds_bind(VV[55],Cnil);  
903          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
904          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
905          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
         V94= Cnil;  
906          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
907            V94= Cnil;
908            bds_bind(VV[60],Cnil);
909          V96= Cnil;          V96= Cnil;
910          V94= (VFUN_NARGS=2,(*(LnkLI287))(cdr((V89)),(V97)));          V94= (VFUN_NARGS=2,(*(LnkLI288))(cdr((V89)),(V97)));
911          if(!(eql((V90),symbol_value(VV[50])))){          if(!(eql((V90),symbol_value(VV[51])))){
912          goto T453;}          goto T463;}
913          goto T452;          goto T462;
914          goto T453;          goto T463;
915  T453:;  T463:;
916          (void)(structure_set(cadr((V94)),VV[62],4,Ct));          (void)(structure_set(cadr((V94)),VV[63],4,Ct));
917          goto T452;          goto T462;
918  T452:;  T462:;
919          V99= structure_ref(cadr((V94)),VV[62],1);          V99= structure_ref(cadr((V94)),VV[63],1);
920          (void)((*(LnkLI288))(/* INLINE-ARGS */V99));          (void)((*(LnkLI289))(/* INLINE-ARGS */V99));
921          if((get((V97),VV[63],Cnil))==Cnil){          if((get((V97),VV[64],Cnil))==Cnil){
922          goto T456;}          goto T466;}
923          {object V100;          {object V100;
924          V100= make_fixnum((long)length(car(caddr((V94)))));          V100= make_fixnum((long)length(car(caddr((V94)))));
925          (void)(sputprop((V97),VV[63],(V100)));          (void)(sputprop((V97),VV[64],(V100)));
926          base[6]= (V100);          base[6]= (V100);
927          base[7]= VV[65];          base[7]= VV[66];
928          base[8]= Ct;          base[8]= Ct;
929          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
930          Lmake_list();          Lmake_list();
931          vs_top=sup;          vs_top=sup;
932          V101= vs_base[0];          V101= vs_base[0];
933          V102= list(4,VV[64],(V97),V101,Ct);          V102= list(4,VV[65],(V97),V101,Ct);
934          (void)((*(LnkLI289))(/* INLINE-ARGS */V102));}          (void)((*(LnkLI290))(/* INLINE-ARGS */V102));}
935          goto T456;          goto T466;
936  T456:;  T466:;
937          if((get((V97),VV[66],Cnil))==Cnil){          if((get((V97),VV[67],Cnil))==Cnil){
938          goto T467;}          goto T477;}
939          {object V103;          {object V103;
940          register object V104;          register object V104;
941          V103= caddr((V94));          V103= caddr((V94));
942          V104= Cnil;          V104= Cnil;
943          if((cadr((V103)))==Cnil){          if((cadr((V103)))==Cnil){
944          goto T472;}          goto T482;}
945          goto T467;          goto T477;
946          goto T472;          goto T482;
947  T472:;  T482:;
948          if((caddr((V103)))==Cnil){          if((caddr((V103)))==Cnil){
949          goto T474;}          goto T484;}
950          goto T467;          goto T477;
951          goto T474;          goto T484;
952  T474:;  T484:;
953          if((cadddr((V103)))==Cnil){          if((cadddr((V103)))==Cnil){
954          goto T476;}          goto T486;}
955          goto T467;          goto T477;
956          goto T476;          goto T486;
957  T476:;  T486:;
958          if(((long)length(car((V103))))<(64)){          if(((long)length(car((V103))))<(64)){
959          goto T478;}          goto T488;}
960          goto T467;          goto T477;
961          goto T478;          goto T488;
962  T478:;  T488:;
963          {register object V105;          {register object V105;
964          register object V106;          register object V106;
965          object V107;          object V107;
966          V105= car((V103));          V105= car((V103));
967          V106= get((V97),VV[67],Cnil);          V106= get((V97),VV[68],Cnil);
968          V107= Cnil;          V107= Cnil;
969          goto T485;          goto T495;
970  T485:;  T495:;
971          if(!(endp_prop((V105)))){          if(!(endp_prop((V105)))){
972          goto T486;}          goto T496;}
973          if(endp_prop((V106))){          if(endp_prop((V106))){
974          goto T489;}          goto T499;}
975          goto T481;          goto T491;
976          goto T489;          goto T499;
977  T489:;  T499:;
978          if(((V104))==Cnil){          if(((V104))==Cnil){
979          goto T492;}          goto T502;}
980          V89= (*(LnkLI290))((V89),(V104));          V89= (*(LnkLI291))((V89),(V104));
981          bds_unwind1;          bds_unwind1;
982          bds_unwind1;          bds_unwind1;
983          bds_unwind1;          bds_unwind1;
984          bds_unwind1;          bds_unwind1;
985          bds_unwind1;          bds_unwind1;
986          goto T439;          goto T449;
987          goto T492;          goto T502;
988  T492:;  T502:;
989          if(((V107))==Cnil){          if(((V107))==Cnil){
990          goto T480;}          goto T490;}
991          goto T481;          goto T491;
992          goto T486;          goto T496;
993  T486:;  T496:;
994          {register object V108;          {register object V108;
995          V108= car((V105));          V108= car((V105));
996          if(!(equal(car((V106)),VV[68]))){          if(!(equal(car((V106)),VV[69]))){
997          goto T499;}          goto T509;}
998          goto T481;          goto T491;
999          goto T499;          goto T509;
1000  T499:;  T509:;
1001          V109= structure_ref((V108),VV[69],1);          V109= structure_ref((V108),VV[70],1);
1002          if((/* INLINE-ARGS */V109)==(VV[70])){          if((/* INLINE-ARGS */V109)==(VV[71])){
1003          goto T505;}          goto T515;}
1004          V110= structure_ref((V108),VV[69],1);          V110= structure_ref((V108),VV[70],1);
1005          if(!((/* INLINE-ARGS */V110)==(VV[71]))){          if(!((/* INLINE-ARGS */V110)==(VV[72]))){
1006          goto T504;}          goto T514;}
1007          if(!((car((V106)))==(Ct))){          if(!((car((V106)))==(Ct))){
1008          goto T504;}          goto T514;}
1009          goto T505;          goto T515;
1010  T505:;  T515:;
1011          if((structure_ref((V108),VV[69],3))!=Cnil){          if((structure_ref((V108),VV[70],3))!=Cnil){
1012          goto T504;}          goto T514;}
1013          V111= structure_ref((V108),VV[69],4);          V111= structure_ref((V108),VV[70],4);
1014          if(!((/* INLINE-ARGS */V111)==(VV[72]))){          if(!((/* INLINE-ARGS */V111)==(VV[73]))){
1015          goto T503;}          goto T513;}
1016          goto T504;          goto T514;
1017  T504:;  T514:;
1018          {object V112;          {object V112;
1019          V113= structure_ref((V108),VV[69],0);          V113= structure_ref((V108),VV[70],0);
1020          vs_base=vs_top;          vs_base=vs_top;
1021          Lgensym();          Lgensym();
1022          vs_top=sup;          vs_top=sup;
1023          V114= vs_base[0];          V114= vs_base[0];
1024          V112= list(2,/* INLINE-ARGS */V113,V114);          V112= list(2,/* INLINE-ARGS */V113,V114);
1025          V104= make_cons((V112),(V104));}          V104= make_cons((V112),(V104));}
1026          goto T503;          goto T513;
1027  T503:;  T513:;
1028          V115= car((V106));          V115= car((V106));
1029          V116= structure_ref((V108),VV[69],5);          V116= structure_ref((V108),VV[70],5);
1030          if(((*(LnkLI291))(/* INLINE-ARGS */V115,/* INLINE-ARGS */V116))==Cnil){          if(((*(LnkLI292))(/* INLINE-ARGS */V115,/* INLINE-ARGS */V116))==Cnil){
1031          goto T502;}          goto T512;}
1032          {register object x= car((V106)),V117= VV[73];          {register object x= car((V106)),V117= VV[74];
1033          while(!endp(V117))          while(!endp(V117))
1034          if(eql(x,V117->c.c_car)){          if(eql(x,V117->c.c_car)){
1035          goto T497;          goto T507;
1036          }else V117=V117->c.c_cdr;}          }else V117=V117->c.c_cdr;}
1037          V118= structure_ref((V108),VV[69],4);          V118= structure_ref((V108),VV[70],4);
1038          if((/* INLINE-ARGS */V118)==(VV[74])){          if((/* INLINE-ARGS */V118)==(VV[75])){
1039          goto T497;}          goto T507;}
1040          if((symbol_value(VV[75]))!=Cnil){          if((symbol_value(VV[76]))!=Cnil){
1041          goto T497;}          goto T507;}
1042          V120= structure_ref(cadr((V94)),VV[62],0);          V120= structure_ref(cadr((V94)),VV[63],0);
1043          {register object x= (V108),V119= /* INLINE-ARGS */V120;          {register object x= (V108),V119= /* INLINE-ARGS */V120;
1044          while(!endp(V119))          while(!endp(V119))
1045          if(eql(x,V119->c.c_car)){          if(eql(x,V119->c.c_car)){
1046          goto T527;          goto T537;
1047          }else V119=V119->c.c_cdr;          }else V119=V119->c.c_cdr;
1048          goto T497;}          goto T507;}
1049          goto T527;          goto T537;
1050  T527:;  T537:;
1051          goto T502;          goto T512;
1052  T502:;  T512:;
1053          if(((V104))!=Cnil){          if(((V104))!=Cnil){
1054          goto T528;}          goto T538;}
1055          V121= structure_ref((V108),VV[69],0);          V121= structure_ref((V108),VV[70],0);
1056          (void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V97),/* INLINE-ARGS */V121)));          (void)((VFUN_NARGS=3,(*(LnkLI267))(VV[77],(V97),/* INLINE-ARGS */V121)));
1057          goto T528;          goto T538;
1058  T528:;  T538:;
1059          V107= Ct;}          V107= Ct;}
1060          goto T497;          goto T507;
1061  T497:;  T507:;
1062          V105= cdr((V105));          V105= cdr((V105));
1063          V106= cdr((V106));          V106= cdr((V106));
1064          goto T485;}          goto T495;}
1065          goto T481;          goto T491;
1066  T481:;  T491:;
1067          goto T467;          goto T477;
1068          goto T480;          goto T490;
1069  T480:;  T490:;
1070          if(!(type_of((V95))==t_fixnum||          if(!(type_of((V95))==t_fixnum||
1071  type_of((V95))==t_bignum||  type_of((V95))==t_bignum||
1072  type_of((V95))==t_ratio||  type_of((V95))==t_ratio||
1073  type_of((V95))==t_shortfloat||  type_of((V95))==t_shortfloat||
1074  type_of((V95))==t_longfloat||  type_of((V95))==t_longfloat||
1075  type_of((V95))==t_complex)){  type_of((V95))==t_complex)){
1076          goto T467;}}          goto T477;}}
1077          {object V122;          {object V122;
1078          V123= get((V97),VV[67],Cnil);          V123= get((V97),VV[68],Cnil);
1079          V124= get((V97),VV[77],Cnil);          V124= get((V97),VV[78],Cnil);
1080          V125= get((V97),VV[67],Cnil);          V125= get((V97),VV[68],Cnil);
1081          V122= list(5,(V97),V123,V124,small_fixnum(3),(*(LnkLI292))((V95),V125));          V122= list(5,(V97),V123,V124,small_fixnum(3),(*(LnkLI293))((V95),V125));
1082          setq(VV[78],make_cons((V122),symbol_value(VV[78])));          setq(VV[79],make_cons((V122),symbol_value(VV[79])));
1083          goto T465;}          goto T475;}
1084          goto T467;          goto T477;
1085  T467:;  T477:;
1086          {object V126;          {object V126;
1087          V127= get((V97),VV[77],Cnil);          V127= get((V97),VV[78],Cnil);
1088          V126= ((V127)==(Ct)?Ct:Cnil);          V126= ((V127)==(Ct)?Ct:Cnil);
1089          if(((V126))==Cnil){          if(((V126))==Cnil){
1090          goto T465;}}          goto T475;}}
1091          goto T465;          goto T475;
1092  T465:;  T475:;
1093          if((cadddr((V94)))==Cnil){          if((cadddr((V94)))==Cnil){
1094          goto T545;}          goto T555;}
1095          V96= cadddr((V94));          V96= cadddr((V94));
1096          goto T545;          goto T555;
1097  T545:;  T555:;
1098          (void)((*(LnkLI293))());          (void)((*(LnkLI294))());
1099          {object V128;          {object V128;
1100          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));
1101          setq(VV[24],make_cons((V128),symbol_value(VV[24])));}          setq(VV[25],make_cons((V128),symbol_value(VV[25])));}
1102          {object V129;          {object V129;
1103          V129= make_cons((V97),(V95));          V129= make_cons((V97),(V95));
1104          setq(VV[79],make_cons((V129),symbol_value(VV[79])));          setq(VV[80],make_cons((V129),symbol_value(VV[80])));
1105          V130= symbol_value(VV[79]);          V130= symbol_value(VV[80]);
1106          bds_unwind1;          bds_unwind1;
1107          bds_unwind1;          bds_unwind1;
1108          bds_unwind1;          bds_unwind1;
# Line 1116  object V134;object V135; Line 1123  object V134;object V135;
1123          goto TTL;          goto TTL;
1124  TTL:;  TTL:;
1125          if(((V135))!=Cnil){          if(((V135))!=Cnil){
1126          goto T556;}          goto T566;}
1127          base[0]= Cnil;          base[0]= Cnil;
1128          base[1]= VV[80];          base[1]= VV[81];
1129          base[2]= (V134);          base[2]= (V134);
1130          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1131          Lformat();          Lformat();
1132          vs_top=sup;          vs_top=sup;
1133          {object V136 = vs_base[0];          {object V136 = vs_base[0];
1134          VMR9(V136)}          VMR9(V136)}
1135          goto T556;          goto T566;
1136  T556:;  T566:;
1137          {register object V137;          {register object V137;
1138          V137= (VFUN_NARGS=7,(*(LnkLI294))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));          V137= (VFUN_NARGS=7,(*(LnkLI295))(small_fixnum(100),VV[82],VV[83],VV[84],small_fixnum(0),VV[85],Ct));
1139          base[0]= (V137);          base[0]= (V137);
1140          base[1]= VV[85];          base[1]= VV[86];
1141          base[2]= (V134);          base[2]= (V134);
1142          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1143          Lformat();          Lformat();
# Line 1139  T556:; Line 1146  T556:;
1146          register long V139;          register long V139;
1147          V139= 0;          V139= 0;
1148          V138= (V135);          V138= (V135);
1149          goto T569;          goto T579;
1150  T569:;  T579:;
1151          if(!(endp_prop(cdr((V138))))){          if(!(endp_prop(cdr((V138))))){
1152          goto T570;}          goto T580;}
1153          base[0]= (V137);          base[0]= (V137);
1154          base[1]= VV[86];          base[1]= VV[87];
1155          base[2]= make_fixnum(V139);          base[2]= make_fixnum(V139);
1156          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1157          Lformat();          Lformat();
1158          vs_top=sup;          vs_top=sup;
1159          goto T566;          goto T576;
1160          goto T570;          goto T580;
1161  T570:;  T580:;
1162          base[0]= (V137);          base[0]= (V137);
1163          base[1]= VV[87];          base[1]= VV[88];
1164          base[2]= make_fixnum(V139);          base[2]= make_fixnum(V139);
1165          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1166          Lformat();          Lformat();
1167          vs_top=sup;          vs_top=sup;
1168          V138= cdr((V138));          V138= cdr((V138));
1169          V139= (long)(V139)+1;          V139= (long)(V139)+1;
1170          goto T569;}          goto T579;}
1171          goto T566;          goto T576;
1172  T566:;  T576:;
1173          {object V140 = (V137);          {object V140 = (V137);
1174          VMR9(V140)}}          VMR9(V140)}}
1175          base[0]=base[0];          base[0]=base[0];
# Line 1175  static object LI10(object first,...) Line 1182  static object LI10(object first,...)
1182          va_list ap;          va_list ap;
1183          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
1184          {object V141;          {object V141;
         Vcs[0]=Vcs[0];  
1185          va_start(ap,first);          va_start(ap,first);
1186          narg = narg - 0;          narg = narg - 0;
1187          if (narg <= 0) goto T585;          if (narg <= 0) goto T595;
1188          else {          else {
1189          V141= first;}          V141= first;}
1190          --narg; goto T586;          --narg; goto T596;
1191          goto T585;          goto T595;
1192  T585:;  T595:;
1193          V141= Cnil;          V141= Cnil;
1194          goto T586;          goto T596;
1195  T586:;  T596:;
1196          {object V142;          {object V142;
1197          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
1198          V142= symbol_value(VV[88]);          V142= symbol_value(VV[89]);
1199          {object V143;          {object V143;
1200          if(((V141))==Cnil){          if(((V141))==Cnil){
1201          goto T593;}          goto T603;}
1202          V143= make_cons((V141),(V142));          V143= make_cons((V141),(V142));
1203          goto T591;          goto T601;
1204          goto T593;          goto T603;
1205  T593:;  T603:;
1206          V143= (V142);          V143= (V142);
1207          goto T591;          goto T601;
1208  T591:;  T601:;
1209          setq(VV[18],make_cons((V143),symbol_value(VV[18])));}          setq(VV[19],make_cons((V143),symbol_value(VV[19])));}
1210          {object V144 = (V142);          {object V144 = (V142);
1211          VMR10(V144)}}          VMR10(V144)}}
1212          va_end(ap);          va_end(ap);
# Line 1216  register object V146; Line 1222  register object V146;
1222          goto TTL;          goto TTL;
1223  TTL:;  TTL:;
1224          base[0]= (V146);          base[0]= (V146);
1225          base[1]= VV[69];          base[1]= VV[70];
1226          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1227          (void) (*Lnk295)();          (void) (*Lnk296)();
1228          vs_top=sup;          vs_top=sup;
1229          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1230          goto T596;}          goto T606;}
1231          V146= structure_ref((V146),VV[69],5);          V146= structure_ref((V146),VV[70],5);
1232          goto T596;          goto T606;
1233  T596:;  T606:;
1234          if(((V146))==Cnil){          if(((V146))==Cnil){
1235          goto T603;}          goto T613;}
1236          base[0]= (V146);          base[0]= (V146);
1237          base[1]= VV[89];          base[1]= VV[90];
1238          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1239          (void) (*Lnk296)();          (void) (*Lnk297)();
1240          vs_top=sup;          vs_top=sup;
1241          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1242          goto T603;}          goto T613;}
1243          {long V147 = 1;          {long V147 = 1;
1244          VMR11((object)V147)}          VMR11((object)V147)}
1245          goto T603;          goto T613;
1246  T603:;  T613:;
1247          {long V148 = 0;          {long V148 = 0;
1248          VMR11((object)V148)}          VMR11((object)V148)}
1249          base[0]=base[0];          base[0]=base[0];
# Line 1256  TTL:; Line 1262  TTL:;
1262          register object V156;          register object V156;
1263          V153= (long)length((V151));          V153= (long)length((V151));
1264          V154= 8;          V154= 8;
1265          V155= make_fixnum((long)(*(LnkLI297))((V152)));          V155= make_fixnum((long)(*(LnkLI298))((V152)));
1266          V156= Ct;          V156= Ct;
1267          goto T613;          goto T623;
1268  T613:;  T623:;
1269          if(eql(small_fixnum(0),(V155))){          if(eql(small_fixnum(0),(V155))){
1270          goto T615;}          goto T625;}
1271          V153= (long)(V153)+((long)((fix((V155))) << (V154)));          V153= (long)(V153)+((long)((fix((V155))) << (V154)));
1272          goto T615;          goto T625;
1273  T615:;  T625:;
1274          if(((V156))==Cnil){          if(((V156))==Cnil){
1275          goto T619;}          goto T629;}
1276          V154= 10;          V154= 10;
1277          V156= Cnil;          V156= Cnil;
1278          goto T619;          goto T629;
1279  T619:;  T629:;
1280          if(((V151))!=Cnil){          if(((V151))!=Cnil){
1281          goto T625;}          goto T635;}
1282          {long V157 = V153;          {long V157 = V153;
1283          VMR12((object)V157)}          VMR12((object)V157)}
1284          goto T625;          goto T635;
1285  T625:;  T635:;
1286          V154= (long)(V154)+(2);          V154= (long)(V154)+(2);
1287          {register object V159;          {register object V159;
1288          V159= car((V151));          V159= car((V151));
1289          V151= cdr((V151));          V151= cdr((V151));
1290          V158= (V159);}          V158= (V159);}
1291          V155= make_fixnum((long)(*(LnkLI297))(V158));          V155= make_fixnum((long)(*(LnkLI298))(V158));
1292          goto T613;}          goto T623;}
1293  }  }
1294  /*      local entry for function WT-IF-PROCLAIMED       */  /*      local entry for function WT-IF-PROCLAIMED       */
1295    
# Line 1293  register object V163;object V164;object Line 1299  register object V163;object V164;object
1299  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1300          goto TTL;          goto TTL;
1301  TTL:;  TTL:;
1302          if(((VFUN_NARGS=1,(*(LnkLI299))((V163))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI300))((V163))))==Cnil){
1303          goto T637;}          goto T647;}
1304          {register object x= (V163),V166= symbol_value(VV[78]);          {register object x= (V163),V166= symbol_value(VV[79]);
1305          while(!endp(V166))          while(!endp(V166))
1306          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)){
1307          goto T641;          goto T651;
1308          }else V166=V166->c.c_cdr;          }else V166=V166->c.c_cdr;
1309          goto T640;}          goto T650;}
1310          goto T641;          goto T651;
1311  T641:;  T651:;
1312          V167= list(2,VV[91],(V163));          V167= list(2,VV[92],(V163));
1313          V168= (*(LnkLI301))(VV[92],(V164));          V168= (*(LnkLI302))(VV[93],(V164));
1314          V169= get((V163),VV[67],Cnil);          V169= get((V163),VV[68],Cnil);
1315          V170= get((V163),VV[77],Cnil);          V170= get((V163),VV[78],Cnil);
1316          V171 = make_fixnum((long)(*(LnkLI302))(V169,V170));          V171 = make_fixnum((long)(*(LnkLI303))(V169,V170));
1317          V172= list(4,VV[90],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,V171);          V172= list(4,VV[91],/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,V171);
1318          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V172)));          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V172)));
1319          {object V173 = Ct;          {object V173 = Ct;
1320          VMR13(V173)}          VMR13(V173)}
1321          goto T640;          goto T650;
1322  T640:;  T650:;
1323          {register object V174;          {register object V174;
1324          register object V175;          register object V175;
1325          object V176;          object V176;
1326          V174= make_fixnum((long)length(car(caddr((V165)))));          V174= make_fixnum((long)length(car(caddr((V165)))));
1327          V177= get((V163),VV[67],Cnil);          V177= get((V163),VV[68],Cnil);
1328          V175= make_fixnum((long)length(V177));          V175= make_fixnum((long)length(V177));
1329          V179= get((V163),VV[67],Cnil);          V179= get((V163),VV[68],Cnil);
1330          {register object x= VV[68],V178= V179;          {register object x= VV[69],V178= V179;
1331          while(!endp(V178))          while(!endp(V178))
1332          if(eql(x,V178->c.c_car)){          if(eql(x,V178->c.c_car)){
1333          V176= V178;          V176= V178;
1334          goto T649;          goto T659;
1335          }else V178=V178->c.c_cdr;          }else V178=V178->c.c_cdr;
1336          V176= Cnil;}          V176= Cnil;}
1337          goto T649;          goto T659;
1338  T649:;  T659:;
1339          if(((V176))==Cnil){          if(((V176))==Cnil){
1340          goto T652;}          goto T662;}
1341          base[0]= (V174);          base[0]= (V174);
1342          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1343          Lmonotonically_nonincreasing();          Lmonotonically_nonincreasing();
1344          vs_top=sup;          vs_top=sup;
1345          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1346          goto T654;}          goto T664;}
1347          goto T645;          goto T655;
1348          goto T654;          goto T664;
1349  T654:;{object V180;  T664:;{object V180;
1350          V181 = make_fixnum((long)length((V176)));          V181 = make_fixnum((long)length((V176)));
1351          V180= number_minus((V175),V181);          V180= number_minus((V175),V181);
1352          if(V180==Cnil)goto T657;          if(V180==Cnil)goto T667;
1353          goto T645;          goto T655;
1354          goto T657;          goto T667;
1355  T657:;}  T667:;}
1356          V182 = make_fixnum((long)length((V176)));          V182 = make_fixnum((long)length((V176)));
1357          V183= number_minus((V175),V182);          V183= number_minus((V175),V182);
1358          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V163),/* INLINE-ARGS */V183,(V174))));          (void)((VFUN_NARGS=4,(*(LnkLI267))(VV[94],(V163),/* INLINE-ARGS */V183,(V174))));
1359          goto T645;          goto T655;
1360          goto T652;          goto T662;
1361  T652:;  T662:;
1362          if(eql((V174),(V175))){          if(eql((V174),(V175))){
1363          goto T660;}          goto T670;}
1364          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V163),(V175),(V174))));          (void)((VFUN_NARGS=4,(*(LnkLI267))(VV[95],(V163),(V175),(V174))));
1365          goto T645;          goto T655;
1366          goto T660;          goto T670;
1367  T660:;  T670:;
1368          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V163))));}          (void)((VFUN_NARGS=2,(*(LnkLI267))(VV[96],(V163))));}
1369          goto T645;          goto T655;
1370  T645:;  T655:;
1371          {object V184 = Cnil;          {object V184 = Cnil;
1372          VMR13(V184)}          VMR13(V184)}
1373          goto T637;          goto T647;
1374  T637:;  T647:;
1375          {object V185 = Cnil;          {object V185 = Cnil;
1376          VMR13(V185)}          VMR13(V185)}
1377          base[0]=base[0];          base[0]=base[0];
# Line 1379  object V187; Line 1385  object V187;
1385  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1386          goto TTL;          goto TTL;
1387  TTL:;  TTL:;
1388          if((structure_ref((V187),VV[62],4))==Cnil){          if((structure_ref((V187),VV[63],4))==Cnil){
1389          goto T663;}          goto T673;}
1390          {object V188 = VV[96];          {object V188 = VV[97];
1391          VMR14(V188)}          VMR14(V188)}
1392          goto T663;          goto T673;
1393  T663:;  T673:;
1394          {object V189 = VV[97];          {object V189 = VV[98];
1395          VMR14(V189)}          VMR14(V189)}
1396          return Cnil;          return Cnil;
1397  }  }
# Line 1397  object V191; Line 1403  object V191;
1403  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1404          goto TTL;          goto TTL;
1405  TTL:;  TTL:;
1406          if(!(equal(symbol_value(VV[20]),VV[98]))){          if(!(equal(symbol_value(VV[21]),VV[99]))){
1407          goto T666;}          goto T676;}
1408          {long V192= fix(structure_ref((V191),VV[69],6));          {long V192= fix(structure_ref((V191),VV[70],6));
1409          if(!((/* INLINE-ARGS */V192)>=(fix(symbol_value(VV[99]))))){          if(!((/* INLINE-ARGS */V192)>=(fix(symbol_value(VV[100]))))){
1410          goto T666;}}          goto T676;}}
1411          {object V193 = VV[100];          {object V193 = VV[101];
1412          VMR15(V193)}          VMR15(V193)}
1413          goto T666;          goto T676;
1414  T666:;  T676:;
1415          {object V194 = VV[101];          {object V194 = VV[102];
1416          VMR15(V194)}          VMR15(V194)}
1417          return Cnil;          return Cnil;
1418  }  }
# Line 1418  object V196; Line 1424  object V196;
1424  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1425          goto TTL;          goto TTL;
1426  TTL:;  TTL:;
1427          V197= get((V196),VV[77],Cnil);          V197= get((V196),VV[78],Cnil);
1428          if(equal(V197,Ct)){          if(equal(V197,Ct)){
1429          goto T670;}          goto T680;}
1430          {object V198 = Cnil;          {object V198 = Cnil;
1431          VMR16(V198)}          VMR16(V198)}
1432          goto T670;          goto T680;
1433  T670:;  T680:;
1434          {register object V199;          {register object V199;
1435          V199= get((V196),VV[67],Cnil);          V199= get((V196),VV[68],Cnil);
1436          goto T675;          goto T685;
1437  T675:;  T685:;
1438          if(((V199))!=Cnil){          if(((V199))!=Cnil){
1439          goto T676;}          goto T686;}
1440          {object V200 = Ct;          {object V200 = Ct;
1441          VMR16(V200)}          VMR16(V200)}
1442          goto T676;          goto T686;
1443  T676:;  T686:;
1444          if(!(type_of((V199))==t_cons)){          if(!(type_of((V199))==t_cons)){
1445          goto T681;}          goto T691;}
1446          goto T680;          goto T690;
1447          goto T681;          goto T691;
1448  T681:;  T691:;
1449          {object V201 = Cnil;          {object V201 = Cnil;
1450          VMR16(V201)}          VMR16(V201)}
1451          goto T680;          goto T690;
1452  T680:;  T690:;
1453          if(!((car((V199)))==(Ct))){          if(!((car((V199)))==(Ct))){
1454          goto T684;}          goto T694;}
1455          goto T683;          goto T693;
1456          goto T684;          goto T694;
1457  T684:;  T694:;
1458          if(!((car((V199)))==(VV[68]))){          if(!((car((V199)))==(VV[69]))){
1459          goto T686;}          goto T696;}
1460          goto T683;          goto T693;
1461          goto T686;          goto T696;
1462  T686:;  T696:;
1463          {object V202 = Cnil;          {object V202 = Cnil;
1464          VMR16(V202)}          VMR16(V202)}
1465          goto T683;          goto T693;
1466  T683:;  T693:;
1467          V199= cdr((V199));          V199= cdr((V199));
1468          goto T675;}          goto T685;}
1469          return Cnil;          return Cnil;
1470  }  }
1471  /*      local entry for function MAXARGS        */  /*      local entry for function MAXARGS        */
# Line 1471  register object V204; Line 1477  register object V204;
1477          goto TTL;          goto TTL;
1478  TTL:;  TTL:;
1479          if((cadddr((V204)))!=Cnil){          if((cadddr((V204)))!=Cnil){
1480          goto T691;}          goto T701;}
1481          if((caddr((V204)))==Cnil){          if((caddr((V204)))==Cnil){
1482          goto T692;}          goto T702;}
1483          goto T691;          goto T701;
1484  T691:;  T701:;
1485          {object V205 = small_fixnum(64);          {object V205 = small_fixnum(64);
1486          VMR17(V205)}          VMR17(V205)}
1487          goto T692;          goto T702;
1488  T692:;  T702:;
1489          base[0]= make_fixnum((long)length(car((V204))));          base[0]= make_fixnum((long)length(car((V204))));
1490          base[1]= make_fixnum((long)length(cadr((V204))));          base[1]= make_fixnum((long)length(cadr((V204))));
1491          V206 = make_fixnum((long)length(car(cddddr((V204)))));          V206 = make_fixnum((long)length(car(cddddr((V204)))));
# Line 1502  object V210;object V211; Line 1508  object V210;object V211;
1508  TTL:;  TTL:;
1509          {object V212;          {object V212;
1510          V212= list(2,(V210),(V211));          V212= list(2,(V210),(V211));
1511          setq(VV[21],make_cons((V212),symbol_value(VV[21])));}          setq(VV[22],make_cons((V212),symbol_value(VV[22])));}
1512          {object V213;          {object V213;
1513          V213= symbol_value(VV[22]);          V213= symbol_value(VV[23]);
1514          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[23],number_plus(symbol_value(VV[23]),small_fixnum(1)));
1515          {object V214 = (V213);          {object V214 = (V213);
1516          VMR18(V214)}}          VMR18(V214)}}
1517          base[0]=base[0];          base[0]=base[0];
# Line 1519  register object V220;register object V22 Line 1525  register object V220;register object V22
1525  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1526          goto TTL;          goto TTL;
1527  TTL:;  TTL:;
1528          if((get((V220),VV[102],Cnil))==Cnil){          if((get((V220),VV[103],Cnil))==Cnil){
1529          goto T704;}          goto T714;}
1530          {object V225 = Cnil;          {object V225 = Cnil;
1531          VMR19(V225)}          VMR19(V225)}
1532          goto T704;          goto T714;
1533  T704:;  T714:;
1534          if(((V223))==Cnil){          if(((V223))==Cnil){
1535          goto T707;}          goto T717;}
1536          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]);
1537          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V226)));          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V226)));
1538          goto T707;          goto T717;
1539  T707:;  T717:;
1540          {object V227;          {object V227;
1541          V227= (*(LnkLI303))((V220),(V221),(V222));          V227= (*(LnkLI304))((V220),(V221),(V222));
1542          if(((V227))==Cnil){          if(((V227))==Cnil){
1543          goto T713;}          goto T723;}
1544          goto T710;          goto T720;
1545          goto T713;          goto T723;
1546  T713:;  T723:;
1547          if(((*(LnkLI304))((V220)))==Cnil){          if(((*(LnkLI305))((V220)))==Cnil){
1548          goto T716;}          goto T726;}
1549          {object V228;          {object V228;
1550          V228= cadddr(caddr((V222)));          V228= cadddr(caddr((V222)));
1551          if(((V228))==Cnil){          if(((V228))==Cnil){
1552          goto T720;}          goto T730;}
1553          V229= list(2,VV[91],(V220));          V229= list(2,VV[92],(V220));
1554          V230= (*(LnkLI301))(VV[106],(V221));          V230= (*(LnkLI302))(VV[107],(V221));
1555          V231 = make_fixnum((long)length(car(caddr((V222)))));          V231 = make_fixnum((long)length(car(caddr((V222)))));
1556          V232= (*(LnkLI305))(caddr((V222)));          V232= (*(LnkLI306))(caddr((V222)));
1557          V233= (*(LnkLI298))(/* INLINE-ARGS */V232,small_fixnum(8));          V233= (*(LnkLI299))(/* INLINE-ARGS */V232,small_fixnum(8));
1558          V234= number_plus(V231,/* INLINE-ARGS */V233);          V234= number_plus(V231,/* INLINE-ARGS */V233);
1559          base[0]= Cnil;          base[0]= Cnil;
1560          base[1]= VV[107];          base[1]= VV[108];
1561          base[2]= (V221);          base[2]= (V221);
1562          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
1563          Lformat();          Lformat();
1564          vs_top=sup;          vs_top=sup;
1565          V235= vs_base[0];          V235= vs_base[0];
1566          V236= list(5,VV[105],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,/* INLINE-ARGS */V234,(*(LnkLI301))(V235,VV[108]));          V236= list(5,VV[106],/* INLINE-ARGS */V229,/* INLINE-ARGS */V230,/* INLINE-ARGS */V234,(*(LnkLI302))(V235,VV[109]));
1567          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V236)));          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V236)));
         goto T710;  
1568          goto T720;          goto T720;
1569  T720:;          goto T730;
1570          V237= list(2,VV[91],(V220));  T730:;
1571          V238= (*(LnkLI301))(VV[110],(V221));          V237= list(2,VV[92],(V220));
1572            V238= (*(LnkLI302))(VV[111],(V221));
1573          V239 = make_fixnum((long)length(car(caddr((V222)))));          V239 = make_fixnum((long)length(car(caddr((V222)))));
1574          V240= (*(LnkLI305))(caddr((V222)));          V240= (*(LnkLI306))(caddr((V222)));
1575          V241= (*(LnkLI298))(/* INLINE-ARGS */V240,small_fixnum(8));          V241= (*(LnkLI299))(/* INLINE-ARGS */V240,small_fixnum(8));
1576          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));
1577          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V242)));          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V242)));
1578          goto T710;}          goto T720;}
1579          goto T716;          goto T726;
1580  T716:;  T726:;
1581          if(!(type_of((V221))==t_fixnum||          if(!(type_of((V221))==t_fixnum||
1582  type_of((V221))==t_bignum||  type_of((V221))==t_bignum||
1583  type_of((V221))==t_ratio||  type_of((V221))==t_ratio||
1584  type_of((V221))==t_shortfloat||  type_of((V221))==t_shortfloat||
1585  type_of((V221))==t_longfloat||  type_of((V221))==t_longfloat||
1586  type_of((V221))==t_complex)){  type_of((V221))==t_complex)){
1587          goto T727;}          goto T737;}
1588          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[32]);
1589          (void)((*(LnkLI277))((V221)));          (void)((*(LnkLI278))((V221)));
1590          princ_str("();",VV[31]);          princ_str("();",VV[32]);
1591          V243= list(2,VV[91],(V220));          V243= list(2,VV[92],(V220));
1592          V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI301))(VV[112],(V221)));          V244= list(3,VV[112],/* INLINE-ARGS */V243,(*(LnkLI302))(VV[113],(V221)));
1593          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V244)));          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V244)));
1594          goto T710;          goto T720;
1595          goto T727;          goto T737;
1596  T727:;  T737:;
1597          princ_char(10,VV[31]);          princ_char(10,VV[32]);
1598          (void)((*(LnkLI277))((V221)));          (void)((*(LnkLI278))((V221)));
1599          princ_str("();",VV[31]);          princ_str("();",VV[32]);
1600          V245= list(2,VV[91],(V220));          V245= list(2,VV[92],(V220));
1601          V246= list(3,VV[111],/* INLINE-ARGS */V245,(*(LnkLI301))(VV[113],(V221)));          V246= list(3,VV[112],/* INLINE-ARGS */V245,(*(LnkLI302))(VV[114],(V221)));
1602          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V246)));}          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V246)));}
1603          goto T710;          goto T720;
1604  T710:;  T720:;
1605          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){          if(!(number_compare(symbol_value(VV[115]),small_fixnum(2))<0)){
1606          goto T738;}          goto T748;}
1607          {object V247 = sputprop((V220),VV[115],Ct);          {object V247 = sputprop((V220),VV[116],Ct);
1608          VMR19(V247)}          VMR19(V247)}
1609          goto T738;          goto T748;
1610  T738:;  T748:;
1611          {object V248 = Cnil;          {object V248 = Cnil;
1612          VMR19(V248)}          VMR19(V248)}
1613          base[0]=base[0];          base[0]=base[0];
# Line 1615  object V251;object V252; Line 1621  object V251;object V252;
1621  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1622          goto TTL;          goto TTL;
1623  TTL:;  TTL:;
1624          {object V253 = putprop((V251),(V252),VV[116]);          {object V253 = putprop((V251),(V252),VV[117]);
1625          VMR20(V253)}          VMR20(V253)}
1626          return Cnil;          return Cnil;
1627  }  }
# Line 1630  register object V259;register object V26 Line 1636  register object V259;register object V26
1636  TTL:;  TTL:;
1637          {register object V264;          {register object V264;
1638          V264= Cnil;          V264= Cnil;
1639          bds_bind(VV[0],list(2,VV[51],(V259)));          bds_bind(VV[0],list(2,VV[52],(V259)));
1640          bds_bind(VV[20],(*(LnkLI306))(cadr((V261))));          bds_bind(VV[21],(*(LnkLI307))(cadr((V261))));
1641          bds_bind(VV[117],Cnil);          bds_bind(VV[118],Cnil);
1642          {register object V265;          {register object V265;
1643          register object V266;          register object V266;
1644          V265= symbol_value(VV[78]);          V265= symbol_value(VV[79]);
1645          V266= car((V265));          V266= car((V265));
1646          goto T750;          goto T760;
1647  T750:;  T760:;
1648          if(!(endp_prop((V265)))){          if(!(endp_prop((V265)))){
1649          goto T751;}          goto T761;}
1650          goto T745;          goto T755;
1651          goto T751;          goto T761;
1652  T751:;{object V267;  T761:;{object V267;
1653          base[4]= cadddr((V266));          base[4]= cadddr((V266));
1654          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1655          (void) (*Lnk307)();          (void) (*Lnk308)();
1656          vs_top=sup;          vs_top=sup;
1657          V267= vs_base[0];          V267= vs_base[0];
1658          if(V267==Cnil)goto T756;          if(V267==Cnil)goto T766;
1659          goto T755;          goto T765;
1660          goto T756;          goto T766;
1661  T756:;}  T766:;}
1662          base[4]= VV[118];          base[4]= VV[119];
1663          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1664          Lerror();          Lerror();
1665          vs_top=sup;          vs_top=sup;
1666          goto T755;          goto T765;
1667  T755:;  T765:;
1668          if((car((V266)))==((V259))){          if((car((V266)))==((V259))){
1669          goto T761;}          goto T771;}
1670          goto T760;          goto T770;
1671          goto T761;          goto T771;
1672  T761:;  T771:;
1673          if((cadr(cddddr((V266))))==Cnil){          if((cadr(cddddr((V266))))==Cnil){
1674          goto T763;}          goto T773;}
1675          goto T760;          goto T770;
1676          goto T763;          goto T773;
1677  T763:;  T773:;
1678          V264= (V266);          V264= (V266);
1679          if(((V264))==Cnil){          if(((V264))==Cnil){
1680          goto T745;}          goto T755;}
1681          goto T746;          goto T756;
1682          goto T760;          goto T770;
1683  T760:;  T770:;
1684          V265= cdr((V265));          V265= cdr((V265));
1685          V266= car((V265));          V266= car((V265));
1686          goto T750;}          goto T760;}
1687          goto T746;          goto T756;
1688  T746:;  T756:;
1689          if(((VFUN_NARGS=1,(*(LnkLI299))((V259))))!=Cnil){          if(((VFUN_NARGS=1,(*(LnkLI300))((V259))))!=Cnil){
1690          goto T771;}          goto T781;}
1691          {object V268;          {object V268;
1692          V268= list(4,(V259),(V260),cadr((V264)),caddr((V264)));          V268= list(4,(V259),(V260),cadr((V264)),caddr((V264)));
1693          setq(VV[29],make_cons((V268),symbol_value(VV[29])));}          setq(VV[30],make_cons((V268),symbol_value(VV[30])));}
1694          goto T771;          goto T781;
1695  T771:;  T781:;
1696          V269= structure_ref(cadr((V261)),VV[62],1);          V269= structure_ref(cadr((V261)),VV[63],1);
1697          (void)((*(LnkLI308))(/* INLINE-ARGS */V269,small_fixnum(0)));          (void)((*(LnkLI309))(/* INLINE-ARGS */V269,small_fixnum(0)));
1698          base[3]= VV[119];          base[3]= VV[120];
1699          {object V270= caddr((V264));          {object V270= caddr((V264));
1700          if((V270!= VV[89]))goto T779;          if((V270!= VV[90]))goto T789;
         base[4]= VV[120];  
         goto T778;  
         goto T779;  
 T779:;  
         if((V270!= VV[142]))goto T780;  
1701          base[4]= VV[121];          base[4]= VV[121];
1702          goto T778;          goto T788;
1703          goto T780;          goto T789;
1704  T780:;  T789:;
1705          if((V270!= VV[143]))goto T781;          if((V270!= VV[143]))goto T790;
1706          base[4]= VV[122];          base[4]= VV[122];
1707          goto T778;          goto T788;
1708          goto T781;          goto T790;
1709  T781:;  T790:;
1710          if((V270!= VV[144]))goto T782;          if((V270!= VV[144]))goto T791;
1711          base[4]= VV[123];          base[4]= VV[123];
1712          goto T778;          goto T788;
1713          goto T782;          goto T791;
1714  T782:;  T791:;
1715          base[4]= VV[124];}          if((V270!= VV[145]))goto T792;
1716          goto T778;          base[4]= VV[124];
1717  T778:;          goto T788;
1718            goto T792;
1719    T792:;
1720            base[4]= VV[125];}
1721            goto T788;
1722    T788:;
1723          base[5]= (V259);          base[5]= (V259);
1724          base[6]= (V260);          base[6]= (V260);
1725          base[7]= (V261);          base[7]= (V261);
1726          base[8]= (V263);          base[8]= (V263);
1727          base[9]= (V264);          base[9]= (V264);
1728          vs_top=(vs_base=base+3)+7;          vs_top=(vs_base=base+3)+7;
1729          (void) (*Lnk309)();          (void) (*Lnk310)();
1730          vs_top=sup;          vs_top=sup;
1731          goto T743;          goto T753;
1732          goto T745;          goto T755;
1733  T745:;  T755:;
1734          if(((*(LnkLI304))((V259)))==Cnil){          if(((*(LnkLI305))((V259)))==Cnil){
1735          goto T789;}          goto T799;}
1736          V271= structure_ref(cadr((V261)),VV[62],1);          V271= structure_ref(cadr((V261)),VV[63],1);
1737          (void)((*(LnkLI308))(/* INLINE-ARGS */V271,small_fixnum(0)));          (void)((*(LnkLI309))(/* INLINE-ARGS */V271,small_fixnum(0)));
1738          base[3]= VV[125];          base[3]= VV[126];
1739          base[4]= VV[124];          base[4]= VV[125];
1740          base[5]= (V259);          base[5]= (V259);
1741          base[6]= (V260);          base[6]= (V260);
1742          base[7]= (V261);          base[7]= (V261);
1743          base[8]= (V263);          base[8]= (V263);
1744          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1745          (void) (*Lnk309)();          (void) (*Lnk310)();
1746          vs_top=sup;          vs_top=sup;
1747          goto T743;          goto T753;
1748          goto T789;          goto T799;
1749  T789:;  T799:;
1750          V272= structure_ref(cadr((V261)),VV[62],1);          V272= structure_ref(cadr((V261)),VV[63],1);
1751          (void)((*(LnkLI308))(/* INLINE-ARGS */V272,small_fixnum(2)));          (void)((*(LnkLI309))(/* INLINE-ARGS */V272,small_fixnum(2)));
1752          base[3]= VV[126];          base[3]= VV[127];
1753          base[4]= VV[127];          base[4]= VV[128];
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) (*Lnk309)();          (void) (*Lnk310)();
1760          vs_top=sup;          vs_top=sup;
1761          goto T743;          goto T753;
1762  T743:;  T753:;
1763          (void)((*(LnkLI310))((V260)));          (void)((*(LnkLI311))((V260)));
1764          {object V273 = (*(LnkLI311))((V259),(V261));          {object V273 = (*(LnkLI312))((V259),(V261));
1765          bds_unwind1;          bds_unwind1;
1766          bds_unwind1;          bds_unwind1;
1767          bds_unwind1;          bds_unwind1;
# Line 1774  static void L22() Line 1780  static void L22()
1780          object V275;          object V275;
1781          if(vs_top-vs_base<2) too_few_arguments();          if(vs_top-vs_base<2) too_few_arguments();
1782          V274=(base[0]);          V274=(base[0]);
1783          bds_bind(VV[128],base[1]);          bds_bind(VV[129],base[1]);
1784          vs_base=vs_base+2;          vs_base=vs_base+2;
1785          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1786          {object *p=vs_top;          {object *p=vs_top;
1787           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1788          V275=(base[2]);          V275=(base[2]);
1789          vs_top=sup;          vs_top=sup;
1790          bds_bind(VV[18],Cnil);          bds_bind(VV[19],Cnil);
         bds_bind(VV[129],small_fixnum(0));  
1791          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
1792          bds_bind(VV[131],small_fixnum(0));          bds_bind(VV[131],small_fixnum(0));
1793          bds_bind(VV[132],small_fixnum(0));          bds_bind(VV[132],small_fixnum(0));
1794          bds_bind(VV[133],Cnil);          bds_bind(VV[133],small_fixnum(0));
1795          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],Cnil);
1796          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
1797          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          bds_bind(VV[136],(VV[129]->s.s_dbind));
1798          bds_bind(VV[136],symbol_value(VV[137]));          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));
1799          bds_bind(VV[138],Cnil);          bds_bind(VV[137],symbol_value(VV[138]));
1800          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
1801          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
1802          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],Cnil);
1803            bds_bind(VV[142],small_fixnum(0));
1804          base[16]= (V274);          base[16]= (V274);
1805          {object V276;          {object V276;
1806          V276= (V275);          V276= (V275);
# Line 1837  TTL:; Line 1843  TTL:;
1843          object V290;          object V290;
1844          V290= cadr((V286));          V290= cadr((V286));
1845          V289= (V288);          V289= (V288);
1846          goto T816;          goto T826;
1847  T816:;  T826:;
1848          if(!(endp_prop((V289)))){          if(!(endp_prop((V289)))){
1849          goto T817;}          goto T827;}
1850          goto T813;          goto T823;
1851          goto T817;          goto T827;
1852  T817:;  T827:;
1853          V291= structure_ref(car((V289)),VV[69],1);          V291= structure_ref(car((V289)),VV[70],1);
1854          if(!((/* INLINE-ARGS */V291)==(VV[71]))){          if(!((/* INLINE-ARGS */V291)==(VV[72]))){
1855          goto T823;}          goto T833;}
1856          {object V292;          {object V292;
1857          V293= car((V289));          V293= car((V289));
1858          V294= structure_ref(car((V289)),VV[69],4);          V294= structure_ref(car((V289)),VV[70],4);
1859          V292= make_cons(/* INLINE-ARGS */V293,/* INLINE-ARGS */V294);          V292= make_cons(/* INLINE-ARGS */V293,/* INLINE-ARGS */V294);
1860          V287= make_cons((V292),(V287));          V287= make_cons((V292),(V287));
1861          goto T821;}          goto T831;}
1862          goto T823;          goto T833;
1863  T823:;  T833:;
1864          V295= car((V289));          V295= car((V289));
1865          {object V297= car((V290));          {object V297= car((V290));
1866          if((V297!= VV[89]))goto T828;          if((V297!= VV[90]))goto T838;
1867          V296= VV[89];          V296= VV[90];
1868          goto T827;          goto T837;
1869          goto T828;          goto T838;
1870  T828:;  T838:;
1871          if((V297!= VV[142]))goto T829;          if((V297!= VV[143]))goto T839;
         V296= VV[142];  
         goto T827;  
         goto T829;  
 T829:;  
         if((V297!= VV[143]))goto T830;  
1872          V296= VV[143];          V296= VV[143];
1873          goto T827;          goto T837;
1874          goto T830;          goto T839;
1875  T830:;  T839:;
1876          if((V297!= VV[144]))goto T831;          if((V297!= VV[144]))goto T840;
1877          V296= VV[144];          V296= VV[144];
1878          goto T827;          goto T837;
1879            goto T840;
1880    T840:;
1881            if((V297!= VV[145]))goto T841;
1882            V296= VV[145];
1883            goto T837;
1884            goto T841;
1885    T841:;
1886            V296= VV[75];}
1887            goto T837;
1888    T837:;
1889            (void)(structure_set(/* INLINE-ARGS */V295,VV[70],1,V296));
1890          goto T831;          goto T831;
1891  T831:;  T831:;
         V296= VV[74];}  
         goto T827;  
 T827:;  
         (void)(structure_set(/* INLINE-ARGS */V295,VV[69],1,V296));  
         goto T821;  
 T821:;  
1892          V298= car((V289));          V298= car((V289));
1893          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
1894          (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])));
1895          V289= cdr((V289));          V289= cdr((V289));
1896          V290= cdr((V290));          V290= cdr((V290));
1897          goto T816;}          goto T826;}
1898          goto T813;          goto T823;
1899  T813:;  T823:;
1900          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[145],(V282))));          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[146],(V282))));
1901          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[32]);
1902          base[1]= (*(LnkLI280))(caddr((V286)));          base[1]= (*(LnkLI281))(caddr((V286)));
1903          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1904          (void) (*Lnk281)();          (void) (*Lnk282)();
1905          vs_top=sup;          vs_top=sup;
1906          V299= vs_base[0];          V299= vs_base[0];
1907          (void)((*(LnkLI277))(V299));          (void)((*(LnkLI278))(V299));
1908          princ_str("LI",VV[31]);          princ_str("LI",VV[32]);
1909          (void)((*(LnkLI277))((V283)));          (void)((*(LnkLI278))((V283)));
1910          princ_str("();",VV[31]);          princ_str("();",VV[32]);
1911          princ_str("\nstatic ",VV[25]);          princ_str("\nstatic ",VV[26]);
1912          base[1]= (*(LnkLI280))(caddr((V286)));          base[1]= (*(LnkLI281))(caddr((V286)));
1913          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1914          (void) (*Lnk281)();          (void) (*Lnk282)();
1915          vs_top=sup;          vs_top=sup;
1916          V300= vs_base[0];          V300= vs_base[0];
1917          (void)((*(LnkLI274))(V300));          (void)((*(LnkLI275))(V300));
1918          princ_str("LI",VV[25]);          princ_str("LI",VV[26]);
1919          (void)((*(LnkLI274))((V283)));          (void)((*(LnkLI275))((V283)));
1920          princ_char(40,VV[25]);          princ_char(40,VV[26]);
1921          (void)((*(LnkLI313))((V288),cadr((V286))));          (void)((*(LnkLI314))((V288),cadr((V286))));
1922          {object V301;          {object V301;
1923          V301= symbol_value(VV[136]);          V301= symbol_value(VV[137]);
1924          if((symbol_value(VV[147]))==Cnil){          if((symbol_value(VV[148]))==Cnil){
1925          goto T859;}          goto T869;}
1926          base[1]= make_cons((V282),(V288));          base[1]= make_cons((V282),(V288));
1927          goto T857;          goto T867;
1928          goto T859;          goto T869;
1929  T859:;  T869:;
1930          base[1]= Cnil;          base[1]= Cnil;
1931          goto T857;          goto T867;
1932  T857:;  T867:;
1933          bds_bind(VV[146],base[1]);          bds_bind(VV[147],base[1]);
1934          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[135],symbol_value(VV[135]));
1935          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[26]);
1936          V302= structure_ref(cadr((V284)),VV[62],1);          V302= structure_ref(cadr((V284)),VV[63],1);
1937          (void)((*(LnkLI314))(/* INLINE-ARGS */V302,(V283),VV[148]));          (void)((*(LnkLI315))(/* INLINE-ARGS */V302,(V283),VV[149]));
1938          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[26]);
1939          (void)((*(LnkLI274))((V301)));          (void)((*(LnkLI275))((V301)));
1940          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[26]);
1941          (void)((*(LnkLI274))((V301)));          (void)((*(LnkLI275))((V301)));
1942          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[26]);
1943          (void)((*(LnkLI274))((V301)));          (void)((*(LnkLI275))((V301)));
1944          if(((V285))==Cnil){          if(((V285))==Cnil){
1945          goto T871;}          goto T881;}
1946          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[26]);
1947          goto T871;          goto T881;
1948  T871:;  T881:;
1949          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
1950          goto T875;}          goto T885;}
1951          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[26]);
1952          goto T875;          goto T885;
1953  T875:;  T885:;
1954          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[147]->s.s_dbind))==Cnil){
1955          goto T879;}          goto T889;}
1956          (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));
1957          princ_str("\n   goto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[26]);
1958          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[26]);
1959          goto T879;          goto T889;
1960  T879:;  T889:;
1961          {register object V304;          {register object V304;
1962          register object V305;          register object V305;
1963          V304= (V287);          V304= (V287);
1964          V305= car((V304));          V305= car((V304));
1965          goto T891;          goto T901;
1966  T891:;  T901:;
1967          if(!(endp_prop((V304)))){          if(!(endp_prop((V304)))){
1968          goto T892;}          goto T902;}
1969          goto T887;          goto T897;
1970          goto T892;          goto T902;
1971  T892:;  T902:;
1972          princ_str("\n   bds_bind(VV[",VV[25]);          princ_str("\n   bds_bind(VV[",VV[26]);
1973          (void)((*(LnkLI274))(cdr((V305))));          (void)((*(LnkLI275))(cdr((V305))));
1974          princ_str("],V",VV[25]);          princ_str("],V",VV[26]);
1975          V306= structure_ref(car((V305)),VV[69],4);          V306= structure_ref(car((V305)),VV[70],4);
1976          (void)((*(LnkLI274))(/* INLINE-ARGS */V306));          (void)((*(LnkLI275))(/* INLINE-ARGS */V306));
1977          princ_str(");",VV[25]);          princ_str(");",VV[26]);
1978          (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));
1979          (void)(structure_set(car((V305)),VV[69],1,VV[71]));          (void)(structure_set(car((V305)),VV[70],1,VV[72]));
1980          (void)(structure_set(car((V305)),VV[69],4,cdr((V305))));          (void)(structure_set(car((V305)),VV[70],4,cdr((V305))));
1981          V304= cdr((V304));          V304= cdr((V304));
1982          V305= car((V304));          V305= car((V304));
1983          goto T891;}          goto T901;}
1984          goto T887;          goto T897;
1985  T887:;  T897:;
1986          base[3]= caddr(cddr((V284)));          base[3]= caddr(cddr((V284)));
1987          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1988          (void) (*Lnk315)();          (void) (*Lnk316)();
1989          vs_top=sup;          vs_top=sup;
1990          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
1991          goto T915;}          goto T925;}
1992          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[139]))!=Cnil){
1993          goto T915;}          goto T925;}
1994          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[141]))!=Cnil){
1995          goto T915;}          goto T925;}
1996          goto T913;          goto T923;
1997          goto T915;          goto T925;
1998  T915:;  T925:;
1999          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[26]);
2000          goto T913;          goto T923;
2001  T913:;  T923:;
2002          V308= (*(LnkLI280))(caddr((V286)));          V308= (*(LnkLI281))(caddr((V286)));
2003          if(!(equal(VV[152],/* INLINE-ARGS */V308))){          if(!(equal(VV[153],/* INLINE-ARGS */V308))){
2004          goto T922;}          goto T932;}
2005          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[26]);
2006          goto T922;          goto T932;
2007  T922:;  T932:;
2008          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
2009          {object V309 = (*(LnkLI316))((V301),caddr((V286)));          {object V309 = (*(LnkLI317))((V301),caddr((V286)));
2010          bds_unwind1;          bds_unwind1;
2011          bds_unwind1;          bds_unwind1;
2012          VMR23(V309)}}}          VMR23(V309)}}}
# Line 2015  object V311; Line 2021  object V311;
2021  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2022          goto TTL;          goto TTL;
2023  TTL:;  TTL:;
2024          if((symbol_value(VV[153]))==Cnil){          if((symbol_value(VV[154]))==Cnil){
2025          goto T929;}          goto T939;}
2026          V312= (*(LnkLI317))();          V312= (*(LnkLI318))();
2027          {object V313 = structure_set((V311),VV[69],2,/* INLINE-ARGS */V312);          {object V313 = structure_set((V311),VV[70],2,/* INLINE-ARGS */V312);
2028          VMR24(V313)}          VMR24(V313)}
2029          goto T929;          goto T939;
2030  T929:;  T939:;
2031          V314= (*(LnkLI318))();          V314= (*(LnkLI319))();
2032          {object V315 = structure_set((V311),VV[69],2,/* INLINE-ARGS */V314);          {object V315 = structure_set((V311),VV[70],2,/* INLINE-ARGS */V314);
2033          VMR24(V315)}          VMR24(V315)}
2034          return Cnil;          return Cnil;
2035  }  }
# Line 2045  TTL:; Line 2051  TTL:;
2051          object V330;          object V330;
2052          object V331;          object V331;
2053          V324= Cnil;          V324= Cnil;
2054          bds_bind(VV[153],Cnil);          bds_bind(VV[154],Cnil);
2055          base[1]= Cnil;          base[1]= Cnil;
2056          V325= Cnil;          V325= Cnil;
2057          V326= Ct;          V326= Ct;
2058          V327= Cnil;          V327= Cnil;
2059          bds_bind(VV[154],small_fixnum(0));          bds_bind(VV[155],small_fixnum(0));
2060          V328= Cnil;          V328= Cnil;
2061          V329= caddr((V322));          V329= caddr((V322));
2062          V330= Cnil;{object V332;          V330= Cnil;{object V332;
2063          V332= caddr((V329));          V332= caddr((V329));
2064          if(V332==Cnil)goto T939;          if(V332==Cnil)goto T949;
2065          V331= V332;          V331= V332;
2066          goto T938;          goto T948;
2067          goto T939;          goto T949;
2068  T939:;}{object V333;  T949:;}{object V333;
2069          V333= cadr((V329));          V333= cadr((V329));
2070          if(V333==Cnil)goto T941;          if(V333==Cnil)goto T951;
2071          V331= V333;          V331= V333;
2072          goto T938;          goto T948;
2073          goto T941;          goto T951;
2074  T941:;}  T951:;}
2075          V331= cadddr((V329));          V331= cadddr((V329));
2076          goto T938;          goto T948;
2077  T938:;  T948:;
2078          {object V334;          {object V334;
2079          register object V335;          register object V335;
2080          V334= car((V329));          V334= car((V329));
2081          V335= car((V334));          V335= car((V334));
2082          goto T947;          goto T957;
2083  T947:;  T957:;
2084          if(!(endp_prop((V334)))){          if(!(endp_prop((V334)))){
2085          goto T948;}          goto T958;}
2086          goto T943;          goto T953;
2087          goto T948;          goto T958;
2088  T948:;  T958:;
2089          {object V336;          {object V336;
2090          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
2091          V336= list(2,VV[155],symbol_value(VV[88]));          V336= list(2,VV[156],symbol_value(VV[89]));
2092          V324= make_cons((V336),(V324));}          V324= make_cons((V336),(V324));}
2093          V334= cdr((V334));          V334= cdr((V334));
2094          V335= car((V334));          V335= car((V334));
2095          goto T947;}          goto T957;}
2096          goto T943;          goto T953;
2097  T943:;  T953:;
2098          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[156],(V320))));          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[157],(V320))));
2099          {object V337;          {object V337;
2100          V337= VV[157];          V337= VV[158];
2101          princ_str("\nstatic object LI",VV[25]);          princ_str("\nstatic object LI",VV[26]);
2102          (void)((*(LnkLI274))((V321)));          (void)((*(LnkLI275))((V321)));
2103          princ_char(40,VV[25]);          princ_char(40,VV[26]);
2104          if(((V324))==Cnil){          if(((V324))==Cnil){
2105          goto T967;}          goto T977;}
2106          {object V338;          {object V338;
2107          V338= (V324);          V338= (V324);
2108          goto T971;          goto T981;
2109  T971:;  T981:;
2110          if(((V338))!=Cnil){          if(((V338))!=Cnil){
         goto T972;}  
         goto T967;  
         goto T972;  
 T972:;  
         princ_str("object ",VV[25]);  
         (void)((*(LnkLI274))(car((V338))));  
         V337= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V337),VV[159]));  
         if(!((cdr((V338)))==Cnil)){  
2111          goto T982;}          goto T982;}
2112          goto T981;          goto T977;
2113          goto T982;          goto T982;
2114  T982:;  T982:;
2115          princ_char(44,VV[25]);          princ_str("object ",VV[26]);
2116          V337= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V337),VV[160]));          (void)((*(LnkLI275))(car((V338))));
2117          goto T981;          V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[160]));
2118  T981:;          if(!((cdr((V338)))==Cnil)){
2119            goto T992;}
2120            goto T991;
2121            goto T992;
2122    T992:;
2123            princ_char(44,VV[26]);
2124            V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[161]));
2125            goto T991;
2126    T991:;
2127          V338= cdr((V338));          V338= cdr((V338));
2128          goto T971;}          goto T981;}
2129          goto T967;          goto T977;
2130  T967:;  T977:;
2131          if(((V331))==Cnil){          if(((V331))==Cnil){
2132          goto T990;}          goto T1000;}
2133          if(((V324))==Cnil){          if(((V324))==Cnil){
2134          goto T993;}          goto T1003;}
2135          princ_char(44,VV[25]);          princ_char(44,VV[26]);
2136          V337= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V337),VV[161]));          V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[162]));
2137          goto T993;          goto T1003;
2138  T993:;  T1003:;
2139          princ_str("object first,...",VV[25]);          princ_str("object first,...",VV[26]);
2140          V337= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V337),VV[162]));          V337= (VFUN_NARGS=3,(*(LnkLI320))(VV[159],(V337),VV[163]));
2141          goto T990;          goto T1000;
2142  T990:;  T1000:;
2143          princ_char(41,VV[25]);          princ_char(41,VV[26]);
2144          princ_str("\nstatic object LI",VV[31]);          princ_str("\nstatic object LI",VV[32]);
2145          (void)((*(LnkLI277))((V321)));          (void)((*(LnkLI278))((V321)));
2146          princ_char(40,VV[31]);          princ_char(40,VV[32]);
2147          (void)((*(LnkLI277))((V337)));          (void)((*(LnkLI278))((V337)));
2148          princ_str(");",VV[31]);}          princ_str(");",VV[32]);}
2149          {object V339;          {object V339;
2150          V339= symbol_value(VV[136]);          V339= symbol_value(VV[137]);
2151          if(symbol_value(VV[147])==Cnil){          if(symbol_value(VV[148])==Cnil){
2152          base[5]= Cnil;          base[5]= Cnil;
2153          goto T1010;}          goto T1020;}
2154          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2155          goto T1011;}          goto T1021;}
2156          base[5]= Cnil;          base[5]= Cnil;
2157          goto T1010;          goto T1020;
2158          goto T1011;          goto T1021;
2159  T1011:;  T1021:;
2160          {object V340;          {object V340;
2161          object V341;          object V341;
2162          V340= car((V329));          V340= car((V329));
2163          V341= car((V340));          V341= car((V340));
2164          goto T1018;          goto T1028;
2165  T1018:;  T1028:;
2166          if(!(endp_prop((V340)))){          if(!(endp_prop((V340)))){
2167          goto T1019;}          goto T1029;}
         goto T1013;  
         goto T1019;  
 T1019:;  
         if((structure_ref((V341),VV[69],3))==Cnil){  
         goto T1023;}  
         goto T1014;  
2168          goto T1023;          goto T1023;
2169  T1023:;          goto T1029;
2170    T1029:;
2171            if((structure_ref((V341),VV[70],3))==Cnil){
2172            goto T1033;}
2173            goto T1024;
2174            goto T1033;
2175    T1033:;
2176          V340= cdr((V340));          V340= cdr((V340));
2177          V341= car((V340));          V341= car((V340));
2178          goto T1018;}          goto T1028;}
2179          goto T1014;          goto T1024;
2180  T1014:;  T1024:;
2181          base[5]= Cnil;          base[5]= Cnil;
2182          goto T1010;          goto T1020;
2183          goto T1013;          goto T1023;
2184  T1013:;  T1023:;
2185          if((cadr((V329)))==Cnil){          if((cadr((V329)))==Cnil){
2186          goto T1031;}          goto T1041;}
2187          base[5]= Cnil;          base[5]= Cnil;
2188          goto T1010;          goto T1020;
2189          goto T1031;          goto T1041;
2190  T1031:;  T1041:;
2191          if((car(cddddr((V329))))==Cnil){          if((car(cddddr((V329))))==Cnil){
2192          goto T1033;}          goto T1043;}
2193          base[5]= Cnil;          base[5]= Cnil;
2194          goto T1010;          goto T1020;
2195          goto T1033;          goto T1043;
2196  T1033:;  T1043:;
2197          base[5]= make_cons((V320),car((V329)));          base[5]= make_cons((V320),car((V329)));
2198          goto T1010;          goto T1020;
2199  T1010:;  T1020:;
2200          bds_bind(VV[146],base[5]);          bds_bind(VV[147],base[5]);
2201          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[135],symbol_value(VV[135]));
2202          princ_str("\n{  ",VV[25]);          princ_str("\n{  ",VV[26]);
2203          if(((V331))==Cnil){          if(((V331))==Cnil){
2204          goto T1037;}          goto T1047;}
2205          princ_str("\n   va_list ap;",VV[25]);          princ_str("\n   va_list ap;",VV[26]);
2206          goto T1037;          goto T1047;
2207  T1037:;  T1047:;
2208          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);          princ_str("\n   int narg = VFUN_NARGS;",VV[26]);
2209          V342= structure_ref(cadr((V322)),VV[62],1);          V342= structure_ref(cadr((V322)),VV[63],1);
2210          (void)((*(LnkLI314))(/* INLINE-ARGS */V342,(V321),VV[148]));          (void)((*(LnkLI315))(/* INLINE-ARGS */V342,(V321),VV[149]));
2211          princ_str(" VMB",VV[25]);          princ_str(" VMB",VV[26]);
2212          (void)((*(LnkLI274))((V339)));          (void)((*(LnkLI275))((V339)));
2213          princ_str(" VMS",VV[25]);          princ_str(" VMS",VV[26]);
2214          (void)((*(LnkLI274))((V339)));          (void)((*(LnkLI275))((V339)));
2215          princ_str(" VMV",VV[25]);          princ_str(" VMV",VV[26]);
2216          (void)((*(LnkLI274))((V339)));          (void)((*(LnkLI275))((V339)));
2217          if(((V323))==Cnil){          if(((V323))==Cnil){
2218          goto T1051;}          goto T1061;}
2219          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[26]);
2220          goto T1051;          goto T1061;
2221  T1051:;  T1061:;
2222          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
2223          goto T1055;}          goto T1065;}
2224          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[26]);
2225          goto T1055;          goto T1065;
2226  T1055:;  T1065:;
2227          if((V331)!=Cnil){          if((V331)!=Cnil){
2228          goto T1059;}          goto T1069;}
2229          princ_str("\n   if ( narg!= ",VV[25]);          princ_str("\n   if ( narg!= ",VV[26]);
2230          V343 = make_fixnum((long)length((V324)));          V343 = make_fixnum((long)length((V324)));
2231          (void)((*(LnkLI274))(V343));          (void)((*(LnkLI275))(V343));
2232          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[25]);          princ_str(") vfun_wrong_number_of_args(small_fixnum(",VV[26]);
2233          V344 = make_fixnum((long)length((V324)));          V344 = make_fixnum((long)length((V324)));
2234          (void)((*(LnkLI274))(V344));          (void)((*(LnkLI275))(V344));
2235          princ_str("));",VV[25]);          princ_str("));",VV[26]);
2236          goto T1059;          goto T1069;
2237  T1059:;  T1069:;
2238          {object V345;          {object V345;
2239          object V346;          object V346;
2240          V345= car((V329));          V345= car((V329));
2241          V346= car((V345));          V346= car((V345));
2242          goto T1070;          goto T1080;
2243  T1070:;  T1080:;
2244          if(!(endp_prop((V345)))){          if(!(endp_prop((V345)))){
2245          goto T1071;}          goto T1081;}
2246          goto T1066;          goto T1076;
2247          goto T1071;          goto T1081;
2248  T1071:;  T1081:;
2249          base[9]= (V346);          base[9]= (V346);
2250          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2251          L26(base);          L26(base);
2252          vs_top=sup;          vs_top=sup;
2253          V345= cdr((V345));          V345= cdr((V345));
2254          V346= car((V345));          V346= car((V345));
2255          goto T1070;}          goto T1080;}
2256          goto T1066;          goto T1076;
2257  T1066:;  T1076:;
2258          {object V347;          {object V347;
2259          object V348;          object V348;
2260          V347= cadr((V329));          V347= cadr((V329));
2261          V348= car((V347));          V348= car((V347));
2262          goto T1086;          goto T1096;
2263  T1086:;  T1096:;
2264          if(!(endp_prop((V347)))){          if(!(endp_prop((V347)))){
2265          goto T1087;}          goto T1097;}
2266          goto T1082;          goto T1092;
2267          goto T1087;          goto T1097;
2268  T1087:;  T1097:;
2269          base[9]= car((V348));          base[9]= car((V348));
2270          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2271          L26(base);          L26(base);
2272          vs_top=sup;          vs_top=sup;
2273          if((caddr((V348)))==Cnil){          if((caddr((V348)))==Cnil){
2274          goto T1093;}          goto T1103;}
2275          base[9]= caddr((V348));          base[9]= caddr((V348));
2276          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2277          L26(base);          L26(base);
2278          vs_top=sup;          vs_top=sup;
2279          goto T1093;          goto T1103;
2280  T1093:;  T1103:;
2281          V347= cdr((V347));          V347= cdr((V347));
2282          V348= car((V347));          V348= car((V347));
2283          goto T1086;}          goto T1096;}
2284          goto T1082;          goto T1092;
2285  T1082:;  T1092:;
2286          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2287          goto T1102;}          goto T1112;}
2288          base[7]= caddr((V329));          base[7]= caddr((V329));
2289          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2290          L26(base);          L26(base);
2291          vs_top=sup;          vs_top=sup;
2292          goto T1102;          goto T1112;
2293  T1102:;  T1112:;
2294          {object V349;          {object V349;
2295          object V350;          object V350;
2296          V349= car(cddddr((V329)));          V349= car(cddddr((V329)));
2297          V350= car((V349));          V350= car((V349));
2298          goto T1109;          goto T1119;
2299  T1109:;  T1119:;
2300          if(!(endp_prop((V349)))){          if(!(endp_prop((V349)))){
2301          goto T1110;}          goto T1120;}
2302          goto T1065;          goto T1075;
2303          goto T1110;          goto T1120;
2304  T1110:;  T1120:;
2305          base[9]= cadr((V350));          base[9]= cadr((V350));
2306          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2307          L26(base);          L26(base);
2308          vs_top=sup;          vs_top=sup;
2309          if((cadddr((V350)))==Cnil){          if((cadddr((V350)))==Cnil){
2310          goto T1116;}          goto T1126;}
2311          base[9]= cadddr((V350));          base[9]= cadddr((V350));
2312          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2313          L26(base);          L26(base);
2314          vs_top=sup;          vs_top=sup;
2315          goto T1116;          goto T1126;
2316  T1116:;  T1126:;
2317          V349= cdr((V349));          V349= cdr((V349));
2318          V350= car((V349));          V350= car((V349));
2319          goto T1109;}          goto T1119;}
2320          goto T1065;          goto T1075;
2321  T1065:;  T1075:;
         if(((VV[153]->s.s_dbind))==Cnil){  
         goto T1127;}  
         goto T1125;  
         goto T1127;  
 T1127:;  
         princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);  
         goto T1125;  
 T1125:;  
2322          if((cadr((V329)))!=Cnil){          if((cadr((V329)))!=Cnil){
2323          goto T1131;}          goto T1136;}
2324          if((caddr((V329)))!=Cnil){          if((caddr((V329)))!=Cnil){
2325          goto T1131;}          goto T1136;}
2326          if((cadddr((V329)))==Cnil){          if((cadddr((V329)))==Cnil){
2327          goto T1130;}          goto T1135;}
2328          goto T1131;          goto T1136;
2329  T1131:;  T1136:;
2330          if(((V330))!=Cnil){          if(((V330))!=Cnil){
2331          goto T1130;}          goto T1135;}
2332          V330= Ct;          V330= Ct;
2333          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[26]);
2334          goto T1130;          goto T1135;
2335  T1130:;  T1135:;
2336          if((symbol_value(VV[163]))!=Cnil){          if((symbol_value(VV[164]))!=Cnil){
2337          goto T1144;}          goto T1149;}
2338          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[165]))==Cnil){
2339          goto T1142;}          goto T1147;}
2340          goto T1144;          goto T1149;
2341  T1144:;  T1149:;
2342          if((car((V329)))==Cnil){          if((car((V329)))==Cnil){
2343          goto T1142;}          goto T1147;}
2344          princ_str("\n   if(narg <",VV[25]);          princ_str("\n   if(narg <",VV[26]);
2345          V351 = make_fixnum((long)length(car((V329))));          V351 = make_fixnum((long)length(car((V329))));
2346          (void)((*(LnkLI274))(V351));          (void)((*(LnkLI275))(V351));
2347          princ_str(") too_few_arguments();",VV[25]);          princ_str(") too_few_arguments();",VV[26]);
2348          goto T1142;          goto T1147;
2349  T1142:;  T1147:;
2350          {object V352;          {object V352;
2351          object V353;          object V353;
2352          V352= car((V329));          V352= car((V329));
2353          V353= car((V352));          V353= car((V352));
2354          goto T1156;          goto T1161;
2355  T1156:;  T1161:;
2356          if(!(endp_prop((V352)))){          if(!(endp_prop((V352)))){
2357          goto T1157;}          goto T1162;}
         goto T1152;  
2358          goto T1157;          goto T1157;
2359  T1157:;          goto T1162;
2360          (void)((*(LnkLI320))((V353)));  T1162:;
2361            (void)((*(LnkLI321))((V353)));
2362          V352= cdr((V352));          V352= cdr((V352));
2363          V353= car((V352));          V353= car((V352));
2364          goto T1156;}          goto T1161;}
2365          goto T1152;          goto T1157;
2366  T1152:;  T1157:;
2367          {object V354;          {object V354;
2368          object V355;          object V355;
2369          V354= cadr((V329));          V354= cadr((V329));
2370          V355= car((V354));          V355= car((V354));
2371          goto T1171;          goto T1176;
2372  T1171:;  T1176:;
2373          if(!(endp_prop((V354)))){          if(!(endp_prop((V354)))){
2374          goto T1172;}          goto T1177;}
         goto T1167;  
2375          goto T1172;          goto T1172;
2376  T1172:;          goto T1177;
2377          (void)((*(LnkLI320))(car((V355))));  T1177:;
2378            (void)((*(LnkLI321))(car((V355))));
2379          V354= cdr((V354));          V354= cdr((V354));
2380          V355= car((V354));          V355= car((V354));
2381          goto T1171;}          goto T1176;}
2382          goto T1167;          goto T1172;
2383  T1167:;  T1172:;
2384          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2385          goto T1182;}          goto T1187;}
2386          (void)((*(LnkLI320))(caddr((V329))));          (void)((*(LnkLI321))(caddr((V329))));
2387          goto T1182;          goto T1187;
2388  T1182:;  T1187:;
2389          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[154]->s.s_dbind))==Cnil){
2390          goto T1188;}          goto T1193;}
2391          V327= symbol_value(VV[129]);          V327= symbol_value(VV[130]);
2392          goto T1186;          goto T1191;
2393          goto T1188;          goto T1193;
2394  T1188:;  T1193:;
2395          V327= symbol_value(VV[141]);          V327= symbol_value(VV[142]);
2396          goto T1186;          goto T1191;
2397  T1186:;  T1191:;
2398          {object V356;          {object V356;
2399          object V357;          object V357;
2400          V356= car(cddddr((V329)));          V356= car(cddddr((V329)));
2401          V357= car((V356));          V357= car((V356));
2402          goto T1194;          goto T1199;
2403  T1194:;  T1199:;
2404          if(!(endp_prop((V356)))){          if(!(endp_prop((V356)))){
2405          goto T1195;}          goto T1200;}
         goto T1190;  
2406          goto T1195;          goto T1195;
2407  T1195:;          goto T1200;
2408          (void)((*(LnkLI320))(cadr((V357))));  T1200:;
2409            (void)((*(LnkLI321))(cadr((V357))));
2410          V356= cdr((V356));          V356= cdr((V356));
2411          V357= car((V356));          V357= car((V356));
2412          goto T1194;}          goto T1199;}
2413          goto T1190;          goto T1195;
2414  T1190:;  T1195:;
2415          {object V358;          {object V358;
2416          object V359;          object V359;
2417          V358= car(cddddr((V329)));          V358= car(cddddr((V329)));
2418          V359= car((V358));          V359= car((V358));
2419          goto T1209;          goto T1214;
2420  T1209:;  T1214:;
2421          if(!(endp_prop((V358)))){          if(!(endp_prop((V358)))){
2422          goto T1210;}          goto T1215;}
         goto T1205;  
2423          goto T1210;          goto T1210;
2424  T1210:;          goto T1215;
2425          (void)((*(LnkLI320))(cadddr((V359))));  T1215:;
2426            (void)((*(LnkLI321))(cadddr((V359))));
2427          V358= cdr((V358));          V358= cdr((V358));
2428          V359= car((V358));          V359= car((V358));
2429          goto T1209;}          goto T1214;}
2430          goto T1205;          goto T1210;
2431  T1205:;  T1210:;
2432          {object V360;          {object V360;
2433          object V361;          object V361;
2434          V361= car((V329));          V361= car((V329));
2435          V360= (V324);          V360= (V324);
2436          goto T1223;          goto T1228;
2437  T1223:;  T1228:;
2438          if(((V360))!=Cnil){          if(((V360))!=Cnil){
2439          goto T1224;}          goto T1229;}
2440          goto T1220;          goto T1225;
2441          goto T1224;          goto T1229;
2442  T1224:;  T1229:;
2443          (void)((*(LnkLI321))(car((V361)),car((V360))));          (void)((*(LnkLI322))(car((V361)),car((V360))));
2444          V360= cdr((V360));          V360= cdr((V360));
2445          V361= cdr((V361));          V361= cdr((V361));
2446          goto T1223;}          goto T1228;}
2447          goto T1220;          goto T1225;
2448  T1220:;  T1225:;
2449          if((cadr((V329)))==Cnil){          if((cadr((V329)))==Cnil){
2450          goto T1233;}          goto T1238;}
2451            bds_bind(VV[134],symbol_value(VV[134]));
2452            bds_bind(VV[135],(VV[135]->s.s_dbind));
2453          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2454          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]);  
2455          V362 = make_fixnum((long)length((V324)));          V362 = make_fixnum((long)length((V324)));
2456          (void)((*(LnkLI274))(V362));          (void)((*(LnkLI275))(V362));
2457          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2458          {object V363;          {object V363;
2459          V363= Ct;          V363= Ct;
2460          {object V364;          {object V364;
2461          object V365;          object V365;
2462          V364= cadr((V329));          V364= cadr((V329));
2463          V365= car((V364));          V365= car((V364));
2464          goto T1244;          goto T1249;
2465  T1244:;  T1249:;
2466          if(!(endp_prop((V364)))){          if(!(endp_prop((V364)))){
2467          goto T1245;}          goto T1250;}
2468          bds_unwind1;          bds_unwind1;
2469          bds_unwind1;          bds_unwind1;
2470          bds_unwind1;          bds_unwind1;
2471          goto T1236;          goto T1241;
2472          goto T1245;          goto T1250;
2473  T1245:;  T1250:;
2474          {object V366;          {object V366;
2475          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));          setq(VV[166],number_plus(symbol_value(VV[166]),small_fixnum(1)));
2476          V366= make_cons(symbol_value(VV[165]),Cnil);          V366= make_cons(symbol_value(VV[166]),Cnil);
2477          V325= make_cons((V366),(V325));}          V325= make_cons((V366),(V325));}
2478          princ_str("\n   if (",VV[25]);          princ_str("\n   if (",VV[26]);
2479          if((cdr((V325)))==Cnil){          if((cdr((V325)))==Cnil){
2480          goto T1258;}          goto T1263;}
         V367= VV[166];  
         goto T1256;  
         goto T1258;  
 T1258:;  
2481          V367= VV[167];          V367= VV[167];
2482          goto T1256;          goto T1261;
2483  T1256:;          goto T1263;
2484          (void)((*(LnkLI274))(V367));  T1263:;
2485          princ_str("narg <= 0) ",VV[25]);          V367= VV[168];
2486            goto T1261;
2487    T1261:;
2488            (void)((*(LnkLI275))(V367));
2489            princ_str("narg <= 0) ",VV[26]);
2490          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)));
2491          (car((V325)))->c.c_cdr = Ct;          (car((V325)))->c.c_cdr = Ct;
2492          (void)(car((V325)));          (void)(car((V325)));
2493          princ_str("goto T",VV[25]);          princ_str("goto T",VV[26]);
2494          (void)((*(LnkLI274))(car(car((V325)))));          (void)((*(LnkLI275))(car(car((V325)))));
2495          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2496          princ_str("\n   else {",VV[25]);          princ_str("\n   else {",VV[26]);
2497          if(((V330))!=Cnil){          if(((V330))!=Cnil){
2498          goto T1268;}          goto T1273;}
2499          V330= Ct;          V330= Ct;
2500          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[26]);
2501          goto T1268;          goto T1273;
2502  T1268:;  T1273:;
2503          V368= car((V365));          V368= car((V365));
2504          if(((V363))==Cnil){          if(((V363))==Cnil){
2505          goto T1277;}          goto T1282;}
         V369= make_cons(VV[168],Cnil);  
         goto T1275;  
         goto T1277;  
 T1277:;  
2506          V369= make_cons(VV[169],Cnil);          V369= make_cons(VV[169],Cnil);
2507          goto T1275;          goto T1280;
2508  T1275:;          goto T1282;
2509          (void)((*(LnkLI321))(/* INLINE-ARGS */V368,V369));  T1282:;
2510            V369= make_cons(VV[170],Cnil);
2511            goto T1280;
2512    T1280:;
2513            (void)((*(LnkLI322))(/* INLINE-ARGS */V368,V369));
2514          V363= Cnil;          V363= Cnil;
2515          princ_char(125,VV[25]);          princ_char(125,VV[26]);
2516          if((caddr((V365)))==Cnil){          if((caddr((V365)))==Cnil){
2517          goto T1283;}          goto T1288;}
2518          (void)((*(LnkLI321))(caddr((V365)),Ct));          (void)((*(LnkLI322))(caddr((V365)),Ct));
2519          goto T1283;          goto T1288;
2520  T1283:;  T1288:;
2521          V364= cdr((V364));          V364= cdr((V364));
2522          V365= car((V364));          V365= car((V364));
2523          goto T1244;}}          goto T1249;}}
2524          goto T1236;          goto T1241;
2525  T1236:;  T1241:;
2526          V325= nreverse((V325));          V325= nreverse((V325));
2527          {object V370;          {object V370;
2528          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));          setq(VV[166],number_plus(symbol_value(VV[166]),small_fixnum(1)));
2529          V370= make_cons(symbol_value(VV[165]),Cnil);          V370= make_cons(symbol_value(VV[166]),Cnil);
2530          princ_str("\n   --narg; ",VV[25]);          princ_str("\n   --narg; ",VV[26]);
2531          if(type_of((V370))!=t_cons)FEwrong_type_argument(Scons,(V370));          if(type_of((V370))!=t_cons)FEwrong_type_argument(Scons,(V370));
2532          ((V370))->c.c_cdr = Ct;          ((V370))->c.c_cdr = Ct;
2533          princ_str("goto T",VV[25]);          princ_str("goto T",VV[26]);
2534          (void)((*(LnkLI274))(car((V370))));          (void)((*(LnkLI275))(car((V370))));
2535          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2536          {object V371;          {object V371;
2537          object V372;          object V372;
2538          V371= cadr((V329));          V371= cadr((V329));
2539          V372= car((V371));          V372= car((V371));
2540          goto T1306;          goto T1311;
2541  T1306:;  T1311:;
2542          if(!(endp_prop((V371)))){          if(!(endp_prop((V371)))){
2543          goto T1307;}          goto T1312;}
         goto T1302;  
2544          goto T1307;          goto T1307;
2545  T1307:;          goto T1312;
2546    T1312:;
2547          if((cdr(car((V325))))==Cnil){          if((cdr(car((V325))))==Cnil){
2548          goto T1311;}          goto T1316;}
2549          princ_str("\n   goto T",VV[25]);          princ_str("\n   goto T",VV[26]);
2550          (void)((*(LnkLI274))(car(car((V325)))));          (void)((*(LnkLI275))(car(car((V325)))));
2551          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2552          princ_str("\nT",VV[25]);          princ_str("\nT",VV[26]);
2553          (void)((*(LnkLI274))(car(car((V325)))));          (void)((*(LnkLI275))(car(car((V325)))));
2554          princ_str(":;",VV[25]);          princ_str(":;",VV[26]);
2555          goto T1311;          goto T1316;
2556  T1311:;  T1316:;
2557          {object V373;          {object V373;
2558          V373= car((V325));          V373= car((V325));
2559          V325= cdr((V325));}          V325= cdr((V325));}
2560          (void)((*(LnkLI322))(car((V372)),cadr((V372))));          (void)((*(LnkLI323))(car((V372)),cadr((V372))));
2561          if((caddr((V372)))==Cnil){          if((caddr((V372)))==Cnil){
2562          goto T1326;}          goto T1331;}
2563          (void)((*(LnkLI321))(caddr((V372)),Cnil));          (void)((*(LnkLI322))(caddr((V372)),Cnil));
2564          goto T1326;          goto T1331;
2565  T1326:;  T1331:;
2566          V371= cdr((V371));          V371= cdr((V371));
2567          V372= car((V371));          V372= car((V371));
2568          goto T1306;}          goto T1311;}
2569          goto T1302;          goto T1307;
2570  T1302:;  T1307:;
2571          if((cdr((V370)))==Cnil){          if((cdr((V370)))==Cnil){
2572          goto T1233;}          goto T1238;}
2573          princ_str("\n   goto T",VV[25]);          princ_str("\n   goto T",VV[26]);
2574          (void)((*(LnkLI274))(car((V370))));          (void)((*(LnkLI275))(car((V370))));
2575          princ_char(59,VV[25]);          princ_char(59,VV[26]);
2576          princ_str("\nT",VV[25]);          princ_str("\nT",VV[26]);
2577          (void)((*(LnkLI274))(car((V370))));          (void)((*(LnkLI275))(car((V370))));
2578          princ_str(":;",VV[25]);}          princ_str(":;",VV[26]);}
2579          goto T1233;          goto T1238;
2580  T1233:;  T1238:;
2581          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2582          goto T1343;}          goto T1348;}
2583          V328= (VFUN_NARGS=0,(*(LnkLI323))());          V328= (VFUN_NARGS=0,(*(LnkLI324))());
2584          {object V374;          {object V374;
2585          V374= cadr((V329));          V374= cadr((V329));
2586          if(((V374))==Cnil){          if(((V374))==Cnil){
         goto T1351;}  
         goto T1348;  
         goto T1351;  
 T1351:;  
         princ_str("\n   narg= narg - ",VV[25]);  
         V375 = make_fixnum((long)length(car((V329))));  
         (void)((*(LnkLI274))(V375));  
         princ_char(59,VV[25]);}  
         goto T1348;  
 T1348:;  
         if(((V330))!=Cnil){  
2587          goto T1356;}          goto T1356;}
2588          V330= Ct;          goto T1353;
         princ_str("\n   va_start(ap,first);",VV[25]);  
2589          goto T1356;          goto T1356;
2590  T1356:;  T1356:;
2591          princ_str("\n   V",VV[25]);          princ_str("\n   narg= narg - ",VV[26]);
2592          (void)((*(LnkLI274))((V328)));          V375 = make_fixnum((long)length(car((V329))));
2593          princ_str(" = ",VV[25]);          (void)((*(LnkLI275))(V375));
2594          V376= structure_ref(caddr((V329)),VV[69],5);          princ_char(59,VV[26]);}
2595          if(!((/* INLINE-ARGS */V376)==(VV[171]))){          goto T1353;
2596          goto T1367;}  T1353:;
2597            if(((V330))!=Cnil){
2598            goto T1361;}
2599            V330= Ct;
2600            princ_str("\n   va_start(ap,first);",VV[26]);
2601            goto T1361;
2602    T1361:;
2603            princ_str("\n   V",VV[26]);
2604            (void)((*(LnkLI275))((V328)));
2605            princ_str(" = ",VV[26]);
2606            V376= structure_ref(caddr((V329)),VV[70],5);
2607            if(!((/* INLINE-ARGS */V376)==(VV[172]))){
2608            goto T1372;}
2609          base[7]= Ct;          base[7]= Ct;
2610          goto T1366;          goto T1371;
2611          goto T1367;          goto T1372;
2612  T1367:;  T1372:;
2613          base[7]= symbol_value(VV[170]);          base[7]= symbol_value(VV[171]);
         goto T1366;  
 T1366:;  
         bds_bind(VV[170],base[7]);  
         if((cadddr((V329)))==Cnil){  
         goto T1371;}  
         if(((VV[170]->s.s_dbind))==Cnil){  
         goto T1374;}  
         princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);  
         goto T1369;  
         goto T1374;  
 T1374:;  
         princ_str("make_list(narg);",VV[25]);  
         goto T1369;  
2614          goto T1371;          goto T1371;
2615  T1371:;  T1371:;
2616          if(((VV[170]->s.s_dbind))==Cnil){          bds_bind(VV[171],base[7]);
2617            if((cadddr((V329)))==Cnil){
2618            goto T1376;}
2619            if(((VV[171]->s.s_dbind))==Cnil){
2620          goto T1379;}          goto T1379;}
2621          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]);
2622          goto T1369;          goto T1374;
2623          goto T1379;          goto T1379;
2624  T1379:;  T1379:;
2625          princ_str("list_vector_new(narg,first,ap);",VV[25]);          princ_str("make_list(narg);",VV[26]);
2626          goto T1369;          goto T1374;
2627  T1369:;          goto T1376;
2628    T1376:;
2629            if(((VV[171]->s.s_dbind))==Cnil){
2630            goto T1384;}
2631            princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[26]);
2632            goto T1374;
2633            goto T1384;
2634    T1384:;
2635            princ_str("list_vector_new(narg,first,ap);",VV[26]);
2636            goto T1374;
2637    T1374:;
2638          V377= caddr((V329));          V377= caddr((V329));
2639          V378= list(2,VV[155],(V328));          V378= list(2,VV[156],(V328));
2640          V379= (*(LnkLI321))(/* INLINE-ARGS */V377,/* INLINE-ARGS */V378);          V379= (*(LnkLI322))(/* INLINE-ARGS */V377,/* INLINE-ARGS */V378);
2641          bds_unwind1;          bds_unwind1;
2642          goto T1343;          goto T1348;
2643  T1343:;  T1348:;
2644          if((cadddr((V329)))==Cnil){          if((cadddr((V329)))==Cnil){
2645          goto T1383;}          goto T1388;}
2646          {object V380;          {object V380;
2647          V380= caddr((V329));          V380= caddr((V329));
2648          if(((V380))==Cnil){          if(((V380))==Cnil){
2649          goto T1389;}          goto T1394;}
2650          goto T1386;          goto T1391;
2651          goto T1389;          goto T1394;
2652  T1389:;  T1394:;
2653          {object V381;          {object V381;
2654          V381= cadr((V329));          V381= cadr((V329));
2655          if(((V381))==Cnil){          if(((V381))==Cnil){
         goto T1393;}  
         goto T1386;  
         goto T1393;  
 T1393:;  
         princ_str("\n   narg= narg - ",VV[25]);  
         V382 = make_fixnum((long)length(car((V329))));  
         (void)((*(LnkLI274))(V382));  
         princ_char(59,VV[25]);}}  
         goto T1386;  
 T1386:;  
         if(((V330))!=Cnil){  
2656          goto T1398;}          goto T1398;}
2657          V330= Ct;          goto T1391;
         princ_str("\n   va_start(ap,first);",VV[25]);  
2658          goto T1398;          goto T1398;
2659  T1398:;  T1398:;
2660            princ_str("\n   narg= narg - ",VV[26]);
2661            V382 = make_fixnum((long)length(car((V329))));
2662            (void)((*(LnkLI275))(V382));
2663            princ_char(59,VV[26]);}}
2664            goto T1391;
2665    T1391:;
2666            if(((V330))!=Cnil){
2667            goto T1403;}
2668            V330= Ct;
2669            princ_str("\n   va_start(ap,first);",VV[26]);
2670            goto T1403;
2671    T1403:;
2672          {object V383;          {object V383;
2673          object V384= car(cddddr((V329)));          object V384= car(cddddr((V329)));
2674          if(endp(V384)){          if(endp(V384)){
2675          V326= Cnil;          V326= Cnil;
2676          goto T1405;}          goto T1410;}
2677          base[7]=V383=MMcons(Cnil,Cnil);          base[7]=V383=MMcons(Cnil,Cnil);
2678          goto T1406;          goto T1411;
2679  T1406:;  T1411:;
2680          (V383->c.c_car)= caddr((V384->c.c_car));          (V383->c.c_car)= caddr((V384->c.c_car));
2681          V384=MMcdr(V384);          V384=MMcdr(V384);
2682          if(endp(V384)){          if(endp(V384)){
2683          V326= base[7];          V326= base[7];
2684          goto T1405;}          goto T1410;}
2685          V383=MMcdr(V383)=MMcons(Cnil,Cnil);          V383=MMcdr(V383)=MMcons(Cnil,Cnil);
2686          goto T1406;}          goto T1411;}
2687          goto T1405;          goto T1410;
2688  T1405:;  T1410:;
2689          {object V385;          {object V385;
2690          object V386;          object V386;
2691          V386= make_fixnum((long)length(car(cddddr((V329)))));          V386= make_fixnum((long)length(car(cddddr((V329)))));
# Line 2698  T1405:; Line 2696  T1405:;
2696          V387= (V326);          V387= (V326);
2697          V388= car(cddddr((V329)));          V388= car(cddddr((V329)));
2698          V389= car((V388));          V389= car((V388));
2699          goto T1414;          goto T1419;
2700  T1414:;  T1419:;
2701          if(((V387))!=Cnil){          if(((V387))!=Cnil){
         goto T1415;}  
         goto T1409;  
         goto T1415;  
 T1415:;  
         if(!((caar((V387)))==(VV[172]))){  
2702          goto T1420;}          goto T1420;}
2703          if((caddr(car((V387))))==(Cnil)){          goto T1414;
         goto T1419;}  
2704          goto T1420;          goto T1420;
2705  T1420:;  T1420:;
2706            if(!((caar((V387)))==(VV[173]))){
2707            goto T1425;}
2708            if((caddr(car((V387))))==(Cnil)){
2709            goto T1424;}
2710            goto T1425;
2711    T1425:;
2712          V385= Ct;          V385= Ct;
2713          goto T1419;          goto T1424;
2714  T1419:;  T1424:;
2715          if(!((caar((V387)))==(VV[172]))){          if(!((caar((V387)))==(VV[173]))){
2716          goto T1426;}          goto T1431;}
2717          {object V390;          {object V390;
2718          V390= caddr(car((V387)));          V390= caddr(car((V387)));
2719          if(!(((V390))==(Cnil))){          if(!(((V390))==(Cnil))){
2720          goto T1432;}          goto T1437;}
2721          goto T1430;          goto T1435;
2722          goto T1432;          goto T1437;
2723  T1432:;  T1437:;
2724          if(type_of((V390))==t_cons){          if(type_of((V390))==t_cons){
2725          goto T1434;}          goto T1439;}
2726          goto T1426;          goto T1431;
2727          goto T1434;          goto T1439;
2728  T1434:;  T1439:;
2729          {register object x= car((V390)),V391= VV[173];          {register object x= car((V390)),V391= VV[174];
2730          while(!endp(V391))          while(!endp(V391))
2731          if(eql(x,V391->c.c_car)){          if(eql(x,V391->c.c_car)){
2732          goto T1430;          goto T1435;
2733          }else V391=V391->c.c_cdr;          }else V391=V391->c.c_cdr;
2734          goto T1426;}}          goto T1431;}}
2735          goto T1430;          goto T1435;
2736  T1430:;  T1435:;
2737          V392= structure_ref(cadddr((V389)),VV[69],1);          V392= structure_ref(cadddr((V389)),VV[70],1);
2738          if((/* INLINE-ARGS */V392)==(VV[174])){          if((/* INLINE-ARGS */V392)==(VV[175])){
2739          goto T1425;}          goto T1430;}
2740          goto T1426;          goto T1431;
2741  T1426:;  T1431:;
2742          V385= Ct;          V385= Ct;
2743          if(type_of(V387)!=t_cons)FEwrong_type_argument(Scons,V387);          if(type_of(V387)!=t_cons)FEwrong_type_argument(Scons,V387);
2744          (V387)->c.c_car = small_fixnum(0);          (V387)->c.c_car = small_fixnum(0);
2745          goto T1425;          goto T1430;
2746  T1425:;  T1430:;
2747          V387= cdr((V387));          V387= cdr((V387));
2748          V388= cdr((V388));          V388= cdr((V388));
2749          V389= car((V388));          V389= car((V388));
2750          goto T1414;}          goto T1419;}
2751          goto T1409;          goto T1414;
2752  T1409:;  T1414:;
2753          if(!(((long)length((V326)))>(15))){          if(!(((long)length((V326)))>(15))){
2754          goto T1447;}          goto T1452;}
2755          V385= Ct;          V385= Ct;
2756          goto T1447;          goto T1452;
2757  T1447:;  T1452:;
2758          princ_str("\n   {",VV[25]);          princ_str("\n   {",VV[26]);
2759          vs_base=vs_top;          vs_base=vs_top;
2760          (void) (*Lnk324)();          (void) (*Lnk325)();
2761          vs_top=sup;          vs_top=sup;
2762          bds_bind(VV[25],symbol_value(VV[31]));          bds_bind(VV[26],symbol_value(VV[32]));
2763          if(((V385))==Cnil){          if(((V385))==Cnil){
2764          goto T1455;}          goto T1460;}
2765          princ_char(10,VV[31]);          princ_char(10,VV[32]);
2766          princ_str("static object VK",VV[25]);          princ_str("static object VK",VV[26]);
2767          (void)((*(LnkLI274))((V321)));          (void)((*(LnkLI275))((V321)));
2768          princ_str("defaults[",VV[25]);          princ_str("defaults[",VV[26]);
2769          V395 = make_fixnum((long)length((V326)));          V395 = make_fixnum((long)length((V326)));
2770          (void)((*(LnkLI274))(V395));          (void)((*(LnkLI275))(V395));
2771          princ_str("]={",VV[25]);          princ_str("]={",VV[26]);
2772          {object V396;          {object V396;
2773          register object V397;          register object V397;
2774          V396= (V326);          V396= (V326);
2775          V397= Cnil;          V397= Cnil;
2776          goto T1467;          goto T1472;
2777  T1467:;  T1472:;
2778          if(((V396))!=Cnil){          if(((V396))!=Cnil){
2779          goto T1468;}          goto T1473;}
2780          goto T1465;          goto T1470;
2781          goto T1468;          goto T1473;
2782  T1468:;  T1473:;
2783          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[26]);
2784          if(!(eql(car((V396)),small_fixnum(0)))){          if(!(eql(car((V396)),small_fixnum(0)))){
2785          goto T1476;}          goto T1481;}
2786          princ_str("-1",VV[25]);          princ_str("-1",VV[26]);
2787          goto T1474;          goto T1479;
2788          goto T1476;          goto T1481;
2789  T1476:;  T1481:;
2790          V397= caddr(car((V396)));          V397= caddr(car((V396)));
2791          if(!(((V397))==(Cnil))){          if(!(((V397))==(Cnil))){
         goto T1480;}  
         princ_str("-2",VV[25]);  
         goto T1474;  
         goto T1480;  
 T1480:;  
         if(!(type_of((V397))==t_cons)){  
         goto T1485;}  
         if(!((car((V397)))==(VV[175]))){  
2792          goto T1485;}          goto T1485;}
2793          (void)((*(LnkLI274))(cadr((V397))));          princ_str("-2",VV[26]);
2794          goto T1474;          goto T1479;
2795          goto T1485;          goto T1485;
2796  T1485:;  T1485:;
2797          if(!(type_of((V397))==t_cons)){          if(!(type_of((V397))==t_cons)){
2798          goto T1491;}          goto T1490;}
2799          if(!((car((V397)))==(VV[176]))){          if(!((car((V397)))==(VV[176]))){
2800          goto T1491;}          goto T1490;}
2801          V398= (*(LnkLI325))(caddr((V397)));          (void)((*(LnkLI275))(cadr((V397))));
2802          (void)((*(LnkLI274))(/* INLINE-ARGS */V398));          goto T1479;
2803          goto T1474;          goto T1490;
2804          goto T1491;  T1490:;
2805  T1491:;          if(!(type_of((V397))==t_cons)){
2806          (void)((*(LnkLI326))());          goto T1496;}
2807          goto T1474;          if(!((car((V397)))==(VV[177]))){
 T1474:;  
         if((cdr((V396)))==Cnil){  
2808          goto T1496;}          goto T1496;}
2809          princ_char(44,VV[25]);          V398= (*(LnkLI326))(caddr((V397)));
2810            (void)((*(LnkLI275))(/* INLINE-ARGS */V398));
2811            goto T1479;
2812          goto T1496;          goto T1496;
2813  T1496:;  T1496:;
2814            (void)((*(LnkLI327))());
2815            goto T1479;
2816    T1479:;
2817            if((cdr((V396)))==Cnil){
2818            goto T1501;}
2819            princ_char(44,VV[26]);
2820            goto T1501;
2821    T1501:;
2822          V396= cdr((V396));          V396= cdr((V396));
2823          goto T1467;}          goto T1472;}
2824          goto T1465;          goto T1470;
2825  T1465:;  T1470:;
2826          princ_str("};",VV[25]);          princ_str("};",VV[26]);
2827          goto T1455;          goto T1460;
2828  T1455:;  T1460:;
2829          princ_char(10,VV[31]);          princ_char(10,VV[32]);
2830          princ_str("static struct { short n,allow_other_keys;",VV[25]);          princ_str("static struct { short n,allow_other_keys;",VV[26]);
2831          princ_str("object *defaults;",VV[25]);          princ_str("object *defaults;",VV[26]);
2832          princ_str("\n    KEYTYPE keys[",VV[25]);          princ_str("\n    KEYTYPE keys[",VV[26]);
2833          (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))));
2834          princ_str("];",VV[25]);          princ_str("];",VV[26]);
2835          princ_str("} LI",VV[25]);          princ_str("} LI",VV[26]);
2836          (void)((*(LnkLI274))((V321)));          (void)((*(LnkLI275))((V321)));
2837          princ_str("key=",VV[25]);          princ_str("key=",VV[26]);
2838          princ_char(123,VV[25]);          princ_char(123,VV[26]);
2839          V399 = make_fixnum((long)length(car(cddddr((V329)))));          V399 = make_fixnum((long)length(car(cddddr((V329)))));
2840          (void)((*(LnkLI274))(V399));          (void)((*(LnkLI275))(V399));
2841          princ_char(44,VV[25]);          princ_char(44,VV[26]);
2842          if((cadr(cddddr((V329))))==Cnil){          if((cadr(cddddr((V329))))==Cnil){
         goto T1523;}  
         V400= small_fixnum(1);  
         goto T1521;  
         goto T1523;  
 T1523:;  
         V400= small_fixnum(0);  
         goto T1521;  
 T1521:;  
         (void)((*(LnkLI274))(V400));  
         princ_char(44,VV[25]);  
         if(((V385))==Cnil){  
2843          goto T1528;}          goto T1528;}
2844          princ_str("VK",VV[25]);          V400= small_fixnum(1);
         (void)((*(LnkLI274))((V321)));  
         princ_str("defaults",VV[25]);  
2845          goto T1526;          goto T1526;
2846          goto T1528;          goto T1528;
2847  T1528:;  T1528:;
2848          princ_str("Cstd_key_defaults",VV[25]);          V400= small_fixnum(0);
2849          goto T1526;          goto T1526;
2850  T1526:;  T1526:;
2851            (void)((*(LnkLI275))(V400));
2852            princ_char(44,VV[26]);
2853            if(((V385))==Cnil){
2854            goto T1533;}
2855            princ_str("VK",VV[26]);
2856            (void)((*(LnkLI275))((V321)));
2857            princ_str("defaults",VV[26]);
2858            goto T1531;
2859            goto T1533;
2860    T1533:;
2861            princ_str("Cstd_key_defaults",VV[26]);
2862            goto T1531;
2863    T1531:;
2864          if((car(cddddr((V329))))==Cnil){          if((car(cddddr((V329))))==Cnil){
2865          goto T1534;}          goto T1539;}
2866          princ_str(",{",VV[25]);          princ_str(",{",VV[26]);
2867          {object V401;          {object V401;
2868          V401= reverse(car(cddddr((V329))));          V401= reverse(car(cddddr((V329))));
2869          goto T1542;          goto T1547;
2870  T1542:;  T1547:;
2871          if(((V401))!=Cnil){          if(((V401))!=Cnil){
2872          goto T1543;}          goto T1548;}
2873          goto T1539;          goto T1544;
2874          goto T1543;          goto T1548;
2875  T1543:;  T1548:;
2876          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[26]);
2877          V402= (*(LnkLI327))(caar((V401)));          V402= (*(LnkLI328))(caar((V401)));
2878          (void)((*(LnkLI274))(/* INLINE-ARGS */V402));          (void)((*(LnkLI275))(/* INLINE-ARGS */V402));
2879          if((cdr((V401)))==Cnil){          if((cdr((V401)))==Cnil){
2880          goto T1551;}          goto T1556;}
2881          princ_char(44,VV[25]);          princ_char(44,VV[26]);
2882          goto T1551;          goto T1556;
2883  T1551:;  T1556:;
2884          V401= cdr((V401));          V401= cdr((V401));
2885          goto T1542;}          goto T1547;}
2886            goto T1544;
2887    T1544:;
2888            princ_char(125,VV[26]);
2889          goto T1539;          goto T1539;
2890  T1539:;  T1539:;
2891          princ_char(125,VV[25]);          princ_str("};",VV[26]);
         goto T1534;  
 T1534:;  
         princ_str("};",VV[25]);  
2892          bds_unwind1;          bds_unwind1;
2893          if((caddr((V329)))==Cnil){          if((caddr((V329)))==Cnil){
2894          goto T1562;}          goto T1567;}
2895          princ_str("\n   parse_key_rest_new(",VV[25]);          princ_str("\n   parse_key_rest_new(",VV[26]);
2896          V403= list(2,VV[155],(V328));          V403= list(2,VV[156],(V328));
2897          (void)((*(LnkLI274))(/* INLINE-ARGS */V403));          (void)((*(LnkLI275))(/* INLINE-ARGS */V403));
2898          princ_char(44,VV[25]);          princ_char(44,VV[26]);
2899          goto T1560;          goto T1565;
2900          goto T1562;          goto T1567;
2901  T1562:;  T1567:;
2902          princ_str("\n   parse_key_new_new(",VV[25]);          princ_str("\n   parse_key_new_new(",VV[26]);
2903          goto T1560;          goto T1565;
2904  T1560:;  T1565:;
2905          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){          if(!(eql(small_fixnum(0),symbol_value(VV[142])))){
2906          goto T1568;}          goto T1573;}
2907          setq(VV[141],small_fixnum(1));          setq(VV[142],small_fixnum(1));
2908          goto T1568;          goto T1573;
2909  T1568:;  T1573:;
2910          princ_str("narg,",VV[25]);          princ_str("narg,",VV[26]);
2911          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[154]->s.s_dbind))==Cnil){
2912          goto T1576;}          goto T1581;}
         V404= VV[177];  
         goto T1574;  
         goto T1576;  
 T1576:;  
2913          V404= VV[178];          V404= VV[178];
2914          goto T1574;          goto T1579;
2915  T1574:;          goto T1581;
2916          (void)((*(LnkLI274))(V404));  T1581:;
2917          princ_char(43,VV[25]);          setq(VV[17],Ct);
2918          (void)((*(LnkLI274))((V327)));          V404= VV[179];
2919          princ_str(",(struct key *)(void *)&LI",VV[25]);          goto T1579;
2920          (void)((*(LnkLI274))((V321)));  T1579:;
2921          princ_str("key,first,ap);",VV[25]);}          (void)((*(LnkLI275))(V404));
2922          goto T1383;          princ_char(43,VV[26]);
2923  T1383:;          (void)((*(LnkLI275))((V327)));
2924            princ_str(",(struct key *)(void *)&LI",VV[26]);
2925            (void)((*(LnkLI275))((V321)));
2926            princ_str("key,first,ap);",VV[26]);}
2927            goto T1388;
2928    T1388:;
2929          {object V405;          {object V405;
2930          register object V406;          register object V406;
2931          V405= car(cddddr((V329)));          V405= car(cddddr((V329)));
2932          V406= car((V405));          V406= car((V405));
2933          goto T1587;          goto T1594;
2934  T1587:;  T1594:;
2935          if(!(endp_prop((V405)))){          if(!(endp_prop((V405)))){
2936          goto T1588;}          goto T1595;}
2937          goto T1583;          goto T1590;
2938          goto T1588;          goto T1595;
2939  T1588:;  T1595:;
2940          {object V408;          {object V408;
2941          V408= car((V326));          V408= car((V326));
2942          V326= cdr((V326));          V326= cdr((V326));
2943          V407= (V408);}          V407= (V408);}
2944          if(eql(small_fixnum(0),V407)){          if(eql(small_fixnum(0),V407)){
2945          goto T1594;}          goto T1601;}
2946          (void)((*(LnkLI328))(cadr((V406))));          (void)((*(LnkLI329))(cadr((V406))));
2947          goto T1592;          goto T1599;
2948          goto T1594;          goto T1601;
2949  T1594:;  T1601:;
2950          princ_str("\n   if(",VV[25]);          princ_str("\n   if(",VV[26]);
2951          V409= structure_ref(cadr((V406)),VV[69],2);          V409= structure_ref(cadr((V406)),VV[70],2);
2952          (void)((*(LnkLI329))(/* INLINE-ARGS */V409));          (void)((*(LnkLI330))(/* INLINE-ARGS */V409));
2953          princ_str("==0){",VV[25]);          princ_str("==0){",VV[26]);
2954            bds_bind(VV[134],symbol_value(VV[134]));
2955            bds_bind(VV[135],(VV[135]->s.s_dbind));
2956          bds_bind(VV[133],symbol_value(VV[133]));          bds_bind(VV[133],symbol_value(VV[133]));
2957          bds_bind(VV[134],(VV[134]->s.s_dbind));          V410= (*(LnkLI323))(cadr((V406)),caddr((V406)));
         bds_bind(VV[132],symbol_value(VV[132]));  
         V410= (*(LnkLI322))(cadr((V406)),caddr((V406)));  
2958          bds_unwind1;          bds_unwind1;
2959          bds_unwind1;          bds_unwind1;
2960          bds_unwind1;          bds_unwind1;
2961          V411= structure_ref(cadddr((V406)),VV[69],1);          V411= structure_ref(cadddr((V406)),VV[70],1);
2962          if((/* INLINE-ARGS */V411)==(VV[174])){          if((/* INLINE-ARGS */V411)==(VV[175])){
2963          goto T1606;}          goto T1613;}
2964          (void)((*(LnkLI321))(cadddr((V406)),Cnil));          (void)((*(LnkLI322))(cadddr((V406)),Cnil));
2965          goto T1606;          goto T1613;
2966  T1606:;  T1613:;
2967          princ_str("\n   }else{",VV[25]);          princ_str("\n   }else{",VV[26]);
2968          (void)((*(LnkLI328))(cadr((V406))));          (void)((*(LnkLI329))(cadr((V406))));
2969          V412= structure_ref(cadddr((V406)),VV[69],1);          V412= structure_ref(cadddr((V406)),VV[70],1);
2970          if((/* INLINE-ARGS */V412)==(VV[174])){          if((/* INLINE-ARGS */V412)==(VV[175])){
2971          goto T1612;}          goto T1619;}
2972          (void)((*(LnkLI321))(cadddr((V406)),Ct));          (void)((*(LnkLI322))(cadddr((V406)),Ct));
2973          goto T1612;          goto T1619;
2974  T1612:;  T1619:;
2975          princ_char(125,VV[25]);          princ_char(125,VV[26]);
2976          goto T1592;          goto T1599;
2977  T1592:;  T1599:;
2978          V405= cdr((V405));          V405= cdr((V405));
2979          V406= car((V405));          V406= car((V405));
2980          goto T1587;}          goto T1594;}
2981          goto T1583;          goto T1590;
2982  T1583:;  T1590:;
2983          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[147]->s.s_dbind))==Cnil){
2984          goto T1621;}          goto T1628;}
2985          (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));
2986          princ_str("\n   goto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[26]);
2987          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[26]);
2988          goto T1621;          goto T1628;
2989  T1621:;  T1628:;
2990          base[7]= caddr(cddr((V322)));          base[7]= caddr(cddr((V322)));
2991          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2992          (void) (*Lnk315)();          (void) (*Lnk316)();
2993          vs_top=sup;          vs_top=sup;
2994          if(((V330))==Cnil){          if(((V330))==Cnil){
2995          goto T1631;}          goto T1638;}
2996          V330= Cnil;          V330= Cnil;
2997          princ_str("\n   va_end(ap);",VV[25]);          princ_str("\n   va_end(ap);",VV[26]);
2998          goto T1631;          goto T1638;
2999  T1631:;  T1638:;
3000          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
3001          goto T1639;}          goto T1646;}
3002          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[139]))!=Cnil){
3003          goto T1639;}          goto T1646;}
3004          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[141]))!=Cnil){
3005          goto T1639;}          goto T1646;}
3006          goto T1637;          goto T1644;
3007          goto T1639;          goto T1646;
3008  T1639:;  T1646:;
3009          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[26]);
3010          goto T1637;          goto T1644;
3011  T1637:;  T1644:;
3012          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[26]);
3013          princ_char(125,VV[25]);          princ_char(125,VV[26]);
3014          if((base[1])==Cnil){          if((base[1])==Cnil){
3015          goto T1650;}          goto T1657;}
3016          princ_str("\n   }",VV[25]);          princ_str("\n   }",VV[26]);
3017          goto T1650;          goto T1657;
3018  T1650:;  T1657:;
3019          (void)((*(LnkLI330))());          (void)((*(LnkLI331))());
3020          V414= get((V320),VV[77],Cnil);          V414= get((V320),VV[78],Cnil);
3021          {object V415 = (*(LnkLI316))((V339),V414);          {object V415 = (*(LnkLI317))((V339),V414);
3022          bds_unwind1;          bds_unwind1;
3023          bds_unwind1;          bds_unwind1;
3024          bds_unwind1;          bds_unwind1;
# Line 3036  object V420;register object V421;object Line 3035  object V420;register object V421;object
3035  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
3036          goto TTL;          goto TTL;
3037  TTL:;  TTL:;
3038          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[179],(V420))));          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[180],(V420))));
3039          if(!(type_of((V421))==t_fixnum||          if(!(type_of((V421))==t_fixnum||
3040  type_of((V421))==t_bignum||  type_of((V421))==t_bignum||
3041  type_of((V421))==t_ratio||  type_of((V421))==t_ratio||
3042  type_of((V421))==t_shortfloat||  type_of((V421))==t_shortfloat||
3043  type_of((V421))==t_longfloat||  type_of((V421))==t_longfloat||
3044  type_of((V421))==t_complex)){  type_of((V421))==t_complex)){
3045          goto T1659;}          goto T1666;}
3046          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[26]);
3047          (void)((*(LnkLI274))((V421)));          (void)((*(LnkLI275))((V421)));
3048          princ_str("()",VV[25]);          princ_str("()",VV[26]);
3049          goto T1657;          goto T1664;
3050          goto T1659;          goto T1666;
3051  T1659:;  T1666:;
3052          princ_char(10,VV[25]);          princ_char(10,VV[26]);
3053          (void)((*(LnkLI274))((V421)));          (void)((*(LnkLI275))((V421)));
3054          princ_str("()",VV[25]);          princ_str("()",VV[26]);
3055          goto T1657;          goto T1664;
3056  T1657:;  T1664:;
3057          princ_str("\n{",VV[25]);          princ_str("\n{",VV[26]);
3058          princ_str("register object *",VV[25]);          princ_str("register object *",VV[26]);
3059          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI275))(symbol_value(VV[21])));
3060          princ_str("base=vs_base;",VV[25]);          princ_str("base=vs_base;",VV[26]);
3061          V424= structure_ref(cadr((V422)),VV[62],1);          V424= structure_ref(cadr((V422)),VV[63],1);
3062          (void)((*(LnkLI314))(/* INLINE-ARGS */V424,(V421),VV[148]));          (void)((*(LnkLI315))(/* INLINE-ARGS */V424,(V421),VV[149]));
3063          princ_str("\n   register object *",VV[25]);          princ_str("\n   register object *",VV[26]);
3064          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI275))(symbol_value(VV[21])));
3065          princ_str("sup=base+VM",VV[25]);          princ_str("sup=base+VM",VV[26]);
3066          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI275))(symbol_value(VV[137])));
3067          princ_char(59,VV[25]);          princ_char(59,VV[26]);
3068          princ_str(" VC",VV[25]);          princ_str(" VC",VV[26]);
3069          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI275))(symbol_value(VV[137])));
3070          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
3071          goto T1684;}          goto T1691;}
3072          princ_str("\n   vs_reserve(VM",VV[25]);          princ_str("\n   vs_reserve(VM",VV[26]);
3073          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI275))(symbol_value(VV[137])));
3074          princ_str(");",VV[25]);          princ_str(");",VV[26]);
3075          goto T1682;          goto T1689;
3076          goto T1684;          goto T1691;
3077  T1684:;  T1691:;
3078          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[26]);
3079          goto T1682;          goto T1689;
3080  T1682:;  T1689:;
3081          if(((V423))==Cnil){          if(((V423))==Cnil){
3082          goto T1690;}          goto T1697;}
3083          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[26]);
3084          goto T1690;          goto T1697;
3085  T1690:;  T1697:;
3086          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
3087          goto T1694;}          goto T1701;}
3088          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[26]);
3089          goto T1694;          goto T1701;
3090  T1694:;  T1701:;
3091          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V422)),caddr(cddr((V422))),(V420))));          (void)((VFUN_NARGS=3,(*(LnkLI332))(caddr((V422)),caddr(cddr((V422))),(V420))));
3092          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
3093          {object V425;          {object V425;
3094          V425= make_cons(symbol_value(VV[136]),symbol_value(VV[130]));          V425= make_cons(symbol_value(VV[137]),symbol_value(VV[131]));
3095          setq(VV[33],make_cons((V425),symbol_value(VV[33])));}          setq(VV[34],make_cons((V425),symbol_value(VV[34])));}
3096          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[32]);
3097          (void)((*(LnkLI277))(symbol_value(VV[136])));          (void)((*(LnkLI278))(symbol_value(VV[137])));
3098          {object V426 = (*(LnkLI332))();          {object V426 = (*(LnkLI333))();
3099          VMR26(V426)}          VMR26(V426)}
3100          base[0]=base[0];          base[0]=base[0];
3101          return Cnil;          return Cnil;
# Line 3110  register object V429;object V430; Line 3109  register object V429;object V430;
3109          goto TTL;          goto TTL;
3110  TTL:;  TTL:;
3111          {object V431;          {object V431;
3112          V431= make_cons((V429),symbol_value(VV[130]));          V431= make_cons((V429),symbol_value(VV[131]));
3113          setq(VV[33],make_cons((V431),symbol_value(VV[33])));}          setq(VV[34],make_cons((V431),symbol_value(VV[34])));}
3114          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
3115          goto T1712;}          goto T1719;}
3116          if((symbol_value(VV[138]))!=Cnil){          if((symbol_value(VV[139]))!=Cnil){
3117          goto T1712;}          goto T1719;}
3118          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[141]))!=Cnil){
3119          goto T1712;}          goto T1719;}
3120          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[32]);
3121          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3122          goto T1710;          goto T1717;
3123          goto T1712;          goto T1719;
3124  T1712:;  T1719:;
3125          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[32]);
3126          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3127          princ_char(32,VV[31]);          princ_char(32,VV[32]);
3128          princ_str("register object *",VV[31]);          princ_str("register object *",VV[32]);
3129          (void)((*(LnkLI277))(symbol_value(VV[20])));          (void)((*(LnkLI278))(symbol_value(VV[21])));
3130          princ_str("base=vs_top;",VV[31]);          princ_str("base=vs_top;",VV[32]);
3131          goto T1710;          goto T1717;
3132  T1710:;  T1717:;
3133          (void)((*(LnkLI332))());          (void)((*(LnkLI333))());
3134          if((symbol_value(VV[138]))==Cnil){          if((symbol_value(VV[139]))==Cnil){
3135          goto T1729;}          goto T1736;}
3136          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[32]);
3137          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3138          princ_char(32,VV[31]);          princ_char(32,VV[32]);
3139          princ_str(" register object *",VV[31]);          princ_str(" register object *",VV[32]);
3140          (void)((*(LnkLI277))(symbol_value(VV[20])));          (void)((*(LnkLI278))(symbol_value(VV[21])));
3141          princ_str("sup=vs_top+",VV[31]);          princ_str("sup=vs_top+",VV[32]);
3142          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI278))(symbol_value(VV[131])));
3143          princ_str(";vs_top=sup;",VV[31]);          princ_str(";vs_top=sup;",VV[32]);
3144          goto T1727;          goto T1734;
3145          goto T1729;          goto T1736;
3146  T1729:;  T1736:;
3147          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
3148          goto T1740;}          goto T1747;}
3149          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[32]);
3150          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3151          goto T1727;          goto T1734;
3152          goto T1740;          goto T1747;
3153  T1740:;  T1747:;
3154          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[32]);
3155          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3156          princ_str(" vs_top += ",VV[31]);          princ_str(" vs_top += ",VV[32]);
3157          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI278))(symbol_value(VV[131])));
3158          princ_char(59,VV[31]);          princ_char(59,VV[32]);
3159          goto T1727;          goto T1734;
3160  T1727:;  T1734:;
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 T1751;}          goto T1758;}
3163          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[32]);
3164          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3165          goto T1749;          goto T1756;
3166          goto T1751;          goto T1758;
3167  T1751:;  T1758:;
3168          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
3169          goto T1756;}          goto T1763;}
3170          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[32]);
3171          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3172          princ_str(" vs_reserve(",VV[31]);          princ_str(" vs_reserve(",VV[32]);
3173          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI278))(symbol_value(VV[131])));
3174          princ_str(");",VV[31]);          princ_str(");",VV[32]);
3175          goto T1749;          goto T1756;
3176            goto T1763;
3177    T1763:;
3178            princ_str("\n#define VMV",VV[32]);
3179            (void)((*(LnkLI278))((V429)));
3180            princ_str(" vs_check;",VV[32]);
3181          goto T1756;          goto T1756;
3182  T1756:;  T1756:;
3183          princ_str("\n#define VMV",VV[31]);          if(!(number_compare(small_fixnum(0),symbol_value(VV[131]))==0)){
3184          (void)((*(LnkLI277))((V429)));          goto T1774;}
3185          princ_str(" vs_check;",VV[31]);          princ_str("\n#define VMR",VV[32]);
3186          goto T1749;          (void)((*(LnkLI278))((V429)));
3187  T1749:;          princ_str("(VMT",VV[32]);
3188          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          (void)((*(LnkLI278))((V429)));
3189          goto T1767;}          princ_str(") return(VMT",VV[32]);
3190          princ_str("\n#define VMR",VV[31]);          (void)((*(LnkLI278))((V429)));
3191          (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]);  
3192          {object V432 = Cnil;          {object V432 = Cnil;
3193          VMR27(V432)}          VMR27(V432)}
3194          goto T1767;          goto T1774;
3195  T1767:;  T1774:;
3196          princ_str("\n#define VMR",VV[31]);          princ_str("\n#define VMR",VV[32]);
3197          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3198          princ_str("(VMT",VV[31]);          princ_str("(VMT",VV[32]);
3199          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3200          princ_str(") vs_top=base ; return(VMT",VV[31]);          princ_str(") vs_top=base ; return(VMT",VV[32]);
3201          (void)((*(LnkLI277))((V429)));          (void)((*(LnkLI278))((V429)));
3202          princ_str(");",VV[31]);          princ_str(");",VV[32]);
3203          {object V433 = Cnil;          {object V433 = Cnil;
3204          VMR27(V433)}          VMR27(V433)}
3205          base[0]=base[0];          base[0]=base[0];
# Line 3216  object V436;object V437; Line 3215  object V436;object V437;
3215  TTL:;  TTL:;
3216          {register object V438;          {register object V438;
3217          V438= (V436);          V438= (V436);
3218          goto T1785;          goto T1792;
3219  T1785:;  T1792:;
3220          if(!(endp_prop((V438)))){          if(!(endp_prop((V438)))){
3221          goto T1786;}          goto T1793;}
3222          goto T1783;          goto T1790;
3223          goto T1786;          goto T1793;
3224  T1786:;  T1793:;
3225          {register object V439;          {register object V439;
3226          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
3227          V439= symbol_value(VV[88]);          V439= symbol_value(VV[89]);
3228          (void)(structure_set(car((V438)),VV[69],4,(V439)));          (void)(structure_set(car((V438)),VV[70],4,(V439)));
3229          princ_char(86,VV[25]);          princ_char(86,VV[26]);
3230          (void)((*(LnkLI274))((V439)));}          (void)((*(LnkLI275))((V439)));}
3231          if(endp_prop(cdr((V438)))){          if(endp_prop(cdr((V438)))){
3232          goto T1796;}          goto T1803;}
3233          princ_char(44,VV[25]);          princ_char(44,VV[26]);
3234          goto T1796;          goto T1803;
3235  T1796:;  T1803:;
3236          V438= cdr((V438));          V438= cdr((V438));
3237          goto T1785;}          goto T1792;}
3238          goto T1783;          goto T1790;
3239  T1783:;  T1790:;
3240          princ_str(")\n",VV[25]);          princ_str(")\n",VV[26]);
3241          if(((V436))==Cnil){          if(((V436))==Cnil){
3242          goto T1806;}          goto T1813;}
3243          princ_char(10,VV[25]);          princ_char(10,VV[26]);
3244          {register object V440;          {register object V440;
3245          register object V441;          register object V441;
3246          register object V442;          register object V442;
3247          V440= (V436);          V440= (V436);
3248          V441= (V437);          V441= (V437);
3249          V442= Cnil;          V442= Cnil;
3250          goto T1810;          goto T1817;
3251  T1810:;  T1817:;
3252          if(!(endp_prop((V440)))){          if(!(endp_prop((V440)))){
3253          goto T1811;}          goto T1818;}
3254          princ_char(59,VV[25]);          princ_char(59,VV[26]);
3255          {object V443 = Cnil;          {object V443 = Cnil;
3256          VMR28(V443)}          VMR28(V443)}
3257          goto T1811;          goto T1818;
3258  T1811:;  T1818:;
3259          if(((V442))==Cnil){          if(((V442))==Cnil){
3260          goto T1816;}          goto T1823;}
3261          princ_char(59,VV[25]);          princ_char(59,VV[26]);
3262          goto T1816;          goto T1823;
3263  T1816:;  T1823:;
3264          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI275))(symbol_value(VV[21])));
3265          V444= (*(LnkLI333))(car((V440)));          V444= (*(LnkLI334))(car((V440)));
3266          (void)((*(LnkLI274))(/* INLINE-ARGS */V444));          (void)((*(LnkLI275))(/* INLINE-ARGS */V444));
3267          V445= (*(LnkLI280))(car((V441)));          V445= (*(LnkLI281))(car((V441)));
3268          (void)((*(LnkLI274))(/* INLINE-ARGS */V445));          (void)((*(LnkLI275))(/* INLINE-ARGS */V445));
3269          V442= car((V441));          V442= car((V441));
3270          princ_char(86,VV[25]);          princ_char(86,VV[26]);
3271          V446= structure_ref(car((V440)),VV[69],4);          V446= structure_ref(car((V440)),VV[70],4);
3272          (void)((*(LnkLI274))(/* INLINE-ARGS */V446));          (void)((*(LnkLI275))(/* INLINE-ARGS */V446));
3273          V440= cdr((V440));          V440= cdr((V440));
3274          V441= cdr((V441));          V441= cdr((V441));
3275          goto T1810;}          goto T1817;}
3276          goto T1806;          goto T1813;
3277  T1806:;  T1813:;
3278          {object V447 = Cnil;          {object V447 = Cnil;
3279          VMR28(V447)}          VMR28(V447)}
3280          return Cnil;          return Cnil;
# Line 3291  TTL:; Line 3290  TTL:;
3290          {object V452;          {object V452;
3291          V452= Cnil;          V452= Cnil;
3292          {object V453;          {object V453;
3293          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);
3294          if(((V453))==Cnil){          if(((V453))==Cnil){
3295          goto T1836;}          goto T1843;}
3296          {object V454 = (V453);          {object V454 = (V453);
3297          VMR29(V454)}          VMR29(V454)}
3298          goto T1836;          goto T1843;
3299  T1836:;  T1843:;
3300          if((get((V450),VV[115],Cnil))!=Cnil){          if((get((V450),VV[116],Cnil))!=Cnil){
3301          goto T1839;}          goto T1846;}
3302          {object V455 = (VFUN_NARGS=2,(*(LnkLI334))(VV[180],(V450)));          {object V455 = (VFUN_NARGS=2,(*(LnkLI335))(VV[181],(V450)));
3303          VMR29(V455)}          VMR29(V455)}
3304          goto T1839;          goto T1846;
3305  T1839:;  T1846:;
3306          (void)(remprop((V450),VV[115]));          (void)(remprop((V450),VV[116]));
3307          {register object V456;          {register object V456;
3308          V456= small_fixnum(0);          V456= small_fixnum(0);
3309          {register object V457;          {register object V457;
3310          register object V458;          register object V458;
3311          V457= structure_ref(cadr((V451)),VV[62],1);          V457= structure_ref(cadr((V451)),VV[63],1);
3312          V458= car((V457));          V458= car((V457));
3313          goto T1846;          goto T1853;
3314  T1846:;  T1853:;
3315          if(!(endp_prop((V457)))){          if(!(endp_prop((V457)))){
3316          goto T1847;}          goto T1854;}
3317          goto T1842;          goto T1849;
3318          goto T1847;          goto T1854;
3319  T1847:;  T1854:;
3320          V459= structure_ref((V458),VV[69],2);          V459= structure_ref((V458),VV[70],2);
3321          if(!(type_of(/* INLINE-ARGS */V459)==t_cons)){          if(!(type_of(/* INLINE-ARGS */V459)==t_cons)){
3322          goto T1851;}          goto T1858;}
3323          V460= structure_ref((V458),VV[69],2);          V460= structure_ref((V458),VV[70],2);
3324          if(!(type_of(cdr(/* INLINE-ARGS */V460))==t_fixnum)){          if(!(type_of(cdr(/* INLINE-ARGS */V460))==t_fixnum)){
3325          goto T1851;}          goto T1858;}
3326          V461= structure_ref((V458),VV[69],2);          V461= structure_ref((V458),VV[70],2);
3327          {object V462= cdr(/* INLINE-ARGS */V461);          {object V462= cdr(/* INLINE-ARGS */V461);
3328          V456= (number_compare((V456),V462)>=0?((V456)):V462);}          V456= (number_compare((V456),V462)>=0?((V456)):V462);}
3329          goto T1851;          goto T1858;
3330  T1851:;  T1858:;
3331          V457= cdr((V457));          V457= cdr((V457));
3332          V458= car((V457));          V458= car((V457));
3333          goto T1846;}          goto T1853;}
3334          goto T1842;          goto T1849;
3335  T1842:;  T1849:;
3336          base[0]= one_plus((V456));          base[0]= one_plus((V456));
3337          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3338          Lmake_list();          Lmake_list();
# Line 3341  T1842:; Line 3340  T1842:;
3340          V452= vs_base[0];          V452= vs_base[0];
3341          {register object V463;          {register object V463;
3342          register object V464;          register object V464;
3343          V463= structure_ref(cadr((V451)),VV[62],1);          V463= structure_ref(cadr((V451)),VV[63],1);
3344          V464= car((V463));          V464= car((V463));
3345          goto T1869;          goto T1876;
3346  T1869:;  T1876:;
3347          if(!(endp_prop((V463)))){          if(!(endp_prop((V463)))){
3348          goto T1870;}          goto T1877;}
3349          goto T1865;          goto T1872;
3350          goto T1870;          goto T1877;
3351  T1870:;  T1877:;
3352          V465= structure_ref((V464),VV[69],2);          V465= structure_ref((V464),VV[70],2);
3353          if(!(type_of(/* INLINE-ARGS */V465)==t_cons)){          if(!(type_of(/* INLINE-ARGS */V465)==t_cons)){
3354          goto T1874;}          goto T1881;}
3355          V466= structure_ref((V464),VV[69],2);          V466= structure_ref((V464),VV[70],2);
3356          if(!(type_of(cdr(/* INLINE-ARGS */V466))==t_fixnum)){          if(!(type_of(cdr(/* INLINE-ARGS */V466))==t_fixnum)){
3357          goto T1874;}          goto T1881;}
3358          {object V467;          {object V467;
3359          register object V469;          register object V469;
3360          V470= structure_ref((V464),VV[69],2);          V470= structure_ref((V464),VV[70],2);
3361          V467= cdr(/* INLINE-ARGS */V470);          V467= cdr(/* INLINE-ARGS */V470);
3362          V469= structure_ref((V464),VV[69],0);          V469= structure_ref((V464),VV[70],0);
3363          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));
3364          (nthcdr(fixint((V467)),V452))->c.c_car = (V469);          (nthcdr(fixint((V467)),V452))->c.c_car = (V469);
3365          (void)(nthcdr(fixint((V467)),V452));}          (void)(nthcdr(fixint((V467)),V452));}
3366          goto T1874;          goto T1881;
3367  T1874:;  T1881:;
3368          V463= cdr((V463));          V463= cdr((V463));
3369          V464= car((V463));          V464= car((V463));
3370          goto T1869;}          goto T1876;}
3371          goto T1865;          goto T1872;
3372  T1865:;  T1872:;
3373          (void)(sputprop((V450),VV[116],(V452)));          (void)(sputprop((V450),VV[117],(V452)));
3374          {object V471;          {object V471;
3375          V471= get((V450),VV[116],Cnil);          V471= get((V450),VV[117],Cnil);
3376          if(((V471))==Cnil){          if(((V471))==Cnil){
3377          goto T1890;}          goto T1897;}
3378          if((cdr((V471)))!=Cnil){          if((cdr((V471)))!=Cnil){
3379          goto T1889;}          goto T1896;}
3380          if((car((V471)))==Cnil){          if((car((V471)))==Cnil){
3381          goto T1890;}          goto T1897;}
3382          goto T1889;          goto T1896;
3383  T1889:;  T1896:;
3384          V472= list(2,VV[91],(V450));          V472= list(2,VV[92],(V450));
3385          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)));
3386          {object V474 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V473));          {object V474 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V473));
3387          VMR29(V474)}          VMR29(V474)}
3388          goto T1890;          goto T1897;
3389  T1890:;  T1897:;
3390          {object V475 = Cnil;          {object V475 = Cnil;
3391          VMR29(V475)}}}}}          VMR29(V475)}}}}}
3392          base[0]=base[0];          base[0]=base[0];
# Line 3402  object V478;object V479; Line 3401  object V478;object V479;
3401          goto TTL;          goto TTL;
3402  TTL:;  TTL:;
3403          {object V480;          {object V480;
3404          V480= number_minus(symbol_value(VV[181]),(V479));          V480= number_minus(symbol_value(VV[182]),(V479));
3405          if(!(number_compare(small_fixnum(0),symbol_value(VV[182]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[183]))==0)){
3406          goto T1898;}          goto T1905;}
3407          V481= (VFUN_NARGS=1,(*(LnkLI336))((V478)));          V481= (VFUN_NARGS=1,(*(LnkLI337))((V478)));
3408          {long V482 = (long)(*(LnkLI335))(/* INLINE-ARGS */V481,(V480));          {long V482 = (long)(*(LnkLI336))(/* INLINE-ARGS */V481,(V480));
3409          VMR30((object)V482)}          VMR30((object)V482)}
3410          goto T1898;          goto T1905;
3411  T1898:;  T1905:;
3412          {register object V483;          {register object V483;
3413          register object V484;          register object V484;
3414          V483= Cnil;          V483= Cnil;
# Line 3418  T1898:; Line 3417  T1898:;
3417          register object V486;          register object V486;
3418          V485= (V478);          V485= (V478);
3419          V486= car((V485));          V486= car((V485));
3420          goto T1904;          goto T1911;
3421  T1904:;  T1911:;
3422          if(!(endp_prop((V485)))){          if(!(endp_prop((V485)))){
3423          goto T1905;}          goto T1912;}
3424          goto T1900;          goto T1907;
3425          goto T1905;          goto T1912;
3426  T1905:;  T1912:;
3427          V488= structure_ref((V486),VV[69],5);          V488= structure_ref((V486),VV[70],5);
3428          {register object x= /* INLINE-ARGS */V488,V487= VV[183];          {register object x= /* INLINE-ARGS */V488,V487= VV[184];
3429          while(!endp(V487))          while(!endp(V487))
3430          if(x==(V487->c.c_car)){          if(x==(V487->c.c_car)){
3431          goto T1912;          goto T1919;
3432          }else V487=V487->c.c_cdr;          }else V487=V487->c.c_cdr;
3433          goto T1911;}          goto T1918;}
3434          goto T1912;          goto T1919;
3435  T1912:;{object V489;  T1919:;{object V489;
3436          {register object x= (V486),V490= (V484);          {register object x= (V486),V490= (V484);
3437          while(!endp(V490))          while(!endp(V490))
3438          if(eql(x,V490->c.c_car)){          if(eql(x,V490->c.c_car)){
3439          V489= V490;          V489= V490;
3440          goto T1914;          goto T1921;
3441          }else V490=V490->c.c_cdr;          }else V490=V490->c.c_cdr;
3442          V489= Cnil;}          V489= Cnil;}
3443          goto T1914;          goto T1921;
3444  T1914:;  T1921:;
3445          if(V489==Cnil)goto T1913;          if(V489==Cnil)goto T1920;
3446          goto T1909;          goto T1916;
3447          goto T1913;          goto T1920;
3448  T1913:;}  T1920:;}
3449          {register object V491;          {register object V491;
3450          V491= (V486);          V491= (V486);
3451          V484= make_cons((V491),(V484));          V484= make_cons((V491),(V484));
3452          goto T1909;}          goto T1916;}
3453          goto T1911;          goto T1918;
3454  T1911:;{object V492;  T1918:;{object V492;
3455          {register object x= (V486),V493= (V483);          {register object x= (V486),V493= (V483);
3456          while(!endp(V493))          while(!endp(V493))
3457          if(x==(V493->c.c_car)){          if(x==(V493->c.c_car)){
3458          V492= V493;          V492= V493;
3459          goto T1918;          goto T1925;
3460          }else V493=V493->c.c_cdr;          }else V493=V493->c.c_cdr;
3461          V492= Cnil;}          V492= Cnil;}
3462          goto T1918;          goto T1925;
3463  T1918:;  T1925:;
3464          if(V492==Cnil)goto T1917;          if(V492==Cnil)goto T1924;
3465          goto T1909;          goto T1916;
3466          goto T1917;          goto T1924;
3467  T1917:;}  T1924:;}
3468          {register object V494;          {register object V494;
3469          V494= (V486);          V494= (V486);
3470          V484= make_cons((V494),(V484));}          V484= make_cons((V494),(V484));}
3471          goto T1909;          goto T1916;
3472  T1909:;  T1916:;
3473          V485= cdr((V485));          V485= cdr((V485));
3474          V486= car((V485));          V486= car((V485));
3475          goto T1904;}          goto T1911;}
3476          goto T1900;          goto T1907;
3477  T1900:;  T1907:;
3478          (void)((*(LnkLI335))((V483),(V480)));          (void)((*(LnkLI336))((V483),(V480)));
3479          {long V495 = (long)(*(LnkLI335))((V484),symbol_value(VV[182]));          {long V495 = (long)(*(LnkLI336))((V484),symbol_value(VV[183]));
3480          VMR30((object)V495)}}}          VMR30((object)V495)}}}
3481          base[0]=base[0];          base[0]=base[0];
3482  }  }
# Line 3499  TTL:; Line 3498  TTL:;
3498          V502= 100000;          V502= 100000;
3499          V503= fix((V499));          V503= fix((V499));
3500          V504= 0;          V504= 0;
3501          V498= (VFUN_NARGS=1,(*(LnkLI336))((V498)));          V498= (VFUN_NARGS=1,(*(LnkLI337))((V498)));
3502          goto T1935;          goto T1942;
3503  T1935:;  T1942:;
3504          {register object V505;          {register object V505;
3505          object V506;          object V506;
3506          V505= (V498);          V505= (V498);
3507          V506= car((V505));          V506= car((V505));
3508          goto T1941;          goto T1948;
3509  T1941:;  T1948:;
3510          if(!(endp_prop((V505)))){          if(!(endp_prop((V505)))){
3511          goto T1942;}          goto T1949;}
3512          goto T1937;          goto T1944;
3513          goto T1942;          goto T1949;
3514  T1942:;  T1949:;
3515          V500= fix(structure_ref((V506),VV[69],6));          V500= fix(structure_ref((V506),VV[70],6));
3516          if(!((V500)>=(V501))){          if(!((V500)>=(V501))){
3517          goto T1948;}          goto T1955;}
3518          V504= (long)(V504)+(1);          V504= (long)(V504)+(1);
3519          if(!((V500)<(V502))){          if(!((V500)<(V502))){
3520          goto T1953;}          goto T1960;}
3521          V502= V500;          V502= V500;
3522          goto T1953;          goto T1960;
3523  T1953:;  T1960:;
3524          if(!((V504)>(V503))){          if(!((V504)>(V503))){
3525          goto T1948;}          goto T1955;}
3526          goto T1936;          goto T1943;
3527          goto T1948;          goto T1955;
3528  T1948:;  T1955:;
3529          V505= cdr((V505));          V505= cdr((V505));
3530          V506= car((V505));          V506= car((V505));
3531          goto T1941;}          goto T1948;}
3532          goto T1937;          goto T1944;
3533  T1937:;  T1944:;
3534          if(!((V504)<(V503))){          if(!((V504)<(V503))){
3535          goto T1964;}          goto T1971;}
3536          V501= (long)(V501)-(1);          V501= (long)(V501)-(1);
3537          goto T1964;          goto T1971;
3538  T1964:;  T1971:;
3539          {register object V507;          {register object V507;
3540          register object V508;          register object V508;
3541          V507= (V498);          V507= (V498);
3542          V508= car((V507));          V508= car((V507));
3543          goto T1972;          goto T1979;
3544  T1972:;  T1979:;
3545          if(!(endp_prop((V507)))){          if(!(endp_prop((V507)))){
3546          goto T1973;}          goto T1980;}
3547          goto T1968;          goto T1975;
3548          goto T1973;          goto T1980;
3549  T1973:;  T1980:;
3550          {long V509= fix(structure_ref((V508),VV[69],6));          {long V509= fix(structure_ref((V508),VV[70],6));
3551          if(!((/* INLINE-ARGS */V509)<(V501))){          if(!((/* INLINE-ARGS */V509)<(V501))){
3552          goto T1977;}}          goto T1984;}}
3553          (void)(structure_set((V508),VV[69],6,small_fixnum(0)));          (void)(structure_set((V508),VV[70],6,small_fixnum(0)));
3554          goto T1977;          goto T1984;
3555  T1977:;  T1984:;
3556          V507= cdr((V507));          V507= cdr((V507));
3557          V508= car((V507));          V508= car((V507));
3558          goto T1972;}          goto T1979;}
3559          goto T1968;          goto T1975;
3560  T1968:;  T1975:;
3561          {long V510 = V501;          {long V510 = V501;
3562          VMR31((object)V510)}          VMR31((object)V510)}
3563          goto T1936;          goto T1943;
3564  T1936:;  T1943:;
3565          V504= 0;          V504= 0;
3566          V501= (long)(V502)+(1);          V501= (long)(V502)+(1);
3567          V502= 1000000;          V502= 1000000;
3568          goto T1935;}          goto T1942;}
3569          base[0]=base[0];          base[0]=base[0];
3570  }  }
3571  /*      local entry for function WT-GLOBAL-ENTRY        */  /*      local entry for function WT-GLOBAL-ENTRY        */
# Line 3577  object V515;object V516;object V517;obje Line 3576  object V515;object V516;object V517;obje
3576  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
3577          goto TTL;          goto TTL;
3578  TTL:;  TTL:;
3579          if((get((V515),VV[102],Cnil))==Cnil){          if((get((V515),VV[103],Cnil))==Cnil){
3580          goto T1992;}          goto T1999;}
3581          {object V519 = Cnil;          {object V519 = Cnil;
3582          VMR32(V519)}          VMR32(V519)}
3583          goto T1992;          goto T1999;
3584  T1992:;  T1999:;
3585          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[186],(V515))));          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[187],(V515))));
3586          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[26]);
3587          (void)((*(LnkLI274))((V516)));          (void)((*(LnkLI275))((V516)));
3588          princ_str("()",VV[25]);          princ_str("()",VV[26]);
3589          princ_str("\n{  register object *base=vs_base;",VV[25]);          princ_str("\n{  register object *base=vs_base;",VV[26]);
3590          if((symbol_value(VV[163]))!=Cnil){          if((symbol_value(VV[164]))!=Cnil){
3591          goto T2003;}          goto T2010;}
3592          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[165]))==Cnil){
3593          goto T2002;}          goto T2009;}
3594          goto T2003;          goto T2010;
3595  T2003:;  T2010:;
3596          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[26]);
3597          V520 = make_fixnum((long)length((V517)));          V520 = make_fixnum((long)length((V517)));
3598          (void)((*(LnkLI274))(V520));          (void)((*(LnkLI275))(V520));
3599          princ_str(");",VV[25]);          princ_str(");",VV[26]);
3600          goto T2002;          goto T2009;
3601  T2002:;  T2009:;
3602          princ_str("\n   base[0]=",VV[25]);          princ_str("\n   base[0]=",VV[26]);
3603          {object V522= (V518);          {object V522= (V518);
3604          if((V522!= VV[89]))goto T2014;          if((V522!= VV[90]))goto T2021;
3605          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){
3606          goto T2016;}          goto T2023;}
         V521= VV[187];  
         goto T2013;  
         goto T2016;  
 T2016:;  
3607          V521= VV[188];          V521= VV[188];
3608          goto T2013;          goto T2020;
3609          goto T2014;          goto T2023;
3610  T2014:;  T2023:;
         if((V522!= VV[142]))goto T2018;  
3611          V521= VV[189];          V521= VV[189];
3612          goto T2013;          goto T2020;
3613          goto T2018;          goto T2021;
3614  T2018:;  T2021:;
3615          if((V522!= VV[143]))goto T2019;          if((V522!= VV[143]))goto T2025;
3616          V521= VV[190];          V521= VV[190];
3617          goto T2013;          goto T2020;
3618          goto T2019;          goto T2025;
3619  T2019:;  T2025:;
3620          if((V522!= VV[144]))goto T2020;          if((V522!= VV[144]))goto T2026;
3621          V521= VV[191];          V521= VV[191];
3622          goto T2013;          goto T2020;
3623            goto T2026;
3624    T2026:;
3625            if((V522!= VV[145]))goto T2027;
3626            V521= VV[192];
3627            goto T2020;
3628            goto T2027;
3629    T2027:;
3630            V521= VV[193];}
3631          goto T2020;          goto T2020;
3632  T2020:;  T2020:;
3633          V521= VV[192];}          (void)((*(LnkLI275))(V521));
3634          goto T2013;          princ_str("(LI",VV[26]);
3635  T2013:;          (void)((*(LnkLI275))((V516)));
3636          (void)((*(LnkLI274))(V521));          princ_char(40,VV[26]);
         princ_str("(LI",VV[25]);  
         (void)((*(LnkLI274))((V516)));  
         princ_char(40,VV[25]);  
3637          {register object V523;          {register object V523;
3638          register long V524;          register long V524;
3639          V524= 0;          V524= 0;
3640          V523= (V517);          V523= (V517);
         goto T2027;  
 T2027:;  
         if(!(endp_prop((V523)))){  
         goto T2028;}  
         goto T2024;  
         goto T2028;  
 T2028:;  
         {object V526= car((V523));  
         if((V526!= VV[89]))goto T2035;  
         V525= VV[193];  
3641          goto T2034;          goto T2034;
3642    T2034:;
3643            if(!(endp_prop((V523)))){
3644            goto T2035;}
3645            goto T2031;
3646          goto T2035;          goto T2035;
3647  T2035:;  T2035:;
3648          if((V526!= VV[142]))goto T2036;          {object V526= car((V523));
3649            if((V526!= VV[90]))goto T2042;
3650          V525= VV[194];          V525= VV[194];
3651          goto T2034;          goto T2041;
3652          goto T2036;          goto T2042;
3653  T2036:;  T2042:;
3654          if((V526!= VV[143]))goto T2037;          if((V526!= VV[143]))goto T2043;
3655          V525= VV[195];          V525= VV[195];
3656          goto T2034;          goto T2041;
3657          goto T2037;          goto T2043;
3658  T2037:;  T2043:;
3659          if((V526!= VV[144]))goto T2038;          if((V526!= VV[144]))goto T2044;
3660          V525= VV[196];          V525= VV[196];
3661          goto T2034;          goto T2041;
3662          goto T2038;          goto T2044;
3663  T2038:;  T2044:;
3664          V525= VV[197];}          if((V526!= VV[145]))goto T2045;
3665          goto T2034;          V525= VV[197];
3666  T2034:;          goto T2041;
3667          (void)((*(LnkLI274))(V525));          goto T2045;
3668          princ_str("(base[",VV[25]);  T2045:;
3669            V525= VV[198];}
3670            goto T2041;
3671    T2041:;
3672            (void)((*(LnkLI275))(V525));
3673            princ_str("(base[",VV[26]);
3674          V527 = make_fixnum(V524);          V527 = make_fixnum(V524);
3675          (void)((*(LnkLI274))(V527));          (void)((*(LnkLI275))(V527));
3676          princ_str("])",VV[25]);          princ_str("])",VV[26]);
3677          if(endp_prop(cdr((V523)))){          if(endp_prop(cdr((V523)))){
3678          goto T2042;}          goto T2049;}
3679          princ_char(44,VV[25]);          princ_char(44,VV[26]);
3680          goto T2042;          goto T2049;
3681  T2042:;  T2049:;
3682          V523= cdr((V523));          V523= cdr((V523));
3683          V524= (long)(V524)+1;          V524= (long)(V524)+1;
3684          goto T2027;}          goto T2034;}
3685          goto T2024;          goto T2031;
3686  T2024:;  T2031:;
3687          princ_str("));",VV[25]);          princ_str("));",VV[26]);
3688          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=base)+1;",VV[26]);
3689          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
3690          {object V528 = Cnil;          {object V528 = Cnil;
3691          VMR32(V528)}          VMR32(V528)}
3692          return Cnil;          return Cnil;
# Line 3701  object V530; Line 3700  object V530;
3700          goto TTL;          goto TTL;
3701  TTL:;  TTL:;
3702          {object V531= (V530);          {object V531= (V530);
3703          if((V531!= VV[89]))goto T2055;          if((V531!= VV[90]))goto T2062;
3704          {object V532 = VV[198];          {object V532 = VV[199];
3705          VMR33(V532)}          VMR33(V532)}
3706          goto T2055;          goto T2062;
3707  T2055:;  T2062:;
3708          if((V531!= VV[261]))goto T2056;          if((V531!= VV[262]))goto T2063;
3709          {object V533 = VV[199];          {object V533 = VV[200];
3710          VMR33(V533)}          VMR33(V533)}
3711          goto T2056;          goto T2063;
3712  T2056:;  T2063:;
3713          if((V531!= VV[142]))goto T2057;          if((V531!= VV[143]))goto T2064;
3714          {object V534 = VV[200];          {object V534 = VV[201];
3715          VMR33(V534)}          VMR33(V534)}
3716          goto T2057;          goto T2064;
3717  T2057:;  T2064:;
3718          if((V531!= VV[144]))goto T2058;          if((V531!= VV[145]))goto T2065;
3719          {object V535 = VV[201];          {object V535 = VV[202];
3720          VMR33(V535)}          VMR33(V535)}
3721          goto T2058;          goto T2065;
3722  T2058:;  T2065:;
3723          if((V531!= VV[143]))goto T2059;          if((V531!= VV[144]))goto T2066;
3724          {object V536 = VV[202];          {object V536 = VV[203];
3725          VMR33(V536)}          VMR33(V536)}
3726          goto T2059;          goto T2066;
3727  T2059:;  T2066:;
3728          {object V537 = VV[203];          {object V537 = VV[204];
3729          VMR33(V537)}}          VMR33(V537)}}
3730          return Cnil;          return Cnil;
3731  }  }
# Line 3740  register object V539; Line 3739  register object V539;
3739          goto TTL;          goto TTL;
3740  TTL:;  TTL:;
3741          if(endp_prop((V539))){          if(endp_prop((V539))){
3742          goto T2061;}          goto T2068;}
3743          if(!(endp_prop(cdr((V539))))){          if(!(endp_prop(cdr((V539))))){
3744          goto T2060;}          goto T2067;}
3745          goto T2061;          goto T2068;
3746  T2061:;  T2068:;
3747          V540 = make_fixnum((long)length((V539)));          V540 = make_fixnum((long)length((V539)));
3748          (void)((*(LnkLI283))(VV[204],small_fixnum(2),V540));          (void)((*(LnkLI284))(VV[205],small_fixnum(2),V540));
3749          goto T2060;          goto T2067;
3750  T2060:;  T2067:;
3751          if(type_of(car((V539)))==t_symbol){          if(type_of(car((V539)))==t_symbol){
3752          goto T2065;}          goto T2072;}
3753          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V539)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[206],car((V539)))));
3754          goto T2065;          goto T2072;
3755  T2065:;  T2072:;
3756          V541= make_cons(VV[204],(V539));          V541= make_cons(VV[205],(V539));
3757          (void)((*(LnkLI268))(Ct,/* INLINE-ARGS */V541));          (void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V541));
3758          setq(VV[6],Ct);          setq(VV[6],Ct);
3759          {register object V542;          {register object V542;
3760          object V543;          object V543;
3761          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1)));
3762          V543= symbol_value(VV[61]);          V543= symbol_value(VV[62]);
         bds_bind(VV[55],Cnil);  
3763          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
3764          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
3765          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
         bds_bind(VV[52],Cnil);  
3766          bds_bind(VV[59],Cnil);          bds_bind(VV[59],Cnil);
3767            bds_bind(VV[53],Cnil);
3768            bds_bind(VV[60],Cnil);
3769          V542= Cnil;          V542= Cnil;
3770          V542= (*(LnkLI337))(car((V539)),cadr((V539)),cddr((V539)));          V542= (*(LnkLI338))(car((V539)),cadr((V539)),cddr((V539)));
3771          (void)((*(LnkLI293))());          (void)((*(LnkLI294))());
3772          {object V544;          {object V544;
3773          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));
3774          setq(VV[24],make_cons((V544),symbol_value(VV[24])));          setq(VV[25],make_cons((V544),symbol_value(VV[25])));
3775          {object V545 = symbol_value(VV[24]);          {object V545 = symbol_value(VV[25]);
3776          bds_unwind1;          bds_unwind1;
3777          bds_unwind1;          bds_unwind1;
3778          bds_unwind1;          bds_unwind1;
# Line 3793  object V552;object V553;object V554;obje Line 3792  object V552;object V553;object V554;obje
3792          goto TTL;          goto TTL;
3793  TTL:;  TTL:;
3794          if(((V555))==Cnil){          if(((V555))==Cnil){
3795          goto T2078;}          goto T2085;}
3796          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]);
3797          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V558)));          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V558)));
3798          goto T2078;          goto T2085;
3799  T2078:;  T2085:;
3800          if(((V556))==Cnil){          if(((V556))==Cnil){
3801          goto T2081;}          goto T2088;}
3802          V559= list(2,VV[91],(V552));          V559= list(2,VV[92],(V552));
3803          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]);
3804          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V560)));          (void)((VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V560)));
3805          goto T2081;          goto T2088;
3806  T2081:;  T2088:;
3807          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[32]);
3808          (void)((*(LnkLI277))((V553)));          (void)((*(LnkLI278))((V553)));
3809          princ_str("();",VV[31]);          princ_str("();",VV[32]);
3810          V561= list(2,VV[91],(V552));          V561= list(2,VV[92],(V552));
3811          V562= list(3,VV[208],/* INLINE-ARGS */V561,(*(LnkLI301))(VV[209],(V553)));          V562= list(3,VV[209],/* INLINE-ARGS */V561,(*(LnkLI302))(VV[210],(V553)));
3812          {object V563 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V562));          {object V563 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V562));
3813          VMR35(V563)}          VMR35(V563)}
3814          return Cnil;          return Cnil;
3815  }  }
# Line 3823  object V570;object V571;register object Line 3822  object V570;object V571;register object
3822          bds_check;          bds_check;
3823          goto TTL;          goto TTL;
3824  TTL:;  TTL:;
3825          if((get((V570),VV[210],Cnil))==Cnil){          if((get((V570),VV[211],Cnil))==Cnil){
3826          goto T2090;}          goto T2097;}
3827          bds_bind(VV[20],VV[211]);          bds_bind(VV[21],VV[212]);
3828          goto T2088;          goto T2095;
3829          goto T2090;          goto T2097;
3830  T2090:;  T2097:;
3831          bds_bind(VV[20],VV[212]);          bds_bind(VV[21],VV[213]);
3832          goto T2088;          goto T2095;
3833  T2088:;  T2095:;
3834          bds_bind(VV[128],VV[127]);          bds_bind(VV[129],VV[128]);
3835          bds_bind(VV[18],Cnil);          bds_bind(VV[19],Cnil);
         bds_bind(VV[129],small_fixnum(0));  
3836          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
3837          bds_bind(VV[131],small_fixnum(0));          bds_bind(VV[131],small_fixnum(0));
3838          bds_bind(VV[132],small_fixnum(0));          bds_bind(VV[132],small_fixnum(0));
3839          bds_bind(VV[133],Cnil);          bds_bind(VV[133],small_fixnum(0));
3840          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],Cnil);
3841          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
3842          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          bds_bind(VV[136],(VV[129]->s.s_dbind));
3843          bds_bind(VV[136],symbol_value(VV[137]));          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));
3844          bds_bind(VV[138],Cnil);          bds_bind(VV[137],symbol_value(VV[138]));
3845          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
3846          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
3847          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],Cnil);
3848          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[213],(V570))));          bds_bind(VV[142],small_fixnum(0));
3849          princ_str("\nstatic void L",VV[25]);          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[214],(V570))));
3850          (void)((*(LnkLI274))((V571)));          princ_str("\nstatic void L",VV[26]);
3851          princ_str("()",VV[25]);          (void)((*(LnkLI275))((V571)));
3852          princ_str("\n{register object *",VV[25]);          princ_str("()",VV[26]);
3853          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          princ_str("\n{register object *",VV[26]);
3854          princ_str("base=vs_base;",VV[25]);          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
3855          V576= structure_ref(car(cddddr((V572))),VV[62],1);          princ_str("base=vs_base;",VV[26]);
3856          (void)((*(LnkLI314))(/* INLINE-ARGS */V576,(V571),VV[148]));          V576= structure_ref(car(cddddr((V572))),VV[63],1);
3857          princ_str("\n   register object *",VV[25]);          (void)((*(LnkLI315))(/* INLINE-ARGS */V576,(V571),VV[149]));
3858          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          princ_str("\n   register object *",VV[26]);
3859          princ_str("sup=base+VM",VV[25]);          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
3860          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str("sup=base+VM",VV[26]);
3861          princ_char(59,VV[25]);          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
3862          princ_str(" VC",VV[25]);          princ_char(59,VV[26]);
3863          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str(" VC",VV[26]);
3864          if((symbol_value(VV[163]))==Cnil){          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
3865          goto T2116;}          if((symbol_value(VV[164]))==Cnil){
3866          princ_str("\n   vs_reserve(VM",VV[25]);          goto T2123;}
3867          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str("\n   vs_reserve(VM",VV[26]);
3868          princ_str(");",VV[25]);          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
3869          goto T2114;          princ_str(");",VV[26]);
3870          goto T2116;          goto T2121;
3871  T2116:;          goto T2123;
3872          princ_str("\n   vs_check;",VV[25]);  T2123:;
3873          goto T2114;          princ_str("\n   vs_check;",VV[26]);
3874  T2114:;          goto T2121;
3875    T2121:;
3876          if(((V575))==Cnil){          if(((V575))==Cnil){
3877          goto T2122;}          goto T2129;}
3878          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[26]);
3879          goto T2122;          goto T2129;
3880  T2122:;  T2129:;
3881          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
3882          goto T2126;}          goto T2133;}
3883          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[26]);
3884          goto T2126;          goto T2133;
3885  T2126:;  T2133:;
3886          base[15]= car((V572));          base[15]= car((V572));
3887          base[16]= cadr((V572));          base[16]= cadr((V572));
3888          base[17]= caddr((V572));          base[17]= caddr((V572));
3889          base[18]= cadddr((V572));          base[18]= cadddr((V572));
3890          vs_top=(vs_base=base+15)+4;          vs_top=(vs_base=base+15)+4;
3891          (void) (*Lnk338)();          (void) (*Lnk339)();
3892          vs_top=sup;          vs_top=sup;
3893          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
3894          {object V577;          {object V577;
3895          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));
3896          setq(VV[33],make_cons((V577),symbol_value(VV[33])));}          setq(VV[34],make_cons((V577),symbol_value(VV[34])));}
3897          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[32]);
3898          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));          (void)((*(LnkLI278))((VV[137]->s.s_dbind)));
3899          {object V578 = (*(LnkLI332))();          {object V578 = (*(LnkLI333))();
3900          bds_unwind1;          bds_unwind1;
3901          bds_unwind1;          bds_unwind1;
3902          bds_unwind1;          bds_unwind1;
# Line 3929  TTL:; Line 3928  TTL:;
3928          {register object V581;          {register object V581;
3929          V581= Cnil;          V581= Cnil;
3930          setq(VV[6],Ct);          setq(VV[6],Ct);
3931          if((symbol_value(VV[48]))==Cnil){          if((symbol_value(VV[49]))==Cnil){
3932          goto T2147;}          goto T2154;}
3933          (void)((*(LnkLI268))(Cnil,(V580)));          (void)((*(LnkLI269))(Cnil,(V580)));
3934          {object V582;          {object V582;
3935          base[0]= VV[214];          base[0]= VV[215];
3936          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3937          Lgensym();          Lgensym();
3938          vs_top=sup;          vs_top=sup;
3939          V582= vs_base[0];          V582= vs_base[0];
3940          V583= listA(3,VV[64],(V582),VV[215]);          V583= listA(3,VV[65],(V582),VV[216]);
3941          (void)((*(LnkLI289))(/* INLINE-ARGS */V583));          (void)((*(LnkLI290))(/* INLINE-ARGS */V583));
3942          base[0]= list(5,VV[51],(V582),Cnil,(V580),Cnil);          base[0]= list(5,VV[52],(V582),Cnil,(V580),Cnil);
3943          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3944          (void) (*Lnk272)();          (void) (*Lnk273)();
3945          vs_top=sup;          vs_top=sup;
3946          {object V584;          {object V584;
3947          V584= list(2,VV[216],make_cons((V582),Cnil));          V584= list(2,VV[217],make_cons((V582),Cnil));
3948          setq(VV[24],make_cons((V584),symbol_value(VV[24])));          setq(VV[25],make_cons((V584),symbol_value(VV[25])));
3949          {object V585 = symbol_value(VV[24]);          {object V585 = symbol_value(VV[25]);
3950          VMR37(V585)}}}          VMR37(V585)}}}
3951          goto T2147;          goto T2154;
3952  T2147:;  T2154:;
3953          {object V586;          {object V586;
3954          if(type_of((V580))==t_cons){          if(type_of((V580))==t_cons){
3955          goto T2158;}          goto T2165;}
3956          V586= Cnil;          V586= Cnil;
3957          goto T2157;          goto T2164;
3958          goto T2158;          goto T2165;
3959  T2158:;  T2165:;
3960          if(type_of(car((V580)))==t_symbol){          if(type_of(car((V580)))==t_symbol){
3961          goto T2160;}          goto T2167;}
3962          V586= Cnil;          V586= Cnil;
         goto T2157;  
         goto T2160;  
 T2160:;  
         if(!((car((V580)))==(VV[217]))){  
         goto T2164;}  
         goto T2162;  
3963          goto T2164;          goto T2164;
3964  T2164:;          goto T2167;
3965    T2167:;
3966            if(!((car((V580)))==(VV[218]))){
3967            goto T2171;}
3968            goto T2169;
3969            goto T2171;
3970    T2171:;
3971          base[0]= car((V580));          base[0]= car((V580));
3972          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3973          Lspecial_form_p();          Lspecial_form_p();
3974          vs_top=sup;          vs_top=sup;
3975          V587= vs_base[0];          V587= vs_base[0];
3976          if((V587)==Cnil){          if((V587)==Cnil){
3977          goto T2162;}          goto T2169;}
3978          V586= Cnil;          V586= Cnil;
3979          goto T2157;          goto T2164;
3980          goto T2162;          goto T2169;
3981  T2162:;  T2169:;
3982          {register object V588;          {register object V588;
3983          register long V589;          register long V589;
3984          V588= cdr((V580));          V588= cdr((V580));
3985          V589= 1;          V589= 1;
3986          goto T2171;          goto T2178;
3987  T2171:;  T2178:;
3988          if((V589)>=(1000)){          if((V589)>=(1000)){
3989          goto T2173;}          goto T2180;}
3990          if(type_of((V588))==t_cons){          if(type_of((V588))==t_cons){
3991          goto T2172;}          goto T2179;}
3992          goto T2173;          goto T2180;
3993  T2173:;  T2180:;
3994          V586= Cnil;          V586= Cnil;
3995          goto T2157;          goto T2164;
3996          goto T2172;          goto T2179;
3997  T2172:;  T2179:;
3998          if(!(type_of(car((V588)))==t_cons)){          if(!(type_of(car((V588)))==t_cons)){
3999          goto T2178;}          goto T2185;}
4000          if(!((caar((V588)))==(VV[64]))){          if(!((caar((V588)))==(VV[65]))){
4001          goto T2178;}          goto T2185;}
4002          V581= cadr(car((V588)));          V581= cadr(car((V588)));
4003          if(!(type_of((V581))==t_cons)){          if(!(type_of((V581))==t_cons)){
4004          goto T2178;}          goto T2185;}
4005          if(!((car((V581)))==(VV[218]))){          if(!((car((V581)))==(VV[219]))){
4006          goto T2178;}          goto T2185;}
4007          {register object V590;          {register object V590;
4008          vs_base=vs_top;          vs_base=vs_top;
4009          Lgensym();          Lgensym();
4010          vs_top=sup;          vs_top=sup;
4011          V590= vs_base[0];          V590= vs_base[0];
4012          base[0]= listA(3,VV[51],(V590),cdr((V581)));          base[0]= listA(3,VV[52],(V590),cdr((V581)));
4013          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4014          (void) (*Lnk272)();          (void) (*Lnk273)();
4015          vs_top=sup;          vs_top=sup;
4016          base[1]= (V580);          base[1]= (V580);
4017          base[2]= small_fixnum(0);          base[2]= small_fixnum(0);
# Line 4021  T2172:; Line 4020  T2172:;
4020          Lsubseq();          Lsubseq();
4021          vs_top=sup;          vs_top=sup;
4022          base[0]= vs_base[0];          base[0]= vs_base[0];
4023          V591= list(2,VV[219],list(2,VV[91],(V590)));          V591= list(2,VV[220],list(2,VV[92],(V590)));
4024          base[1]= make_cons(/* INLINE-ARGS */V591,Cnil);          base[1]= make_cons(/* INLINE-ARGS */V591,Cnil);
4025          V592 = make_fixnum(V589);          V592 = make_fixnum(V589);
4026          V593= number_plus(small_fixnum(1),V592);          V593= number_plus(small_fixnum(1),V592);
# Line 4031  T2172:; Line 4030  T2172:;
4030          vs_top=sup;          vs_top=sup;
4031          V580= vs_base[0];          V580= vs_base[0];
4032          goto TTL;}          goto TTL;}
4033          goto T2178;          goto T2185;
4034  T2178:;  T2185:;
4035          if(type_of((V588))==t_cons){          if(type_of((V588))==t_cons){
4036          goto T2201;}          goto T2208;}
4037          V588= Cnil;          V588= Cnil;
4038          goto T2200;          goto T2207;
4039          goto T2201;          goto T2208;
4040  T2201:;  T2208:;
4041          V588= cdr((V588));          V588= cdr((V588));
4042          goto T2200;          goto T2207;
4043  T2200:;  T2207:;
4044          V589= (long)(1)+(V589);          V589= (long)(1)+(V589);
4045          goto T2171;}          goto T2178;}
4046          goto T2157;          goto T2164;
4047  T2157:;  T2164:;
4048          if(((V586))==Cnil){          if(((V586))==Cnil){
4049          goto T2206;}          goto T2213;}
4050          {object V594 = (V586);          {object V594 = (V586);
4051          VMR37(V594)}          VMR37(V594)}
4052          goto T2206;          goto T2213;
4053  T2206:;  T2213:;
4054          (void)((*(LnkLI268))(Cnil,(V580)));          (void)((*(LnkLI269))(Cnil,(V580)));
         bds_bind(VV[55],Cnil);  
4055          bds_bind(VV[56],Cnil);          bds_bind(VV[56],Cnil);
4056          bds_bind(VV[57],Cnil);          bds_bind(VV[57],Cnil);
4057          bds_bind(VV[58],Cnil);          bds_bind(VV[58],Cnil);
4058          bds_bind(VV[52],Cnil);          bds_bind(VV[59],Cnil);
4059            bds_bind(VV[53],Cnil);
4060          {object V595;          {object V595;
4061          V595= list(2,VV[216],(V580));          V595= list(2,VV[217],(V580));
4062          setq(VV[24],make_cons((V595),symbol_value(VV[24])));}          setq(VV[25],make_cons((V595),symbol_value(VV[25])));}
4063          {object V596 = Cnil;          {object V596 = Cnil;
4064          bds_unwind1;          bds_unwind1;
4065          bds_unwind1;          bds_unwind1;
# Line 4082  TTL:; Line 4081  TTL:;
4081          {object V599;          {object V599;
4082          V599= (type_of((V598))!=t_cons?Ct:Cnil);          V599= (type_of((V598))!=t_cons?Ct:Cnil);
4083          if(((V599))==Cnil){          if(((V599))==Cnil){
4084          goto T2214;}          goto T2221;}
4085          {object V600 = (V599);          {object V600 = (V599);
4086          VMR38(V600)}          VMR38(V600)}
4087          goto T2214;          goto T2221;
4088  T2214:;  T2221:;
4089          {object V601;          {object V601;
4090          base[0]= (V598);          base[0]= (V598);
4091          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 4094  T2214:; Line 4093  T2214:;
4093          vs_top=sup;          vs_top=sup;
4094          V601= vs_base[0];          V601= vs_base[0];
4095          if(((V601))==Cnil){          if(((V601))==Cnil){
4096          goto T2219;}          goto T2226;}
4097          {object V602 = (V601);          {object V602 = (V601);
4098          VMR38(V602)}          VMR38(V602)}
4099          goto T2219;          goto T2226;
4100  T2219:;  T2226:;
4101          {object V603 = (VFUN_NARGS=1,(*(LnkLI300))((V598)));          {object V603 = (VFUN_NARGS=1,(*(LnkLI301))((V598)));
4102          VMR38(V603)}}}          VMR38(V603)}}}
4103          base[0]=base[0];          base[0]=base[0];
4104          return Cnil;          return Cnil;
# Line 4113  static object LI40() Line 4112  static object LI40()
4112  TTL:;  TTL:;
4113          {register object V604;          {register object V604;
4114          register object V605;          register object V605;
4115          V604= reverse(symbol_value(VV[52]));          V604= reverse(symbol_value(VV[53]));
4116          V605= car((V604));          V605= car((V604));
4117          goto T2224;          goto T2231;
4118  T2224:;  T2231:;
4119          if(!(endp_prop((V604)))){          if(!(endp_prop((V604)))){
4120          goto T2225;}          goto T2232;}
4121          {object V606 = Cnil;          {object V606 = Cnil;
4122          VMR39(V606)}          VMR39(V606)}
4123          goto T2225;          goto T2232;
4124  T2225:;  T2232:;
4125          if(!(type_of((V605))!=t_cons)){          if(!(type_of((V605))!=t_cons)){
4126          goto T2229;}          goto T2236;}
4127          (void)((*(LnkLI339))());          (void)((*(LnkLI340))());
4128          goto T2229;          goto T2236;
4129  T2229:;  T2236:;
4130          {register object V607;          {register object V607;
4131          V607= make_cons(VV[220],(V605));          V607= make_cons(VV[221],(V605));
4132          setq(VV[24],make_cons((V607),symbol_value(VV[24])));}          setq(VV[25],make_cons((V607),symbol_value(VV[25])));}
4133          V604= cdr((V604));          V604= cdr((V604));
4134          V605= car((V604));          V605= car((V604));
4135          goto T2224;}          goto T2231;}
4136          base[0]=base[0];          base[0]=base[0];
4137          return Cnil;          return Cnil;
4138  }  }
# Line 4145  object V610;object V611; Line 4144  object V610;object V611;
4144  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
4145          goto TTL;          goto TTL;
4146  TTL:;  TTL:;
4147          V612= list(3,VV[221],(V610),(V611));          V612= list(3,VV[222],(V610),(V611));
4148          {object V613 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V612));          {object V613 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V612));
4149          VMR40(V613)}          VMR40(V613)}
4150          return Cnil;          return Cnil;
4151  }  }
# Line 4158  object V615; Line 4157  object V615;
4157  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
4158          goto TTL;          goto TTL;
4159  TTL:;  TTL:;
4160          {object V616 = (*(LnkLI339))();          {object V616 = (*(LnkLI340))();
4161          VMR41(V616)}          VMR41(V616)}
4162          return Cnil;          return Cnil;
4163  }  }
# Line 4170  object V618; Line 4169  object V618;
4169  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
4170          goto TTL;          goto TTL;
4171  TTL:;  TTL:;
4172          V619= (*(LnkLI268))(Cnil,Cnil);          V619= (*(LnkLI269))(Cnil,Cnil);
4173          V620= make_cons(((/* INLINE-ARGS */V619)==Cnil?Ct:Cnil),Cnil);          V620= make_cons(((/* INLINE-ARGS */V619)==Cnil?Ct:Cnil),Cnil);
4174          V621= append((V618),/* INLINE-ARGS */V620);          V621= append((V618),/* INLINE-ARGS */V620);
4175          V622= make_cons(VV[222],/* INLINE-ARGS */V621);          V622= make_cons(VV[223],/* INLINE-ARGS */V621);
4176          (void)((*(LnkLI268))(Ct,/* INLINE-ARGS */V622));          (void)((*(LnkLI269))(Ct,/* INLINE-ARGS */V622));
4177          V623= make_cons(VV[222],(V618));          V623= make_cons(VV[223],(V618));
4178          {object V624 = (*(LnkLI273))(/* INLINE-ARGS */V623);          {object V624 = (*(LnkLI274))(/* INLINE-ARGS */V623);
4179          VMR42(V624)}          VMR42(V624)}
4180          return Cnil;          return Cnil;
4181  }  }
# Line 4188  object V627;object V628; Line 4187  object V627;object V628;
4187  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
4188          goto TTL;          goto TTL;
4189  TTL:;  TTL:;
4190          princ_str("\n   VV[",VV[25]);          princ_str("\n   VV[",VV[26]);
4191          (void)((*(LnkLI274))((V628)));          (void)((*(LnkLI275))((V628)));
4192          princ_str("]->s.s_dbind = ",VV[25]);          princ_str("]->s.s_dbind = ",VV[26]);
4193          (void)((*(LnkLI274))((V627)));          (void)((*(LnkLI275))((V627)));
4194          princ_char(59,VV[25]);          princ_char(59,VV[26]);
4195          {object V629 = Cnil;          {object V629 = Cnil;
4196          VMR43(V629)}          VMR43(V629)}
4197          return Cnil;          return Cnil;
# Line 4209  TTL:; Line 4208  TTL:;
4208          register object V633;          register object V633;
4209          V632= (V631);          V632= (V631);
4210          V633= car((V632));          V633= car((V632));
4211          goto T2251;          goto T2258;
4212  T2251:;  T2258:;
4213          if(!(endp_prop((V632)))){          if(!(endp_prop((V632)))){
4214          goto T2252;}          goto T2259;}
4215          goto T2247;          goto T2254;
4216          goto T2252;          goto T2259;
4217  T2252:;  T2259:;
4218          if(type_of((V633))==t_string){          if(type_of((V633))==t_string){
4219          goto T2256;}          goto T2263;}
4220          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V633))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[224],(V633))));
4221          goto T2256;          goto T2263;
4222  T2256:;  T2263:;
4223          V632= cdr((V632));          V632= cdr((V632));
4224          V633= car((V632));          V633= car((V632));
4225          goto T2251;}          goto T2258;}
4226          goto T2247;          goto T2254;
4227  T2247:;  T2254:;
4228          {object V634;          {object V634;
4229          V634= list(2,VV[224],(V631));          V634= list(2,VV[225],(V631));
4230          setq(VV[24],make_cons((V634),symbol_value(VV[24])));          setq(VV[25],make_cons((V634),symbol_value(VV[25])));
4231          {object V635 = symbol_value(VV[24]);          {object V635 = symbol_value(VV[25]);
4232          VMR44(V635)}}          VMR44(V635)}}
4233          base[0]=base[0];          base[0]=base[0];
4234          return Cnil;          return Cnil;
# Line 4246  TTL:; Line 4245  TTL:;
4245          register object V639;          register object V639;
4246          V638= (V637);          V638= (V637);
4247          V639= car((V638));          V639= car((V638));
4248          goto T2269;          goto T2276;
4249  T2269:;  T2276:;
4250          if(!(endp_prop((V638)))){          if(!(endp_prop((V638)))){
4251          goto T2270;}          goto T2277;}
4252          {object V640 = Cnil;          {object V640 = Cnil;
4253          VMR45(V640)}          VMR45(V640)}
4254          goto T2270;          goto T2277;
4255  T2270:;  T2277:;
4256          princ_char(10,VV[25]);          princ_char(10,VV[26]);
4257          (void)((*(LnkLI274))((V639)));          (void)((*(LnkLI275))((V639)));
4258          V638= cdr((V638));          V638= cdr((V638));
4259          V639= car((V638));          V639= car((V638));
4260          goto T2269;}          goto T2276;}
4261          base[0]=base[0];          base[0]=base[0];
4262          return Cnil;          return Cnil;
4263  }  }
# Line 4273  TTL:; Line 4272  TTL:;
4272          {register object V643;          {register object V643;
4273          V643= Cnil;          V643= Cnil;
4274          if(endp_prop((V642))){          if(endp_prop((V642))){
4275          goto T2284;}          goto T2291;}
4276          if(!(endp_prop(cdr((V642))))){          if(!(endp_prop(cdr((V642))))){
4277          goto T2283;}          goto T2290;}
4278          goto T2284;          goto T2291;
4279  T2284:;  T2291:;
4280          V644 = make_fixnum((long)length((V642)));          V644 = make_fixnum((long)length((V642)));
4281          (void)((*(LnkLI283))(VV[225],small_fixnum(2),V644));          (void)((*(LnkLI284))(VV[226],small_fixnum(2),V644));
4282          goto T2283;          goto T2290;
4283  T2283:;  T2290:;
4284          if(type_of(car((V642)))==t_string){          if(type_of(car((V642)))==t_string){
4285          goto T2288;}          goto T2295;}
4286          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V642)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[227],car((V642)))));
4287          goto T2288;          goto T2295;
4288  T2288:;  T2295:;
4289          {object V645= cadr((V642));          {object V645= cadr((V642));
4290          if(type_of(V645)==t_fixnum||          if(type_of(V645)==t_fixnum||
4291  type_of(V645)==t_bignum||  type_of(V645)==t_bignum||
# Line 4294  type_of(V645)==t_ratio|| Line 4293  type_of(V645)==t_ratio||
4293  type_of(V645)==t_shortfloat||  type_of(V645)==t_shortfloat||
4294  type_of(V645)==t_longfloat||  type_of(V645)==t_longfloat||
4295  type_of(V645)==t_complex){  type_of(V645)==t_complex){
4296          goto T2291;}}          goto T2298;}}
4297          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V642)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[228],cadr((V642)))));
4298          goto T2291;          goto T2298;
4299  T2291:;  T2298:;
4300          {register object V646;          {register object V646;
4301          register object V647;          register object V647;
4302          V646= cddr((V642));          V646= cddr((V642));
4303          V647= car((V646));          V647= car((V646));
4304          goto T2298;          goto T2305;
4305  T2298:;  T2305:;
4306          if(!(endp_prop((V646)))){          if(!(endp_prop((V646)))){
4307          goto T2299;}          goto T2306;}
4308          goto T2294;          goto T2301;
4309          goto T2299;          goto T2306;
4310  T2299:;  T2306:;
4311          if(!(type_of((V647))==t_string)){          if(!(type_of((V647))==t_string)){
4312          goto T2305;}          goto T2312;}
4313          {register object V648;          {register object V648;
4314          V648= (V647);          V648= (V647);
4315          V643= make_cons((V648),(V643));          V643= make_cons((V648),(V643));
         goto T2303;}  
         goto T2305;  
 T2305:;  
         if(!(type_of((V647))==t_cons)){  
4316          goto T2310;}          goto T2310;}
4317            goto T2312;
4318    T2312:;
4319            if(!(type_of((V647))==t_cons)){
4320            goto T2317;}
4321          if(!(type_of(car((V647)))==t_symbol)){          if(!(type_of(car((V647)))==t_symbol)){
4322          goto T2313;}          goto T2320;}
4323          base[2]= car((V647));          base[2]= car((V647));
4324          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4325          Lspecial_form_p();          Lspecial_form_p();
4326          vs_top=sup;          vs_top=sup;
4327          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4328          goto T2315;}          goto T2322;}
4329          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V647)))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[229],car((V647)))));
4330          goto T2315;          goto T2322;
4331  T2315:;  T2322:;
4332          {register object V649;          {register object V649;
4333          V650= car((V647));          V650= car((V647));
4334          V651= (*(LnkLI340))(cdr((V647)));          V651= (*(LnkLI341))(cdr((V647)));
4335          V652= make_cons(/* INLINE-ARGS */V650,/* INLINE-ARGS */V651);          V652= make_cons(/* INLINE-ARGS */V650,/* INLINE-ARGS */V651);
4336          V649= make_cons(/* INLINE-ARGS */V652,Cnil);          V649= make_cons(/* INLINE-ARGS */V652,Cnil);
4337          V643= make_cons((V649),(V643));          V643= make_cons((V649),(V643));
4338          goto T2303;}          goto T2310;}
4339          goto T2313;          goto T2320;
4340  T2313:;  T2320:;
4341          if(!(type_of(car((V647)))==t_cons)){          if(!(type_of(car((V647)))==t_cons)){
4342          goto T2322;}          goto T2329;}
4343          if(!(type_of(caar((V647)))==t_symbol)){          if(!(type_of(caar((V647)))==t_symbol)){
         goto T2322;}  
         if(!((caar((V647)))==(VV[91]))){  
4344          goto T2329;}          goto T2329;}
4345            if(!((caar((V647)))==(VV[92]))){
4346            goto T2336;}
4347          if(!(endp_prop(cdar((V647))))){          if(!(endp_prop(cdar((V647))))){
4348          goto T2331;}          goto T2338;}
4349          goto T2322;          goto T2329;
4350          goto T2331;          goto T2338;
4351  T2331:;  T2338:;
4352          if(!(((endp_prop(cddar((V647)))?Ct:Cnil))==Cnil)){          if(!(((endp_prop(cddar((V647)))?Ct:Cnil))==Cnil)){
4353          goto T2333;}          goto T2340;}
4354          goto T2322;          goto T2329;
4355          goto T2333;          goto T2340;
4356  T2333:;  T2340:;
4357          if(!(endp_prop(cdr((V647))))){          if(!(endp_prop(cdr((V647))))){
4358          goto T2335;}          goto T2342;}
         goto T2322;  
         goto T2335;  
 T2335:;  
         if(((endp_prop(cddr((V647)))?Ct:Cnil))==Cnil){  
         goto T2322;}  
         goto T2327;  
4359          goto T2329;          goto T2329;
4360  T2329:;          goto T2342;
4361    T2342:;
4362            if(((endp_prop(cddr((V647)))?Ct:Cnil))==Cnil){
4363            goto T2329;}
4364            goto T2334;
4365            goto T2336;
4366    T2336:;
4367          base[2]= caar((V647));          base[2]= caar((V647));
4368          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4369          Lspecial_form_p();          Lspecial_form_p();
4370          vs_top=sup;          vs_top=sup;
4371          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4372          goto T2322;}          goto T2329;}
4373          goto T2327;          goto T2334;
4374  T2327:;  T2334:;
4375          {register object V653;          {register object V653;
4376          V654= caar((V647));          V654= caar((V647));
4377          if(!((caar((V647)))==(VV[91]))){          if(!((caar((V647)))==(VV[92]))){
4378          goto T2341;}          goto T2348;}
4379          V656= (*(LnkLI325))(cadar((V647)));          V656= (*(LnkLI326))(cadar((V647)));
4380          V655= make_cons(/* INLINE-ARGS */V656,Cnil);          V655= make_cons(/* INLINE-ARGS */V656,Cnil);
4381          goto T2339;          goto T2346;
4382          goto T2341;          goto T2348;
4383  T2341:;  T2348:;
4384          V655= (*(LnkLI340))(cdar((V647)));          V655= (*(LnkLI341))(cdar((V647)));
4385          goto T2339;          goto T2346;
4386  T2339:;  T2346:;
4387          V657= make_cons(/* INLINE-ARGS */V654,V655);          V657= make_cons(/* INLINE-ARGS */V654,V655);
4388          V658= (*(LnkLI340))(cdr((V647)));          V658= (*(LnkLI341))(cdr((V647)));
4389          V653= make_cons(/* INLINE-ARGS */V657,/* INLINE-ARGS */V658);          V653= make_cons(/* INLINE-ARGS */V657,/* INLINE-ARGS */V658);
4390          V643= make_cons((V653),(V643));          V643= make_cons((V653),(V643));
4391          goto T2303;}          goto T2310;}
4392          goto T2322;          goto T2329;
4393  T2322:;  T2329:;
4394          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V647))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[230],(V647))));
4395          goto T2303;          goto T2310;
4396            goto T2317;
4397    T2317:;
4398            (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[231],(V647))));
4399          goto T2310;          goto T2310;
4400  T2310:;  T2310:;
         (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V647))));  
         goto T2303;  
 T2303:;  
4401          V646= cdr((V646));          V646= cdr((V646));
4402          V647= car((V646));          V647= car((V646));
4403          goto T2298;}          goto T2305;}
4404          goto T2294;          goto T2301;
4405  T2294:;  T2301:;
4406          {object V659;          {object V659;
4407          V660= car((V642));          V660= car((V642));
4408          V661= cadr((V642));          V661= cadr((V642));
4409          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)));
4410          setq(VV[24],make_cons((V659),symbol_value(VV[24])));          setq(VV[25],make_cons((V659),symbol_value(VV[25])));
4411          {object V662 = symbol_value(VV[24]);          {object V662 = symbol_value(VV[25]);
4412          VMR46(V662)}}}          VMR46(V662)}}}
4413          base[0]=base[0];          base[0]=base[0];
4414          return Cnil;          return Cnil;
# Line 4424  object V666;object V667;object V668; Line 4423  object V666;object V667;object V668;
4423  TTL:;  TTL:;
4424          {object V669;          {object V669;
4425          V669= Cnil;          V669= Cnil;
4426          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[231],VV[225])));          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[232],VV[226])));
4427          princ_char(10,VV[25]);          princ_char(10,VV[26]);
4428          (void)((*(LnkLI274))((V666)));          (void)((*(LnkLI275))((V666)));
4429          princ_str("\n{",VV[25]);          princ_str("\n{",VV[26]);
4430          princ_str("\nobject *vs=vs_top;",VV[25]);          princ_str("\nobject *vs=vs_top;",VV[26]);
4431          princ_str("\nobject *old_top=vs_top+",VV[25]);          princ_str("\nobject *old_top=vs_top+",VV[26]);
4432          (void)((*(LnkLI274))((V667)));          (void)((*(LnkLI275))((V667)));
4433          princ_char(59,VV[25]);          princ_char(59,VV[26]);
4434          if(!(number_compare((V667),small_fixnum(0))>0)){          if(!(number_compare((V667),small_fixnum(0))>0)){
4435          goto T2364;}          goto T2371;}
4436          princ_str("\n   vs_top=old_top;",VV[25]);          princ_str("\n   vs_top=old_top;",VV[26]);
4437          goto T2364;          goto T2371;
4438  T2364:;  T2371:;
4439          princ_str("\n{",VV[25]);          princ_str("\n{",VV[26]);
4440          {object V670;          {object V670;
4441          register object V671;          register object V671;
4442          V670= (V668);          V670= (V668);
4443          V671= car((V670));          V671= car((V670));
         goto T2374;  
 T2374:;  
         if(!(endp_prop((V670)))){  
         goto T2375;}  
         goto T2370;  
         goto T2375;  
 T2375:;  
         if(!(type_of((V671))==t_string)){  
         goto T2381;}  
         princ_char(10,VV[25]);  
         (void)((*(LnkLI274))((V671)));  
         goto T2379;  
4444          goto T2381;          goto T2381;
4445  T2381:;  T2381:;
4446          if(!((caar((V671)))==(VV[91]))){          if(!(endp_prop((V670)))){
4447          goto T2386;}          goto T2382;}
4448          princ_char(10,VV[25]);          goto T2377;
4449          (void)((*(LnkLI274))(cadadr((V671))));          goto T2382;
4450    T2382:;
4451            if(!(type_of((V671))==t_string)){
4452            goto T2388;}
4453            princ_char(10,VV[26]);
4454            (void)((*(LnkLI275))((V671)));
4455            goto T2386;
4456            goto T2388;
4457    T2388:;
4458            if(!((caar((V671)))==(VV[92]))){
4459            goto T2393;}
4460            princ_char(10,VV[26]);
4461            (void)((*(LnkLI275))(cadadr((V671))));
4462          {object V672= caadr((V671));          {object V672= caadr((V671));
4463          if((V672!= VV[74]))goto T2391;          if((V672!= VV[75]))goto T2398;
4464          princ_str("=VV[",VV[25]);          princ_str("=VV[",VV[26]);
4465          (void)((*(LnkLI274))(cadar((V671))));          (void)((*(LnkLI275))(cadar((V671))));
4466          princ_str("];",VV[25]);          princ_str("];",VV[26]);
4467          goto T2379;          goto T2386;
4468          goto T2391;          goto T2398;
4469  T2391:;  T2398:;
4470          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[26]);
4471          base[1]= symbol_name(caadr((V671)));          base[1]= symbol_name(caadr((V671)));
4472          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4473          Lstring_downcase();          Lstring_downcase();
4474          vs_top=sup;          vs_top=sup;
4475          V673= vs_base[0];          V673= vs_base[0];
4476          (void)((*(LnkLI274))(V673));          (void)((*(LnkLI275))(V673));
4477          princ_str("(VV[",VV[25]);          princ_str("(VV[",VV[26]);
4478          (void)((*(LnkLI274))(cadar((V671))));          (void)((*(LnkLI275))(cadar((V671))));
4479          princ_str("]);",VV[25]);          princ_str("]);",VV[26]);
4480          goto T2379;}          goto T2386;}
4481          goto T2386;          goto T2393;
4482  T2386:;  T2393:;
4483          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);          princ_str("\n{vs_base=vs_top=old_top;",VV[26]);
4484          {register object V674;          {register object V674;
4485          register object V675;          register object V675;
4486          V674= cdar((V671));          V674= cdar((V671));
4487          V675= car((V674));          V675= car((V674));
         goto T2408;  
 T2408:;  
         if(!(endp_prop((V674)))){  
         goto T2409;}  
         goto T2404;  
         goto T2409;  
 T2409:;  
         princ_str("\nvs_push(",VV[25]);  
         {object V676= car((V675));  
         if((V676!= VV[74]))goto T2416;  
         (void)((*(LnkLI274))(cadr((V675))));  
4488          goto T2415;          goto T2415;
4489    T2415:;
4490            if(!(endp_prop((V674)))){
4491            goto T2416;}
4492            goto T2411;
4493          goto T2416;          goto T2416;
4494  T2416:;  T2416:;
4495          if((V676!= VV[341]))goto T2418;          princ_str("\nvs_push(",VV[26]);
4496          princ_str("code_char((long)",VV[25]);          {object V676= car((V675));
4497          (void)((*(LnkLI274))(cadr((V675))));          if((V676!= VV[75]))goto T2423;
4498          princ_char(41,VV[25]);          (void)((*(LnkLI275))(cadr((V675))));
4499          goto T2415;          goto T2422;
         goto T2418;  
 T2418:;  
         if((V676!= VV[342]))goto T2422;  
         if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){  
         goto T2423;}  
         princ_str("CMP",VV[25]);  
4500          goto T2423;          goto T2423;
4501  T2423:;  T2423:;
4502          princ_str("make_fixnum((long)",VV[25]);          if((V676!= VV[342]))goto T2425;
4503          (void)((*(LnkLI274))(cadr((V675))));          princ_str("code_char((long)",VV[26]);
4504          princ_char(41,VV[25]);          (void)((*(LnkLI275))(cadr((V675))));
4505          goto T2415;          princ_char(41,VV[26]);
4506          goto T2422;          goto T2422;
4507  T2422:;          goto T2425;
4508          if((V676!= VV[343]))goto T2430;  T2425:;
4509          princ_str("make_shortfloat((double)",VV[25]);          if((V676!= VV[343]))goto T2429;
4510          (void)((*(LnkLI274))(cadr((V675))));          if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){
4511          princ_char(41,VV[25]);          goto T2430;}
4512          goto T2415;          princ_str("CMP",VV[26]);
4513          goto T2430;          goto T2430;
4514  T2430:;  T2430:;
4515          if((V676!= VV[344]))goto T2434;          princ_str("make_fixnum((long)",VV[26]);
4516          princ_str("make_longfloat((double)",VV[25]);          (void)((*(LnkLI275))(cadr((V675))));
4517          (void)((*(LnkLI274))(cadr((V675))));          princ_char(41,VV[26]);
4518          princ_char(41,VV[25]);          goto T2422;
4519          goto T2415;          goto T2429;
4520          goto T2434;  T2429:;
4521  T2434:;}          if((V676!= VV[344]))goto T2437;
4522          goto T2415;          princ_str("make_shortfloat((double)",VV[26]);
4523  T2415:;          (void)((*(LnkLI275))(cadr((V675))));
4524          princ_str(");",VV[25]);          princ_char(41,VV[26]);
4525            goto T2422;
4526            goto T2437;
4527    T2437:;
4528            if((V676!= VV[345]))goto T2441;
4529            princ_str("make_longfloat((double)",VV[26]);
4530            (void)((*(LnkLI275))(cadr((V675))));
4531            princ_char(41,VV[26]);
4532            goto T2422;
4533            goto T2441;
4534    T2441:;}
4535            goto T2422;
4536    T2422:;
4537            princ_str(");",VV[26]);
4538          V674= cdr((V674));          V674= cdr((V674));
4539          V675= car((V674));          V675= car((V674));
4540          goto T2408;}          goto T2415;}
4541          goto T2404;          goto T2411;
4542  T2404:;  T2411:;
4543          {register object x= caar((V671)),V677= symbol_value(VV[79]);          {register object x= caar((V671)),V677= symbol_value(VV[80]);
4544          while(!endp(V677))          while(!endp(V677))
4545          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)){
4546          V669= (V677->c.c_car);          V669= (V677->c.c_car);
4547          goto T2449;          goto T2456;
4548          }else V677=V677->c.c_cdr;          }else V677=V677->c.c_cdr;
4549          V669= Cnil;}          V669= Cnil;}
4550          goto T2449;          goto T2456;
4551  T2449:;  T2456:;
4552          if(((V669))==Cnil){          if(((V669))==Cnil){
4553          goto T2447;}          goto T2454;}
4554          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
4555          goto T2451;}          goto T2458;}
4556          princ_str("\nihs_push(VV[",VV[25]);          princ_str("\nihs_push(VV[",VV[26]);
4557          V678= (*(LnkLI327))(caar((V671)));          V678= (*(LnkLI328))(caar((V671)));
4558          (void)((*(LnkLI274))(/* INLINE-ARGS */V678));          (void)((*(LnkLI275))(/* INLINE-ARGS */V678));
4559          princ_str("]);",VV[25]);          princ_str("]);",VV[26]);
4560          princ_str("\nL",VV[25]);          princ_str("\nL",VV[26]);
4561          (void)((*(LnkLI274))(cdr((V669))));          (void)((*(LnkLI275))(cdr((V669))));
4562          princ_str("();",VV[25]);          princ_str("();",VV[26]);
4563          princ_str("\nihs_pop();",VV[25]);          princ_str("\nihs_pop();",VV[26]);
4564          goto T2445;          goto T2452;
4565          goto T2451;          goto T2458;
4566  T2451:;  T2458:;
4567          princ_str("\nL",VV[25]);          princ_str("\nL",VV[26]);
4568          (void)((*(LnkLI274))(cdr((V669))));          (void)((*(LnkLI275))(cdr((V669))));
4569          princ_str("();",VV[25]);          princ_str("();",VV[26]);
4570          goto T2445;          goto T2452;
4571          goto T2447;          goto T2454;
4572  T2447:;  T2454:;
4573          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[150]))==Cnil){
4574          goto T2466;}          goto T2473;}
4575          princ_str("\nsuper_funcall(VV[",VV[25]);          princ_str("\nsuper_funcall(VV[",VV[26]);
4576          V679= (*(LnkLI327))(caar((V671)));          V679= (*(LnkLI328))(caar((V671)));
4577          (void)((*(LnkLI274))(/* INLINE-ARGS */V679));          (void)((*(LnkLI275))(/* INLINE-ARGS */V679));
4578          princ_str("]);",VV[25]);          princ_str("]);",VV[26]);
4579          goto T2445;          goto T2452;
4580          goto T2466;          goto T2473;
4581  T2466:;  T2473:;
4582          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
4583          goto T2472;}          goto T2479;}
4584          princ_str("\nsuper_funcall_no_event(VV[",VV[25]);          princ_str("\nsuper_funcall_no_event(VV[",VV[26]);
4585          V680= (*(LnkLI327))(caar((V671)));          V680= (*(LnkLI328))(caar((V671)));
4586          (void)((*(LnkLI274))(/* INLINE-ARGS */V680));          (void)((*(LnkLI275))(/* INLINE-ARGS */V680));
4587          princ_str("]);",VV[25]);          princ_str("]);",VV[26]);
4588          goto T2445;          goto T2452;
4589          goto T2472;          goto T2479;
4590  T2472:;  T2479:;
4591          princ_str("\nCMPfuncall(VV[",VV[25]);          princ_str("\nCMPfuncall(VV[",VV[26]);
4592          V681= (*(LnkLI327))(caar((V671)));          V681= (*(LnkLI328))(caar((V671)));
4593          (void)((*(LnkLI274))(/* INLINE-ARGS */V681));          (void)((*(LnkLI275))(/* INLINE-ARGS */V681));
4594          princ_str("]->s.s_gfdef);",VV[25]);          princ_str("]->s.s_gfdef);",VV[26]);
4595          goto T2445;          goto T2452;
4596  T2445:;  T2452:;
4597          if(endp_prop(cdr((V671)))){          if(endp_prop(cdr((V671)))){
4598          goto T2480;}          goto T2487;}
4599          princ_char(10,VV[25]);          princ_char(10,VV[26]);
4600          (void)((*(LnkLI274))(cadadr((V671))));          (void)((*(LnkLI275))(cadadr((V671))));
4601          {object V682= caadr((V671));          {object V682= caadr((V671));
4602          if((V682!= VV[74]))goto T2487;          if((V682!= VV[75]))goto T2494;
4603          princ_str("=vs_base[0];",VV[25]);          princ_str("=vs_base[0];",VV[26]);
4604          goto T2486;          goto T2493;
4605          goto T2487;          goto T2494;
4606  T2487:;  T2494:;
4607          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[26]);
4608          base[1]= symbol_name(caadr((V671)));          base[1]= symbol_name(caadr((V671)));
4609          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4610          Lstring_downcase();          Lstring_downcase();
4611          vs_top=sup;          vs_top=sup;
4612          V683= vs_base[0];          V683= vs_base[0];
4613          (void)((*(LnkLI274))(V683));          (void)((*(LnkLI275))(V683));
4614          princ_str("(vs_base[0]);",VV[25]);}          princ_str("(vs_base[0]);",VV[26]);}
4615          goto T2486;          goto T2493;
4616  T2486:;  T2493:;
4617          {register object V684;          {register object V684;
4618          register object V685;          register object V685;
4619          V684= cddr((V671));          V684= cddr((V671));
4620          V685= car((V684));          V685= car((V684));
4621          goto T2497;          goto T2504;
4622  T2497:;  T2504:;
4623          if(!(endp_prop((V684)))){          if(!(endp_prop((V684)))){
4624          goto T2498;}          goto T2505;}
4625          goto T2480;          goto T2487;
4626          goto T2498;          goto T2505;
4627  T2498:;  T2505:;
4628          princ_str("\nvs_base++;",VV[25]);          princ_str("\nvs_base++;",VV[26]);
4629          princ_char(10,VV[25]);          princ_char(10,VV[26]);
4630          (void)((*(LnkLI274))(cadr((V685))));          (void)((*(LnkLI275))(cadr((V685))));
4631          {object V686= car((V685));          {object V686= car((V685));
4632          if((V686!= VV[74]))goto T2508;          if((V686!= VV[75]))goto T2515;
4633          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[26]);
4634          goto T2507;          goto T2514;
4635          goto T2508;          goto T2515;
4636  T2508:;  T2515:;
4637          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[26]);
4638          base[3]= symbol_name(car((V685)));          base[3]= symbol_name(car((V685)));
4639          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4640          Lstring_downcase();          Lstring_downcase();
4641          vs_top=sup;          vs_top=sup;
4642          V687= vs_base[0];          V687= vs_base[0];
4643          (void)((*(LnkLI274))(V687));          (void)((*(LnkLI275))(V687));
4644          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[26]);}
4645          goto T2507;          goto T2514;
4646  T2507:;  T2514:;
4647          V684= cdr((V684));          V684= cdr((V684));
4648          V685= car((V684));          V685= car((V684));
4649          goto T2497;}          goto T2504;}
4650          goto T2480;          goto T2487;
4651  T2480:;  T2487:;
4652          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
4653          goto T2379;          goto T2386;
4654  T2379:;  T2386:;
4655          V670= cdr((V670));          V670= cdr((V670));
4656          V671= car((V670));          V671= car((V670));
4657          goto T2374;}          goto T2381;}
4658          goto T2370;          goto T2377;
4659  T2370:;  T2377:;
4660          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
4661          princ_str("\nvs_top=vs;",VV[25]);          princ_str("\nvs_top=vs;",VV[26]);
4662          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
4663          {object V688 = Cnil;          {object V688 = Cnil;
4664          VMR47(V688)}}          VMR47(V688)}}
4665          base[0]=base[0];          base[0]=base[0];
# Line 4680  TTL:; Line 4679  TTL:;
4679          register object V694;          register object V694;
4680          V691= Cnil;          V691= Cnil;
4681          V692= Cnil;          V692= Cnil;
4682          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[62],number_plus(symbol_value(VV[62]),small_fixnum(1)));
4683          V693= symbol_value(VV[61]);          V693= symbol_value(VV[62]);
4684          V694= Cnil;          V694= Cnil;
4685          if(endp_prop((V690))){          if(endp_prop((V690))){
4686          goto T2537;}          goto T2544;}
4687          if(endp_prop(cdr((V690)))){          if(endp_prop(cdr((V690)))){
4688          goto T2537;}          goto T2544;}
4689          if(!(endp_prop(cddr((V690))))){          if(!(endp_prop(cddr((V690))))){
         goto T2536;}  
         goto T2537;  
 T2537:;  
         V695 = make_fixnum((long)length((V690)));  
         (void)((*(LnkLI283))(VV[232],small_fixnum(3),V695));  
         goto T2536;  
 T2536:;  
         if(type_of(car((V690)))==t_symbol){  
4690          goto T2543;}          goto T2543;}
4691          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V690)))));          goto T2544;
4692    T2544:;
4693            V695 = make_fixnum((long)length((V690)));
4694            (void)((*(LnkLI284))(VV[233],small_fixnum(3),V695));
4695          goto T2543;          goto T2543;
4696  T2543:;  T2543:;
4697            if(type_of(car((V690)))==t_symbol){
4698            goto T2550;}
4699            (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[234],car((V690)))));
4700            goto T2550;
4701    T2550:;
4702          {register object V696;          {register object V696;
4703          register object V697;          register object V697;
4704          V696= cadr((V690));          V696= cadr((V690));
4705          V697= car((V696));          V697= car((V696));
4706          goto T2550;          goto T2557;
4707  T2550:;  T2557:;
4708          if(!(endp_prop((V696)))){          if(!(endp_prop((V696)))){
4709          goto T2551;}          goto T2558;}
4710          goto T2546;          goto T2553;
4711          goto T2551;          goto T2558;
4712  T2551:;  T2558:;
4713          {register object x= (V697),V698= VV[234];          {register object x= (V697),V698= VV[235];
4714          while(!endp(V698))          while(!endp(V698))
4715          if(eql(x,V698->c.c_car)){          if(eql(x,V698->c.c_car)){
4716          goto T2555;          goto T2562;
4717          }else V698=V698->c.c_cdr;}          }else V698=V698->c.c_cdr;}
4718          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V697))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[236],(V697))));
4719          goto T2555;          goto T2562;
4720  T2555:;  T2562:;
4721          V696= cdr((V696));          V696= cdr((V696));
4722          V697= car((V696));          V697= car((V696));
4723          goto T2550;}          goto T2557;}
4724          goto T2546;          goto T2553;
4725  T2546:;  T2553:;
4726          V694= caddr((V690));          V694= caddr((V690));
4727          if(!(type_of((V694))==t_symbol)){          if(!(type_of((V694))==t_symbol)){
4728          goto T2567;}          goto T2574;}
4729          V691= VV[74];          V691= VV[75];
4730          base[1]= symbol_name((V694));          base[1]= symbol_name((V694));
4731          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4732          Lstring_downcase();          Lstring_downcase();
4733          vs_top=sup;          vs_top=sup;
4734          V692= vs_base[0];          V692= vs_base[0];
4735          goto T2565;          goto T2572;
         goto T2567;  
 T2567:;  
         if(!(type_of((V694))==t_string)){  
         goto T2574;}  
         V691= VV[74];  
         V692= (V694);  
         goto T2565;  
4736          goto T2574;          goto T2574;
4737  T2574:;  T2574:;
4738            if(!(type_of((V694))==t_string)){
4739            goto T2581;}
4740            V691= VV[75];
4741            V692= (V694);
4742            goto T2572;
4743            goto T2581;
4744    T2581:;
4745          if(!(type_of((V694))==t_cons)){          if(!(type_of((V694))==t_cons)){
4746          goto T2580;}          goto T2587;}
4747          {register object x= car((V694)),V699= VV[236];          {register object x= car((V694)),V699= VV[237];
4748          while(!endp(V699))          while(!endp(V699))
4749          if(eql(x,V699->c.c_car)){          if(eql(x,V699->c.c_car)){
4750          goto T2584;          goto T2591;
4751          }else V699=V699->c.c_cdr;          }else V699=V699->c.c_cdr;
4752          goto T2580;}          goto T2587;}
4753          goto T2584;          goto T2591;
4754  T2584:;  T2591:;
4755          if(!(type_of(cdr((V694)))==t_cons)){          if(!(type_of(cdr((V694)))==t_cons)){
         goto T2580;}  
         if(type_of(cadr((V694)))==t_symbol){  
4756          goto T2587;}          goto T2587;}
4757            if(type_of(cadr((V694)))==t_symbol){
4758            goto T2594;}
4759          if(!(type_of(cadr((V694)))==t_string)){          if(!(type_of(cadr((V694)))==t_string)){
4760          goto T2580;}          goto T2587;}
4761          goto T2587;          goto T2594;
4762  T2587:;  T2594:;
4763          if(!(endp_prop(cddr((V694))))){          if(!(endp_prop(cddr((V694))))){
4764          goto T2580;}          goto T2587;}
4765          if(!(type_of(cadr((V694)))==t_symbol)){          if(!(type_of(cadr((V694)))==t_symbol)){
4766          goto T2595;}          goto T2602;}
4767          base[1]= symbol_name(cadr((V694)));          base[1]= symbol_name(cadr((V694)));
4768          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
4769          Lstring_downcase();          Lstring_downcase();
4770          vs_top=sup;          vs_top=sup;
4771          V692= vs_base[0];          V692= vs_base[0];
4772          goto T2593;          goto T2600;
4773          goto T2595;          goto T2602;
4774  T2595:;  T2602:;
4775          V692= cadr((V694));          V692= cadr((V694));
4776          goto T2593;          goto T2600;
4777  T2593:;  T2600:;
4778          V691= car((V694));          V691= car((V694));
4779          goto T2565;          goto T2572;
4780          goto T2580;          goto T2587;
4781  T2580:;  T2587:;
4782          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V694))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[238],(V694))));
4783          goto T2565;          goto T2572;
4784  T2565:;  T2572:;
4785          {object V700;          {object V700;
4786          V700= list(6,VV[232],car((V690)),(V693),cadr((V690)),(V691),(V692));          V700= list(6,VV[233],car((V690)),(V693),cadr((V690)),(V691),(V692));
4787          setq(VV[24],make_cons((V700),symbol_value(VV[24])));}          setq(VV[25],make_cons((V700),symbol_value(VV[25])));}
4788          {object V701;          {object V701;
4789          V701= make_cons(car((V690)),(V693));          V701= make_cons(car((V690)),(V693));
4790          setq(VV[79],make_cons((V701),symbol_value(VV[79])));          setq(VV[80],make_cons((V701),symbol_value(VV[80])));
4791          {object V702 = symbol_value(VV[79]);          {object V702 = symbol_value(VV[80]);
4792          VMR48(V702)}}}          VMR48(V702)}}}
4793          base[0]=base[0];          base[0]=base[0];
4794          return Cnil;          return Cnil;
# Line 4802  object V708;object V709;object V710;obje Line 4801  object V708;object V709;object V710;obje
4801  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
4802          goto TTL;          goto TTL;
4803  TTL:;  TTL:;
4804          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[32]);
4805          (void)((*(LnkLI277))((V709)));          (void)((*(LnkLI278))((V709)));
4806          princ_str("();",VV[31]);          princ_str("();",VV[32]);
4807          V713= list(2,VV[91],(V708));          V713= list(2,VV[92],(V708));
4808          V714= list(3,VV[111],/* INLINE-ARGS */V713,(*(LnkLI301))(VV[238],(V709)));          V714= list(3,VV[112],/* INLINE-ARGS */V713,(*(LnkLI302))(VV[239],(V709)));
4809          {object V715 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V714));          {object V715 = (VFUN_NARGS=1,(*(LnkLI301))(/* INLINE-ARGS */V714));
4810          VMR49(V715)}          VMR49(V715)}
4811          return Cnil;          return Cnil;
4812  }  }
# Line 4819  object V721;object V722;object V723;regi Line 4818  object V721;object V722;object V723;regi
4818  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
4819          goto TTL;          goto TTL;
4820  TTL:;  TTL:;
4821          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[239],(V721))));          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[240],(V721))));
4822          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[26]);
4823          (void)((*(LnkLI274))((V722)));          (void)((*(LnkLI275))((V722)));
4824          princ_str("()",VV[25]);          princ_str("()",VV[26]);
4825          princ_str("\n{  object *old_base=vs_base;",VV[25]);          princ_str("\n{  object *old_base=vs_base;",VV[26]);
4826          {object V726= (V724);          {object V726= (V724);
4827          if((V726!= VV[240]))goto T2616;          if((V726!= VV[241]))goto T2623;
4828          goto T2615;          goto T2622;
4829          goto T2616;          goto T2623;
4830  T2616:;  T2623:;
4831          if((V726!= VV[158]))goto T2617;          if((V726!= VV[159]))goto T2624;
4832          princ_str("\n   char *x;",VV[25]);          princ_str("\n   char *x;",VV[26]);
4833          goto T2615;          goto T2622;
4834          goto T2617;          goto T2624;
4835  T2617:;  T2624:;
4836          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[26]);
4837          base[0]= symbol_name((V724));          base[0]= symbol_name((V724));
4838          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4839          Lstring_downcase();          Lstring_downcase();
4840          vs_top=sup;          vs_top=sup;
4841          V727= vs_base[0];          V727= vs_base[0];
4842          (void)((*(LnkLI274))(V727));          (void)((*(LnkLI275))(V727));
4843          princ_str(" x;",VV[25]);}          princ_str(" x;",VV[26]);}
4844          goto T2615;          goto T2622;
4845  T2615:;  T2622:;
4846          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
4847          goto T2624;}          goto T2631;}
4848          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[26]);
4849          V728 = make_fixnum((long)length((V723)));          V728 = make_fixnum((long)length((V723)));
4850          (void)((*(LnkLI274))(V728));          (void)((*(LnkLI275))(V728));
4851          princ_str(");",VV[25]);          princ_str(");",VV[26]);
4852          goto T2624;          goto T2631;
4853  T2624:;  T2631:;
4854          if(((V724))==(VV[240])){          if(((V724))==(VV[241])){
4855          goto T2630;}          goto T2637;}
4856          princ_str("\n   x=",VV[25]);          princ_str("\n   x=",VV[26]);
4857          goto T2630;          goto T2637;
4858  T2630:;  T2637:;
4859          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[26]);
4860          (void)((*(LnkLI274))((V725)));          (void)((*(LnkLI275))((V725)));
4861          princ_char(40,VV[25]);          princ_char(40,VV[26]);
4862          if(endp_prop((V723))){          if(endp_prop((V723))){
4863          goto T2638;}          goto T2645;}
4864          {register object V729;          {register object V729;
4865          register long V730;          register long V730;
4866          V730= 0;          V730= 0;
4867          V729= (V723);          V729= (V723);
4868          goto T2643;          goto T2650;
4869  T2643:;  T2650:;
4870          {object V731= car((V729));          {object V731= car((V729));
4871          if((V731!= VV[74]))goto T2647;          if((V731!= VV[75]))goto T2654;
4872          princ_str("\n   vs_base[",VV[25]);          princ_str("\n   vs_base[",VV[26]);
4873          V732 = make_fixnum(V730);          V732 = make_fixnum(V730);
4874          (void)((*(LnkLI274))(V732));          (void)((*(LnkLI275))(V732));
4875          princ_char(93,VV[25]);          princ_char(93,VV[26]);
4876          goto T2646;          goto T2653;
4877          goto T2647;          goto T2654;
4878  T2647:;  T2654:;
4879          princ_str("\n   object_to_",VV[25]);          princ_str("\n   object_to_",VV[26]);
4880          base[0]= symbol_name(car((V729)));          base[0]= symbol_name(car((V729)));
4881          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4882          Lstring_downcase();          Lstring_downcase();
4883          vs_top=sup;          vs_top=sup;
4884          V733= vs_base[0];          V733= vs_base[0];
4885          (void)((*(LnkLI274))(V733));          (void)((*(LnkLI275))(V733));
4886          princ_str("(vs_base[",VV[25]);          princ_str("(vs_base[",VV[26]);
4887          V734 = make_fixnum(V730);          V734 = make_fixnum(V730);
4888          (void)((*(LnkLI274))(V734));          (void)((*(LnkLI275))(V734));
4889          princ_str("])",VV[25]);}          princ_str("])",VV[26]);}
4890          goto T2646;          goto T2653;
4891  T2646:;  T2653:;
4892          if(!(endp_prop(cdr((V729))))){          if(!(endp_prop(cdr((V729))))){
4893          goto T2658;}          goto T2665;}
4894          goto T2638;          goto T2645;
4895          goto T2658;          goto T2665;
4896  T2658:;  T2665:;
4897          princ_char(44,VV[25]);          princ_char(44,VV[26]);
4898          V729= cdr((V729));          V729= cdr((V729));
4899          V730= (long)(V730)+1;          V730= (long)(V730)+1;
4900          goto T2643;}          goto T2650;}
4901          goto T2638;          goto T2645;
4902  T2638:;  T2645:;
4903          princ_str(");",VV[25]);          princ_str(");",VV[26]);
4904          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[26]);
4905          princ_str("\n   vs_base[0]=",VV[25]);          princ_str("\n   vs_base[0]=",VV[26]);
4906          {object V735= (V724);          {object V735= (V724);
4907          if((V735!= VV[240]))goto T2674;          if((V735!= VV[241]))goto T2681;
4908          princ_str("Cnil",VV[25]);          princ_str("Cnil",VV[26]);
4909          goto T2673;          goto T2680;
         goto T2674;  
 T2674:;  
         if((V735!= VV[74]))goto T2676;  
         princ_char(120,VV[25]);  
         goto T2673;  
         goto T2676;  
 T2676:;  
         if((V735!= VV[341]))goto T2678;  
         princ_str("code_char(x)",VV[25]);  
         goto T2673;  
         goto T2678;  
 T2678:;  
         if((V735!= VV[342]))goto T2680;  
         if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){  
         goto T2681;}  
         princ_str("CMP",VV[25]);  
4910          goto T2681;          goto T2681;
4911  T2681:;  T2681:;
4912          princ_str("make_fixnum(x)",VV[25]);          if((V735!= VV[75]))goto T2683;
4913          goto T2673;          princ_char(120,VV[26]);
4914          goto T2680;          goto T2680;
4915  T2680:;          goto T2683;
4916          if((V735!= VV[158]))goto T2686;  T2683:;
4917          princ_str("make_simple_string(x)",VV[25]);          if((V735!= VV[342]))goto T2685;
4918          goto T2673;          princ_str("code_char(x)",VV[26]);
4919          goto T2686;          goto T2680;
4920  T2686:;          goto T2685;
4921          if((V735!= VV[343]))goto T2688;  T2685:;
4922          princ_str("make_shortfloat(x)",VV[25]);          if((V735!= VV[343]))goto T2687;
4923          goto T2673;          if(!(number_compare(small_fixnum(0),symbol_value(VV[115]))==0)){
4924            goto T2688;}
4925            princ_str("CMP",VV[26]);
4926          goto T2688;          goto T2688;
4927  T2688:;  T2688:;
4928          if((V735!= VV[344]))goto T2690;          princ_str("make_fixnum(x)",VV[26]);
4929          princ_str("make_longfloat(x)",VV[25]);          goto T2680;
4930          goto T2673;          goto T2687;
4931          goto T2690;  T2687:;
4932  T2690:;}          if((V735!= VV[159]))goto T2693;
4933          goto T2673;          princ_str("make_simple_string(x)",VV[26]);
4934  T2673:;          goto T2680;
4935          princ_char(59,VV[25]);          goto T2693;
4936          princ_str("\n}",VV[25]);  T2693:;
4937            if((V735!= VV[344]))goto T2695;
4938            princ_str("make_shortfloat(x)",VV[26]);
4939            goto T2680;
4940            goto T2695;
4941    T2695:;
4942            if((V735!= VV[345]))goto T2697;
4943            princ_str("make_longfloat(x)",VV[26]);
4944            goto T2680;
4945            goto T2697;
4946    T2697:;}
4947            goto T2680;
4948    T2680:;
4949            princ_char(59,VV[26]);
4950            princ_str("\n}",VV[26]);
4951          {object V736 = Cnil;          {object V736 = Cnil;
4952          VMR50(V736)}          VMR50(V736)}
4953          base[0]=base[0];          base[0]=base[0];
# Line 4980  TTL:; Line 4979  TTL:;
4979          register object V744;          register object V744;
4980          V743= (V741);          V743= (V741);
4981          V744= car((V743));          V744= car((V743));
4982          goto T2699;          goto T2706;
4983  T2699:;  T2706:;
4984          if(!(endp_prop((V743)))){          if(!(endp_prop((V743)))){
4985          goto T2700;}          goto T2707;}
4986          {object V745 = reverse((V742));          {object V745 = reverse((V742));
4987          VMR52(V745)}          VMR52(V745)}
4988          goto T2700;          goto T2707;
4989  T2700:;  T2707:;
4990          if(!(type_of((V744))==t_symbol)){          if(!(type_of((V744))==t_symbol)){
4991          goto T2706;}          goto T2713;}
4992          {object V746;          {object V746;
4993          base[2]= symbol_name((V744));          base[2]= symbol_name((V744));
4994          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4995          Lstring_downcase();          Lstring_downcase();
4996          vs_top=sup;          vs_top=sup;
4997          V747= vs_base[0];          V747= vs_base[0];
4998          V746= list(2,VV[74],V747);          V746= list(2,VV[75],V747);
4999          V742= make_cons((V746),(V742));          V742= make_cons((V746),(V742));
5000          goto T2704;}          goto T2711;}
5001          goto T2706;          goto T2713;
5002  T2706:;  T2713:;
5003          if(!(type_of((V744))==t_string)){          if(!(type_of((V744))==t_string)){
5004          goto T2713;}          goto T2720;}
5005          {object V748;          {object V748;
5006          V748= list(2,VV[74],(V744));          V748= list(2,VV[75],(V744));
5007          V742= make_cons((V748),(V742));          V742= make_cons((V748),(V742));
5008          goto T2704;}          goto T2711;}
5009          goto T2713;          goto T2720;
5010  T2713:;  T2720:;
5011          if(!(type_of((V744))==t_cons)){          if(!(type_of((V744))==t_cons)){
5012          goto T2718;}          goto T2725;}
5013          {register object x= car((V744)),V749= VV[241];          {register object x= car((V744)),V749= VV[242];
5014          while(!endp(V749))          while(!endp(V749))
5015          if(eql(x,V749->c.c_car)){          if(eql(x,V749->c.c_car)){
5016          goto T2721;          goto T2728;
5017          }else V749=V749->c.c_cdr;          }else V749=V749->c.c_cdr;
5018          goto T2718;}          goto T2725;}
5019          goto T2721;          goto T2728;
5020  T2721:;  T2728:;
5021          {register object V750;          {register object V750;
5022          register object V751;          register object V751;
5023          V750= cdr((V744));          V750= cdr((V744));
5024          V751= car((V750));          V751= car((V750));
5025          goto T2725;          goto T2732;
5026  T2725:;  T2732:;
5027          if(!(endp_prop((V750)))){          if(!(endp_prop((V750)))){
5028          goto T2726;}          goto T2733;}
5029          goto T2704;          goto T2711;
5030          goto T2726;          goto T2733;
5031  T2726:;  T2733:;
5032          {register object V752;          {register object V752;
5033          V753= car((V744));          V753= car((V744));
5034          if(!(type_of((V751))==t_symbol)){          if(!(type_of((V751))==t_symbol)){
5035          goto T2734;}          goto T2741;}
5036          base[4]= symbol_name((V751));          base[4]= symbol_name((V751));
5037          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5038          Lstring_downcase();          Lstring_downcase();
5039          vs_top=sup;          vs_top=sup;
5040          V754= vs_base[0];          V754= vs_base[0];
5041          goto T2732;          goto T2739;
5042          goto T2734;          goto T2741;
5043  T2734:;  T2741:;
5044          if(!(type_of((V751))==t_string)){          if(!(type_of((V751))==t_string)){
5045          goto T2738;}          goto T2745;}
5046          V754= (V751);          V754= (V751);
5047          goto T2732;          goto T2739;
5048          goto T2738;          goto T2745;
5049  T2738:;  T2745:;
5050          V754= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V751)));          V754= (VFUN_NARGS=2,(*(LnkLI266))(VV[243],(V751)));
5051          goto T2732;          goto T2739;
5052  T2732:;  T2739:;
5053          V752= list(2,/* INLINE-ARGS */V753,V754);          V752= list(2,/* INLINE-ARGS */V753,V754);
5054          V742= make_cons((V752),(V742));}          V742= make_cons((V752),(V742));}
5055          V750= cdr((V750));          V750= cdr((V750));
5056          V751= car((V750));          V751= car((V750));
5057          goto T2725;}          goto T2732;}
5058          goto T2718;          goto T2725;
5059  T2718:;  T2725:;
5060          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V744))));          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[244],(V744))));
5061          goto T2704;          goto T2711;
5062  T2704:;  T2711:;
5063          V743= cdr((V743));          V743= cdr((V743));
5064          V744= car((V743));          V744= car((V743));
5065          goto T2699;}}          goto T2706;}}
5066          base[0]=base[0];          base[0]=base[0];
5067          return Cnil;          return Cnil;
5068  }  }
# Line 5080  TTL:; Line 5079  TTL:;
5079          register object V766;          register object V766;
5080          object V767;          object V767;
5081          if(((V760))==Cnil){          if(((V760))==Cnil){
5082          goto T2753;}          goto T2760;}
5083          V765= small_fixnum(0);          V765= small_fixnum(0);
5084          goto T2751;          goto T2758;
5085          goto T2753;          goto T2760;
5086  T2753:;  T2760:;
5087          V765= structure_ref((V763),VV[32],4);          V765= structure_ref((V763),VV[33],4);
5088          goto T2751;          goto T2758;
5089  T2751:;  T2758:;
5090          V766= Cnil;          V766= Cnil;
5091          bds_bind(VV[20],(*(LnkLI306))(cadr((V764))));          bds_bind(VV[21],(*(LnkLI307))(cadr((V764))));
5092          bds_bind(VV[117],Cnil);          bds_bind(VV[118],Cnil);
5093          V767= caaddr((V764));          V767= caaddr((V764));
5094          if((structure_ref((V763),VV[32],0))==Cnil){          if((structure_ref((V763),VV[33],0))==Cnil){
         goto T2761;}  
         V768= structure_ref((V763),VV[32],0);  
         goto T2759;  
         goto T2761;  
 T2761:;  
         V768= Cnil;  
         goto T2759;  
 T2759:;  
         (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[244],V768)));  
         princ_str("\nstatic void ",VV[25]);  
         if(((V760))==Cnil){  
5095          goto T2768;}          goto T2768;}
5096          V769= VV[245];          V768= structure_ref((V763),VV[33],0);
5097          goto T2766;          goto T2766;
5098          goto T2768;          goto T2768;
5099  T2768:;  T2768:;
5100          V769= VV[246];          V768= Cnil;
5101          goto T2766;          goto T2766;
5102  T2766:;  T2766:;
5103          (void)((*(LnkLI274))(V769));          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[245],V768)));
5104          V770= structure_ref((V763),VV[32],3);          princ_str("\nstatic void ",VV[26]);
5105          (void)((*(LnkLI274))(/* INLINE-ARGS */V770));          if(((V760))==Cnil){
5106          princ_char(40,VV[25]);          goto T2775;}
5107          princ_str("base0",VV[25]);          V769= VV[246];
5108          if(((V767))==Cnil){          goto T2773;
         goto T2777;}  
         V771= VV[247];  
         goto T2775;  
         goto T2777;  
 T2777:;  
         V771= VV[248];  
5109          goto T2775;          goto T2775;
5110  T2775:;  T2775:;
5111          (void)((*(LnkLI274))(V771));          V769= VV[247];
5112          V772= structure_ref(cadr((V764)),VV[62],1);          goto T2773;
5113          (void)((*(LnkLI308))(/* INLINE-ARGS */V772,small_fixnum(2)));  T2773:;
5114          (void)((*(LnkLI313))(caaddr((V764)),Cnil));          (void)((*(LnkLI275))(V769));
5115          princ_str("register object *",VV[25]);          V770= structure_ref((V763),VV[33],3);
5116          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI275))(/* INLINE-ARGS */V770));
5117          princ_str("base0;",VV[25]);          princ_char(40,VV[26]);
5118          bds_bind(VV[249],(V762));          princ_str("base0",VV[26]);
5119          bds_bind(VV[128],VV[124]);          if(((V767))==Cnil){
5120          bds_bind(VV[18],Cnil);          goto T2784;}
5121          bds_bind(VV[129],small_fixnum(0));          V771= VV[248];
5122            goto T2782;
5123            goto T2784;
5124    T2784:;
5125            V771= VV[249];
5126            goto T2782;
5127    T2782:;
5128            (void)((*(LnkLI275))(V771));
5129            V772= structure_ref(cadr((V764)),VV[63],1);
5130            (void)((*(LnkLI309))(/* INLINE-ARGS */V772,small_fixnum(2)));
5131            (void)((*(LnkLI314))(caaddr((V764)),Cnil));
5132            princ_str("register object *",VV[26]);
5133            (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5134            princ_str("base0;",VV[26]);
5135            bds_bind(VV[250],(V762));
5136            bds_bind(VV[129],VV[125]);
5137            bds_bind(VV[19],Cnil);
5138          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5139          bds_bind(VV[131],one_plus((V765)));          bds_bind(VV[131],small_fixnum(0));
5140          bds_bind(VV[132],(V762));          bds_bind(VV[132],one_plus((V765)));
5141          bds_bind(VV[133],(V761));          bds_bind(VV[133],(V762));
5142          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[134],(V761));
5143          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
5144          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          bds_bind(VV[136],(VV[129]->s.s_dbind));
5145          bds_bind(VV[136],symbol_value(VV[137]));          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));
5146          bds_bind(VV[138],Cnil);          bds_bind(VV[137],symbol_value(VV[138]));
5147          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
5148          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
5149          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],Cnil);
5150          V766= (VV[136]->s.s_dbind);          bds_bind(VV[142],small_fixnum(0));
5151          princ_str("\n{",VV[25]);          V766= (VV[137]->s.s_dbind);
5152          V773= structure_ref(cadr((V764)),VV[62],1);          princ_str("\n{",VV[26]);
5153          V774= structure_ref((V763),VV[32],3);          V773= structure_ref(cadr((V764)),VV[63],1);
5154          (void)((*(LnkLI314))(/* INLINE-ARGS */V773,/* INLINE-ARGS */V774,VV[250]));          V774= structure_ref((V763),VV[33],3);
5155          princ_str("\n   VMB",VV[25]);          (void)((*(LnkLI315))(/* INLINE-ARGS */V773,/* INLINE-ARGS */V774,VV[251]));
5156          (void)((*(LnkLI274))((V766)));          princ_str("\n   VMB",VV[26]);
5157          princ_str(" VMS",VV[25]);          (void)((*(LnkLI275))((V766)));
5158          (void)((*(LnkLI274))((V766)));          princ_str(" VMS",VV[26]);
5159          princ_str(" VMV",VV[25]);          (void)((*(LnkLI275))((V766)));
5160          (void)((*(LnkLI274))((V766)));          princ_str(" VMV",VV[26]);
5161          if((symbol_value(VV[149]))==Cnil){          (void)((*(LnkLI275))((V766)));
5162          goto T2801;}          if((symbol_value(VV[150]))==Cnil){
5163          princ_str("\n   ihs_check;",VV[25]);          goto T2808;}
5164          goto T2801;          princ_str("\n   ihs_check;",VV[26]);
5165  T2801:;          goto T2808;
5166    T2808:;
5167          base[19]= caddr(cddr((V764)));          base[19]= caddr(cddr((V764)));
5168          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
5169          (void) (*Lnk315)();          (void) (*Lnk316)();
5170          vs_top=sup;          vs_top=sup;
5171          if(!(number_compare(small_fixnum(0),(VV[130]->s.s_dbind))==0)){          if(!(number_compare(small_fixnum(0),(VV[131]->s.s_dbind))==0)){
5172          goto T2809;}          goto T2816;}
5173          if(((VV[138]->s.s_dbind))!=Cnil){          if(((VV[139]->s.s_dbind))!=Cnil){
5174          goto T2809;}          goto T2816;}
5175          if(((VV[140]->s.s_dbind))!=Cnil){          if(((VV[141]->s.s_dbind))!=Cnil){
5176          goto T2809;}          goto T2816;}
5177          goto T2807;          goto T2814;
5178          goto T2809;          goto T2816;
5179  T2809:;  T2816:;
5180          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[26]);
5181          goto T2807;          goto T2814;
5182  T2807:;  T2814:;
5183          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
5184          (void)((*(LnkLI316))((V766),Ct));          (void)((*(LnkLI317))((V766),Ct));
5185          V775= structure_ref((V763),VV[32],3);          V775= structure_ref((V763),VV[33],3);
5186          {object V776 = (*(LnkLI310))(/* INLINE-ARGS */V775);          {object V776 = (*(LnkLI311))(/* INLINE-ARGS */V775);
5187          bds_unwind1;          bds_unwind1;
5188          bds_unwind1;          bds_unwind1;
5189          bds_unwind1;          bds_unwind1;
# Line 5217  object V782;object V783;object V784;obje Line 5216  object V782;object V783;object V784;obje
5216  TTL:;  TTL:;
5217          {long V787;          {long V787;
5218          if(((V782))==Cnil){          if(((V782))==Cnil){
5219          goto T2821;}          goto T2828;}
5220          V787= 0;          V787= 0;
5221          goto T2819;          goto T2826;
5222          goto T2821;          goto T2828;
5223  T2821:;  T2828:;
5224          V787= fix(structure_ref((V785),VV[32],4));          V787= fix(structure_ref((V785),VV[33],4));
5225          goto T2819;          goto T2826;
5226  T2819:;  T2826:;
5227          bds_bind(VV[20],(*(LnkLI306))(cadr((V786))));          bds_bind(VV[21],(*(LnkLI307))(cadr((V786))));
5228          bds_bind(VV[117],Cnil);          bds_bind(VV[118],Cnil);
5229          if(!(((V782))==(VV[251]))){          if(!(((V782))==(VV[252]))){
5230          goto T2824;}          goto T2831;}
5231          {object V788 = (*(LnkLI250))((V782),(V783),(V784),(V785),(V786));          {object V788 = (*(LnkLI251))((V782),(V783),(V784),(V785),(V786));
5232          bds_unwind1;          bds_unwind1;
5233          bds_unwind1;          bds_unwind1;
5234          VMR54(V788)}          VMR54(V788)}
5235          goto T2824;          goto T2831;
5236  T2824:;  T2831:;
5237          if((structure_ref((V785),VV[32],0))==Cnil){          if((structure_ref((V785),VV[33],0))==Cnil){
         goto T2830;}  
         V789= structure_ref((V785),VV[32],0);  
         goto T2828;  
         goto T2830;  
 T2830:;  
         V789= Cnil;  
         goto T2828;  
 T2828:;  
         (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[252],V789)));  
         princ_str("\nstatic void ",VV[31]);  
         if(((V782))==Cnil){  
5238          goto T2837;}          goto T2837;}
5239          V790= VV[253];          V789= structure_ref((V785),VV[33],0);
5240          goto T2835;          goto T2835;
5241          goto T2837;          goto T2837;
5242  T2837:;  T2837:;
5243          V790= VV[254];          V789= Cnil;
5244          goto T2835;          goto T2835;
5245  T2835:;  T2835:;
5246          (void)((*(LnkLI277))(V790));          (void)((VFUN_NARGS=2,(*(LnkLI313))(VV[253],V789)));
5247          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]);  
5248          if(((V782))==Cnil){          if(((V782))==Cnil){
5249          goto T2846;}          goto T2844;}
5250          V792= VV[255];          V790= VV[254];
5251          goto T2844;          goto T2842;
         goto T2846;  
 T2846:;  
         V792= VV[256];  
5252          goto T2844;          goto T2844;
5253  T2844:;  T2844:;
5254          (void)((*(LnkLI274))(V792));          V790= VV[255];
5255          V793= structure_ref((V785),VV[32],3);          goto T2842;
5256          (void)((*(LnkLI274))(/* INLINE-ARGS */V793));  T2842:;
5257          princ_char(40,VV[25]);          (void)((*(LnkLI278))(V790));
5258            V791= structure_ref((V785),VV[33],3);
5259            (void)((*(LnkLI278))(/* INLINE-ARGS */V791));
5260            princ_str("();",VV[32]);
5261            princ_str("\nstatic void ",VV[26]);
5262            if(((V782))==Cnil){
5263            goto T2853;}
5264            V792= VV[256];
5265            goto T2851;
5266            goto T2853;
5267    T2853:;
5268            V792= VV[257];
5269            goto T2851;
5270    T2851:;
5271            (void)((*(LnkLI275))(V792));
5272            V793= structure_ref((V785),VV[33],3);
5273            (void)((*(LnkLI275))(/* INLINE-ARGS */V793));
5274            princ_char(40,VV[26]);
5275          {register object V794;          {register object V794;
5276          register long V795;          register long V795;
5277          V794= make_fixnum(V787);          V794= make_fixnum(V787);
5278          V795= 0;          V795= 0;
5279          goto T2854;          goto T2861;
5280  T2854:;  T2861:;
5281          V796 = make_fixnum(V795);          V796 = make_fixnum(V795);
5282          if(!(number_compare(V796,(V794))>=0)){          if(!(number_compare(V796,(V794))>=0)){
5283          goto T2855;}          goto T2862;}
5284          princ_str("base",VV[25]);          princ_str("base",VV[26]);
5285          V797 = make_fixnum(V795);          V797 = make_fixnum(V795);
5286          (void)((*(LnkLI274))(V797));          (void)((*(LnkLI275))(V797));
5287          princ_char(41,VV[25]);          princ_char(41,VV[26]);
5288          goto T2850;          goto T2857;
5289          goto T2855;          goto T2862;
5290  T2855:;  T2862:;
5291          princ_str("base",VV[25]);          princ_str("base",VV[26]);
5292          V798 = make_fixnum(V795);          V798 = make_fixnum(V795);
5293          (void)((*(LnkLI274))(V798));          (void)((*(LnkLI275))(V798));
5294          princ_char(44,VV[25]);          princ_char(44,VV[26]);
5295          V795= (long)(V795)+1;          V795= (long)(V795)+1;
5296          goto T2854;}          goto T2861;}
5297          goto T2850;          goto T2857;
5298  T2850:;  T2857:;
5299          princ_str("\nregister object ",VV[25]);          princ_str("\nregister object ",VV[26]);
5300          {register object V799;          {register object V799;
5301          register long V800;          register long V800;
5302          V799= make_fixnum(V787);          V799= make_fixnum(V787);
5303          V800= 0;          V800= 0;
5304          goto T2875;          goto T2882;
5305  T2875:;  T2882:;
5306          V801 = make_fixnum(V800);          V801 = make_fixnum(V800);
5307          if(!(number_compare(V801,(V799))>=0)){          if(!(number_compare(V801,(V799))>=0)){
5308          goto T2876;}          goto T2883;}
5309          princ_char(42,VV[25]);          princ_char(42,VV[26]);
5310          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5311          princ_str("base",VV[25]);          princ_str("base",VV[26]);
5312          V802 = make_fixnum(V800);          V802 = make_fixnum(V800);
5313          (void)((*(LnkLI274))(V802));          (void)((*(LnkLI275))(V802));
5314          princ_char(59,VV[25]);          princ_char(59,VV[26]);
5315          goto T2871;          goto T2878;
5316          goto T2876;          goto T2883;
5317  T2876:;  T2883:;
5318          princ_char(42,VV[25]);          princ_char(42,VV[26]);
5319          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5320          princ_str("base",VV[25]);          princ_str("base",VV[26]);
5321          V803 = make_fixnum(V800);          V803 = make_fixnum(V800);
5322          (void)((*(LnkLI274))(V803));          (void)((*(LnkLI275))(V803));
5323          princ_char(44,VV[25]);          princ_char(44,VV[26]);
5324          V800= (long)(V800)+1;          V800= (long)(V800)+1;
5325          goto T2875;}          goto T2882;}
5326          goto T2871;          goto T2878;
5327  T2871:;  T2878:;
5328          V804= structure_ref(cadr((V786)),VV[62],1);          V804= structure_ref(cadr((V786)),VV[63],1);
5329          (void)((*(LnkLI308))(/* INLINE-ARGS */V804,small_fixnum(2)));          (void)((*(LnkLI309))(/* INLINE-ARGS */V804,small_fixnum(2)));
5330          bds_bind(VV[128],VV[127]);          bds_bind(VV[129],VV[128]);
5331          bds_bind(VV[249],(V784));          bds_bind(VV[250],(V784));
5332          bds_bind(VV[18],Cnil);          bds_bind(VV[19],Cnil);
         bds_bind(VV[129],small_fixnum(0));  
5333          bds_bind(VV[130],small_fixnum(0));          bds_bind(VV[130],small_fixnum(0));
5334            bds_bind(VV[131],small_fixnum(0));
5335          V805 = make_fixnum(V787);          V805 = make_fixnum(V787);
5336          bds_bind(VV[131],one_plus(V805));          bds_bind(VV[132],one_plus(V805));
5337          bds_bind(VV[132],(V784));          bds_bind(VV[133],(V784));
5338          bds_bind(VV[133],(V783));          bds_bind(VV[134],(V783));
5339          bds_bind(VV[134],make_cons((VV[128]->s.s_dbind),Cnil));          bds_bind(VV[135],make_cons((VV[129]->s.s_dbind),Cnil));
5340          bds_bind(VV[135],(VV[128]->s.s_dbind));          bds_bind(VV[136],(VV[129]->s.s_dbind));
5341          setq(VV[137],number_plus(symbol_value(VV[137]),small_fixnum(1)));          setq(VV[138],number_plus(symbol_value(VV[138]),small_fixnum(1)));
5342          bds_bind(VV[136],symbol_value(VV[137]));          bds_bind(VV[137],symbol_value(VV[138]));
         bds_bind(VV[138],Cnil);  
5343          bds_bind(VV[139],Cnil);          bds_bind(VV[139],Cnil);
5344          bds_bind(VV[140],Cnil);          bds_bind(VV[140],Cnil);
5345          bds_bind(VV[141],small_fixnum(0));          bds_bind(VV[141],Cnil);
5346          princ_str("\n{  register object *",VV[25]);          bds_bind(VV[142],small_fixnum(0));
5347          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          princ_str("\n{  register object *",VV[26]);
5348          princ_str("base=vs_base;",VV[25]);          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5349          princ_str("\n   register object *",VV[25]);          princ_str("base=vs_base;",VV[26]);
5350          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          princ_str("\n   register object *",VV[26]);
5351          princ_str("sup=base+VM",VV[25]);          (void)((*(LnkLI275))((VV[21]->s.s_dbind)));
5352          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str("sup=base+VM",VV[26]);
5353          princ_char(59,VV[25]);          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
5354          V806= structure_ref(cadr((V786)),VV[62],1);          princ_char(59,VV[26]);
5355          V807= structure_ref((V785),VV[32],3);          V806= structure_ref(cadr((V786)),VV[63],1);
5356          (void)((*(LnkLI314))(/* INLINE-ARGS */V806,/* INLINE-ARGS */V807,VV[257]));          V807= structure_ref((V785),VV[33],3);
5357          princ_str(" VC",VV[25]);          (void)((*(LnkLI315))(/* INLINE-ARGS */V806,/* INLINE-ARGS */V807,VV[258]));
5358          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str(" VC",VV[26]);
5359          if((symbol_value(VV[163]))==Cnil){          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
5360          goto T2916;}          if((symbol_value(VV[164]))==Cnil){
5361          princ_str("\n   vs_reserve(VM",VV[25]);          goto T2923;}
5362          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          princ_str("\n   vs_reserve(VM",VV[26]);
5363          princ_str(");",VV[25]);          (void)((*(LnkLI275))((VV[137]->s.s_dbind)));
5364          goto T2914;          princ_str(");",VV[26]);
5365          goto T2916;          goto T2921;
5366  T2916:;          goto T2923;
5367          princ_str("\n   vs_check;",VV[25]);  T2923:;
5368          goto T2914;          princ_str("\n   vs_check;",VV[26]);
5369  T2914:;          goto T2921;
5370          if((symbol_value(VV[149]))==Cnil){  T2921:;
5371          goto T2922;}          if((symbol_value(VV[150]))==Cnil){
5372          princ_str("\n   ihs_check;",VV[25]);          goto T2929;}
5373          goto T2922;          princ_str("\n   ihs_check;",VV[26]);
5374  T2922:;          goto T2929;
5375    T2929:;
5376          if(((V782))==Cnil){          if(((V782))==Cnil){
5377          goto T2928;}          goto T2935;}
5378          (void)((VFUN_NARGS=2,(*(LnkLI331))(caddr((V786)),caddr(cddr((V786))))));          (void)((VFUN_NARGS=2,(*(LnkLI332))(caddr((V786)),caddr(cddr((V786))))));
5379          goto T2926;          goto T2933;
5380          goto T2928;          goto T2935;
5381  T2928:;  T2935:;
5382          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V786)),caddr(cddr((V786))),(V785))));          (void)((VFUN_NARGS=3,(*(LnkLI332))(caddr((V786)),caddr(cddr((V786))),(V785))));
5383          goto T2926;          goto T2933;
5384  T2926:;  T2933:;
5385          princ_str("\n}",VV[25]);          princ_str("\n}",VV[26]);
5386          {object V808;          {object V808;
5387          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));
5388          setq(VV[33],make_cons((V808),symbol_value(VV[33])));}          setq(VV[34],make_cons((V808),symbol_value(VV[34])));}
5389          princ_str("\n#define VC",VV[31]);          princ_str("\n#define VC",VV[32]);
5390          (void)((*(LnkLI277))((VV[136]->s.s_dbind)));          (void)((*(LnkLI278))((VV[137]->s.s_dbind)));
5391          V809= (*(LnkLI332))();          V809= (*(LnkLI333))();
5392          bds_unwind1;          bds_unwind1;
5393          bds_unwind1;          bds_unwind1;
5394          bds_unwind1;          bds_unwind1;
# Line 5405  T2926:; Line 5404  T2926:;
5404          bds_unwind1;          bds_unwind1;
5405          bds_unwind1;          bds_unwind1;
5406          bds_unwind1;          bds_unwind1;
5407          V810= structure_ref((V785),VV[32],3);          V810= structure_ref((V785),VV[33],3);
5408          {object V811 = (*(LnkLI310))(/* INLINE-ARGS */V810);          {object V811 = (*(LnkLI311))(/* INLINE-ARGS */V810);
5409          bds_unwind1;          bds_unwind1;
5410          bds_unwind1;          bds_unwind1;
5411          VMR54(V811)}}          VMR54(V811)}}
# Line 5424  TTL:; Line 5423  TTL:;
5423          V812= Cnil;          V812= Cnil;
5424          {register object V813;          {register object V813;
5425          register object V814;          register object V814;
5426          V813= symbol_value(VV[18]);          V813= symbol_value(VV[19]);
5427          V814= car((V813));          V814= car((V813));
5428          goto T2943;          goto T2950;
5429  T2943:;  T2950:;
5430          if(!(endp_prop((V813)))){          if(!(endp_prop((V813)))){
5431          goto T2944;}          goto T2951;}
5432          goto T2939;          goto T2946;
5433          goto T2944;          goto T2951;
5434  T2944:;  T2951:;
5435          {register object V815;          {register object V815;
5436          if(!(type_of((V814))==t_cons)){          if(!(type_of((V814))==t_cons)){
5437          goto T2951;}          goto T2958;}
5438          {register object V816;          {register object V816;
5439          V816= car((V814));          V816= car((V814));
5440          V814= cdr((V814));          V814= cdr((V814));
5441          V815= (V816);          V815= (V816);
5442          goto T2949;}          goto T2956;}
5443          goto T2951;          goto T2958;
5444  T2951:;  T2958:;
5445          V815= Ct;          V815= Ct;
5446          goto T2949;          goto T2956;
5447  T2949:;  T2956:;
5448          if(!(((V812))==((V815)))){          if(!(((V812))==((V815)))){
5449          goto T2958;}          goto T2965;}
5450          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[32]);
5451          base[2]= VV[258];          base[2]= VV[259];
5452          base[3]= (V814);          base[3]= (V814);
5453          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5454          Lformat();          Lformat();
5455          vs_top=sup;          vs_top=sup;
         goto T2956;  
         goto T2958;  
 T2958:;  
         if(!(((V812))==Cnil)){  
         goto T2964;}  
5456          goto T2963;          goto T2963;
5457          goto T2964;          goto T2965;
5458  T2964:;  T2965:;
5459          base[1]= symbol_value(VV[31]);          if(!(((V812))==Cnil)){
5460          base[2]= VV[259];          goto T2971;}
5461            goto T2970;
5462            goto T2971;
5463    T2971:;
5464            base[1]= symbol_value(VV[32]);
5465            base[2]= VV[260];
5466          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5467          Lformat();          Lformat();
5468          vs_top=sup;          vs_top=sup;
5469          goto T2963;          goto T2970;
5470  T2963:;  T2970:;
5471          V812= (V815);          V812= (V815);
5472          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[32]);
5473          base[2]= VV[260];          base[2]= VV[261];
5474          base[3]= (*(LnkLI280))((V812));          base[3]= (*(LnkLI281))((V812));
5475          base[4]= (V814);          base[4]= (V814);
5476          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
5477          Lformat();          Lformat();
5478          vs_top=sup;          vs_top=sup;
5479          goto T2956;          goto T2963;
5480  T2956:;  T2963:;
5481          if(!(((V812))==(VV[261]))){          if(!(((V812))==(VV[262]))){
5482          goto T2948;}          goto T2955;}
5483          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[32]);
5484          base[2]= VV[262];          base[2]= VV[263];
5485          base[3]= (V814);          base[3]= (V814);
5486          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5487          Lformat();          Lformat();
5488          vs_top=sup;}          vs_top=sup;}
5489          goto T2948;          goto T2955;
5490  T2948:;  T2955:;
5491          V813= cdr((V813));          V813= cdr((V813));
5492          V814= car((V813));          V814= car((V813));
5493          goto T2943;}          goto T2950;}
5494          goto T2939;          goto T2946;
5495  T2939:;  T2946:;
5496          if(symbol_value(VV[18])==Cnil){          if(symbol_value(VV[19])==Cnil){
5497          goto T2984;}          goto T2991;}
5498          base[0]= symbol_value(VV[31]);          base[0]= symbol_value(VV[32]);
5499          base[1]= VV[263];          base[1]= VV[264];
5500          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5501          Lformat();          Lformat();
5502          vs_top=sup;          vs_top=sup;
5503          goto T2984;          goto T2991;
5504  T2984:;  T2991:;
5505          if(eql(symbol_value(VV[141]),small_fixnum(0))){          if((symbol_value(VV[17]))==Cnil){
5506          goto T2988;}          goto T2995;}
5507          base[0]= symbol_value(VV[31]);          if(eql(symbol_value(VV[142]),small_fixnum(0))){
5508          base[1]= VV[264];          goto T2995;}
5509          base[2]= symbol_value(VV[141]);          base[0]= symbol_value(VV[32]);
5510            base[1]= VV[265];
5511            base[2]= symbol_value(VV[142]);
5512          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
5513          Lformat();          Lformat();
5514          vs_top=sup;          vs_top=sup;
5515          {object V817 = vs_base[0];          {object V817 = vs_base[0];
5516          VMR55(V817)}          VMR55(V817)}
5517          goto T2988;          goto T2995;
5518  T2988:;  T2995:;
5519          {object V818 = Cnil;          {object V818 = Cnil;
5520          VMR55(V818)}}          VMR55(V818)}}
5521          base[0]=base[0];          base[0]=base[0];
# Line 5533  register object *base0; Line 5534  register object *base0;
5534          vs_top=sup;          vs_top=sup;
5535          goto TTL;          goto TTL;
5536  TTL:;  TTL:;
5537          V820= structure_ref((V819),VV[69],4);          V820= structure_ref((V819),VV[70],4);
5538          if(eql(/* INLINE-ARGS */V820,VV[72])){          if(eql(/* INLINE-ARGS */V820,VV[73])){
5539          goto T2994;}          goto T3003;}
5540          goto T2993;          goto T3002;
5541          goto T2994;          goto T3003;
5542  T2994:;  T3003:;
5543          (VV[153]->s.s_dbind)= Ct;          (VV[154]->s.s_dbind)= Ct;
5544          goto T2993;          goto T3002;
5545  T2993:;  T3002:;
5546          {object V821;          {object V821;
5547          V821= (*(LnkLI345))((V819));          V821= (*(LnkLI346))((V819));
5548          if(((V821))==Cnil){          if(((V821))==Cnil){
5549          goto T2999;}          goto T3008;}
5550          {object V822;          {object V822;
5551          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[89],number_plus(symbol_value(VV[89]),small_fixnum(1)));
5552          V822= symbol_value(VV[88]);          V822= symbol_value(VV[89]);
5553          (void)(structure_set((V819),VV[69],1,(V821)));          (void)(structure_set((V819),VV[70],1,(V821)));
5554          (void)(structure_set((V819),VV[69],4,(V822)));          (void)(structure_set((V819),VV[70],4,(V822)));
5555          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[26]);
5556          if((base0[1])!=Cnil){          if((base0[1])!=Cnil){
5557          goto T3006;}          goto T3015;}
5558          princ_char(123,VV[25]);          princ_char(123,VV[26]);
5559          base0[1]= Ct;          base0[1]= Ct;
5560          goto T3006;          goto T3015;
5561  T3006:;  T3015:;
5562          base[1]= (V819);          base[1]= (V819);
5563          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5564          (void) (*Lnk346)();          (void) (*Lnk347)();
5565          return;}          return;}
5566          goto T2999;          goto T3008;
5567  T2999:;  T3008:;
5568          base[1]= Cnil;          base[1]= Cnil;
5569          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5570          return;}          return;}
5571          }          }
5572  }  }
5573  static void LnkT346(){ call_or_link(VV[346],(void **)(void *)&Lnk346);} /* WT-VAR-DECL */  static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* WT-VAR-DECL */
5574  static object  LnkTLI345(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[345],(void **)(void *)&LnkLI345,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */  static object  LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[346],(void **)(void *)&LnkLI346,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
5575  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 */
5576  static object  LnkTLI340(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[340],(void **)(void *)&LnkLI340,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */  static object  LnkTLI341(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[341],(void **)(void *)&LnkLI341,1,first,ap);va_end(ap);return V1;} /* PARSE-CVSPECS */
5577  static object  LnkTLI339(){return call_proc0(VV[339],(void **)(void *)&LnkLI339);} /* WFS-ERROR */  static object  LnkTLI340(){return call_proc0(VV[340],(void **)(void *)&LnkLI340);} /* WFS-ERROR */
5578  static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* C2DM */  static void LnkT339(){ call_or_link(VV[339],(void **)(void *)&Lnk339);} /* C2DM */
5579  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[337],(void **)(void *)&LnkLI337,3,first,ap);va_end(ap);return V1;} /* C1DM */  static object  LnkTLI338(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[338],(void **)(void *)&LnkLI338,3,first,ap);va_end(ap);return V1;} /* C1DM */
5580  static object  LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[336],(void **)(void *)&LnkLI336,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */  static object  LnkTLI337(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[337],(void **)(void *)&LnkLI337,first,ap);va_end(ap);return V1;} /* REMOVE-DUPLICATES */
5581  static object  LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[335],(void **)(void *)&LnkLI335,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */  static object  LnkTLI336(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[336],(void **)(void *)&LnkLI336,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS1 */
5582  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;} /* WARN */  static object  LnkTLI335(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[335],(void **)(void *)&LnkLI335,first,ap);va_end(ap);return V1;} /* WARN */
5583  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;} /* REGISTER */  static object  LnkTLI334(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[334],(void **)(void *)&LnkLI334,1,first,ap);va_end(ap);return V1;} /* REGISTER */
5584  static object  LnkTLI332(){return call_proc0(VV[332],(void **)(void *)&LnkLI332);} /* WT-CVARS */  static object  LnkTLI333(){return call_proc0(VV[333],(void **)(void *)&LnkLI333);} /* WT-CVARS */
5585  static object  LnkTLI331(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[331],(void **)(void *)&LnkLI331,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */  static object  LnkTLI332(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[332],(void **)(void *)&LnkLI332,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
5586  static object  LnkTLI330(){return call_proc0(VV[330],(void **)(void *)&LnkLI330);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI331(){return call_proc0(VV[331],(void **)(void *)&LnkLI331);} /* CLOSE-INLINE-BLOCKS */
5587  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;} /* WT-VS */  static object  LnkTLI330(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[330],(void **)(void *)&LnkLI330,1,first,ap);va_end(ap);return V1;} /* WT-VS */
5588  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;} /* C2BIND */  static object  LnkTLI329(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[329],(void **)(void *)&LnkLI329,1,first,ap);va_end(ap);return V1;} /* C2BIND */
5589  static object  LnkTLI327(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[327],(void **)(void *)&LnkLI327,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */  static object  LnkTLI328(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[328],(void **)(void *)&LnkLI328,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
5590  static object  LnkTLI326(){return call_proc0(VV[326],(void **)(void *)&LnkLI326);} /* BABOON */  static object  LnkTLI327(){return call_proc0(VV[327],(void **)(void *)&LnkLI327);} /* BABOON */
5591  static object  LnkTLI325(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[325],(void **)(void *)&LnkLI325,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */  static object  LnkTLI326(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[326],(void **)(void *)&LnkLI326,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
5592  static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* INC-INLINE-BLOCKS */  static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* INC-INLINE-BLOCKS */
5593  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;} /* CS-PUSH */  static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[324],(void **)(void *)&LnkLI324,first,ap);va_end(ap);return V1;} /* CS-PUSH */
5594  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */  static object  LnkTLI323(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[323],(void **)(void *)&LnkLI323,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
5595  static object  LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */  static object  LnkTLI322(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[322],(void **)(void *)&LnkLI322,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
5596  static object  LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[320],(void **)(void *)&LnkLI320,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */  static object  LnkTLI321(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[321],(void **)(void *)&LnkLI321,1,first,ap);va_end(ap);return V1;} /* SET-UP-VAR-CVS */
5597  static object  LnkTLI319(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[319],(void **)(void *)&LnkLI319,first,ap);va_end(ap);return V1;} /* CONCATENATE */  static object  LnkTLI320(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[320],(void **)(void *)&LnkLI320,first,ap);va_end(ap);return V1;} /* CONCATENATE */
5598  static object  LnkTLI318(){return call_proc0(VV[318],(void **)(void *)&LnkLI318);} /* CVS-PUSH */  static object  LnkTLI319(){return call_proc0(VV[319],(void **)(void *)&LnkLI319);} /* CVS-PUSH */
5599  static object  LnkTLI317(){return call_proc0(VV[317],(void **)(void *)&LnkLI317);} /* VS-PUSH */  static object  LnkTLI318(){return call_proc0(VV[318],(void **)(void *)&LnkLI318);} /* VS-PUSH */
5600  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-V*-MACROS */  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,2,first,ap);va_end(ap);return V1;} /* WT-V*-MACROS */
5601  static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* C2EXPR */  static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* C2EXPR */
5602  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */  static object  LnkTLI315(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[315],(void **)(void *)&LnkLI315,3,first,ap);va_end(ap);return V1;} /* ASSIGN-DOWN-VARS */
5603  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[313],(void **)(void *)&LnkLI313,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */  static object  LnkTLI314(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[314],(void **)(void *)&LnkLI314,2,first,ap);va_end(ap);return V1;} /* WT-REQUIREDS */
5604  static object  LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[312],(void **)(void *)&LnkLI312,first,ap);va_end(ap);return V1;} /* WT-COMMENT */  static object  LnkTLI313(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[313],(void **)(void *)&LnkLI313,first,ap);va_end(ap);return V1;} /* WT-COMMENT */
5605  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */  static object  LnkTLI312(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[312],(void **)(void *)&LnkLI312,2,first,ap);va_end(ap);return V1;} /* ADD-DEBUG-INFO */
5606  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;} /* WT-DOWNWARD-CLOSURE-MACRO */  static object  LnkTLI311(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[311],(void **)(void *)&LnkLI311,1,first,ap);va_end(ap);return V1;} /* WT-DOWNWARD-CLOSURE-MACRO */
5607  static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* T3DEFUN-AUX */  static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* T3DEFUN-AUX */
5608  static object  LnkTLI308(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[308],(void **)(void *)&LnkLI308,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */  static object  LnkTLI309(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[309],(void **)(void *)&LnkLI309,258,first,ap);va_end(ap);return V1;} /* ANALYZE-REGS */
5609  static void LnkT307(){ call_or_link(VV[307],(void **)(void *)&Lnk307);} /* FIXNUMP */  static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* FIXNUMP */
5610  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* VOLATILE */  static object  LnkTLI307(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[307],(void **)(void *)&LnkLI307,1,first,ap);va_end(ap);return V1;} /* VOLATILE */
5611  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* MAXARGS */  static object  LnkTLI306(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[306],(void **)(void *)&LnkLI306,1,first,ap);va_end(ap);return V1;} /* MAXARGS */
5612  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,1,first,ap);va_end(ap);return V1;} /* VARARG-P */  static object  LnkTLI305(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[305],(void **)(void *)&LnkLI305,1,first,ap);va_end(ap);return V1;} /* VARARG-P */
5613  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */  static object  LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[304],(void **)(void *)&LnkLI304,3,first,ap);va_end(ap);return V1;} /* WT-IF-PROCLAIMED */
5614  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */  static object  LnkTLI303(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[303],(void **)(void *)&LnkLI303,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
5615  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;} /* ADD-ADDRESS */  static object  LnkTLI302(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[302],(void **)(void *)&LnkLI302,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */
5616  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[300],(void **)(void *)&LnkLI300,first,ap);va_end(ap);return V1;} /* ADD-INIT */  static object  LnkTLI301(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[301],(void **)(void *)&LnkLI301,first,ap);va_end(ap);return V1;} /* ADD-INIT */
5617  static object  LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[299],(void **)(void *)&LnkLI299,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */  static object  LnkTLI300(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[300],(void **)(void *)&LnkLI300,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
5618  static object  LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[298],(void **)(void *)&LnkLI298,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */  static object  LnkTLI299(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[299],(void **)(void *)&LnkLI299,2,first,ap);va_end(ap);return V1;} /* SHIFT<< */
5619  static object  LnkTLI297(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[297],(void **)(void *)&LnkLI297,257,first,ap);va_end(ap);return V1;} /* F-TYPE */  static object  LnkTLI298(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[298],(void **)(void *)&LnkLI298,257,first,ap);va_end(ap);return V1;} /* F-TYPE */
5620  static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* SUBTYPEP */  static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* SUBTYPEP */
5621  static void LnkT295(){ call_or_link(VV[295],(void **)(void *)&Lnk295);} /* STRUCTURE-SUBTYPE-P */  static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* STRUCTURE-SUBTYPE-P */
5622  static object  LnkTLI294(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[294],(void **)(void *)&LnkLI294,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */  static object  LnkTLI295(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[295],(void **)(void *)&LnkLI295,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
5623  static object  LnkTLI293(){return call_proc0(VV[293],(void **)(void *)&LnkLI293);} /* ADD-LOAD-TIME-SHARP-COMMA */  static object  LnkTLI294(){return call_proc0(VV[294],(void **)(void *)&LnkLI294);} /* ADD-LOAD-TIME-SHARP-COMMA */
5624  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */  static object  LnkTLI293(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[293],(void **)(void *)&LnkLI293,2,first,ap);va_end(ap);return V1;} /* MAKE-INLINE-STRING */
5625  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */  static object  LnkTLI292(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[292],(void **)(void *)&LnkLI292,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
5626  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */  static object  LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[291],(void **)(void *)&LnkLI291,2,first,ap);va_end(ap);return V1;} /* CMPFIX-ARGS */
5627  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;} /* PROCLAIM */  static object  LnkTLI290(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[290],(void **)(void *)&LnkLI290,1,first,ap);va_end(ap);return V1;} /* PROCLAIM */
5628  static object  LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[288],(void **)(void *)&LnkLI288,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */  static object  LnkTLI289(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[289],(void **)(void *)&LnkLI289,1,first,ap);va_end(ap);return V1;} /* CHECK-DOWNWARD */
5629  static object  LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[287],(void **)(void *)&LnkLI287,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */  static object  LnkTLI288(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[288],(void **)(void *)&LnkLI288,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
5630  static object  LnkTLI286(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[286],(void **)(void *)&LnkLI286,1,first,ap);va_end(ap);return V1;} /* T1PROGN */  static object  LnkTLI287(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[287],(void **)(void *)&LnkLI287,1,first,ap);va_end(ap);return V1;} /* T1PROGN */
5631  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 */
5632  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 */
5633  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 */
5634  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 */
5635  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 */
5636  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 */
5637  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 */
5638  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 */
5639  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 */
5640  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 */
5641  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 */
5642  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 */
5643  static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* T1EXPR */  static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* T1EXPR */
5644  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 */
5645  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 */
5646  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 */
5647  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 */
5648  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 */
5649  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 */
5650  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 */
5651    
5652  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
5653  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.10.4.1  
changed lines
  Added in v.1.10.4.1.4.1

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