/[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.9 by camm, Sun Feb 9 22:35:14 2003 UTC revision 1.10 by camm, Wed Feb 26 22:21:35 2003 UTC
# Line 13  static void L1() Line 13  static void L1()
13          check_arg(1);          check_arg(1);
14          V1=(base[0]);          V1=(base[0]);
15          vs_top=sup;          vs_top=sup;
16  goto TTL;          goto TTL;
17  TTL:;  TTL:;
18          bds_bind(VV[0],(V1));          bds_bind(VV[0],(V1));
19          bds_bind(VV[1],Ct);          bds_bind(VV[1],Ct);
# Line 43  TTL:; Line 43  TTL:;
43          bds_unwind1;          bds_unwind1;
44          bds_unwind1;          bds_unwind1;
45          return;          return;
46  goto T11;          goto T11;
47  T11:;  T11:;
48          if((get((V2),VV[5],Cnil))==Cnil){          if((get((V2),VV[5],Cnil))==Cnil){
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,(*(LnkLI266))(VV[7],(V1))));
53  goto T16;          goto T16;
54  T16:;  T16:;
55          (void)((*(LnkLI267))(Ct,(V1)));          (void)((*(LnkLI267))(Ct,(V1)));
56          V6= (*(LnkLI268))((V1));          V6= (*(LnkLI268))((V1));
# Line 60  T16:; Line 60  T16:;
60          bds_unwind1;          bds_unwind1;
61          bds_unwind1;          bds_unwind1;
62          return;          return;
63  goto T14;          goto T14;
64  T14:;  T14:;
65          V4= get((V2),VV[8],Cnil);          V4= get((V2),VV[8],Cnil);
66          if(((V4))==Cnil){          if(((V4))==Cnil){
# Line 68  T14:; Line 68  T14:;
68          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
69          goto T24;}          goto T24;}
70          (void)((*(LnkLI269))());          (void)((*(LnkLI269))());
71  goto T24;          goto T24;
72  T24:;  T24:;
73          base[3]= (V3);          base[3]= (V3);
74          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 77  T24:; Line 77  T24:;
77          bds_unwind1;          bds_unwind1;
78          bds_unwind1;          bds_unwind1;
79          return;          return;
80  goto T21;          goto T21;
81  T21:;  T21:;
82          if((get((V2),VV[10],Cnil))==Cnil){          if((get((V2),VV[10],Cnil))==Cnil){
83          goto T29;}          goto T29;}
84          if((symbol_value(VV[9]))==Cnil){          if((symbol_value(VV[9]))==Cnil){
85          goto T31;}          goto T31;}
86          (void)((*(LnkLI269))());          (void)((*(LnkLI269))());
87  goto T31;          goto T31;
88  T31:;  T31:;
89          base[3]= (*(LnkLI270))((V1));          base[3]= (*(LnkLI270))((V1));
90          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 93  T31:; Line 93  T31:;
93          bds_unwind1;          bds_unwind1;
94          bds_unwind1;          bds_unwind1;
95          return;          return;
96  goto T29;          goto T29;
97  T29:;  T29:;
98          if((get((V2),VV[11],Cnil))==Cnil){          if((get((V2),VV[11],Cnil))==Cnil){
99          goto T36;}          goto T36;}
# Line 104  T29:; Line 104  T29:;
104          bds_unwind1;          bds_unwind1;
105          bds_unwind1;          bds_unwind1;
106          return;          return;
107  goto T36;          goto T36;
108  T36:;  T36:;
109          base[3]= (V2);          base[3]= (V2);
110          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 127  T36:; Line 127  T36:;
127          bds_unwind1;          bds_unwind1;
128          bds_unwind1;          bds_unwind1;
129          return;}          return;}
130  goto T39;          goto T39;
131  T39:;  T39:;
132          V10= (*(LnkLI272))((V1));          V10= (*(LnkLI272))((V1));
133          frs_pop();          frs_pop();
# Line 136  T39:; Line 136  T39:;
136          bds_unwind1;          bds_unwind1;
137          bds_unwind1;          bds_unwind1;
138          return;          return;
139  goto T8;          goto T8;
140  T8:;  T8:;
141          if(!(type_of((V2))==t_cons)){          if(!(type_of((V2))==t_cons)){
142          goto T48;}          goto T48;}
# Line 147  T8:; Line 147  T8:;
147          bds_unwind1;          bds_unwind1;
148          bds_unwind1;          bds_unwind1;
149          return;          return;
150  goto T48;          goto T48;
151  T48:;  T48:;
152          V12= (VFUN_NARGS=2,(*(LnkLI265))(VV[12],(V2)));          V12= (VFUN_NARGS=2,(*(LnkLI265))(VV[12],(V2)));
153          frs_pop();          frs_pop();
# Line 156  T48:; Line 156  T48:;
156          bds_unwind1;          bds_unwind1;
157          bds_unwind1;          bds_unwind1;
158          return;}          return;}
159  goto T3;          goto T3;
160  T3:;  T3:;
161          frs_pop();          frs_pop();
162          base[3]= Cnil;          base[3]= Cnil;
# Line 176  static void L2() Line 176  static void L2()
176          check_arg(1);          check_arg(1);
177          V13=(base[0]);          V13=(base[0]);
178          vs_top=sup;          vs_top=sup;
179  goto TTL;          goto TTL;
180  TTL:;  TTL:;
181          if(!(equal((V13),VV[13]))){          if(!(equal((V13),VV[13]))){
182          goto T51;}          goto T51;}
183          base[1]= VV[14];          base[1]= VV[14];
184          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
185          return;          return;
186  goto T51;          goto T51;
187  T51:;  T51:;
188          if(!(equal((V13),VV[15]))){          if(!(equal((V13),VV[15]))){
189          goto T54;}          goto T54;}
190          base[1]= VV[16];          base[1]= VV[16];
191          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
192          return;          return;
193  goto T54;          goto T54;
194  T54:;  T54:;
195          base[1]= (V13);          base[1]= (V13);
196          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 204  static object LI3(V15) Line 204  static object LI3(V15)
204  object V15;  object V15;
205  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
206          bds_check;          bds_check;
207  goto TTL;          goto TTL;
208  TTL:;  TTL:;
209          {object V16;          {object V16;
210          V16= Cnil;          V16= Cnil;
# Line 224  TTL:; Line 224  TTL:;
224          {object V17;          {object V17;
225          V17= symbol_value(VV[24]);          V17= symbol_value(VV[24]);
226          bds_bind(VV[0],car((V17)));          bds_bind(VV[0],car((V17)));
227  goto T69;          goto T69;
228  T69:;  T69:;
229          if(!(endp_prop((V17)))){          if(!(endp_prop((V17)))){
230          goto T70;}          goto T70;}
231          bds_unwind1;          bds_unwind1;
232          goto T65;          goto T65;
233  goto T70;          goto T70;
234  T70:;  T70:;
235          setq(VV[1],Ct);          setq(VV[1],Ct);
236          V16= get(car((VV[0]->s.s_dbind)),VV[26],Cnil);          V16= get(car((VV[0]->s.s_dbind)),VV[26],Cnil);
# Line 245  T70:; Line 245  T70:;
245          vs_base=base+9;}          vs_base=base+9;}
246          super_funcall_no_event(base[8]);          super_funcall_no_event(base[8]);
247          vs_top=sup;          vs_top=sup;
248  goto T76;          goto T76;
249  T76:;  T76:;
250          V17= cdr((V17));          V17= cdr((V17));
251          (VV[0]->s.s_dbind)= car((V17));          (VV[0]->s.s_dbind)= car((V17));
252          goto T69;}          goto T69;}
253  goto T65;          goto T65;
254  T65:;  T65:;
255          {object V19;          {object V19;
256          V19= symbol_value(VV[24]);          V19= symbol_value(VV[24]);
257          bds_bind(VV[0],car((V19)));          bds_bind(VV[0],car((V19)));
258  goto T91;          goto T91;
259  T91:;  T91:;
260          if(!(endp_prop((V19)))){          if(!(endp_prop((V19)))){
261          goto T92;}          goto T92;}
262          bds_unwind1;          bds_unwind1;
263          goto T87;          goto T87;
264  goto T92;          goto T92;
265  T92:;  T92:;
266          setq(VV[1],Ct);          setq(VV[1],Ct);
267          V16= get(car((VV[0]->s.s_dbind)),VV[27],Cnil);          V16= get(car((VV[0]->s.s_dbind)),VV[27],Cnil);
# Line 276  T92:; Line 276  T92:;
276          vs_base=base+9;}          vs_base=base+9;}
277          super_funcall_no_event(base[8]);          super_funcall_no_event(base[8]);
278          vs_top=sup;          vs_top=sup;
279  goto T98;          goto T98;
280  T98:;  T98:;
281          V19= cdr((V19));          V19= cdr((V19));
282          (VV[0]->s.s_dbind)= car((V19));          (VV[0]->s.s_dbind)= car((V19));
283          goto T91;}          goto T91;}
284  goto T87;          goto T87;
285  T87:;  T87:;
286          {object V21;          {object V21;
287          V21= Cnil;          V21= Cnil;
288  goto T111;          goto T111;
289  T111:;  T111:;
290          if(!(endp_prop(symbol_value(VV[28])))){          if(!(endp_prop(symbol_value(VV[28])))){
291          goto T113;}          goto T113;}
292          goto T109;          goto T109;
293  goto T113;          goto T113;
294  T113:;  T113:;
295          V21= car(symbol_value(VV[28]));          V21= car(symbol_value(VV[28]));
296          {object V22;          {object V22;
# Line 305  T113:; Line 305  T113:;
305          (void) (*Lnk257)();          (void) (*Lnk257)();
306          vs_top=sup;          vs_top=sup;
307          goto T111;}          goto T111;}
308  goto T109;          goto T109;
309  T109:;  T109:;
310          {object V24;          {object V24;
311          object V25;          object V25;
312          V24= symbol_value(VV[29]);          V24= symbol_value(VV[29]);
313          V25= car((V24));          V25= car((V24));
314  goto T128;          goto T128;
315  T128:;  T128:;
316          if(!(endp_prop((V24)))){          if(!(endp_prop((V24)))){
317          goto T129;}          goto T129;}
318          goto T124;          goto T124;
319  goto T129;          goto T129;
320  T129:;  T129:;
321          {object V26;          {object V26;
322          V26= (V25);          V26= (V25);
# Line 329  T129:; Line 329  T129:;
329          V24= cdr((V24));          V24= cdr((V24));
330          V25= car((V24));          V25= car((V24));
331          goto T128;}          goto T128;}
332  goto T124;          goto T124;
333  T124:;  T124:;
334          {object V27;          {object V27;
335          object V28;          object V28;
336          V27= (VV[17]->s.s_dbind);          V27= (VV[17]->s.s_dbind);
337          V28= car((V27));          V28= car((V27));
338  goto T144;          goto T144;
339  T144:;  T144:;
340          if(!(endp_prop((V27)))){          if(!(endp_prop((V27)))){
341          goto T145;}          goto T145;}
342          goto T140;          goto T140;
343  goto T145;          goto T145;
344  T145:;  T145:;
345          (void)((*(LnkLI276))((V28)));          (void)((*(LnkLI276))((V28)));
346          V27= cdr((V27));          V27= cdr((V27));
347          V28= car((V27));          V28= car((V27));
348          goto T144;}          goto T144;}
349  goto T140;          goto T140;
350  T140:;  T140:;
351          {object V29;          {object V29;
352          object V30;          object V30;
353          V29= symbol_value(VV[30]);          V29= symbol_value(VV[30]);
354          V30= car((V29));          V30= car((V29));
355  goto T159;          goto T159;
356  T159:;  T159:;
357          if(!(endp_prop((V29)))){          if(!(endp_prop((V29)))){
358          goto T160;}          goto T160;}
359          goto T155;          goto T155;
360  goto T160;          goto T160;
361  T160:;  T160:;
362          princ_str("\nstatic void LC",VV[31]);          princ_str("\nstatic void LC",VV[31]);
363          V31= structure_ref((V30),VV[32],3);          V31= structure_ref((V30),VV[32],3);
# Line 366  T160:; Line 366  T160:;
366          V29= cdr((V29));          V29= cdr((V29));
367          V30= car((V29));          V30= car((V29));
368          goto T159;}          goto T159;}
369  goto T155;          goto T155;
370  T155:;  T155:;
371          {object V32;          {object V32;
372          object V33;          object V33;
373          V32= symbol_value(VV[33]);          V32= symbol_value(VV[33]);
374          V33= car((V32));          V33= car((V32));
375  goto T177;          goto T177;
376  T177:;  T177:;
377          if(!(endp_prop((V32)))){          if(!(endp_prop((V32)))){
378          goto T178;}          goto T178;}
379          goto T173;          goto T173;
380  goto T178;          goto T178;
381  T178:;  T178:;
382          princ_str("\n#define VM",VV[31]);          princ_str("\n#define VM",VV[31]);
383          (void)((*(LnkLI277))(car((V33))));          (void)((*(LnkLI277))(car((V33))));
# Line 386  T178:; Line 386  T178:;
386          V32= cdr((V32));          V32= cdr((V32));
387          V33= car((V32));          V33= car((V32));
388          goto T177;}          goto T177;}
389  goto T173;          goto T173;
390  T173:;  T173:;
391          (void)((*(LnkLI278))(Cnil));          (void)((*(LnkLI278))(Cnil));
392          {object V34;          {object V34;
# Line 399  T173:; Line 399  T173:;
399          vs_top=sup;          vs_top=sup;
400          V34= vs_base[0];          V34= vs_base[0];
401          V35= small_fixnum(0);          V35= small_fixnum(0);
402  goto T200;          goto T200;
403  T200:;  T200:;
404          if(!(number_compare((V35),(V34))>=0)){          if(!(number_compare((V35),(V34))>=0)){
405          goto T201;}          goto T201;}
406          goto T193;          goto T193;
407  goto T201;          goto T201;
408  T201:;  T201:;
409          (void)((*(LnkLI278))(Cnil));          (void)((*(LnkLI278))(Cnil));
410          V35= one_plus((V35));          V35= one_plus((V35));
411          goto T200;}          goto T200;}
412  goto T193;          goto T193;
413  T193:;  T193:;
414          princ_str("\nstatic char * VVi[",VV[31]);          princ_str("\nstatic char * VVi[",VV[31]);
415          V36= number_plus(small_fixnum(1),symbol_value(VV[34]));          V36= number_plus(small_fixnum(1),symbol_value(VV[34]));
# Line 422  T193:; Line 422  T193:;
422          goto T217;}          goto T217;}
423          princ_char(10,VV[31]);          princ_char(10,VV[31]);
424          (void)((*(LnkLI277))(small_fixnum(0)));          (void)((*(LnkLI277))(small_fixnum(0)));
425  goto T217;          goto T217;
426  T217:;  T217:;
427          {register object V37;          {register object V37;
428          V37= nreverse((VV[21]->s.s_dbind));          V37= nreverse((VV[21]->s.s_dbind));
429  goto T223;          goto T223;
430  T223:;  T223:;
431          if(((V37))!=Cnil){          if(((V37))!=Cnil){
432          goto T224;}          goto T224;}
433          princ_str("\n};",VV[31]);          princ_str("\n};",VV[31]);
434          goto T220;          goto T220;
435  goto T224;          goto T224;
436  T224:;  T224:;
437          princ_str("\n(char *)(",VV[31]);          princ_str("\n(char *)(",VV[31]);
438          (void)((*(LnkLI277))(caar((V37))));          (void)((*(LnkLI277))(caar((V37))));
# Line 441  T224:; Line 441  T224:;
441          goto T236;}          goto T236;}
442          V38= VV[35];          V38= VV[35];
443          goto T234;          goto T234;
444  goto T236;          goto T236;
445  T236:;  T236:;
446          V38= VV[36];          V38= VV[36];
447  goto T234;          goto T234;
448  T234:;  T234:;
449          (void)((*(LnkLI277))(V38));          (void)((*(LnkLI277))(V38));
450          V37= cdr((V37));          V37= cdr((V37));
451          goto T223;}          goto T223;}
452  goto T220;          goto T220;
453  T220:;  T220:;
454          princ_str("\n#define VV ((object *)VVi)",VV[31]);          princ_str("\n#define VV ((object *)VVi)",VV[31]);
455          vs_base=vs_top;          vs_base=vs_top;
# Line 459  T220:; Line 459  T220:;
459          object V40;          object V40;
460          V39= (VV[17]->s.s_dbind);          V39= (VV[17]->s.s_dbind);
461          V40= car((V39));          V40= car((V39));
462  goto T247;          goto T247;
463  T247:;  T247:;
464          if(!(endp_prop((V39)))){          if(!(endp_prop((V39)))){
465          goto T248;}          goto T248;}
# Line 472  T247:; Line 472  T247:;
472          bds_unwind1;          bds_unwind1;
473          bds_unwind1;          bds_unwind1;
474          VMR3(V41)}          VMR3(V41)}
475  goto T248;          goto T248;
476  T248:;  T248:;
477          {register object V42;          {register object V42;
478          register object V43;          register object V43;
# Line 489  T248:; Line 489  T248:;
489          princ_char(59,VV[31]);          princ_char(59,VV[31]);
490          V45= VV[38];          V45= VV[38];
491          goto T256;          goto T256;
492  goto T258;          goto T258;
493  T258:;  T258:;
494          if(((V43))==Cnil){          if(((V43))==Cnil){
495          goto T267;}          goto T267;}
496          V45= (*(LnkLI280))((V43));          V45= (*(LnkLI280))((V43));
497          goto T265;          goto T265;
498  goto T267;          goto T267;
499  T267:;  T267:;
500          V45= VV[39];          V45= VV[39];
501  goto T265;          goto T265;
502  T265:;  T265:;
503  goto T256;          goto T256;
504  T256:;  T256:;
505          if(((V43))==Cnil){          if(((V43))==Cnil){
506          goto T270;}          goto T270;}
# Line 510  T256:; Line 510  T256:;
510          goto T269;}          goto T269;}
511          if((Ct)==((V43))){          if((Ct)==((V43))){
512          goto T270;}          goto T270;}
513  goto T269;          goto T269;
514  T269:;  T269:;
515          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
516          base[8]= (V45);          base[8]= (V45);
# Line 542  T269:; Line 542  T269:;
542          (void)((*(LnkLI277))((V42)));          (void)((*(LnkLI277))((V42)));
543          princ_char(59,VV[31]);          princ_char(59,VV[31]);
544          goto T252;          goto T252;
545  goto T270;          goto T270;
546  T270:;  T270:;
547          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
548          base[8]= (V45);          base[8]= (V45);
# Line 566  T270:; Line 566  T270:;
566          princ_str(")() = LnkT",VV[31]);          princ_str(")() = LnkT",VV[31]);
567          (void)((*(LnkLI277))((V42)));          (void)((*(LnkLI277))((V42)));
568          princ_char(59,VV[31]);}          princ_char(59,VV[31]);}
569  goto T252;          goto T252;
570  T252:;  T252:;
571          V39= cdr((V39));          V39= cdr((V39));
572          V40= car((V39));          V40= car((V39));
# Line 580  static object LI4(V53,V54) Line 580  static object LI4(V53,V54)
580    
581  object V53;register object V54;  object V53;register object V54;
582  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
583  goto TTL;          goto TTL;
584  TTL:;  TTL:;
585          if((V53)!=Cnil){          if((V53)!=Cnil){
586          goto T321;}          goto T321;}
587          if(type_of(car((V54)))==t_symbol){          if(type_of(car((V54)))==t_symbol){
588          goto T322;}          goto T322;}
589          goto T321;          goto T321;
590  goto T322;          goto T322;
591  T322:;  T322:;
592          V53= get(car((V54)),VV[40],Cnil);          V53= get(car((V54)),VV[40],Cnil);
593  goto T321;          goto T321;
594  T321:;  T321:;
595          if(((V53))==Cnil){          if(((V53))==Cnil){
596          goto T327;}          goto T327;}
597          if((VV[41])==(symbol_value(VV[42]))){          if((VV[41])==(symbol_value(VV[42]))){
598          goto T325;}          goto T325;}
599  goto T327;          goto T327;
600  T327:;  T327:;
601          if(!(type_of(symbol_value(VV[42]))==t_cons)){          if(!(type_of(symbol_value(VV[42]))==t_cons)){
602          goto T326;}          goto T326;}
# Line 606  T327:; Line 606  T327:;
606          goto T333;          goto T333;
607          }else V55=V55->c.c_cdr;          }else V55=V55->c.c_cdr;
608          goto T326;}          goto T326;}
609  goto T333;          goto T333;
610  T333:;  T333:;
611  goto T325;          goto T325;
612  T325:;  T325:;
613          if(((V54))==Cnil){          if(((V54))==Cnil){
614          goto T334;}          goto T334;}
# Line 616  T325:; Line 616  T325:;
616          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
617          (void) (*Lnk282)();          (void) (*Lnk282)();
618          vs_top=sup;          vs_top=sup;
619  goto T334;          goto T334;
620  T334:;  T334:;
621          {object V56 = Ct;          {object V56 = Ct;
622          VMR4(V56)}          VMR4(V56)}
623  goto T326;          goto T326;
624  T326:;  T326:;
625          {object V57 = Cnil;          {object V57 = Cnil;
626          VMR4(V57)}          VMR4(V57)}
# Line 638  static void L5() Line 638  static void L5()
638          check_arg(1);          check_arg(1);
639          V58=(base[0]);          V58=(base[0]);
640          vs_top=sup;          vs_top=sup;
641  goto TTL;          goto TTL;
642  TTL:;  TTL:;
643          {register object V59;          {register object V59;
644          register object V60;          register object V60;
# Line 647  TTL:; Line 647  TTL:;
647          if(!(endp_prop((V58)))){          if(!(endp_prop((V58)))){
648          goto T340;}          goto T340;}
649          (void)((*(LnkLI283))(VV[44],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI283))(VV[44],small_fixnum(1),small_fixnum(0)));
650  goto T340;          goto T340;
651  T340:;  T340:;
652          {register object V61;          {register object V61;
653          register object V62;          register object V62;
654          V61= car((V58));          V61= car((V58));
655          V62= car((V61));          V62= car((V61));
656  goto T347;          goto T347;
657  T347:;  T347:;
658          if(!(endp_prop((V61)))){          if(!(endp_prop((V61)))){
659          goto T348;}          goto T348;}
660          goto T343;          goto T343;
661  goto T348;          goto T348;
662  T348:;  T348:;
663          {object V63= (V62);          {object V63= (V62);
664          if((V63!= VV[284]))goto T353;          if((V63!= VV[284]))goto T353;
665          V59= Ct;          V59= Ct;
666          goto T352;          goto T352;
667  goto T353;          goto T353;
668  T353:;  T353:;
669          if((V63!= VV[43]))goto T355;          if((V63!= VV[43]))goto T355;
670          V60= Ct;          V60= Ct;
671          goto T352;          goto T352;
672  goto T355;          goto T355;
673  T355:;  T355:;
674          if((V63!= VV[285]))goto T357;          if((V63!= VV[285]))goto T357;
675          goto T352;          goto T352;
676  goto T357;          goto T357;
677  T357:;  T357:;
678          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));}          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[45],(V62))));}
679  goto T352;          goto T352;
680  T352:;  T352:;
681          V61= cdr((V61));          V61= cdr((V61));
682          V62= car((V61));          V62= car((V61));
683          goto T347;}          goto T347;}
684  goto T343;          goto T343;
685  T343:;  T343:;
686          base[1]= car((V58));          base[1]= car((V58));
687          bds_bind(VV[42],base[1]);          bds_bind(VV[42],base[1]);
# Line 691  T343:; Line 691  T343:;
691          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
692          bds_unwind1;          bds_unwind1;
693          return;          return;
694  goto T365;          goto T365;
695  T365:;  T365:;
696          if(((V60))==Cnil){          if(((V60))==Cnil){
697          goto T368;}          goto T368;}
# Line 700  T365:; Line 700  T365:;
700          (void) (*Lnk282)();          (void) (*Lnk282)();
701          bds_unwind1;          bds_unwind1;
702          return;          return;
703  goto T368;          goto T368;
704  T368:;  T368:;
705          base[2]= Cnil;          base[2]= Cnil;
706          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 715  static object LI6(V65) Line 715  static object LI6(V65)
715  object V65;  object V65;
716  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
717          bds_check;          bds_check;
718  goto TTL;          goto TTL;
719  TTL:;  TTL:;
720          if(!(equal(car((V65)),VV[47]))){          if(!(equal(car((V65)),VV[47]))){
721          goto T372;}          goto T372;}
# Line 723  TTL:; Line 723  TTL:;
723          {object V66 = (*(LnkLI286))(cdr((V65)));          {object V66 = (*(LnkLI286))(cdr((V65)));
724          bds_unwind1;          bds_unwind1;
725          VMR6(V66)}          VMR6(V66)}
726  goto T372;          goto T372;
727  T372:;  T372:;
728          {register object V67;          {register object V67;
729          register object V68;          register object V68;
730          V67= (V65);          V67= (V65);
731          V68= car((V67));          V68= car((V67));
732  goto T377;          goto T377;
733  T377:;  T377:;
734          if(!(endp_prop((V67)))){          if(!(endp_prop((V67)))){
735          goto T378;}          goto T378;}
736          {object V69 = Cnil;          {object V69 = Cnil;
737          VMR6(V69)}          VMR6(V69)}
738  goto T378;          goto T378;
739  T378:;  T378:;
740          base[1]= (V68);          base[1]= (V68);
741          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 753  static object LI7(V72,V73) Line 753  static object LI7(V72,V73)
753    
754  object V72;object V73;  object V72;object V73;
755  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
756  goto TTL;          goto TTL;
757  TTL:;  TTL:;
758          {register object V74;          {register object V74;
759          register object V75;          register object V75;
# Line 767  TTL:; Line 767  TTL:;
767          register object V77;          register object V77;
768          V76= (V73);          V76= (V73);
769          V77= car((V76));          V77= car((V76));
770  goto T396;          goto T396;
771  T396:;  T396:;
772          if(!(endp_prop((V76)))){          if(!(endp_prop((V76)))){
773          goto T397;}          goto T397;}
774          goto T392;          goto T392;
775  goto T397;          goto T397;
776  T397:;  T397:;
777          {register object x= car((V77)),V78= (V75);          {register object x= car((V77)),V78= (V75);
778          while(!endp(V78))          while(!endp(V78))
# Line 781  T397:; Line 781  T397:;
781          goto T402;          goto T402;
782          }else V78=V78->c.c_cdr;          }else V78=V78->c.c_cdr;
783          V74= Cnil;}          V74= Cnil;}
784  goto T402;          goto T402;
785  T402:;  T402:;
786          if((V74)==Cnil){          if((V74)==Cnil){
787          goto T403;}          goto T403;}
# Line 791  T402:; Line 791  T402:;
791          V80= cadr((V77));          V80= cadr((V77));
792          if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));          if(type_of((V79))!=t_cons)FEwrong_type_argument(Scons,(V79));
793          ((V79))->c.c_car = (V80);}          ((V79))->c.c_car = (V80);}
794  goto T403;          goto T403;
795  T403:;  T403:;
796          V76= cdr((V76));          V76= cdr((V76));
797          V77= car((V76));          V77= car((V76));
798          goto T396;}          goto T396;}
799  goto T392;          goto T392;
800  T392:;  T392:;
801          {register object x= VV[49],V81= (V75);          {register object x= VV[49],V81= (V75);
802          while(!endp(V81))          while(!endp(V81))
# Line 805  T392:; Line 805  T392:;
805          goto T416;          goto T416;
806          }else V81=V81->c.c_cdr;          }else V81=V81->c.c_cdr;
807          V74= Cnil;}          V74= Cnil;}
808  goto T416;          goto T416;
809  T416:;  T416:;
810          if(((V74))==Cnil){          if(((V74))==Cnil){
811          goto T414;}          goto T414;}
# Line 814  T416:; Line 814  T416:;
814          if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74);          if(type_of(V74)!=t_cons)FEwrong_type_argument(Scons,V74);
815          (V74)->c.c_cdr = (V83);          (V74)->c.c_cdr = (V83);
816          goto T412;}          goto T412;}
817  goto T414;          goto T414;
818  T414:;  T414:;
819          V84= make_cons(VV[49],(V73));          V84= make_cons(VV[49],(V73));
820          V75= append((V75),/* INLINE-ARGS */V84);          V75= append((V75),/* INLINE-ARGS */V84);
821  goto T412;          goto T412;
822  T412:;  T412:;
823          {object V85 = listA(3,car((V72)),(V75),cddr((V72)));          {object V85 = listA(3,car((V72)),(V75),cddr((V72)));
824          VMR7(V85)}}          VMR7(V85)}}
# Line 832  static object LI8(V87) Line 832  static object LI8(V87)
832  object V87;  object V87;
833  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
834          bds_check;          bds_check;
835  goto TTL;          goto TTL;
836  TTL:;  TTL:;
837          {object V88;          {object V88;
838          V88= symbol_value(VV[50]);          V88= symbol_value(VV[50]);
# Line 841  TTL:; Line 841  TTL:;
841          goto T422;}          goto T422;}
842          if(!(endp_prop(cdr((V87))))){          if(!(endp_prop(cdr((V87))))){
843          goto T421;}          goto T421;}
844  goto T422;          goto T422;
845  T422:;  T422:;
846          V90 = make_fixnum((long)length((V87)));          V90 = make_fixnum((long)length((V87)));
847          (void)((*(LnkLI283))(VV[51],small_fixnum(2),V90));          (void)((*(LnkLI283))(VV[51],small_fixnum(2),V90));
848  goto T421;          goto T421;
849  T421:;  T421:;
850          if(type_of(car((V87)))==t_symbol){          if(type_of(car((V87)))==t_symbol){
851          goto T426;}          goto T426;}
852          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[53],car((V87)))));
853  goto T426;          goto T426;
854  T426:;  T426:;
855          V91= make_cons(VV[51],(V87));          V91= make_cons(VV[51],(V87));
856          (void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91));          (void)((*(LnkLI267))(Cnil,/* INLINE-ARGS */V91));
857  goto T431;          goto T431;
858  T431:;  T431:;
859          setq(VV[6],Ct);          setq(VV[6],Ct);
860          setq(VV[54],Cnil);          setq(VV[54],Cnil);
# Line 866  T431:; Line 866  T431:;
866          if(V96==Cnil)goto T438;          if(V96==Cnil)goto T438;
867          V93= V96;          V93= V96;
868          goto T437;          goto T437;
869  goto T438;          goto T438;
870  T438:;}  T438:;}
871          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));          setq(VV[61],number_plus(symbol_value(VV[61]),small_fixnum(1)));
872          V93= symbol_value(VV[61]);          V93= symbol_value(VV[61]);
873  goto T437;          goto T437;
874  T437:;  T437:;
875          V95= car((V87));          V95= car((V87));
876          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
# Line 884  T437:; Line 884  T437:;
884          if(!(eql((V88),symbol_value(VV[50])))){          if(!(eql((V88),symbol_value(VV[50])))){
885          goto T445;}          goto T445;}
886          goto T444;          goto T444;
887  goto T445;          goto T445;
888  T445:;  T445:;
889          (void)(structure_set(cadr((V92)),VV[62],4,Ct));          (void)(structure_set(cadr((V92)),VV[62],4,Ct));
890  goto T444;          goto T444;
891  T444:;  T444:;
892          V97= structure_ref(cadr((V92)),VV[62],1);          V97= structure_ref(cadr((V92)),VV[62],1);
893          (void)((*(LnkLI288))(/* INLINE-ARGS */V97));          (void)((*(LnkLI288))(/* INLINE-ARGS */V97));
# Line 905  T444:; Line 905  T444:;
905          V99= vs_base[0];          V99= vs_base[0];
906          V100= list(4,VV[64],(V95),V99,Ct);          V100= list(4,VV[64],(V95),V99,Ct);
907          (void)((*(LnkLI289))(/* INLINE-ARGS */V100));}          (void)((*(LnkLI289))(/* INLINE-ARGS */V100));}
908  goto T448;          goto T448;
909  T448:;  T448:;
910          if((get((V95),VV[66],Cnil))==Cnil){          if((get((V95),VV[66],Cnil))==Cnil){
911          goto T459;}          goto T459;}
# Line 916  T448:; Line 916  T448:;
916          if((cadr((V101)))==Cnil){          if((cadr((V101)))==Cnil){
917          goto T464;}          goto T464;}
918          goto T459;          goto T459;
919  goto T464;          goto T464;
920  T464:;  T464:;
921          if((caddr((V101)))==Cnil){          if((caddr((V101)))==Cnil){
922          goto T466;}          goto T466;}
923          goto T459;          goto T459;
924  goto T466;          goto T466;
925  T466:;  T466:;
926          if((cadddr((V101)))==Cnil){          if((cadddr((V101)))==Cnil){
927          goto T468;}          goto T468;}
928          goto T459;          goto T459;
929  goto T468;          goto T468;
930  T468:;  T468:;
931          if(((long)length(car((V101))))<(64)){          if(((long)length(car((V101))))<(64)){
932          goto T470;}          goto T470;}
933          goto T459;          goto T459;
934  goto T470;          goto T470;
935  T470:;  T470:;
936          {register object V103;          {register object V103;
937          register object V104;          register object V104;
# Line 939  T470:; Line 939  T470:;
939          V103= car((V101));          V103= car((V101));
940          V104= get((V95),VV[67],Cnil);          V104= get((V95),VV[67],Cnil);
941          V105= Cnil;          V105= Cnil;
942  goto T477;          goto T477;
943  T477:;  T477:;
944          if(!(endp_prop((V103)))){          if(!(endp_prop((V103)))){
945          goto T478;}          goto T478;}
946          if(endp_prop((V104))){          if(endp_prop((V104))){
947          goto T481;}          goto T481;}
948          goto T473;          goto T473;
949  goto T481;          goto T481;
950  T481:;  T481:;
951          if(((V102))==Cnil){          if(((V102))==Cnil){
952          goto T484;}          goto T484;}
# Line 957  T481:; Line 957  T481:;
957          bds_unwind1;          bds_unwind1;
958          bds_unwind1;          bds_unwind1;
959          goto T431;          goto T431;
960  goto T484;          goto T484;
961  T484:;  T484:;
962          if(((V105))==Cnil){          if(((V105))==Cnil){
963          goto T472;}          goto T472;}
964          goto T473;          goto T473;
965  goto T478;          goto T478;
966  T478:;  T478:;
967          {register object V106;          {register object V106;
968          V106= car((V103));          V106= car((V103));
969          if(!(equal(car((V104)),VV[68]))){          if(!(equal(car((V104)),VV[68]))){
970          goto T491;}          goto T491;}
971          goto T473;          goto T473;
972  goto T491;          goto T491;
973  T491:;  T491:;
974          V107= structure_ref((V106),VV[69],1);          V107= structure_ref((V106),VV[69],1);
975          if((/* INLINE-ARGS */V107)==(VV[70])){          if((/* INLINE-ARGS */V107)==(VV[70])){
# Line 979  T491:; Line 979  T491:;
979          goto T496;}          goto T496;}
980          if(!((car((V104)))==(Ct))){          if(!((car((V104)))==(Ct))){
981          goto T496;}          goto T496;}
982  goto T497;          goto T497;
983  T497:;  T497:;
984          if((structure_ref((V106),VV[69],3))!=Cnil){          if((structure_ref((V106),VV[69],3))!=Cnil){
985          goto T496;}          goto T496;}
986          V109= structure_ref((V106),VV[69],4);          V109= structure_ref((V106),VV[69],4);
987          if(!((/* INLINE-ARGS */V109)==(VV[72]))){          if(!((/* INLINE-ARGS */V109)==(VV[72]))){
988          goto T495;}          goto T495;}
989  goto T496;          goto T496;
990  T496:;  T496:;
991          {object V110;          {object V110;
992          V111= structure_ref((V106),VV[69],0);          V111= structure_ref((V106),VV[69],0);
# Line 996  T496:; Line 996  T496:;
996          V112= vs_base[0];          V112= vs_base[0];
997          V110= list(2,/* INLINE-ARGS */V111,V112);          V110= list(2,/* INLINE-ARGS */V111,V112);
998          V102= make_cons((V110),(V102));}          V102= make_cons((V110),(V102));}
999  goto T495;          goto T495;
1000  T495:;  T495:;
1001          V113= car((V104));          V113= car((V104));
1002          V114= structure_ref((V106),VV[69],5);          V114= structure_ref((V106),VV[69],5);
# Line 1019  T495:; Line 1019  T495:;
1019          goto T519;          goto T519;
1020          }else V117=V117->c.c_cdr;          }else V117=V117->c.c_cdr;
1021          goto T489;}          goto T489;}
1022  goto T519;          goto T519;
1023  T519:;  T519:;
1024  goto T494;          goto T494;
1025  T494:;  T494:;
1026          if(((V102))!=Cnil){          if(((V102))!=Cnil){
1027          goto T520;}          goto T520;}
1028          V119= structure_ref((V106),VV[69],0);          V119= structure_ref((V106),VV[69],0);
1029          (void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119)));          (void)((VFUN_NARGS=3,(*(LnkLI266))(VV[76],(V95),/* INLINE-ARGS */V119)));
1030  goto T520;          goto T520;
1031  T520:;  T520:;
1032          V105= Ct;}          V105= Ct;}
1033  goto T489;          goto T489;
1034  T489:;  T489:;
1035          V103= cdr((V103));          V103= cdr((V103));
1036          V104= cdr((V104));          V104= cdr((V104));
1037          goto T477;}          goto T477;}
1038  goto T473;          goto T473;
1039  T473:;  T473:;
1040          goto T459;          goto T459;
1041  goto T472;          goto T472;
1042  T472:;  T472:;
1043          if(!(type_of((V93))==t_fixnum||          if(!(type_of((V93))==t_fixnum||
1044  type_of((V93))==t_bignum||  type_of((V93))==t_bignum||
# Line 1054  type_of((V93))==t_complex)){ Line 1054  type_of((V93))==t_complex)){
1054          V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI292))((V93),V123));          V120= list(5,(V95),V121,V122,small_fixnum(3),(*(LnkLI292))((V93),V123));
1055          setq(VV[78],make_cons((V120),symbol_value(VV[78])));          setq(VV[78],make_cons((V120),symbol_value(VV[78])));
1056          goto T457;}          goto T457;}
1057  goto T459;          goto T459;
1058  T459:;  T459:;
1059          {object V124;          {object V124;
1060          V125= get((V95),VV[77],Cnil);          V125= get((V95),VV[77],Cnil);
1061          V124= ((V125)==(Ct)?Ct:Cnil);          V124= ((V125)==(Ct)?Ct:Cnil);
1062          if(((V124))==Cnil){          if(((V124))==Cnil){
1063          goto T457;}}          goto T457;}}
1064  goto T457;          goto T457;
1065  T457:;  T457:;
1066          if((cadddr((V92)))==Cnil){          if((cadddr((V92)))==Cnil){
1067          goto T537;}          goto T537;}
1068          V94= cadddr((V92));          V94= cadddr((V92));
1069  goto T537;          goto T537;
1070  T537:;  T537:;
1071          (void)((*(LnkLI293))());          (void)((*(LnkLI293))());
1072          {object V126;          {object V126;
# Line 1093  static object LI9(V132,V133) Line 1093  static object LI9(V132,V133)
1093    
1094  object V132;object V133;  object V132;object V133;
1095  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1096  goto TTL;          goto TTL;
1097  TTL:;  TTL:;
1098          if(((V133))!=Cnil){          if(((V133))!=Cnil){
1099          goto T548;}          goto T548;}
# Line 1105  TTL:; Line 1105  TTL:;
1105          vs_top=sup;          vs_top=sup;
1106          {object V134 = vs_base[0];          {object V134 = vs_base[0];
1107          VMR9(V134)}          VMR9(V134)}
1108  goto T548;          goto T548;
1109  T548:;  T548:;
1110          {register object V135;          {register object V135;
1111          V135= (VFUN_NARGS=7,(*(LnkLI294))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));          V135= (VFUN_NARGS=7,(*(LnkLI294))(small_fixnum(100),VV[81],VV[82],VV[83],small_fixnum(0),VV[84],Ct));
# Line 1119  T548:; Line 1119  T548:;
1119          register long V137;          register long V137;
1120          V137= 0;          V137= 0;
1121          V136= (V133);          V136= (V133);
1122  goto T561;          goto T561;
1123  T561:;  T561:;
1124          if(!(endp_prop(cdr((V136))))){          if(!(endp_prop(cdr((V136))))){
1125          goto T562;}          goto T562;}
# Line 1130  T561:; Line 1130  T561:;
1130          Lformat();          Lformat();
1131          vs_top=sup;          vs_top=sup;
1132          goto T558;          goto T558;
1133  goto T562;          goto T562;
1134  T562:;  T562:;
1135          base[0]= (V135);          base[0]= (V135);
1136          base[1]= VV[87];          base[1]= VV[87];
# Line 1141  T562:; Line 1141  T562:;
1141          V136= cdr((V136));          V136= cdr((V136));
1142          V137= (long)(V137)+1;          V137= (long)(V137)+1;
1143          goto T561;}          goto T561;}
1144  goto T558;          goto T558;
1145  T558:;  T558:;
1146          {object V138 = (V135);          {object V138 = (V135);
1147          VMR9(V138)}}          VMR9(V138)}}
# Line 1162  static object LI10(object first,...) Line 1162  static object LI10(object first,...)
1162          else {          else {
1163          V139= first;}          V139= first;}
1164          --narg; goto T578;          --narg; goto T578;
1165  goto T577;          goto T577;
1166  T577:;  T577:;
1167          V139= Cnil;          V139= Cnil;
1168  goto T578;          goto T578;
1169  T578:;  T578:;
1170          {object V140;          {object V140;
1171          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
# Line 1175  T578:; Line 1175  T578:;
1175          goto T585;}          goto T585;}
1176          V141= make_cons((V139),(V140));          V141= make_cons((V139),(V140));
1177          goto T583;          goto T583;
1178  goto T585;          goto T585;
1179  T585:;  T585:;
1180          V141= (V140);          V141= (V140);
1181  goto T583;          goto T583;
1182  T583:;  T583:;
1183          setq(VV[18],make_cons((V141),symbol_value(VV[18])));}          setq(VV[18],make_cons((V141),symbol_value(VV[18])));}
1184          {object V142 = (V140);          {object V142 = (V140);
# Line 1193  static object LI11(V144) Line 1193  static object LI11(V144)
1193    
1194  register object V144;  register object V144;
1195  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
1196  goto TTL;          goto TTL;
1197  TTL:;  TTL:;
1198          base[0]= (V144);          base[0]= (V144);
1199          base[1]= VV[69];          base[1]= VV[69];
# Line 1203  TTL:; Line 1203  TTL:;
1203          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1204          goto T588;}          goto T588;}
1205          V144= structure_ref((V144),VV[69],5);          V144= structure_ref((V144),VV[69],5);
1206  goto T588;          goto T588;
1207  T588:;  T588:;
1208          if(((V144))==Cnil){          if(((V144))==Cnil){
1209          goto T595;}          goto T595;}
# Line 1216  T588:; Line 1216  T588:;
1216          goto T595;}          goto T595;}
1217          {long V145 = 1;          {long V145 = 1;
1218          VMR11((object)V145)}          VMR11((object)V145)}
1219  goto T595;          goto T595;
1220  T595:;  T595:;
1221          {long V146 = 0;          {long V146 = 0;
1222          VMR11((object)V146)}          VMR11((object)V146)}
# Line 1228  static object LI12(V149,V150) Line 1228  static object LI12(V149,V150)
1228    
1229  register object V149;object V150;  register object V149;object V150;
1230  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1231  goto TTL;          goto TTL;
1232  TTL:;  TTL:;
1233          {register long V151;          {register long V151;
1234          register long V152;          register long V152;
# Line 1238  TTL:; Line 1238  TTL:;
1238          V152= 8;          V152= 8;
1239          V153= make_fixnum((long)(*(LnkLI297))((V150)));          V153= make_fixnum((long)(*(LnkLI297))((V150)));
1240          V154= Ct;          V154= Ct;
1241  goto T605;          goto T605;
1242  T605:;  T605:;
1243          if(eql(small_fixnum(0),(V153))){          if(eql(small_fixnum(0),(V153))){
1244          goto T607;}          goto T607;}
1245          V151= (long)(V151)+((long)((fix((V153))) << (V152)));          V151= (long)(V151)+((long)((fix((V153))) << (V152)));
1246  goto T607;          goto T607;
1247  T607:;  T607:;
1248          if(((V154))==Cnil){          if(((V154))==Cnil){
1249          goto T611;}          goto T611;}
1250          V152= 10;          V152= 10;
1251          V154= Cnil;          V154= Cnil;
1252  goto T611;          goto T611;
1253  T611:;  T611:;
1254          if(((V149))!=Cnil){          if(((V149))!=Cnil){
1255          goto T617;}          goto T617;}
1256          {long V155 = V151;          {long V155 = V151;
1257          VMR12((object)V155)}          VMR12((object)V155)}
1258  goto T617;          goto T617;
1259  T617:;  T617:;
1260          V152= (long)(V152)+(2);          V152= (long)(V152)+(2);
1261          {register object V157;          {register object V157;
# Line 1271  static object LI13(V161,V162,V163) Line 1271  static object LI13(V161,V162,V163)
1271    
1272  register object V161;object V162;object V163;  register object V161;object V162;object V163;
1273  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1274  goto TTL;          goto TTL;
1275  TTL:;  TTL:;
1276          if(((VFUN_NARGS=1,(*(LnkLI299))((V161))))==Cnil){          if(((VFUN_NARGS=1,(*(LnkLI299))((V161))))==Cnil){
1277          goto T629;}          goto T629;}
# Line 1281  TTL:; Line 1281  TTL:;
1281          goto T633;          goto T633;
1282          }else V164=V164->c.c_cdr;          }else V164=V164->c.c_cdr;
1283          goto T632;}          goto T632;}
1284  goto T633;          goto T633;
1285  T633:;  T633:;
1286          V165= list(2,VV[91],(V161));          V165= list(2,VV[91],(V161));
1287          V166= (*(LnkLI301))(VV[92],(V162));          V166= (*(LnkLI301))(VV[92],(V162));
# Line 1292  T633:; Line 1292  T633:;
1292          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V170)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V170)));
1293          {object V171 = Ct;          {object V171 = Ct;
1294          VMR13(V171)}          VMR13(V171)}
1295  goto T632;          goto T632;
1296  T632:;  T632:;
1297          {register object V172;          {register object V172;
1298          register object V173;          register object V173;
# Line 1308  T632:; Line 1308  T632:;
1308          goto T641;          goto T641;
1309          }else V176=V176->c.c_cdr;          }else V176=V176->c.c_cdr;
1310          V174= Cnil;}          V174= Cnil;}
1311  goto T641;          goto T641;
1312  T641:;  T641:;
1313          if(((V174))==Cnil){          if(((V174))==Cnil){
1314          goto T644;}          goto T644;}
# Line 1319  T641:; Line 1319  T641:;
1319          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1320          goto T646;}          goto T646;}
1321          goto T637;          goto T637;
1322  goto T646;          goto T646;
1323  T646:;{object V178;  T646:;{object V178;
1324          V179 = make_fixnum((long)length((V174)));          V179 = make_fixnum((long)length((V174)));
1325          V178= number_minus((V173),V179);          V178= number_minus((V173),V179);
1326          if(V178==Cnil)goto T649;          if(V178==Cnil)goto T649;
1327          goto T637;          goto T637;
1328  goto T649;          goto T649;
1329  T649:;}  T649:;}
1330          V180 = make_fixnum((long)length((V174)));          V180 = make_fixnum((long)length((V174)));
1331          V181= number_minus((V173),V180);          V181= number_minus((V173),V180);
1332          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172))));          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[93],(V161),/* INLINE-ARGS */V181,(V172))));
1333          goto T637;          goto T637;
1334  goto T644;          goto T644;
1335  T644:;  T644:;
1336          if(eql((V172),(V173))){          if(eql((V172),(V173))){
1337          goto T652;}          goto T652;}
1338          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172))));          (void)((VFUN_NARGS=4,(*(LnkLI266))(VV[94],(V161),(V173),(V172))));
1339          goto T637;          goto T637;
1340  goto T652;          goto T652;
1341  T652:;  T652:;
1342          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));}          (void)((VFUN_NARGS=2,(*(LnkLI266))(VV[95],(V161))));}
1343  goto T637;          goto T637;
1344  T637:;  T637:;
1345          {object V182 = Cnil;          {object V182 = Cnil;
1346          VMR13(V182)}          VMR13(V182)}
1347  goto T629;          goto T629;
1348  T629:;  T629:;
1349          {object V183 = Cnil;          {object V183 = Cnil;
1350          VMR13(V183)}          VMR13(V183)}
# Line 1357  static object LI14(V185) Line 1357  static object LI14(V185)
1357    
1358  object V185;  object V185;
1359  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1360  goto TTL;          goto TTL;
1361  TTL:;  TTL:;
1362          if((structure_ref((V185),VV[62],4))==Cnil){          if((structure_ref((V185),VV[62],4))==Cnil){
1363          goto T655;}          goto T655;}
1364          {object V186 = VV[96];          {object V186 = VV[96];
1365          VMR14(V186)}          VMR14(V186)}
1366  goto T655;          goto T655;
1367  T655:;  T655:;
1368          {object V187 = VV[97];          {object V187 = VV[97];
1369          VMR14(V187)}          VMR14(V187)}
# Line 1375  static object LI15(V189) Line 1375  static object LI15(V189)
1375    
1376  object V189;  object V189;
1377  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1378  goto TTL;          goto TTL;
1379  TTL:;  TTL:;
1380          if(!(equal(symbol_value(VV[20]),VV[98]))){          if(!(equal(symbol_value(VV[20]),VV[98]))){
1381          goto T658;}          goto T658;}
# Line 1384  TTL:; Line 1384  TTL:;
1384          goto T658;}}          goto T658;}}
1385          {object V191 = VV[100];          {object V191 = VV[100];
1386          VMR15(V191)}          VMR15(V191)}
1387  goto T658;          goto T658;
1388  T658:;  T658:;
1389          {object V192 = VV[101];          {object V192 = VV[101];
1390          VMR15(V192)}          VMR15(V192)}
# Line 1396  static object LI16(V194) Line 1396  static object LI16(V194)
1396    
1397  object V194;  object V194;
1398  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1399  goto TTL;          goto TTL;
1400  TTL:;  TTL:;
1401          V195= get((V194),VV[77],Cnil);          V195= get((V194),VV[77],Cnil);
1402          if(equal(V195,Ct)){          if(equal(V195,Ct)){
1403          goto T662;}          goto T662;}
1404          {object V196 = Cnil;          {object V196 = Cnil;
1405          VMR16(V196)}          VMR16(V196)}
1406  goto T662;          goto T662;
1407  T662:;  T662:;
1408          {register object V197;          {register object V197;
1409          V197= get((V194),VV[67],Cnil);          V197= get((V194),VV[67],Cnil);
1410  goto T667;          goto T667;
1411  T667:;  T667:;
1412          if(((V197))!=Cnil){          if(((V197))!=Cnil){
1413          goto T668;}          goto T668;}
1414          {object V198 = Ct;          {object V198 = Ct;
1415          VMR16(V198)}          VMR16(V198)}
1416  goto T668;          goto T668;
1417  T668:;  T668:;
1418          if(!(type_of((V197))==t_cons)){          if(!(type_of((V197))==t_cons)){
1419          goto T673;}          goto T673;}
1420          goto T672;          goto T672;
1421  goto T673;          goto T673;
1422  T673:;  T673:;
1423          {object V199 = Cnil;          {object V199 = Cnil;
1424          VMR16(V199)}          VMR16(V199)}
1425  goto T672;          goto T672;
1426  T672:;  T672:;
1427          if(!((car((V197)))==(Ct))){          if(!((car((V197)))==(Ct))){
1428          goto T676;}          goto T676;}
1429          goto T675;          goto T675;
1430  goto T676;          goto T676;
1431  T676:;  T676:;
1432          if(!((car((V197)))==(VV[68]))){          if(!((car((V197)))==(VV[68]))){
1433          goto T678;}          goto T678;}
1434          goto T675;          goto T675;
1435  goto T678;          goto T678;
1436  T678:;  T678:;
1437          {object V200 = Cnil;          {object V200 = Cnil;
1438          VMR16(V200)}          VMR16(V200)}
1439  goto T675;          goto T675;
1440  T675:;  T675:;
1441          V197= cdr((V197));          V197= cdr((V197));
1442          goto T667;}          goto T667;}
# Line 1448  static object LI17(V202) Line 1448  static object LI17(V202)
1448    
1449  register object V202;  register object V202;
1450  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1451  goto TTL;          goto TTL;
1452  TTL:;  TTL:;
1453          if((cadddr((V202)))!=Cnil){          if((cadddr((V202)))!=Cnil){
1454          goto T683;}          goto T683;}
1455          if((caddr((V202)))==Cnil){          if((caddr((V202)))==Cnil){
1456          goto T684;}          goto T684;}
1457  goto T683;          goto T683;
1458  T683:;  T683:;
1459          {object V203 = small_fixnum(64);          {object V203 = small_fixnum(64);
1460          VMR17(V203)}          VMR17(V203)}
1461  goto T684;          goto T684;
1462  T684:;  T684:;
1463          base[0]= make_fixnum((long)length(car((V202))));          base[0]= make_fixnum((long)length(car((V202))));
1464          base[1]= make_fixnum((long)length(cadr((V202))));          base[1]= make_fixnum((long)length(cadr((V202))));
# Line 1478  static object LI18(V208,V209) Line 1478  static object LI18(V208,V209)
1478    
1479  object V208;object V209;  object V208;object V209;
1480  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1481  goto TTL;          goto TTL;
1482  TTL:;  TTL:;
1483          {object V210;          {object V210;
1484          V210= list(2,(V208),(V209));          V210= list(2,(V208),(V209));
# Line 1497  static object LI19(V218,V219,V220,V221,V Line 1497  static object LI19(V218,V219,V220,V221,V
1497    
1498  register object V218;register object V219;register object V220;object V221;object V222;  register object V218;register object V219;register object V220;object V221;object V222;
1499  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1500  goto TTL;          goto TTL;
1501  TTL:;  TTL:;
1502          if((get((V218),VV[102],Cnil))==Cnil){          if((get((V218),VV[102],Cnil))==Cnil){
1503          goto T696;}          goto T696;}
1504          {object V223 = Cnil;          {object V223 = Cnil;
1505          VMR19(V223)}          VMR19(V223)}
1506  goto T696;          goto T696;
1507  T696:;  T696:;
1508          if(((V221))==Cnil){          if(((V221))==Cnil){
1509          goto T699;}          goto T699;}
1510          V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]);          V224= list(4,VV[103],list(2,VV[91],(V218)),(V221),VV[104]);
1511          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V224)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V224)));
1512  goto T699;          goto T699;
1513  T699:;  T699:;
1514          {object V225;          {object V225;
1515          V225= (*(LnkLI303))((V218),(V219),(V220));          V225= (*(LnkLI303))((V218),(V219),(V220));
1516          if(((V225))==Cnil){          if(((V225))==Cnil){
1517          goto T705;}          goto T705;}
1518          goto T702;          goto T702;
1519  goto T705;          goto T705;
1520  T705:;  T705:;
1521          if(((*(LnkLI304))((V218)))==Cnil){          if(((*(LnkLI304))((V218)))==Cnil){
1522          goto T708;}          goto T708;}
# Line 1540  T705:; Line 1540  T705:;
1540          V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI301))(V233,VV[108]));          V234= list(5,VV[105],/* INLINE-ARGS */V227,/* INLINE-ARGS */V228,/* INLINE-ARGS */V232,(*(LnkLI301))(V233,VV[108]));
1541          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V234)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V234)));
1542          goto T702;          goto T702;
1543  goto T712;          goto T712;
1544  T712:;  T712:;
1545          V235= list(2,VV[91],(V218));          V235= list(2,VV[91],(V218));
1546          V236= (*(LnkLI301))(VV[110],(V219));          V236= (*(LnkLI301))(VV[110],(V219));
# Line 1550  T712:; Line 1550  T712:;
1550          V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239));          V240= list(4,VV[109],/* INLINE-ARGS */V235,/* INLINE-ARGS */V236,number_plus(V237,/* INLINE-ARGS */V239));
1551          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V240)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V240)));
1552          goto T702;}          goto T702;}
1553  goto T708;          goto T708;
1554  T708:;  T708:;
1555          if(!(type_of((V219))==t_fixnum||          if(!(type_of((V219))==t_fixnum||
1556  type_of((V219))==t_bignum||  type_of((V219))==t_bignum||
# Line 1566  type_of((V219))==t_complex)){ Line 1566  type_of((V219))==t_complex)){
1566          V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI301))(VV[112],(V219)));          V242= list(3,VV[111],/* INLINE-ARGS */V241,(*(LnkLI301))(VV[112],(V219)));
1567          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V242)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V242)));
1568          goto T702;          goto T702;
1569  goto T719;          goto T719;
1570  T719:;  T719:;
1571          princ_char(10,VV[31]);          princ_char(10,VV[31]);
1572          (void)((*(LnkLI277))((V219)));          (void)((*(LnkLI277))((V219)));
# Line 1574  T719:; Line 1574  T719:;
1574          V243= list(2,VV[91],(V218));          V243= list(2,VV[91],(V218));
1575          V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI301))(VV[113],(V219)));          V244= list(3,VV[111],/* INLINE-ARGS */V243,(*(LnkLI301))(VV[113],(V219)));
1576          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V244)));}          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V244)));}
1577  goto T702;          goto T702;
1578  T702:;  T702:;
1579          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){          if(!(number_compare(symbol_value(VV[114]),small_fixnum(2))<0)){
1580          goto T730;}          goto T730;}
1581          {object V245 = sputprop((V218),VV[115],Ct);          {object V245 = sputprop((V218),VV[115],Ct);
1582          VMR19(V245)}          VMR19(V245)}
1583  goto T730;          goto T730;
1584  T730:;  T730:;
1585          {object V246 = Cnil;          {object V246 = Cnil;
1586          VMR19(V246)}          VMR19(V246)}
# Line 1593  static object LI20(V249,V250) Line 1593  static object LI20(V249,V250)
1593    
1594  object V249;object V250;  object V249;object V250;
1595  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1596  goto TTL;          goto TTL;
1597  TTL:;  TTL:;
1598          {object V251 = putprop((V249),(V250),VV[116]);          {object V251 = putprop((V249),(V250),VV[116]);
1599          VMR20(V251)}          VMR20(V251)}
# Line 1606  static object LI21(V257,V258,V259,V260,V Line 1606  static object LI21(V257,V258,V259,V260,V
1606  register object V257;register object V258;register object V259;object V260;object V261;  register object V257;register object V258;register object V259;object V260;object V261;
1607  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1608          bds_check;          bds_check;
1609  goto TTL;          goto TTL;
1610  TTL:;  TTL:;
1611          {register object V262;          {register object V262;
1612          V262= Cnil;          V262= Cnil;
# Line 1617  TTL:; Line 1617  TTL:;
1617          register object V264;          register object V264;
1618          V263= symbol_value(VV[78]);          V263= symbol_value(VV[78]);
1619          V264= car((V263));          V264= car((V263));
1620  goto T742;          goto T742;
1621  T742:;  T742:;
1622          if(!(endp_prop((V263)))){          if(!(endp_prop((V263)))){
1623          goto T743;}          goto T743;}
1624          goto T737;          goto T737;
1625  goto T743;          goto T743;
1626  T743:;{object V265;  T743:;{object V265;
1627          base[4]= cadddr((V264));          base[4]= cadddr((V264));
1628          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1631  T743:;{object V265; Line 1631  T743:;{object V265;
1631          V265= vs_base[0];          V265= vs_base[0];
1632          if(V265==Cnil)goto T748;          if(V265==Cnil)goto T748;
1633          goto T747;          goto T747;
1634  goto T748;          goto T748;
1635  T748:;}  T748:;}
1636          base[4]= VV[118];          base[4]= VV[118];
1637          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1638          Lerror();          Lerror();
1639          vs_top=sup;          vs_top=sup;
1640  goto T747;          goto T747;
1641  T747:;  T747:;
1642          if((car((V264)))==((V257))){          if((car((V264)))==((V257))){
1643          goto T753;}          goto T753;}
1644          goto T752;          goto T752;
1645  goto T753;          goto T753;
1646  T753:;  T753:;
1647          if((cadr(cddddr((V264))))==Cnil){          if((cadr(cddddr((V264))))==Cnil){
1648          goto T755;}          goto T755;}
1649          goto T752;          goto T752;
1650  goto T755;          goto T755;
1651  T755:;  T755:;
1652          V262= (V264);          V262= (V264);
1653          if(((V262))==Cnil){          if(((V262))==Cnil){
1654          goto T737;}          goto T737;}
1655          goto T738;          goto T738;
1656  goto T752;          goto T752;
1657  T752:;  T752:;
1658          V263= cdr((V263));          V263= cdr((V263));
1659          V264= car((V263));          V264= car((V263));
1660          goto T742;}          goto T742;}
1661  goto T738;          goto T738;
1662  T738:;  T738:;
1663          if(((VFUN_NARGS=1,(*(LnkLI299))((V257))))!=Cnil){          if(((VFUN_NARGS=1,(*(LnkLI299))((V257))))!=Cnil){
1664          goto T763;}          goto T763;}
1665          {object V266;          {object V266;
1666          V266= list(4,(V257),(V258),cadr((V262)),caddr((V262)));          V266= list(4,(V257),(V258),cadr((V262)),caddr((V262)));
1667          setq(VV[29],make_cons((V266),symbol_value(VV[29])));}          setq(VV[29],make_cons((V266),symbol_value(VV[29])));}
1668  goto T763;          goto T763;
1669  T763:;  T763:;
1670          V267= structure_ref(cadr((V259)),VV[62],1);          V267= structure_ref(cadr((V259)),VV[62],1);
1671          (void)((*(LnkLI308))(/* INLINE-ARGS */V267,small_fixnum(0)));          (void)((*(LnkLI308))(/* INLINE-ARGS */V267,small_fixnum(0)));
# Line 1674  T763:; Line 1674  T763:;
1674          if((V268!= VV[89]))goto T771;          if((V268!= VV[89]))goto T771;
1675          base[4]= VV[120];          base[4]= VV[120];
1676          goto T770;          goto T770;
1677  goto T771;          goto T771;
1678  T771:;  T771:;
1679          if((V268!= VV[142]))goto T772;          if((V268!= VV[142]))goto T772;
1680          base[4]= VV[121];          base[4]= VV[121];
1681          goto T770;          goto T770;
1682  goto T772;          goto T772;
1683  T772:;  T772:;
1684          if((V268!= VV[143]))goto T773;          if((V268!= VV[143]))goto T773;
1685          base[4]= VV[122];          base[4]= VV[122];
1686          goto T770;          goto T770;
1687  goto T773;          goto T773;
1688  T773:;  T773:;
1689          if((V268!= VV[144]))goto T774;          if((V268!= VV[144]))goto T774;
1690          base[4]= VV[123];          base[4]= VV[123];
1691          goto T770;          goto T770;
1692  goto T774;          goto T774;
1693  T774:;  T774:;
1694          base[4]= VV[124];}          base[4]= VV[124];}
1695  goto T770;          goto T770;
1696  T770:;  T770:;
1697          base[5]= (V257);          base[5]= (V257);
1698          base[6]= (V258);          base[6]= (V258);
# Line 1703  T770:; Line 1703  T770:;
1703          (void) (*Lnk309)();          (void) (*Lnk309)();
1704          vs_top=sup;          vs_top=sup;
1705          goto T735;          goto T735;
1706  goto T737;          goto T737;
1707  T737:;  T737:;
1708          if(((*(LnkLI304))((V257)))==Cnil){          if(((*(LnkLI304))((V257)))==Cnil){
1709          goto T781;}          goto T781;}
# Line 1719  T737:; Line 1719  T737:;
1719          (void) (*Lnk309)();          (void) (*Lnk309)();
1720          vs_top=sup;          vs_top=sup;
1721          goto T735;          goto T735;
1722  goto T781;          goto T781;
1723  T781:;  T781:;
1724          V270= structure_ref(cadr((V259)),VV[62],1);          V270= structure_ref(cadr((V259)),VV[62],1);
1725          (void)((*(LnkLI308))(/* INLINE-ARGS */V270,small_fixnum(2)));          (void)((*(LnkLI308))(/* INLINE-ARGS */V270,small_fixnum(2)));
# Line 1732  T781:; Line 1732  T781:;
1732          vs_top=(vs_base=base+3)+6;          vs_top=(vs_base=base+3)+6;
1733          (void) (*Lnk309)();          (void) (*Lnk309)();
1734          vs_top=sup;          vs_top=sup;
1735  goto T735;          goto T735;
1736  T735:;  T735:;
1737          (void)((*(LnkLI310))((V258)));          (void)((*(LnkLI310))((V258)));
1738          {object V271 = (*(LnkLI311))((V257),(V259));          {object V271 = (*(LnkLI311))((V257),(V259));
# Line 1807  static object LI23(V280,V281,V282,V283,V Line 1807  static object LI23(V280,V281,V282,V283,V
1807  object V280;object V281;object V282;object V283;object V284;  object V280;object V281;object V282;object V283;object V284;
1808  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1809          bds_check;          bds_check;
1810  goto TTL;          goto TTL;
1811  TTL:;  TTL:;
1812          {object V285;          {object V285;
1813          object V286;          object V286;
# Line 1817  TTL:; Line 1817  TTL:;
1817          object V288;          object V288;
1818          V288= cadr((V284));          V288= cadr((V284));
1819          V287= (V286);          V287= (V286);
1820  goto T808;          goto T808;
1821  T808:;  T808:;
1822          if(!(endp_prop((V287)))){          if(!(endp_prop((V287)))){
1823          goto T809;}          goto T809;}
1824          goto T805;          goto T805;
1825  goto T809;          goto T809;
1826  T809:;  T809:;
1827          V289= structure_ref(car((V287)),VV[69],1);          V289= structure_ref(car((V287)),VV[69],1);
1828          if(!((/* INLINE-ARGS */V289)==(VV[71]))){          if(!((/* INLINE-ARGS */V289)==(VV[71]))){
# Line 1833  T809:; Line 1833  T809:;
1833          V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292);          V290= make_cons(/* INLINE-ARGS */V291,/* INLINE-ARGS */V292);
1834          V285= make_cons((V290),(V285));          V285= make_cons((V290),(V285));
1835          goto T813;}          goto T813;}
1836  goto T815;          goto T815;
1837  T815:;  T815:;
1838          V293= car((V287));          V293= car((V287));
1839          {object V295= car((V288));          {object V295= car((V288));
1840          if((V295!= VV[89]))goto T820;          if((V295!= VV[89]))goto T820;
1841          V294= VV[89];          V294= VV[89];
1842          goto T819;          goto T819;
1843  goto T820;          goto T820;
1844  T820:;  T820:;
1845          if((V295!= VV[142]))goto T821;          if((V295!= VV[142]))goto T821;
1846          V294= VV[142];          V294= VV[142];
1847          goto T819;          goto T819;
1848  goto T821;          goto T821;
1849  T821:;  T821:;
1850          if((V295!= VV[143]))goto T822;          if((V295!= VV[143]))goto T822;
1851          V294= VV[143];          V294= VV[143];
1852          goto T819;          goto T819;
1853  goto T822;          goto T822;
1854  T822:;  T822:;
1855          if((V295!= VV[144]))goto T823;          if((V295!= VV[144]))goto T823;
1856          V294= VV[144];          V294= VV[144];
1857          goto T819;          goto T819;
1858  goto T823;          goto T823;
1859  T823:;  T823:;
1860          V294= VV[74];}          V294= VV[74];}
1861  goto T819;          goto T819;
1862  T819:;  T819:;
1863          (void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294));          (void)(structure_set(/* INLINE-ARGS */V293,VV[69],1,V294));
1864  goto T813;          goto T813;
1865  T813:;  T813:;
1866          V296= car((V287));          V296= car((V287));
1867          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
# Line 1869  T813:; Line 1869  T813:;
1869          V287= cdr((V287));          V287= cdr((V287));
1870          V288= cdr((V288));          V288= cdr((V288));
1871          goto T808;}          goto T808;}
1872  goto T805;          goto T805;
1873  T805:;  T805:;
1874          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[145],(V280))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[145],(V280))));
1875          princ_str("\nstatic ",VV[31]);          princ_str("\nstatic ",VV[31]);
# Line 1899  T805:; Line 1899  T805:;
1899          goto T851;}          goto T851;}
1900          base[1]= make_cons((V280),(V286));          base[1]= make_cons((V280),(V286));
1901          goto T849;          goto T849;
1902  goto T851;          goto T851;
1903  T851:;  T851:;
1904          base[1]= Cnil;          base[1]= Cnil;
1905  goto T849;          goto T849;
1906  T849:;  T849:;
1907          bds_bind(VV[146],base[1]);          bds_bind(VV[146],base[1]);
1908          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[134],symbol_value(VV[134]));
# Line 1918  T849:; Line 1918  T849:;
1918          if(((V283))==Cnil){          if(((V283))==Cnil){
1919          goto T863;}          goto T863;}
1920          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
1921  goto T863;          goto T863;
1922  T863:;  T863:;
1923          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
1924          goto T867;}          goto T867;}
1925          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
1926  goto T867;          goto T867;
1927  T867:;  T867:;
1928          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[146]->s.s_dbind))==Cnil){
1929          goto T871;}          goto T871;}
1930          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
1931          princ_str("\ngoto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[25]);
1932          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[25]);
1933  goto T871;          goto T871;
1934  T871:;  T871:;
1935          {register object V302;          {register object V302;
1936          register object V303;          register object V303;
1937          V302= (V285);          V302= (V285);
1938          V303= car((V302));          V303= car((V302));
1939  goto T883;          goto T883;
1940  T883:;  T883:;
1941          if(!(endp_prop((V302)))){          if(!(endp_prop((V302)))){
1942          goto T884;}          goto T884;}
1943          goto T879;          goto T879;
1944  goto T884;          goto T884;
1945  T884:;  T884:;
1946          princ_str("\n   bds_bind(VV[",VV[25]);          princ_str("\n   bds_bind(VV[",VV[25]);
1947          (void)((*(LnkLI274))(cdr((V303))));          (void)((*(LnkLI274))(cdr((V303))));
# Line 1955  T884:; Line 1955  T884:;
1955          V302= cdr((V302));          V302= cdr((V302));
1956          V303= car((V302));          V303= car((V302));
1957          goto T883;}          goto T883;}
1958  goto T879;          goto T879;
1959  T879:;  T879:;
1960          base[3]= caddr(cddr((V282)));          base[3]= caddr(cddr((V282)));
1961          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1968  T879:; Line 1968  T879:;
1968          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
1969          goto T907;}          goto T907;}
1970          goto T905;          goto T905;
1971  goto T907;          goto T907;
1972  T907:;  T907:;
1973          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
1974  goto T905;          goto T905;
1975  T905:;  T905:;
1976          V306= (*(LnkLI280))(caddr((V284)));          V306= (*(LnkLI280))(caddr((V284)));
1977          if(!(equal(VV[152],/* INLINE-ARGS */V306))){          if(!(equal(VV[152],/* INLINE-ARGS */V306))){
1978          goto T914;}          goto T914;}
1979          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[25]);
1980  goto T914;          goto T914;
1981  T914:;  T914:;
1982          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
1983          {object V307 = (*(LnkLI316))((V299),caddr((V284)));          {object V307 = (*(LnkLI316))((V299),caddr((V284)));
# Line 1993  static object LI24(V309) Line 1993  static object LI24(V309)
1993    
1994  object V309;  object V309;
1995  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1996  goto TTL;          goto TTL;
1997  TTL:;  TTL:;
1998          if((symbol_value(VV[153]))==Cnil){          if((symbol_value(VV[153]))==Cnil){
1999          goto T921;}          goto T921;}
2000          V310= (*(LnkLI317))();          V310= (*(LnkLI317))();
2001          {object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310);          {object V311 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V310);
2002          VMR24(V311)}          VMR24(V311)}
2003  goto T921;          goto T921;
2004  T921:;  T921:;
2005          V312= (*(LnkLI318))();          V312= (*(LnkLI318))();
2006          {object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312);          {object V313 = structure_set((V309),VV[69],2,/* INLINE-ARGS */V312);
# Line 2014  static object LI25(V318,V319,V320,V321) Line 2014  static object LI25(V318,V319,V320,V321)
2014  object V318;object V319;object V320;object V321;  object V318;object V319;object V320;object V321;
2015  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
2016          bds_check;          bds_check;
2017  goto TTL;          goto TTL;
2018  TTL:;  TTL:;
2019          {object V322;          {object V322;
2020          register object V323;          register object V323;
# Line 2038  TTL:; Line 2038  TTL:;
2038          if(V330==Cnil)goto T931;          if(V330==Cnil)goto T931;
2039          V329= V330;          V329= V330;
2040          goto T930;          goto T930;
2041  goto T931;          goto T931;
2042  T931:;}{object V331;  T931:;}{object V331;
2043          V331= cadr((V327));          V331= cadr((V327));
2044          if(V331==Cnil)goto T933;          if(V331==Cnil)goto T933;
2045          V329= V331;          V329= V331;
2046          goto T930;          goto T930;
2047  goto T933;          goto T933;
2048  T933:;}  T933:;}
2049          V329= cadddr((V327));          V329= cadddr((V327));
2050  goto T930;          goto T930;
2051  T930:;  T930:;
2052          {object V332;          {object V332;
2053          register object V333;          register object V333;
2054          V332= car((V327));          V332= car((V327));
2055          V333= car((V332));          V333= car((V332));
2056  goto T939;          goto T939;
2057  T939:;  T939:;
2058          if(!(endp_prop((V332)))){          if(!(endp_prop((V332)))){
2059          goto T940;}          goto T940;}
2060          goto T935;          goto T935;
2061  goto T940;          goto T940;
2062  T940:;  T940:;
2063          {object V334;          {object V334;
2064          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
# Line 2067  T940:; Line 2067  T940:;
2067          V332= cdr((V332));          V332= cdr((V332));
2068          V333= car((V332));          V333= car((V332));
2069          goto T939;}          goto T939;}
2070  goto T935;          goto T935;
2071  T935:;  T935:;
2072          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[156],(V318))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[156],(V318))));
2073          {object V335;          {object V335;
# Line 2079  T935:; Line 2079  T935:;
2079          goto T959;}          goto T959;}
2080          {object V336;          {object V336;
2081          V336= (V322);          V336= (V322);
2082  goto T963;          goto T963;
2083  T963:;  T963:;
2084          if(((V336))!=Cnil){          if(((V336))!=Cnil){
2085          goto T964;}          goto T964;}
2086          goto T959;          goto T959;
2087  goto T964;          goto T964;
2088  T964:;  T964:;
2089          princ_str("object ",VV[25]);          princ_str("object ",VV[25]);
2090          (void)((*(LnkLI274))(car((V336))));          (void)((*(LnkLI274))(car((V336))));
# Line 2092  T964:; Line 2092  T964:;
2092          if(!((cdr((V336)))==Cnil)){          if(!((cdr((V336)))==Cnil)){
2093          goto T974;}          goto T974;}
2094          goto T973;          goto T973;
2095  goto T974;          goto T974;
2096  T974:;  T974:;
2097          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2098          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[160]));          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[160]));
2099  goto T973;          goto T973;
2100  T973:;  T973:;
2101          V336= cdr((V336));          V336= cdr((V336));
2102          goto T963;}          goto T963;}
2103  goto T959;          goto T959;
2104  T959:;  T959:;
2105          if(((V329))==Cnil){          if(((V329))==Cnil){
2106          goto T982;}          goto T982;}
# Line 2108  T959:; Line 2108  T959:;
2108          goto T985;}          goto T985;}
2109          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2110          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[161]));          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[161]));
2111  goto T985;          goto T985;
2112  T985:;  T985:;
2113          princ_str("object first,...",VV[25]);          princ_str("object first,...",VV[25]);
2114          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[162]));          V335= (VFUN_NARGS=3,(*(LnkLI319))(VV[158],(V335),VV[162]));
2115  goto T982;          goto T982;
2116  T982:;  T982:;
2117          princ_char(41,VV[25]);          princ_char(41,VV[25]);
2118          princ_str("\nstatic object LI",VV[31]);          princ_str("\nstatic object LI",VV[31]);
# Line 2129  T982:; Line 2129  T982:;
2129          goto T1003;}          goto T1003;}
2130          base[5]= Cnil;          base[5]= Cnil;
2131          goto T1002;          goto T1002;
2132  goto T1003;          goto T1003;
2133  T1003:;  T1003:;
2134          {object V338;          {object V338;
2135          object V339;          object V339;
2136          V338= car((V327));          V338= car((V327));
2137          V339= car((V338));          V339= car((V338));
2138  goto T1010;          goto T1010;
2139  T1010:;  T1010:;
2140          if(!(endp_prop((V338)))){          if(!(endp_prop((V338)))){
2141          goto T1011;}          goto T1011;}
2142          goto T1005;          goto T1005;
2143  goto T1011;          goto T1011;
2144  T1011:;  T1011:;
2145          if((structure_ref((V339),VV[69],3))==Cnil){          if((structure_ref((V339),VV[69],3))==Cnil){
2146          goto T1015;}          goto T1015;}
2147          goto T1006;          goto T1006;
2148  goto T1015;          goto T1015;
2149  T1015:;  T1015:;
2150          V338= cdr((V338));          V338= cdr((V338));
2151          V339= car((V338));          V339= car((V338));
2152          goto T1010;}          goto T1010;}
2153  goto T1006;          goto T1006;
2154  T1006:;  T1006:;
2155          base[5]= Cnil;          base[5]= Cnil;
2156          goto T1002;          goto T1002;
2157  goto T1005;          goto T1005;
2158  T1005:;  T1005:;
2159          if((cadr((V327)))==Cnil){          if((cadr((V327)))==Cnil){
2160          goto T1023;}          goto T1023;}
2161          base[5]= Cnil;          base[5]= Cnil;
2162          goto T1002;          goto T1002;
2163  goto T1023;          goto T1023;
2164  T1023:;  T1023:;
2165          if((car(cddddr((V327))))==Cnil){          if((car(cddddr((V327))))==Cnil){
2166          goto T1025;}          goto T1025;}
2167          base[5]= Cnil;          base[5]= Cnil;
2168          goto T1002;          goto T1002;
2169  goto T1025;          goto T1025;
2170  T1025:;  T1025:;
2171          base[5]= make_cons((V318),car((V327)));          base[5]= make_cons((V318),car((V327)));
2172  goto T1002;          goto T1002;
2173  T1002:;  T1002:;
2174          bds_bind(VV[146],base[5]);          bds_bind(VV[146],base[5]);
2175          bds_bind(VV[134],symbol_value(VV[134]));          bds_bind(VV[134],symbol_value(VV[134]));
# Line 2177  T1002:; Line 2177  T1002:;
2177          if(((V329))==Cnil){          if(((V329))==Cnil){
2178          goto T1029;}          goto T1029;}
2179          princ_str("\n   va_list ap;",VV[25]);          princ_str("\n   va_list ap;",VV[25]);
2180  goto T1029;          goto T1029;
2181  T1029:;  T1029:;
2182          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);          princ_str("\n   int narg = VFUN_NARGS;",VV[25]);
2183          V340= structure_ref(cadr((V320)),VV[62],1);          V340= structure_ref(cadr((V320)),VV[62],1);
# Line 2191  T1029:; Line 2191  T1029:;
2191          if(((V321))==Cnil){          if(((V321))==Cnil){
2192          goto T1043;}          goto T1043;}
2193          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
2194  goto T1043;          goto T1043;
2195  T1043:;  T1043:;
2196          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
2197          goto T1047;}          goto T1047;}
2198          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
2199  goto T1047;          goto T1047;
2200  T1047:;  T1047:;
2201          if((V329)!=Cnil){          if((V329)!=Cnil){
2202          goto T1051;}          goto T1051;}
# Line 2207  T1047:; Line 2207  T1047:;
2207          V342 = make_fixnum((long)length((V322)));          V342 = make_fixnum((long)length((V322)));
2208          (void)((*(LnkLI274))(V342));          (void)((*(LnkLI274))(V342));
2209          princ_str("));",VV[25]);          princ_str("));",VV[25]);
2210  goto T1051;          goto T1051;
2211  T1051:;  T1051:;
2212          {object V343;          {object V343;
2213          object V344;          object V344;
2214          V343= car((V327));          V343= car((V327));
2215          V344= car((V343));          V344= car((V343));
2216  goto T1062;          goto T1062;
2217  T1062:;  T1062:;
2218          if(!(endp_prop((V343)))){          if(!(endp_prop((V343)))){
2219          goto T1063;}          goto T1063;}
2220          goto T1058;          goto T1058;
2221  goto T1063;          goto T1063;
2222  T1063:;  T1063:;
2223          base[9]= (V344);          base[9]= (V344);
2224          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 2227  T1063:; Line 2227  T1063:;
2227          V343= cdr((V343));          V343= cdr((V343));
2228          V344= car((V343));          V344= car((V343));
2229          goto T1062;}          goto T1062;}
2230  goto T1058;          goto T1058;
2231  T1058:;  T1058:;
2232          {object V345;          {object V345;
2233          object V346;          object V346;
2234          V345= cadr((V327));          V345= cadr((V327));
2235          V346= car((V345));          V346= car((V345));
2236  goto T1078;          goto T1078;
2237  T1078:;  T1078:;
2238          if(!(endp_prop((V345)))){          if(!(endp_prop((V345)))){
2239          goto T1079;}          goto T1079;}
2240          goto T1074;          goto T1074;
2241  goto T1079;          goto T1079;
2242  T1079:;  T1079:;
2243          base[9]= car((V346));          base[9]= car((V346));
2244          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 2250  T1079:; Line 2250  T1079:;
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  goto T1085;          goto T1085;
2254  T1085:;  T1085:;
2255          V345= cdr((V345));          V345= cdr((V345));
2256          V346= car((V345));          V346= car((V345));
2257          goto T1078;}          goto T1078;}
2258  goto T1074;          goto T1074;
2259  T1074:;  T1074:;
2260          if((caddr((V327)))==Cnil){          if((caddr((V327)))==Cnil){
2261          goto T1094;}          goto T1094;}
# Line 2263  T1074:; Line 2263  T1074:;
2263          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2264          L26(base);          L26(base);
2265          vs_top=sup;          vs_top=sup;
2266  goto T1094;          goto T1094;
2267  T1094:;  T1094:;
2268          {object V347;          {object V347;
2269          object V348;          object V348;
2270          V347= car(cddddr((V327)));          V347= car(cddddr((V327)));
2271          V348= car((V347));          V348= car((V347));
2272  goto T1101;          goto T1101;
2273  T1101:;  T1101:;
2274          if(!(endp_prop((V347)))){          if(!(endp_prop((V347)))){
2275          goto T1102;}          goto T1102;}
2276          goto T1057;          goto T1057;
2277  goto T1102;          goto T1102;
2278  T1102:;  T1102:;
2279          base[9]= cadr((V348));          base[9]= cadr((V348));
2280          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
# Line 2286  T1102:; Line 2286  T1102:;
2286          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
2287          L26(base);          L26(base);
2288          vs_top=sup;          vs_top=sup;
2289  goto T1108;          goto T1108;
2290  T1108:;  T1108:;
2291          V347= cdr((V347));          V347= cdr((V347));
2292          V348= car((V347));          V348= car((V347));
2293          goto T1101;}          goto T1101;}
2294  goto T1057;          goto T1057;
2295  T1057:;  T1057:;
2296          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2297          goto T1119;}          goto T1119;}
2298          goto T1117;          goto T1117;
2299  goto T1119;          goto T1119;
2300  T1119:;  T1119:;
2301          princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);          princ_str("\n   Vcs[0]=Vcs[0];",VV[25]);
2302  goto T1117;          goto T1117;
2303  T1117:;  T1117:;
2304          if((cadr((V327)))!=Cnil){          if((cadr((V327)))!=Cnil){
2305          goto T1123;}          goto T1123;}
# Line 2307  T1117:; Line 2307  T1117:;
2307          goto T1123;}          goto T1123;}
2308          if((cadddr((V327)))==Cnil){          if((cadddr((V327)))==Cnil){
2309          goto T1122;}          goto T1122;}
2310  goto T1123;          goto T1123;
2311  T1123:;  T1123:;
2312          if(((V328))!=Cnil){          if(((V328))!=Cnil){
2313          goto T1122;}          goto T1122;}
2314          V328= Ct;          V328= Ct;
2315          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2316  goto T1122;          goto T1122;
2317  T1122:;  T1122:;
2318          if((symbol_value(VV[163]))!=Cnil){          if((symbol_value(VV[163]))!=Cnil){
2319          goto T1136;}          goto T1136;}
2320          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
2321          goto T1134;}          goto T1134;}
2322  goto T1136;          goto T1136;
2323  T1136:;  T1136:;
2324          if((car((V327)))==Cnil){          if((car((V327)))==Cnil){
2325          goto T1134;}          goto T1134;}
# Line 2327  T1136:; Line 2327  T1136:;
2327          V349 = make_fixnum((long)length(car((V327))));          V349 = make_fixnum((long)length(car((V327))));
2328          (void)((*(LnkLI274))(V349));          (void)((*(LnkLI274))(V349));
2329          princ_str(") too_few_arguments();",VV[25]);          princ_str(") too_few_arguments();",VV[25]);
2330  goto T1134;          goto T1134;
2331  T1134:;  T1134:;
2332          {object V350;          {object V350;
2333          object V351;          object V351;
2334          V350= car((V327));          V350= car((V327));
2335          V351= car((V350));          V351= car((V350));
2336  goto T1148;          goto T1148;
2337  T1148:;  T1148:;
2338          if(!(endp_prop((V350)))){          if(!(endp_prop((V350)))){
2339          goto T1149;}          goto T1149;}
2340          goto T1144;          goto T1144;
2341  goto T1149;          goto T1149;
2342  T1149:;  T1149:;
2343          (void)((*(LnkLI320))((V351)));          (void)((*(LnkLI320))((V351)));
2344          V350= cdr((V350));          V350= cdr((V350));
2345          V351= car((V350));          V351= car((V350));
2346          goto T1148;}          goto T1148;}
2347  goto T1144;          goto T1144;
2348  T1144:;  T1144:;
2349          {object V352;          {object V352;
2350          object V353;          object V353;
2351          V352= cadr((V327));          V352= cadr((V327));
2352          V353= car((V352));          V353= car((V352));
2353  goto T1163;          goto T1163;
2354  T1163:;  T1163:;
2355          if(!(endp_prop((V352)))){          if(!(endp_prop((V352)))){
2356          goto T1164;}          goto T1164;}
2357          goto T1159;          goto T1159;
2358  goto T1164;          goto T1164;
2359  T1164:;  T1164:;
2360          (void)((*(LnkLI320))(car((V353))));          (void)((*(LnkLI320))(car((V353))));
2361          V352= cdr((V352));          V352= cdr((V352));
2362          V353= car((V352));          V353= car((V352));
2363          goto T1163;}          goto T1163;}
2364  goto T1159;          goto T1159;
2365  T1159:;  T1159:;
2366          if((caddr((V327)))==Cnil){          if((caddr((V327)))==Cnil){
2367          goto T1174;}          goto T1174;}
2368          (void)((*(LnkLI320))(caddr((V327))));          (void)((*(LnkLI320))(caddr((V327))));
2369  goto T1174;          goto T1174;
2370  T1174:;  T1174:;
2371          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2372          goto T1180;}          goto T1180;}
2373          V325= symbol_value(VV[129]);          V325= symbol_value(VV[129]);
2374          goto T1178;          goto T1178;
2375  goto T1180;          goto T1180;
2376  T1180:;  T1180:;
2377          V325= symbol_value(VV[141]);          V325= symbol_value(VV[141]);
2378  goto T1178;          goto T1178;
2379  T1178:;  T1178:;
2380          {object V354;          {object V354;
2381          object V355;          object V355;
2382          V354= car(cddddr((V327)));          V354= car(cddddr((V327)));
2383          V355= car((V354));          V355= car((V354));
2384  goto T1186;          goto T1186;
2385  T1186:;  T1186:;
2386          if(!(endp_prop((V354)))){          if(!(endp_prop((V354)))){
2387          goto T1187;}          goto T1187;}
2388          goto T1182;          goto T1182;
2389  goto T1187;          goto T1187;
2390  T1187:;  T1187:;
2391          (void)((*(LnkLI320))(cadr((V355))));          (void)((*(LnkLI320))(cadr((V355))));
2392          V354= cdr((V354));          V354= cdr((V354));
2393          V355= car((V354));          V355= car((V354));
2394          goto T1186;}          goto T1186;}
2395  goto T1182;          goto T1182;
2396  T1182:;  T1182:;
2397          {object V356;          {object V356;
2398          object V357;          object V357;
2399          V356= car(cddddr((V327)));          V356= car(cddddr((V327)));
2400          V357= car((V356));          V357= car((V356));
2401  goto T1201;          goto T1201;
2402  T1201:;  T1201:;
2403          if(!(endp_prop((V356)))){          if(!(endp_prop((V356)))){
2404          goto T1202;}          goto T1202;}
2405          goto T1197;          goto T1197;
2406  goto T1202;          goto T1202;
2407  T1202:;  T1202:;
2408          (void)((*(LnkLI320))(cadddr((V357))));          (void)((*(LnkLI320))(cadddr((V357))));
2409          V356= cdr((V356));          V356= cdr((V356));
2410          V357= car((V356));          V357= car((V356));
2411          goto T1201;}          goto T1201;}
2412  goto T1197;          goto T1197;
2413  T1197:;  T1197:;
2414          {object V358;          {object V358;
2415          object V359;          object V359;
2416          V359= car((V327));          V359= car((V327));
2417          V358= (V322);          V358= (V322);
2418  goto T1215;          goto T1215;
2419  T1215:;  T1215:;
2420          if(((V358))!=Cnil){          if(((V358))!=Cnil){
2421          goto T1216;}          goto T1216;}
2422          goto T1212;          goto T1212;
2423  goto T1216;          goto T1216;
2424  T1216:;  T1216:;
2425          (void)((*(LnkLI321))(car((V359)),car((V358))));          (void)((*(LnkLI321))(car((V359)),car((V358))));
2426          V358= cdr((V358));          V358= cdr((V358));
2427          V359= cdr((V359));          V359= cdr((V359));
2428          goto T1215;}          goto T1215;}
2429  goto T1212;          goto T1212;
2430  T1212:;  T1212:;
2431          if((cadr((V327)))==Cnil){          if((cadr((V327)))==Cnil){
2432          goto T1225;}          goto T1225;}
# Line 2443  T1212:; Line 2443  T1212:;
2443          object V363;          object V363;
2444          V362= cadr((V327));          V362= cadr((V327));
2445          V363= car((V362));          V363= car((V362));
2446  goto T1236;          goto T1236;
2447  T1236:;  T1236:;
2448          if(!(endp_prop((V362)))){          if(!(endp_prop((V362)))){
2449          goto T1237;}          goto T1237;}
# Line 2451  T1236:; Line 2451  T1236:;
2451          bds_unwind1;          bds_unwind1;
2452          bds_unwind1;          bds_unwind1;
2453          goto T1228;          goto T1228;
2454  goto T1237;          goto T1237;
2455  T1237:;  T1237:;
2456          {object V364;          {object V364;
2457          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));          setq(VV[165],number_plus(symbol_value(VV[165]),small_fixnum(1)));
# Line 2462  T1237:; Line 2462  T1237:;
2462          goto T1250;}          goto T1250;}
2463          V365= VV[166];          V365= VV[166];
2464          goto T1248;          goto T1248;
2465  goto T1250;          goto T1250;
2466  T1250:;  T1250:;
2467          V365= VV[167];          V365= VV[167];
2468  goto T1248;          goto T1248;
2469  T1248:;  T1248:;
2470          (void)((*(LnkLI274))(V365));          (void)((*(LnkLI274))(V365));
2471          princ_str("narg <= 0) ",VV[25]);          princ_str("narg <= 0) ",VV[25]);
# Line 2480  T1248:; Line 2480  T1248:;
2480          goto T1260;}          goto T1260;}
2481          V328= Ct;          V328= Ct;
2482          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2483  goto T1260;          goto T1260;
2484  T1260:;  T1260:;
2485          V366= car((V363));          V366= car((V363));
2486          if(((V361))==Cnil){          if(((V361))==Cnil){
2487          goto T1269;}          goto T1269;}
2488          V367= make_cons(VV[168],Cnil);          V367= make_cons(VV[168],Cnil);
2489          goto T1267;          goto T1267;
2490  goto T1269;          goto T1269;
2491  T1269:;  T1269:;
2492          V367= make_cons(VV[169],Cnil);          V367= make_cons(VV[169],Cnil);
2493  goto T1267;          goto T1267;
2494  T1267:;  T1267:;
2495          (void)((*(LnkLI321))(/* INLINE-ARGS */V366,V367));          (void)((*(LnkLI321))(/* INLINE-ARGS */V366,V367));
2496          V361= Cnil;          V361= Cnil;
# Line 2498  T1267:; Line 2498  T1267:;
2498          if((caddr((V363)))==Cnil){          if((caddr((V363)))==Cnil){
2499          goto T1275;}          goto T1275;}
2500          (void)((*(LnkLI321))(caddr((V363)),Ct));          (void)((*(LnkLI321))(caddr((V363)),Ct));
2501  goto T1275;          goto T1275;
2502  T1275:;  T1275:;
2503          V362= cdr((V362));          V362= cdr((V362));
2504          V363= car((V362));          V363= car((V362));
2505          goto T1236;}}          goto T1236;}}
2506  goto T1228;          goto T1228;
2507  T1228:;  T1228:;
2508          V323= nreverse((V323));          V323= nreverse((V323));
2509          {object V368;          {object V368;
# Line 2519  T1228:; Line 2519  T1228:;
2519          object V370;          object V370;
2520          V369= cadr((V327));          V369= cadr((V327));
2521          V370= car((V369));          V370= car((V369));
2522  goto T1298;          goto T1298;
2523  T1298:;  T1298:;
2524          if(!(endp_prop((V369)))){          if(!(endp_prop((V369)))){
2525          goto T1299;}          goto T1299;}
2526          goto T1294;          goto T1294;
2527  goto T1299;          goto T1299;
2528  T1299:;  T1299:;
2529          if((cdr(car((V323))))==Cnil){          if((cdr(car((V323))))==Cnil){
2530          goto T1303;}          goto T1303;}
2531          princ_str("\ngoto T",VV[25]);          princ_str("\n   goto T",VV[25]);
2532          (void)((*(LnkLI274))(car(car((V323)))));          (void)((*(LnkLI274))(car(car((V323)))));
2533          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2534          princ_str("\nT",VV[25]);          princ_str("\nT",VV[25]);
2535          (void)((*(LnkLI274))(car(car((V323)))));          (void)((*(LnkLI274))(car(car((V323)))));
2536          princ_str(":;",VV[25]);          princ_str(":;",VV[25]);
2537  goto T1303;          goto T1303;
2538  T1303:;  T1303:;
2539          {object V371;          {object V371;
2540          V371= car((V323));          V371= car((V323));
# Line 2543  T1303:; Line 2543  T1303:;
2543          if((caddr((V370)))==Cnil){          if((caddr((V370)))==Cnil){
2544          goto T1318;}          goto T1318;}
2545          (void)((*(LnkLI321))(caddr((V370)),Cnil));          (void)((*(LnkLI321))(caddr((V370)),Cnil));
2546  goto T1318;          goto T1318;
2547  T1318:;  T1318:;
2548          V369= cdr((V369));          V369= cdr((V369));
2549          V370= car((V369));          V370= car((V369));
2550          goto T1298;}          goto T1298;}
2551  goto T1294;          goto T1294;
2552  T1294:;  T1294:;
2553          if((cdr((V368)))==Cnil){          if((cdr((V368)))==Cnil){
2554          goto T1225;}          goto T1225;}
2555          princ_str("\ngoto T",VV[25]);          princ_str("\n   goto T",VV[25]);
2556          (void)((*(LnkLI274))(car((V368))));          (void)((*(LnkLI274))(car((V368))));
2557          princ_char(59,VV[25]);          princ_char(59,VV[25]);
2558          princ_str("\nT",VV[25]);          princ_str("\nT",VV[25]);
2559          (void)((*(LnkLI274))(car((V368))));          (void)((*(LnkLI274))(car((V368))));
2560          princ_str(":;",VV[25]);}          princ_str(":;",VV[25]);}
2561  goto T1225;          goto T1225;
2562  T1225:;  T1225:;
2563          if((caddr((V327)))==Cnil){          if((caddr((V327)))==Cnil){
2564          goto T1335;}          goto T1335;}
# Line 2568  T1225:; Line 2568  T1225:;
2568          if(((V372))==Cnil){          if(((V372))==Cnil){
2569          goto T1343;}          goto T1343;}
2570          goto T1340;          goto T1340;
2571  goto T1343;          goto T1343;
2572  T1343:;  T1343:;
2573          princ_str("\n   narg= narg - ",VV[25]);          princ_str("\n   narg= narg - ",VV[25]);
2574          V373 = make_fixnum((long)length(car((V327))));          V373 = make_fixnum((long)length(car((V327))));
2575          (void)((*(LnkLI274))(V373));          (void)((*(LnkLI274))(V373));
2576          princ_char(59,VV[25]);}          princ_char(59,VV[25]);}
2577  goto T1340;          goto T1340;
2578  T1340:;  T1340:;
2579          if(((V328))!=Cnil){          if(((V328))!=Cnil){
2580          goto T1348;}          goto T1348;}
2581          V328= Ct;          V328= Ct;
2582          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2583  goto T1348;          goto T1348;
2584  T1348:;  T1348:;
2585          princ_str("\n   V",VV[25]);          princ_str("\n   V",VV[25]);
2586          (void)((*(LnkLI274))((V326)));          (void)((*(LnkLI274))((V326)));
# Line 2590  T1348:; Line 2590  T1348:;
2590          goto T1359;}          goto T1359;}
2591          base[7]= Ct;          base[7]= Ct;
2592          goto T1358;          goto T1358;
2593  goto T1359;          goto T1359;
2594  T1359:;  T1359:;
2595          base[7]= symbol_value(VV[170]);          base[7]= symbol_value(VV[170]);
2596  goto T1358;          goto T1358;
2597  T1358:;  T1358:;
2598          bds_bind(VV[170],base[7]);          bds_bind(VV[170],base[7]);
2599          if((cadddr((V327)))==Cnil){          if((cadddr((V327)))==Cnil){
# Line 2602  T1358:; Line 2602  T1358:;
2602          goto T1366;}          goto T1366;}
2603          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));",VV[25]);
2604          goto T1361;          goto T1361;
2605  goto T1366;          goto T1366;
2606  T1366:;  T1366:;
2607          princ_str("make_list(narg);",VV[25]);          princ_str("make_list(narg);",VV[25]);
2608          goto T1361;          goto T1361;
2609  goto T1363;          goto T1363;
2610  T1363:;  T1363:;
2611          if(((VV[170]->s.s_dbind))==Cnil){          if(((VV[170]->s.s_dbind))==Cnil){
2612          goto T1371;}          goto T1371;}
2613          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]);          princ_str("(ALLOCA_CONS(narg),ON_STACK_LIST_VECTOR_NEW(narg,first,ap));",VV[25]);
2614          goto T1361;          goto T1361;
2615  goto T1371;          goto T1371;
2616  T1371:;  T1371:;
2617          princ_str("list_vector_new(narg,first,ap);",VV[25]);          princ_str("list_vector_new(narg,first,ap);",VV[25]);
2618  goto T1361;          goto T1361;
2619  T1361:;  T1361:;
2620          V375= caddr((V327));          V375= caddr((V327));
2621          V376= list(2,VV[155],(V326));          V376= list(2,VV[155],(V326));
2622          V377= (*(LnkLI321))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376);          V377= (*(LnkLI321))(/* INLINE-ARGS */V375,/* INLINE-ARGS */V376);
2623          bds_unwind1;          bds_unwind1;
2624  goto T1335;          goto T1335;
2625  T1335:;  T1335:;
2626          if((cadddr((V327)))==Cnil){          if((cadddr((V327)))==Cnil){
2627          goto T1375;}          goto T1375;}
# Line 2630  T1335:; Line 2630  T1335:;
2630          if(((V378))==Cnil){          if(((V378))==Cnil){
2631          goto T1381;}          goto T1381;}
2632          goto T1378;          goto T1378;
2633  goto T1381;          goto T1381;
2634  T1381:;  T1381:;
2635          {object V379;          {object V379;
2636          V379= cadr((V327));          V379= cadr((V327));
2637          if(((V379))==Cnil){          if(((V379))==Cnil){
2638          goto T1385;}          goto T1385;}
2639          goto T1378;          goto T1378;
2640  goto T1385;          goto T1385;
2641  T1385:;  T1385:;
2642          princ_str("\n   narg= narg - ",VV[25]);          princ_str("\n   narg= narg - ",VV[25]);
2643          V380 = make_fixnum((long)length(car((V327))));          V380 = make_fixnum((long)length(car((V327))));
2644          (void)((*(LnkLI274))(V380));          (void)((*(LnkLI274))(V380));
2645          princ_char(59,VV[25]);}}          princ_char(59,VV[25]);}}
2646  goto T1378;          goto T1378;
2647  T1378:;  T1378:;
2648          if(((V328))!=Cnil){          if(((V328))!=Cnil){
2649          goto T1390;}          goto T1390;}
2650          V328= Ct;          V328= Ct;
2651          princ_str("\n   va_start(ap,first);",VV[25]);          princ_str("\n   va_start(ap,first);",VV[25]);
2652  goto T1390;          goto T1390;
2653  T1390:;  T1390:;
2654          {object V381;          {object V381;
2655          object V382= car(cddddr((V327)));          object V382= car(cddddr((V327)));
# Line 2657  T1390:; Line 2657  T1390:;
2657          V324= Cnil;          V324= Cnil;
2658          goto T1397;}          goto T1397;}
2659          base[7]=V381=MMcons(Cnil,Cnil);          base[7]=V381=MMcons(Cnil,Cnil);
2660  goto T1398;          goto T1398;
2661  T1398:;  T1398:;
2662          (V381->c.c_car)= caddr((V382->c.c_car));          (V381->c.c_car)= caddr((V382->c.c_car));
2663          V382=MMcdr(V382);          V382=MMcdr(V382);
# Line 2666  T1398:; Line 2666  T1398:;
2666          goto T1397;}          goto T1397;}
2667          V381=MMcdr(V381)=MMcons(Cnil,Cnil);          V381=MMcdr(V381)=MMcons(Cnil,Cnil);
2668          goto T1398;}          goto T1398;}
2669  goto T1397;          goto T1397;
2670  T1397:;  T1397:;
2671          {object V383;          {object V383;
2672          object V384;          object V384;
# Line 2678  T1397:; Line 2678  T1397:;
2678          V385= (V324);          V385= (V324);
2679          V386= car(cddddr((V327)));          V386= car(cddddr((V327)));
2680          V387= car((V386));          V387= car((V386));
2681  goto T1406;          goto T1406;
2682  T1406:;  T1406:;
2683          if(((V385))!=Cnil){          if(((V385))!=Cnil){
2684          goto T1407;}          goto T1407;}
2685          goto T1401;          goto T1401;
2686  goto T1407;          goto T1407;
2687  T1407:;  T1407:;
2688          if(!((caar((V385)))==(VV[172]))){          if(!((caar((V385)))==(VV[172]))){
2689          goto T1412;}          goto T1412;}
2690          if((caddr(car((V385))))==(Cnil)){          if((caddr(car((V385))))==(Cnil)){
2691          goto T1411;}          goto T1411;}
2692  goto T1412;          goto T1412;
2693  T1412:;  T1412:;
2694          V383= Ct;          V383= Ct;
2695  goto T1411;          goto T1411;
2696  T1411:;  T1411:;
2697          if(!((caar((V385)))==(VV[172]))){          if(!((caar((V385)))==(VV[172]))){
2698          goto T1418;}          goto T1418;}
# Line 2701  T1411:; Line 2701  T1411:;
2701          if(!(((V388))==(Cnil))){          if(!(((V388))==(Cnil))){
2702          goto T1424;}          goto T1424;}
2703          goto T1422;          goto T1422;
2704  goto T1424;          goto T1424;
2705  T1424:;  T1424:;
2706          if(type_of((V388))==t_cons){          if(type_of((V388))==t_cons){
2707          goto T1426;}          goto T1426;}
2708          goto T1418;          goto T1418;
2709  goto T1426;          goto T1426;
2710  T1426:;  T1426:;
2711          {register object x= car((V388)),V389= VV[173];          {register object x= car((V388)),V389= VV[173];
2712          while(!endp(V389))          while(!endp(V389))
# Line 2714  T1426:; Line 2714  T1426:;
2714          goto T1422;          goto T1422;
2715          }else V389=V389->c.c_cdr;          }else V389=V389->c.c_cdr;
2716          goto T1418;}}          goto T1418;}}
2717  goto T1422;          goto T1422;
2718  T1422:;  T1422:;
2719          V390= structure_ref(cadddr((V387)),VV[69],1);          V390= structure_ref(cadddr((V387)),VV[69],1);
2720          if((/* INLINE-ARGS */V390)==(VV[174])){          if((/* INLINE-ARGS */V390)==(VV[174])){
2721          goto T1417;}          goto T1417;}
2722  goto T1418;          goto T1418;
2723  T1418:;  T1418:;
2724          V383= Ct;          V383= Ct;
2725          if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385);          if(type_of(V385)!=t_cons)FEwrong_type_argument(Scons,V385);
2726          (V385)->c.c_car = small_fixnum(0);          (V385)->c.c_car = small_fixnum(0);
2727  goto T1417;          goto T1417;
2728  T1417:;  T1417:;
2729          V385= cdr((V385));          V385= cdr((V385));
2730          V386= cdr((V386));          V386= cdr((V386));
2731          V387= car((V386));          V387= car((V386));
2732          goto T1406;}          goto T1406;}
2733  goto T1401;          goto T1401;
2734  T1401:;  T1401:;
2735          if(!(((long)length((V324)))>(15))){          if(!(((long)length((V324)))>(15))){
2736          goto T1439;}          goto T1439;}
2737          V383= Ct;          V383= Ct;
2738  goto T1439;          goto T1439;
2739  T1439:;  T1439:;
2740          princ_str("\n   {",VV[25]);          princ_str("\n   {",VV[25]);
2741          vs_base=vs_top;          vs_base=vs_top;
# Line 2755  T1439:; Line 2755  T1439:;
2755          register object V395;          register object V395;
2756          V394= (V324);          V394= (V324);
2757          V395= Cnil;          V395= Cnil;
2758  goto T1459;          goto T1459;
2759  T1459:;  T1459:;
2760          if(((V394))!=Cnil){          if(((V394))!=Cnil){
2761          goto T1460;}          goto T1460;}
2762          goto T1457;          goto T1457;
2763  goto T1460;          goto T1460;
2764  T1460:;  T1460:;
2765          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[25]);
2766          if(!(eql(car((V394)),small_fixnum(0)))){          if(!(eql(car((V394)),small_fixnum(0)))){
2767          goto T1468;}          goto T1468;}
2768          princ_str("-1",VV[25]);          princ_str("-1",VV[25]);
2769          goto T1466;          goto T1466;
2770  goto T1468;          goto T1468;
2771  T1468:;  T1468:;
2772          V395= caddr(car((V394)));          V395= caddr(car((V394)));
2773          if(!(((V395))==(Cnil))){          if(!(((V395))==(Cnil))){
2774          goto T1472;}          goto T1472;}
2775          princ_str("-2",VV[25]);          princ_str("-2",VV[25]);
2776          goto T1466;          goto T1466;
2777  goto T1472;          goto T1472;
2778  T1472:;  T1472:;
2779          if(!(type_of((V395))==t_cons)){          if(!(type_of((V395))==t_cons)){
2780          goto T1477;}          goto T1477;}
# Line 2782  T1472:; Line 2782  T1472:;
2782          goto T1477;}          goto T1477;}
2783          (void)((*(LnkLI274))(cadr((V395))));          (void)((*(LnkLI274))(cadr((V395))));
2784          goto T1466;          goto T1466;
2785  goto T1477;          goto T1477;
2786  T1477:;  T1477:;
2787          if(!(type_of((V395))==t_cons)){          if(!(type_of((V395))==t_cons)){
2788          goto T1483;}          goto T1483;}
# Line 2791  T1477:; Line 2791  T1477:;
2791          V396= (*(LnkLI325))(caddr((V395)));          V396= (*(LnkLI325))(caddr((V395)));
2792          (void)((*(LnkLI274))(/* INLINE-ARGS */V396));          (void)((*(LnkLI274))(/* INLINE-ARGS */V396));
2793          goto T1466;          goto T1466;
2794  goto T1483;          goto T1483;
2795  T1483:;  T1483:;
2796          (void)((*(LnkLI326))());          (void)((*(LnkLI326))());
2797  goto T1466;          goto T1466;
2798  T1466:;  T1466:;
2799          if((cdr((V394)))==Cnil){          if((cdr((V394)))==Cnil){
2800          goto T1488;}          goto T1488;}
2801          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2802  goto T1488;          goto T1488;
2803  T1488:;  T1488:;
2804          V394= cdr((V394));          V394= cdr((V394));
2805          goto T1459;}          goto T1459;}
2806  goto T1457;          goto T1457;
2807  T1457:;  T1457:;
2808          princ_str("};",VV[25]);          princ_str("};",VV[25]);
2809  goto T1447;          goto T1447;
2810  T1447:;  T1447:;
2811          princ_char(10,VV[31]);          princ_char(10,VV[31]);
2812          princ_str("static struct { short n,allow_other_keys;",VV[25]);          princ_str("static struct { short n,allow_other_keys;",VV[25]);
# Line 2825  T1447:; Line 2825  T1447:;
2825          goto T1515;}          goto T1515;}
2826          V398= small_fixnum(1);          V398= small_fixnum(1);
2827          goto T1513;          goto T1513;
2828  goto T1515;          goto T1515;
2829  T1515:;  T1515:;
2830          V398= small_fixnum(0);          V398= small_fixnum(0);
2831  goto T1513;          goto T1513;
2832  T1513:;  T1513:;
2833          (void)((*(LnkLI274))(V398));          (void)((*(LnkLI274))(V398));
2834          princ_char(44,VV[25]);          princ_char(44,VV[25]);
# Line 2838  T1513:; Line 2838  T1513:;
2838          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V319)));
2839          princ_str("defaults",VV[25]);          princ_str("defaults",VV[25]);
2840          goto T1518;          goto T1518;
2841  goto T1520;          goto T1520;
2842  T1520:;  T1520:;
2843          princ_str("Cstd_key_defaults",VV[25]);          princ_str("Cstd_key_defaults",VV[25]);
2844  goto T1518;          goto T1518;
2845  T1518:;  T1518:;
2846          if((car(cddddr((V327))))==Cnil){          if((car(cddddr((V327))))==Cnil){
2847          goto T1526;}          goto T1526;}
2848          princ_str(",{",VV[25]);          princ_str(",{",VV[25]);
2849          {object V399;          {object V399;
2850          V399= reverse(car(cddddr((V327))));          V399= reverse(car(cddddr((V327))));
2851  goto T1534;          goto T1534;
2852  T1534:;  T1534:;
2853          if(((V399))!=Cnil){          if(((V399))!=Cnil){
2854          goto T1535;}          goto T1535;}
2855          goto T1531;          goto T1531;
2856  goto T1535;          goto T1535;
2857  T1535:;  T1535:;
2858          princ_str("(void *)",VV[25]);          princ_str("(void *)",VV[25]);
2859          V400= (*(LnkLI327))(caar((V399)));          V400= (*(LnkLI327))(caar((V399)));
# Line 2861  T1535:; Line 2861  T1535:;
2861          if((cdr((V399)))==Cnil){          if((cdr((V399)))==Cnil){
2862          goto T1543;}          goto T1543;}
2863          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2864  goto T1543;          goto T1543;
2865  T1543:;  T1543:;
2866          V399= cdr((V399));          V399= cdr((V399));
2867          goto T1534;}          goto T1534;}
2868  goto T1531;          goto T1531;
2869  T1531:;  T1531:;
2870          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2871  goto T1526;          goto T1526;
2872  T1526:;  T1526:;
2873          princ_str("};",VV[25]);          princ_str("};",VV[25]);
2874          bds_unwind1;          bds_unwind1;
# Line 2879  T1526:; Line 2879  T1526:;
2879          (void)((*(LnkLI274))(/* INLINE-ARGS */V401));          (void)((*(LnkLI274))(/* INLINE-ARGS */V401));
2880          princ_char(44,VV[25]);          princ_char(44,VV[25]);
2881          goto T1552;          goto T1552;
2882  goto T1554;          goto T1554;
2883  T1554:;  T1554:;
2884          princ_str("\n   parse_key_new_new(",VV[25]);          princ_str("\n   parse_key_new_new(",VV[25]);
2885  goto T1552;          goto T1552;
2886  T1552:;  T1552:;
2887          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){          if(!(eql(small_fixnum(0),symbol_value(VV[141])))){
2888          goto T1560;}          goto T1560;}
2889          setq(VV[141],small_fixnum(1));          setq(VV[141],small_fixnum(1));
2890  goto T1560;          goto T1560;
2891  T1560:;  T1560:;
2892          princ_str("narg,",VV[25]);          princ_str("narg,",VV[25]);
2893          if(((VV[153]->s.s_dbind))==Cnil){          if(((VV[153]->s.s_dbind))==Cnil){
2894          goto T1568;}          goto T1568;}
2895          V402= VV[177];          V402= VV[177];
2896          goto T1566;          goto T1566;
2897  goto T1568;          goto T1568;
2898  T1568:;  T1568:;
2899          V402= VV[178];          V402= VV[178];
2900  goto T1566;          goto T1566;
2901  T1566:;  T1566:;
2902          (void)((*(LnkLI274))(V402));          (void)((*(LnkLI274))(V402));
2903          princ_char(43,VV[25]);          princ_char(43,VV[25]);
# Line 2905  T1566:; Line 2905  T1566:;
2905          princ_str(",(struct key *)&LI",VV[25]);          princ_str(",(struct key *)&LI",VV[25]);
2906          (void)((*(LnkLI274))((V319)));          (void)((*(LnkLI274))((V319)));
2907          princ_str("key,first,ap);",VV[25]);}          princ_str("key,first,ap);",VV[25]);}
2908  goto T1375;          goto T1375;
2909  T1375:;  T1375:;
2910          {object V403;          {object V403;
2911          register object V404;          register object V404;
2912          V403= car(cddddr((V327)));          V403= car(cddddr((V327)));
2913          V404= car((V403));          V404= car((V403));
2914  goto T1579;          goto T1579;
2915  T1579:;  T1579:;
2916          if(!(endp_prop((V403)))){          if(!(endp_prop((V403)))){
2917          goto T1580;}          goto T1580;}
2918          goto T1575;          goto T1575;
2919  goto T1580;          goto T1580;
2920  T1580:;  T1580:;
2921          {object V406;          {object V406;
2922          V406= car((V324));          V406= car((V324));
# Line 2926  T1580:; Line 2926  T1580:;
2926          goto T1586;}          goto T1586;}
2927          (void)((*(LnkLI328))(cadr((V404))));          (void)((*(LnkLI328))(cadr((V404))));
2928          goto T1584;          goto T1584;
2929  goto T1586;          goto T1586;
2930  T1586:;  T1586:;
2931          princ_str("\n   if(",VV[25]);          princ_str("\n   if(",VV[25]);
2932          V407= structure_ref(cadr((V404)),VV[69],2);          V407= structure_ref(cadr((V404)),VV[69],2);
# Line 2943  T1586:; Line 2943  T1586:;
2943          if((/* INLINE-ARGS */V409)==(VV[174])){          if((/* INLINE-ARGS */V409)==(VV[174])){
2944          goto T1598;}          goto T1598;}
2945          (void)((*(LnkLI321))(cadddr((V404)),Cnil));          (void)((*(LnkLI321))(cadddr((V404)),Cnil));
2946  goto T1598;          goto T1598;
2947  T1598:;  T1598:;
2948          princ_str("\n   }else{",VV[25]);          princ_str("\n   }else{",VV[25]);
2949          (void)((*(LnkLI328))(cadr((V404))));          (void)((*(LnkLI328))(cadr((V404))));
# Line 2951  T1598:; Line 2951  T1598:;
2951          if((/* INLINE-ARGS */V410)==(VV[174])){          if((/* INLINE-ARGS */V410)==(VV[174])){
2952          goto T1604;}          goto T1604;}
2953          (void)((*(LnkLI321))(cadddr((V404)),Ct));          (void)((*(LnkLI321))(cadddr((V404)),Ct));
2954  goto T1604;          goto T1604;
2955  T1604:;  T1604:;
2956          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2957  goto T1584;          goto T1584;
2958  T1584:;  T1584:;
2959          V403= cdr((V403));          V403= cdr((V403));
2960          V404= car((V403));          V404= car((V403));
2961          goto T1579;}          goto T1579;}
2962  goto T1575;          goto T1575;
2963  T1575:;  T1575:;
2964          if(((VV[146]->s.s_dbind))==Cnil){          if(((VV[146]->s.s_dbind))==Cnil){
2965          goto T1613;}          goto T1613;}
2966          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));          (VV[134]->s.s_dbind)= make_cons(VV[150],(VV[134]->s.s_dbind));
2967          princ_str("\ngoto TTL;",VV[25]);          princ_str("\n   goto TTL;",VV[25]);
2968          princ_str("\nTTL:;",VV[25]);          princ_str("\nTTL:;",VV[25]);
2969  goto T1613;          goto T1613;
2970  T1613:;  T1613:;
2971          base[7]= caddr(cddr((V320)));          base[7]= caddr(cddr((V320)));
2972          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 2976  T1613:; Line 2976  T1613:;
2976          goto T1623;}          goto T1623;}
2977          V328= Cnil;          V328= Cnil;
2978          princ_str("\n   va_end(ap);",VV[25]);          princ_str("\n   va_end(ap);",VV[25]);
2979  goto T1623;          goto T1623;
2980  T1623:;  T1623:;
2981          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
2982          goto T1631;}          goto T1631;}
# Line 2985  T1623:; Line 2985  T1623:;
2985          if((symbol_value(VV[140]))!=Cnil){          if((symbol_value(VV[140]))!=Cnil){
2986          goto T1631;}          goto T1631;}
2987          goto T1629;          goto T1629;
2988  goto T1631;          goto T1631;
2989  T1631:;  T1631:;
2990          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
2991  goto T1629;          goto T1629;
2992  T1629:;  T1629:;
2993          princ_str("\n   return Cnil;",VV[25]);          princ_str("\n   return Cnil;",VV[25]);
2994          princ_char(125,VV[25]);          princ_char(125,VV[25]);
2995          if((base[1])==Cnil){          if((base[1])==Cnil){
2996          goto T1642;}          goto T1642;}
2997          princ_str("\n   }",VV[25]);          princ_str("\n   }",VV[25]);
2998  goto T1642;          goto T1642;
2999  T1642:;  T1642:;
3000          (void)((*(LnkLI330))());          (void)((*(LnkLI330))());
3001          V412= get((V318),VV[77],Cnil);          V412= get((V318),VV[77],Cnil);
# Line 3014  static object LI27(V418,V419,V420,V421) Line 3014  static object LI27(V418,V419,V420,V421)
3014    
3015  object V418;register object V419;object V420;object V421;  object V418;register object V419;object V420;object V421;
3016  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
3017  goto TTL;          goto TTL;
3018  TTL:;  TTL:;
3019          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[179],(V418))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[179],(V418))));
3020          if(!(type_of((V419))==t_fixnum||          if(!(type_of((V419))==t_fixnum||
# Line 3028  type_of((V419))==t_complex)){ Line 3028  type_of((V419))==t_complex)){
3028          (void)((*(LnkLI274))((V419)));          (void)((*(LnkLI274))((V419)));
3029          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3030          goto T1649;          goto T1649;
3031  goto T1651;          goto T1651;
3032  T1651:;  T1651:;
3033          princ_char(10,VV[25]);          princ_char(10,VV[25]);
3034          (void)((*(LnkLI274))((V419)));          (void)((*(LnkLI274))((V419)));
3035          princ_str("()",VV[25]);          princ_str("()",VV[25]);
3036  goto T1649;          goto T1649;
3037  T1649:;  T1649:;
3038          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
3039          princ_str("register object *",VV[25]);          princ_str("register object *",VV[25]);
# Line 3054  T1649:; Line 3054  T1649:;
3054          (void)((*(LnkLI274))(symbol_value(VV[136])));          (void)((*(LnkLI274))(symbol_value(VV[136])));
3055          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3056          goto T1674;          goto T1674;
3057  goto T1676;          goto T1676;
3058  T1676:;  T1676:;
3059          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
3060  goto T1674;          goto T1674;
3061  T1674:;  T1674:;
3062          if(((V421))==Cnil){          if(((V421))==Cnil){
3063          goto T1682;}          goto T1682;}
3064          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
3065  goto T1682;          goto T1682;
3066  T1682:;  T1682:;
3067          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
3068          goto T1686;}          goto T1686;}
3069          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
3070  goto T1686;          goto T1686;
3071  T1686:;  T1686:;
3072          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V420)),caddr(cddr((V420))),(V418))));          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V420)),caddr(cddr((V420))),(V418))));
3073          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
# Line 3087  static object LI28(V427,V428) Line 3087  static object LI28(V427,V428)
3087    
3088  register object V427;object V428;  register object V427;object V428;
3089  {        VMB27 VMS27 VMV27  {        VMB27 VMS27 VMV27
3090  goto TTL;          goto TTL;
3091  TTL:;  TTL:;
3092          {object V429;          {object V429;
3093          V429= make_cons((V427),symbol_value(VV[130]));          V429= make_cons((V427),symbol_value(VV[130]));
# Line 3101  TTL:; Line 3101  TTL:;
3101          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[31]);
3102          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3103          goto T1702;          goto T1702;
3104  goto T1704;          goto T1704;
3105  T1704:;  T1704:;
3106          princ_str("\n#define VMB",VV[31]);          princ_str("\n#define VMB",VV[31]);
3107          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
# Line 3109  T1704:; Line 3109  T1704:;
3109          princ_str("register object *",VV[31]);          princ_str("register object *",VV[31]);
3110          (void)((*(LnkLI277))(symbol_value(VV[20])));          (void)((*(LnkLI277))(symbol_value(VV[20])));
3111          princ_str("base=vs_top;",VV[31]);          princ_str("base=vs_top;",VV[31]);
3112  goto T1702;          goto T1702;
3113  T1702:;  T1702:;
3114          (void)((*(LnkLI332))());          (void)((*(LnkLI332))());
3115          if((symbol_value(VV[138]))==Cnil){          if((symbol_value(VV[138]))==Cnil){
# Line 3123  T1702:; Line 3123  T1702:;
3123          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3124          princ_str(";vs_top=sup;",VV[31]);          princ_str(";vs_top=sup;",VV[31]);
3125          goto T1719;          goto T1719;
3126  goto T1721;          goto T1721;
3127  T1721:;  T1721:;
3128          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3129          goto T1732;}          goto T1732;}
3130          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3131          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3132          goto T1719;          goto T1719;
3133  goto T1732;          goto T1732;
3134  T1732:;  T1732:;
3135          princ_str("\n#define VMS",VV[31]);          princ_str("\n#define VMS",VV[31]);
3136          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3137          princ_str(" vs_top += ",VV[31]);          princ_str(" vs_top += ",VV[31]);
3138          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3139          princ_char(59,VV[31]);          princ_char(59,VV[31]);
3140  goto T1719;          goto T1719;
3141  T1719:;  T1719:;
3142          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3143          goto T1743;}          goto T1743;}
3144          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3145          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3146          goto T1741;          goto T1741;
3147  goto T1743;          goto T1743;
3148  T1743:;  T1743:;
3149          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
3150          goto T1748;}          goto T1748;}
# Line 3154  T1743:; Line 3154  T1743:;
3154          (void)((*(LnkLI277))(symbol_value(VV[130])));          (void)((*(LnkLI277))(symbol_value(VV[130])));
3155          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3156          goto T1741;          goto T1741;
3157  goto T1748;          goto T1748;
3158  T1748:;  T1748:;
3159          princ_str("\n#define VMV",VV[31]);          princ_str("\n#define VMV",VV[31]);
3160          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
3161          princ_str(" vs_check;",VV[31]);          princ_str(" vs_check;",VV[31]);
3162  goto T1741;          goto T1741;
3163  T1741:;  T1741:;
3164          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[130]))==0)){
3165          goto T1759;}          goto T1759;}
# Line 3172  T1741:; Line 3172  T1741:;
3172          princ_str(");",VV[31]);          princ_str(");",VV[31]);
3173          {object V430 = Cnil;          {object V430 = Cnil;
3174          VMR27(V430)}          VMR27(V430)}
3175  goto T1759;          goto T1759;
3176  T1759:;  T1759:;
3177          princ_str("\n#define VMR",VV[31]);          princ_str("\n#define VMR",VV[31]);
3178          (void)((*(LnkLI277))((V427)));          (void)((*(LnkLI277))((V427)));
# Line 3192  static object LI29(V434,V435) Line 3192  static object LI29(V434,V435)
3192    
3193  object V434;object V435;  object V434;object V435;
3194  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
3195  goto TTL;          goto TTL;
3196  TTL:;  TTL:;
3197          {register object V436;          {register object V436;
3198          V436= (V434);          V436= (V434);
3199  goto T1777;          goto T1777;
3200  T1777:;  T1777:;
3201          if(!(endp_prop((V436)))){          if(!(endp_prop((V436)))){
3202          goto T1778;}          goto T1778;}
3203          goto T1775;          goto T1775;
3204  goto T1778;          goto T1778;
3205  T1778:;  T1778:;
3206          {register object V437;          {register object V437;
3207          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));          setq(VV[88],number_plus(symbol_value(VV[88]),small_fixnum(1)));
# Line 3212  T1778:; Line 3212  T1778:;
3212          if(endp_prop(cdr((V436)))){          if(endp_prop(cdr((V436)))){
3213          goto T1788;}          goto T1788;}
3214          princ_char(44,VV[25]);          princ_char(44,VV[25]);
3215  goto T1788;          goto T1788;
3216  T1788:;  T1788:;
3217          V436= cdr((V436));          V436= cdr((V436));
3218          goto T1777;}          goto T1777;}
3219  goto T1775;          goto T1775;
3220  T1775:;  T1775:;
3221          princ_str(")\n",VV[25]);          princ_str(")\n",VV[25]);
3222          if(((V434))==Cnil){          if(((V434))==Cnil){
# Line 3228  T1775:; Line 3228  T1775:;
3228          V438= (V434);          V438= (V434);
3229          V439= (V435);          V439= (V435);
3230          V440= Cnil;          V440= Cnil;
3231  goto T1802;          goto T1802;
3232  T1802:;  T1802:;
3233          if(!(endp_prop((V438)))){          if(!(endp_prop((V438)))){
3234          goto T1803;}          goto T1803;}
3235          princ_char(59,VV[25]);          princ_char(59,VV[25]);
3236          {object V441 = Cnil;          {object V441 = Cnil;
3237          VMR28(V441)}          VMR28(V441)}
3238  goto T1803;          goto T1803;
3239  T1803:;  T1803:;
3240          if(((V440))==Cnil){          if(((V440))==Cnil){
3241          goto T1808;}          goto T1808;}
3242          princ_char(59,VV[25]);          princ_char(59,VV[25]);
3243  goto T1808;          goto T1808;
3244  T1808:;  T1808:;
3245          (void)((*(LnkLI274))(symbol_value(VV[20])));          (void)((*(LnkLI274))(symbol_value(VV[20])));
3246          V442= (*(LnkLI333))(car((V438)));          V442= (*(LnkLI333))(car((V438)));
# Line 3254  T1808:; Line 3254  T1808:;
3254          V438= cdr((V438));          V438= cdr((V438));
3255          V439= cdr((V439));          V439= cdr((V439));
3256          goto T1802;}          goto T1802;}
3257  goto T1798;          goto T1798;
3258  T1798:;  T1798:;
3259          {object V445 = Cnil;          {object V445 = Cnil;
3260          VMR28(V445)}          VMR28(V445)}
# Line 3266  static object LI30(V448,V449) Line 3266  static object LI30(V448,V449)
3266    
3267  object V448;object V449;  object V448;object V449;
3268  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
3269  goto TTL;          goto TTL;
3270  TTL:;  TTL:;
3271          {object V450;          {object V450;
3272          V450= Cnil;          V450= Cnil;
# Line 3276  TTL:; Line 3276  TTL:;
3276          goto T1828;}          goto T1828;}
3277          {object V452 = (V451);          {object V452 = (V451);
3278          VMR29(V452)}          VMR29(V452)}
3279  goto T1828;          goto T1828;
3280  T1828:;  T1828:;
3281          if((get((V448),VV[115],Cnil))!=Cnil){          if((get((V448),VV[115],Cnil))!=Cnil){
3282          goto T1831;}          goto T1831;}
3283          {object V453 = (VFUN_NARGS=2,(*(LnkLI334))(VV[180],(V448)));          {object V453 = (VFUN_NARGS=2,(*(LnkLI334))(VV[180],(V448)));
3284          VMR29(V453)}          VMR29(V453)}
3285  goto T1831;          goto T1831;
3286  T1831:;  T1831:;
3287          (void)(remprop((V448),VV[115]));          (void)(remprop((V448),VV[115]));
3288          {register object V454;          {register object V454;
# Line 3291  T1831:; Line 3291  T1831:;
3291          register object V456;          register object V456;
3292          V455= structure_ref(cadr((V449)),VV[62],1);          V455= structure_ref(cadr((V449)),VV[62],1);
3293          V456= car((V455));          V456= car((V455));
3294  goto T1838;          goto T1838;
3295  T1838:;  T1838:;
3296          if(!(endp_prop((V455)))){          if(!(endp_prop((V455)))){
3297          goto T1839;}          goto T1839;}
3298          goto T1834;          goto T1834;
3299  goto T1839;          goto T1839;
3300  T1839:;  T1839:;
3301          V457= structure_ref((V456),VV[69],2);          V457= structure_ref((V456),VV[69],2);
3302          if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){          if(!(type_of(/* INLINE-ARGS */V457)==t_cons)){
# Line 3307  T1839:; Line 3307  T1839:;
3307          V459= structure_ref((V456),VV[69],2);          V459= structure_ref((V456),VV[69],2);
3308          {object V460= cdr(/* INLINE-ARGS */V459);          {object V460= cdr(/* INLINE-ARGS */V459);
3309          V454= (number_compare((V454),V460)>=0?((V454)):V460);}          V454= (number_compare((V454),V460)>=0?((V454)):V460);}
3310  goto T1843;          goto T1843;
3311  T1843:;  T1843:;
3312          V455= cdr((V455));          V455= cdr((V455));
3313          V456= car((V455));          V456= car((V455));
3314          goto T1838;}          goto T1838;}
3315  goto T1834;          goto T1834;
3316  T1834:;  T1834:;
3317          base[0]= one_plus((V454));          base[0]= one_plus((V454));
3318          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3323  T1834:; Line 3323  T1834:;
3323          register object V462;          register object V462;
3324          V461= structure_ref(cadr((V449)),VV[62],1);          V461= structure_ref(cadr((V449)),VV[62],1);
3325          V462= car((V461));          V462= car((V461));
3326  goto T1861;          goto T1861;
3327  T1861:;  T1861:;
3328          if(!(endp_prop((V461)))){          if(!(endp_prop((V461)))){
3329          goto T1862;}          goto T1862;}
3330          goto T1857;          goto T1857;
3331  goto T1862;          goto T1862;
3332  T1862:;  T1862:;
3333          V463= structure_ref((V462),VV[69],2);          V463= structure_ref((V462),VV[69],2);
3334          if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){          if(!(type_of(/* INLINE-ARGS */V463)==t_cons)){
# Line 3344  T1862:; Line 3344  T1862:;
3344          if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450));          if(type_of(nthcdr(fixint((V465)),V450))!=t_cons)FEwrong_type_argument(Scons,nthcdr(fixint((V465)),V450));
3345          (nthcdr(fixint((V465)),V450))->c.c_car = (V467);          (nthcdr(fixint((V465)),V450))->c.c_car = (V467);
3346          (void)(nthcdr(fixint((V465)),V450));}          (void)(nthcdr(fixint((V465)),V450));}
3347  goto T1866;          goto T1866;
3348  T1866:;  T1866:;
3349          V461= cdr((V461));          V461= cdr((V461));
3350          V462= car((V461));          V462= car((V461));
3351          goto T1861;}          goto T1861;}
3352  goto T1857;          goto T1857;
3353  T1857:;  T1857:;
3354          (void)(sputprop((V448),VV[116],(V450)));          (void)(sputprop((V448),VV[116],(V450)));
3355          {object V469;          {object V469;
# Line 3360  T1857:; Line 3360  T1857:;
3360          goto T1881;}          goto T1881;}
3361          if((car((V469)))==Cnil){          if((car((V469)))==Cnil){
3362          goto T1882;}          goto T1882;}
3363  goto T1881;          goto T1881;
3364  T1881:;  T1881:;
3365          V470= list(2,VV[91],(V448));          V470= list(2,VV[91],(V448));
3366          V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469)));          V471= list(3,VV[116],/* INLINE-ARGS */V470,list(2,VV[91],(V469)));
3367          {object V472 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V471));          {object V472 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V471));
3368          VMR29(V472)}          VMR29(V472)}
3369  goto T1882;          goto T1882;
3370  T1882:;  T1882:;
3371          {object V473 = Cnil;          {object V473 = Cnil;
3372          VMR29(V473)}}}}}          VMR29(V473)}}}}}
# Line 3379  static object LI31(V476,V477) Line 3379  static object LI31(V476,V477)
3379    
3380  object V476;object V477;  object V476;object V477;
3381  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
3382  goto TTL;          goto TTL;
3383  TTL:;  TTL:;
3384          {object V478;          {object V478;
3385          V478= number_minus(symbol_value(VV[181]),(V477));          V478= number_minus(symbol_value(VV[181]),(V477));
# Line 3388  TTL:; Line 3388  TTL:;
3388          V479= (VFUN_NARGS=1,(*(LnkLI336))((V476)));          V479= (VFUN_NARGS=1,(*(LnkLI336))((V476)));
3389          {long V480 = (long)(*(LnkLI335))(/* INLINE-ARGS */V479,(V478));          {long V480 = (long)(*(LnkLI335))(/* INLINE-ARGS */V479,(V478));
3390          VMR30((object)V480)}          VMR30((object)V480)}
3391  goto T1890;          goto T1890;
3392  T1890:;  T1890:;
3393          {register object V481;          {register object V481;
3394          register object V482;          register object V482;
# Line 3398  T1890:; Line 3398  T1890:;
3398          register object V484;          register object V484;
3399          V483= (V476);          V483= (V476);
3400          V484= car((V483));          V484= car((V483));
3401  goto T1896;          goto T1896;
3402  T1896:;  T1896:;
3403          if(!(endp_prop((V483)))){          if(!(endp_prop((V483)))){
3404          goto T1897;}          goto T1897;}
3405          goto T1892;          goto T1892;
3406  goto T1897;          goto T1897;
3407  T1897:;  T1897:;
3408          V486= structure_ref((V484),VV[69],5);          V486= structure_ref((V484),VV[69],5);
3409          {register object x= /* INLINE-ARGS */V486,V485= VV[183];          {register object x= /* INLINE-ARGS */V486,V485= VV[183];
# Line 3412  T1897:; Line 3412  T1897:;
3412          goto T1904;          goto T1904;
3413          }else V485=V485->c.c_cdr;          }else V485=V485->c.c_cdr;
3414          goto T1903;}          goto T1903;}
3415  goto T1904;          goto T1904;
3416  T1904:;{object V487;  T1904:;{object V487;
3417          {register object x= (V484),V488= (V482);          {register object x= (V484),V488= (V482);
3418          while(!endp(V488))          while(!endp(V488))
# Line 3421  T1904:;{object V487; Line 3421  T1904:;{object V487;
3421          goto T1906;          goto T1906;
3422          }else V488=V488->c.c_cdr;          }else V488=V488->c.c_cdr;
3423          V487= Cnil;}          V487= Cnil;}
3424  goto T1906;          goto T1906;
3425  T1906:;  T1906:;
3426          if(V487==Cnil)goto T1905;          if(V487==Cnil)goto T1905;
3427          goto T1901;          goto T1901;
3428  goto T1905;          goto T1905;
3429  T1905:;}  T1905:;}
3430          {register object V489;          {register object V489;
3431          V489= (V484);          V489= (V484);
3432          V482= make_cons((V489),(V482));          V482= make_cons((V489),(V482));
3433          goto T1901;}          goto T1901;}
3434  goto T1903;          goto T1903;
3435  T1903:;{object V490;  T1903:;{object V490;
3436          {register object x= (V484),V491= (V481);          {register object x= (V484),V491= (V481);
3437          while(!endp(V491))          while(!endp(V491))
# Line 3440  T1903:;{object V490; Line 3440  T1903:;{object V490;
3440          goto T1910;          goto T1910;
3441          }else V491=V491->c.c_cdr;          }else V491=V491->c.c_cdr;
3442          V490= Cnil;}          V490= Cnil;}
3443  goto T1910;          goto T1910;
3444  T1910:;  T1910:;
3445          if(V490==Cnil)goto T1909;          if(V490==Cnil)goto T1909;
3446          goto T1901;          goto T1901;
3447  goto T1909;          goto T1909;
3448  T1909:;}  T1909:;}
3449          {register object V492;          {register object V492;
3450          V492= (V484);          V492= (V484);
3451          V482= make_cons((V492),(V482));}          V482= make_cons((V492),(V482));}
3452  goto T1901;          goto T1901;
3453  T1901:;  T1901:;
3454          V483= cdr((V483));          V483= cdr((V483));
3455          V484= car((V483));          V484= car((V483));
3456          goto T1896;}          goto T1896;}
3457  goto T1892;          goto T1892;
3458  T1892:;  T1892:;
3459          (void)((*(LnkLI335))((V481),(V478)));          (void)((*(LnkLI335))((V481),(V478)));
3460          {long V493 = (long)(*(LnkLI335))((V482),symbol_value(VV[182]));          {long V493 = (long)(*(LnkLI335))((V482),symbol_value(VV[182]));
# Line 3467  static object LI32(V496,V497) Line 3467  static object LI32(V496,V497)
3467    
3468  object V496;object V497;  object V496;object V497;
3469  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
3470  goto TTL;          goto TTL;
3471  TTL:;  TTL:;
3472          {register long V498;          {register long V498;
3473          register long V499;          register long V499;
# Line 3480  TTL:; Line 3480  TTL:;
3480          V501= fix((V497));          V501= fix((V497));
3481          V502= 0;          V502= 0;
3482          V496= (VFUN_NARGS=1,(*(LnkLI336))((V496)));          V496= (VFUN_NARGS=1,(*(LnkLI336))((V496)));
3483  goto T1927;          goto T1927;
3484  T1927:;  T1927:;
3485          {register object V503;          {register object V503;
3486          object V504;          object V504;
3487          V503= (V496);          V503= (V496);
3488          V504= car((V503));          V504= car((V503));
3489  goto T1933;          goto T1933;
3490  T1933:;  T1933:;
3491          if(!(endp_prop((V503)))){          if(!(endp_prop((V503)))){
3492          goto T1934;}          goto T1934;}
3493          goto T1929;          goto T1929;
3494  goto T1934;          goto T1934;
3495  T1934:;  T1934:;
3496          V498= fix(structure_ref((V504),VV[69],6));          V498= fix(structure_ref((V504),VV[69],6));
3497          if(!((V498)>=(V499))){          if(!((V498)>=(V499))){
# Line 3500  T1934:; Line 3500  T1934:;
3500          if(!((V498)<(V500))){          if(!((V498)<(V500))){
3501          goto T1945;}          goto T1945;}
3502          V500= V498;          V500= V498;
3503  goto T1945;          goto T1945;
3504  T1945:;  T1945:;
3505          if(!((V502)>(V501))){          if(!((V502)>(V501))){
3506          goto T1940;}          goto T1940;}
3507          goto T1928;          goto T1928;
3508  goto T1940;          goto T1940;
3509  T1940:;  T1940:;
3510          V503= cdr((V503));          V503= cdr((V503));
3511          V504= car((V503));          V504= car((V503));
3512          goto T1933;}          goto T1933;}
3513  goto T1929;          goto T1929;
3514  T1929:;  T1929:;
3515          if(!((V502)<(V501))){          if(!((V502)<(V501))){
3516          goto T1956;}          goto T1956;}
3517          V499= (long)(V499)-(1);          V499= (long)(V499)-(1);
3518  goto T1956;          goto T1956;
3519  T1956:;  T1956:;
3520          {register object V505;          {register object V505;
3521          register object V506;          register object V506;
3522          V505= (V496);          V505= (V496);
3523          V506= car((V505));          V506= car((V505));
3524  goto T1964;          goto T1964;
3525  T1964:;  T1964:;
3526          if(!(endp_prop((V505)))){          if(!(endp_prop((V505)))){
3527          goto T1965;}          goto T1965;}
3528          goto T1960;          goto T1960;
3529  goto T1965;          goto T1965;
3530  T1965:;  T1965:;
3531          {long V507= fix(structure_ref((V506),VV[69],6));          {long V507= fix(structure_ref((V506),VV[69],6));
3532          if(!((/* INLINE-ARGS */V507)<(V499))){          if(!((/* INLINE-ARGS */V507)<(V499))){
3533          goto T1969;}}          goto T1969;}}
3534          (void)(structure_set((V506),VV[69],6,small_fixnum(0)));          (void)(structure_set((V506),VV[69],6,small_fixnum(0)));
3535  goto T1969;          goto T1969;
3536  T1969:;  T1969:;
3537          V505= cdr((V505));          V505= cdr((V505));
3538          V506= car((V505));          V506= car((V505));
3539          goto T1964;}          goto T1964;}
3540  goto T1960;          goto T1960;
3541  T1960:;  T1960:;
3542          {long V508 = V499;          {long V508 = V499;
3543          VMR31((object)V508)}          VMR31((object)V508)}
3544  goto T1928;          goto T1928;
3545  T1928:;  T1928:;
3546          V502= 0;          V502= 0;
3547          V499= (long)(V500)+(1);          V499= (long)(V500)+(1);
# Line 3555  static object LI33(V513,V514,V515,V516) Line 3555  static object LI33(V513,V514,V515,V516)
3555    
3556  object V513;object V514;object V515;object V516;  object V513;object V514;object V515;object V516;
3557  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
3558  goto TTL;          goto TTL;
3559  TTL:;  TTL:;
3560          if((get((V513),VV[102],Cnil))==Cnil){          if((get((V513),VV[102],Cnil))==Cnil){
3561          goto T1984;}          goto T1984;}
3562          {object V517 = Cnil;          {object V517 = Cnil;
3563          VMR32(V517)}          VMR32(V517)}
3564  goto T1984;          goto T1984;
3565  T1984:;  T1984:;
3566          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[186],(V513))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[186],(V513))));
3567          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
# Line 3572  T1984:; Line 3572  T1984:;
3572          goto T1995;}          goto T1995;}
3573          if((symbol_value(VV[164]))==Cnil){          if((symbol_value(VV[164]))==Cnil){
3574          goto T1994;}          goto T1994;}
3575  goto T1995;          goto T1995;
3576  T1995:;  T1995:;
3577          princ_str("\n   check_arg(",VV[25]);          princ_str("\n   check_arg(",VV[25]);
3578          V518 = make_fixnum((long)length((V515)));          V518 = make_fixnum((long)length((V515)));
3579          (void)((*(LnkLI274))(V518));          (void)((*(LnkLI274))(V518));
3580          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3581  goto T1994;          goto T1994;
3582  T1994:;  T1994:;
3583          princ_str("\n   base[0]=",VV[25]);          princ_str("\n   base[0]=",VV[25]);
3584          {object V520= (V516);          {object V520= (V516);
# Line 3587  T1994:; Line 3587  T1994:;
3587          goto T2008;}          goto T2008;}
3588          V519= VV[187];          V519= VV[187];
3589          goto T2005;          goto T2005;
3590  goto T2008;          goto T2008;
3591  T2008:;  T2008:;
3592          V519= VV[188];          V519= VV[188];
3593          goto T2005;          goto T2005;
3594  goto T2006;          goto T2006;
3595  T2006:;  T2006:;
3596          if((V520!= VV[142]))goto T2010;          if((V520!= VV[142]))goto T2010;
3597          V519= VV[189];          V519= VV[189];
3598          goto T2005;          goto T2005;
3599  goto T2010;          goto T2010;
3600  T2010:;  T2010:;
3601          if((V520!= VV[143]))goto T2011;          if((V520!= VV[143]))goto T2011;
3602          V519= VV[190];          V519= VV[190];
3603          goto T2005;          goto T2005;
3604  goto T2011;          goto T2011;
3605  T2011:;  T2011:;
3606          if((V520!= VV[144]))goto T2012;          if((V520!= VV[144]))goto T2012;
3607          V519= VV[191];          V519= VV[191];
3608          goto T2005;          goto T2005;
3609  goto T2012;          goto T2012;
3610  T2012:;  T2012:;
3611          V519= VV[192];}          V519= VV[192];}
3612  goto T2005;          goto T2005;
3613  T2005:;  T2005:;
3614          (void)((*(LnkLI274))(V519));          (void)((*(LnkLI274))(V519));
3615          princ_str("(LI",VV[25]);          princ_str("(LI",VV[25]);
# Line 3619  T2005:; Line 3619  T2005:;
3619          register long V522;          register long V522;
3620          V522= 0;          V522= 0;
3621          V521= (V515);          V521= (V515);
3622  goto T2019;          goto T2019;
3623  T2019:;  T2019:;
3624          if(!(endp_prop((V521)))){          if(!(endp_prop((V521)))){
3625          goto T2020;}          goto T2020;}
3626          goto T2016;          goto T2016;
3627  goto T2020;          goto T2020;
3628  T2020:;  T2020:;
3629          {object V524= car((V521));          {object V524= car((V521));
3630          if((V524!= VV[89]))goto T2027;          if((V524!= VV[89]))goto T2027;
3631          V523= VV[193];          V523= VV[193];
3632          goto T2026;          goto T2026;
3633  goto T2027;          goto T2027;
3634  T2027:;  T2027:;
3635          if((V524!= VV[142]))goto T2028;          if((V524!= VV[142]))goto T2028;
3636          V523= VV[194];          V523= VV[194];
3637          goto T2026;          goto T2026;
3638  goto T2028;          goto T2028;
3639  T2028:;  T2028:;
3640          if((V524!= VV[143]))goto T2029;          if((V524!= VV[143]))goto T2029;
3641          V523= VV[195];          V523= VV[195];
3642          goto T2026;          goto T2026;
3643  goto T2029;          goto T2029;
3644  T2029:;  T2029:;
3645          if((V524!= VV[144]))goto T2030;          if((V524!= VV[144]))goto T2030;
3646          V523= VV[196];          V523= VV[196];
3647          goto T2026;          goto T2026;
3648  goto T2030;          goto T2030;
3649  T2030:;  T2030:;
3650          V523= VV[197];}          V523= VV[197];}
3651  goto T2026;          goto T2026;
3652  T2026:;  T2026:;
3653          (void)((*(LnkLI274))(V523));          (void)((*(LnkLI274))(V523));
3654          princ_str("(base[",VV[25]);          princ_str("(base[",VV[25]);
# Line 3658  T2026:; Line 3658  T2026:;
3658          if(endp_prop(cdr((V521)))){          if(endp_prop(cdr((V521)))){
3659          goto T2034;}          goto T2034;}
3660          princ_char(44,VV[25]);          princ_char(44,VV[25]);
3661  goto T2034;          goto T2034;
3662  T2034:;  T2034:;
3663          V521= cdr((V521));          V521= cdr((V521));
3664          V522= (long)(V522)+1;          V522= (long)(V522)+1;
3665          goto T2019;}          goto T2019;}
3666  goto T2016;          goto T2016;
3667  T2016:;  T2016:;
3668          princ_str("));",VV[25]);          princ_str("));",VV[25]);
3669          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=base)+1;",VV[25]);
# Line 3678  static object LI34(V528) Line 3678  static object LI34(V528)
3678    
3679  object V528;  object V528;
3680  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
3681  goto TTL;          goto TTL;
3682  TTL:;  TTL:;
3683          {object V529= (V528);          {object V529= (V528);
3684          if((V529!= VV[89]))goto T2047;          if((V529!= VV[89]))goto T2047;
3685          {object V530 = VV[198];          {object V530 = VV[198];
3686          VMR33(V530)}          VMR33(V530)}
3687  goto T2047;          goto T2047;
3688  T2047:;  T2047:;
3689          if((V529!= VV[261]))goto T2048;          if((V529!= VV[261]))goto T2048;
3690          {object V531 = VV[199];          {object V531 = VV[199];
3691          VMR33(V531)}          VMR33(V531)}
3692  goto T2048;          goto T2048;
3693  T2048:;  T2048:;
3694          if((V529!= VV[142]))goto T2049;          if((V529!= VV[142]))goto T2049;
3695          {object V532 = VV[200];          {object V532 = VV[200];
3696          VMR33(V532)}          VMR33(V532)}
3697  goto T2049;          goto T2049;
3698  T2049:;  T2049:;
3699          if((V529!= VV[144]))goto T2050;          if((V529!= VV[144]))goto T2050;
3700          {object V533 = VV[201];          {object V533 = VV[201];
3701          VMR33(V533)}          VMR33(V533)}
3702  goto T2050;          goto T2050;
3703  T2050:;  T2050:;
3704          if((V529!= VV[143]))goto T2051;          if((V529!= VV[143]))goto T2051;
3705          {object V534 = VV[202];          {object V534 = VV[202];
3706          VMR33(V534)}          VMR33(V534)}
3707  goto T2051;          goto T2051;
3708  T2051:;  T2051:;
3709          {object V535 = VV[203];          {object V535 = VV[203];
3710          VMR33(V535)}}          VMR33(V535)}}
# Line 3717  static object LI35(V537) Line 3717  static object LI35(V537)
3717  register object V537;  register object V537;
3718  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
3719          bds_check;          bds_check;
3720  goto TTL;          goto TTL;
3721  TTL:;  TTL:;
3722          if(endp_prop((V537))){          if(endp_prop((V537))){
3723          goto T2053;}          goto T2053;}
3724          if(!(endp_prop(cdr((V537))))){          if(!(endp_prop(cdr((V537))))){
3725          goto T2052;}          goto T2052;}
3726  goto T2053;          goto T2053;
3727  T2053:;  T2053:;
3728          V538 = make_fixnum((long)length((V537)));          V538 = make_fixnum((long)length((V537)));
3729          (void)((*(LnkLI283))(VV[204],small_fixnum(2),V538));          (void)((*(LnkLI283))(VV[204],small_fixnum(2),V538));
3730  goto T2052;          goto T2052;
3731  T2052:;  T2052:;
3732          if(type_of(car((V537)))==t_symbol){          if(type_of(car((V537)))==t_symbol){
3733          goto T2057;}          goto T2057;}
3734          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[205],car((V537)))));
3735  goto T2057;          goto T2057;
3736  T2057:;  T2057:;
3737          V539= make_cons(VV[204],(V537));          V539= make_cons(VV[204],(V537));
3738          (void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539));          (void)((*(LnkLI267))(Ct,/* INLINE-ARGS */V539));
# Line 3770  static object LI36(V550,V551,V552,V553,V Line 3770  static object LI36(V550,V551,V552,V553,V
3770    
3771  object V550;object V551;object V552;object V553;object V554;object V555;  object V550;object V551;object V552;object V553;object V554;object V555;
3772  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
3773  goto TTL;          goto TTL;
3774  TTL:;  TTL:;
3775          if(((V553))==Cnil){          if(((V553))==Cnil){
3776          goto T2070;}          goto T2070;}
3777          V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]);          V556= list(4,VV[103],list(2,VV[91],(V550)),(V553),VV[206]);
3778          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V556)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V556)));
3779  goto T2070;          goto T2070;
3780  T2070:;  T2070:;
3781          if(((V554))==Cnil){          if(((V554))==Cnil){
3782          goto T2073;}          goto T2073;}
3783          V557= list(2,VV[91],(V550));          V557= list(2,VV[91],(V550));
3784          V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]);          V558= list(4,VV[103],/* INLINE-ARGS */V557,list(2,VV[91],(V554)),VV[207]);
3785          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V558)));          (void)((VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V558)));
3786  goto T2073;          goto T2073;
3787  T2073:;  T2073:;
3788          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
3789          (void)((*(LnkLI277))((V551)));          (void)((*(LnkLI277))((V551)));
# Line 3801  static object LI37(V568,V569,V570,V571,V Line 3801  static object LI37(V568,V569,V570,V571,V
3801  object V568;object V569;register object V570;object V571;object V572;object V573;  object V568;object V569;register object V570;object V571;object V572;object V573;
3802  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
3803          bds_check;          bds_check;
3804  goto TTL;          goto TTL;
3805  TTL:;  TTL:;
3806          if((get((V568),VV[210],Cnil))==Cnil){          if((get((V568),VV[210],Cnil))==Cnil){
3807          goto T2082;}          goto T2082;}
3808          bds_bind(VV[20],VV[211]);          bds_bind(VV[20],VV[211]);
3809          goto T2080;          goto T2080;
3810  goto T2082;          goto T2082;
3811  T2082:;  T2082:;
3812          bds_bind(VV[20],VV[212]);          bds_bind(VV[20],VV[212]);
3813  goto T2080;          goto T2080;
3814  T2080:;  T2080:;
3815          bds_bind(VV[128],VV[127]);          bds_bind(VV[128],VV[127]);
3816          bds_bind(VV[18],Cnil);          bds_bind(VV[18],Cnil);
# Line 3849  T2080:; Line 3849  T2080:;
3849          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
3850          princ_str(");",VV[25]);          princ_str(");",VV[25]);
3851          goto T2106;          goto T2106;
3852  goto T2108;          goto T2108;
3853  T2108:;  T2108:;
3854          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
3855  goto T2106;          goto T2106;
3856  T2106:;  T2106:;
3857          if(((V573))==Cnil){          if(((V573))==Cnil){
3858          goto T2114;}          goto T2114;}
3859          princ_str("\n   bds_check;",VV[25]);          princ_str("\n   bds_check;",VV[25]);
3860  goto T2114;          goto T2114;
3861  T2114:;  T2114:;
3862          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
3863          goto T2118;}          goto T2118;}
3864          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
3865  goto T2118;          goto T2118;
3866  T2118:;  T2118:;
3867          base[15]= car((V570));          base[15]= car((V570));
3868          base[16]= cadr((V570));          base[16]= cadr((V570));
# Line 3904  static object LI38(V578) Line 3904  static object LI38(V578)
3904  register object V578;  register object V578;
3905  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
3906          bds_check;          bds_check;
3907  goto TTL;          goto TTL;
3908  TTL:;  TTL:;
3909          {register object V579;          {register object V579;
3910          V579= Cnil;          V579= Cnil;
# Line 3929  TTL:; Line 3929  TTL:;
3929          setq(VV[24],make_cons((V582),symbol_value(VV[24])));          setq(VV[24],make_cons((V582),symbol_value(VV[24])));
3930          {object V583 = symbol_value(VV[24]);          {object V583 = symbol_value(VV[24]);
3931          VMR37(V583)}}}          VMR37(V583)}}}
3932  goto T2139;          goto T2139;
3933  T2139:;  T2139:;
3934          {object V584;          {object V584;
3935          if(type_of((V578))==t_cons){          if(type_of((V578))==t_cons){
3936          goto T2150;}          goto T2150;}
3937          V584= Cnil;          V584= Cnil;
3938          goto T2149;          goto T2149;
3939  goto T2150;          goto T2150;
3940  T2150:;  T2150:;
3941          if(type_of(car((V578)))==t_symbol){          if(type_of(car((V578)))==t_symbol){
3942          goto T2152;}          goto T2152;}
3943          V584= Cnil;          V584= Cnil;
3944          goto T2149;          goto T2149;
3945  goto T2152;          goto T2152;
3946  T2152:;  T2152:;
3947          if(!((car((V578)))==(VV[217]))){          if(!((car((V578)))==(VV[217]))){
3948          goto T2156;}          goto T2156;}
3949          goto T2154;          goto T2154;
3950  goto T2156;          goto T2156;
3951  T2156:;  T2156:;
3952          base[0]= car((V578));          base[0]= car((V578));
3953          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3958  T2156:; Line 3958  T2156:;
3958          goto T2154;}          goto T2154;}
3959          V584= Cnil;          V584= Cnil;
3960          goto T2149;          goto T2149;
3961  goto T2154;          goto T2154;
3962  T2154:;  T2154:;
3963          {register object V586;          {register object V586;
3964          register long V587;          register long V587;
3965          V586= cdr((V578));          V586= cdr((V578));
3966          V587= 1;          V587= 1;
3967  goto T2163;          goto T2163;
3968  T2163:;  T2163:;
3969          if((V587)>=(1000)){          if((V587)>=(1000)){
3970          goto T2165;}          goto T2165;}
3971          if(type_of((V586))==t_cons){          if(type_of((V586))==t_cons){
3972          goto T2164;}          goto T2164;}
3973  goto T2165;          goto T2165;
3974  T2165:;  T2165:;
3975          V584= Cnil;          V584= Cnil;
3976          goto T2149;          goto T2149;
3977  goto T2164;          goto T2164;
3978  T2164:;  T2164:;
3979          if(!(type_of(car((V586)))==t_cons)){          if(!(type_of(car((V586)))==t_cons)){
3980          goto T2170;}          goto T2170;}
# Line 4011  T2164:; Line 4011  T2164:;
4011          vs_top=sup;          vs_top=sup;
4012          V578= vs_base[0];          V578= vs_base[0];
4013          goto TTL;}          goto TTL;}
4014  goto T2170;          goto T2170;
4015  T2170:;  T2170:;
4016          if(type_of((V586))==t_cons){          if(type_of((V586))==t_cons){
4017          goto T2193;}          goto T2193;}
4018          V586= Cnil;          V586= Cnil;
4019          goto T2192;          goto T2192;
4020  goto T2193;          goto T2193;
4021  T2193:;  T2193:;
4022          V586= cdr((V586));          V586= cdr((V586));
4023  goto T2192;          goto T2192;
4024  T2192:;  T2192:;
4025          V587= (long)(1)+(V587);          V587= (long)(1)+(V587);
4026          goto T2163;}          goto T2163;}
4027  goto T2149;          goto T2149;
4028  T2149:;  T2149:;
4029          if(((V584))==Cnil){          if(((V584))==Cnil){
4030          goto T2198;}          goto T2198;}
4031          {object V592 = (V584);          {object V592 = (V584);
4032          VMR37(V592)}          VMR37(V592)}
4033  goto T2198;          goto T2198;
4034  T2198:;  T2198:;
4035          (void)((*(LnkLI267))(Cnil,(V578)));          (void)((*(LnkLI267))(Cnil,(V578)));
4036          bds_bind(VV[55],Cnil);          bds_bind(VV[55],Cnil);
# Line 4057  static object LI39(V596) Line 4057  static object LI39(V596)
4057    
4058  object V596;  object V596;
4059  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
4060  goto TTL;          goto TTL;
4061  TTL:;  TTL:;
4062          {object V597;          {object V597;
4063          V597= (type_of((V596))!=t_cons?Ct:Cnil);          V597= (type_of((V596))!=t_cons?Ct:Cnil);
# Line 4065  TTL:; Line 4065  TTL:;
4065          goto T2206;}          goto T2206;}
4066          {object V598 = (V597);          {object V598 = (V597);
4067          VMR38(V598)}          VMR38(V598)}
4068  goto T2206;          goto T2206;
4069  T2206:;  T2206:;
4070          {object V599;          {object V599;
4071          base[0]= (V596);          base[0]= (V596);
# Line 4077  T2206:; Line 4077  T2206:;
4077          goto T2211;}          goto T2211;}
4078          {object V600 = (V599);          {object V600 = (V599);
4079          VMR38(V600)}          VMR38(V600)}
4080  goto T2211;          goto T2211;
4081  T2211:;  T2211:;
4082          {object V601 = (VFUN_NARGS=1,(*(LnkLI300))((V596)));          {object V601 = (VFUN_NARGS=1,(*(LnkLI300))((V596)));
4083          VMR38(V601)}}}          VMR38(V601)}}}
# Line 4089  T2211:; Line 4089  T2211:;
4089  static object LI40()  static object LI40()
4090    
4091  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
4092  goto TTL;          goto TTL;
4093  TTL:;  TTL:;
4094          {register object V602;          {register object V602;
4095          register object V603;          register object V603;
4096          V602= reverse(symbol_value(VV[52]));          V602= reverse(symbol_value(VV[52]));
4097          V603= car((V602));          V603= car((V602));
4098  goto T2216;          goto T2216;
4099  T2216:;  T2216:;
4100          if(!(endp_prop((V602)))){          if(!(endp_prop((V602)))){
4101          goto T2217;}          goto T2217;}
4102          {object V604 = Cnil;          {object V604 = Cnil;
4103          VMR39(V604)}          VMR39(V604)}
4104  goto T2217;          goto T2217;
4105  T2217:;  T2217:;
4106          if(!(type_of((V603))!=t_cons)){          if(!(type_of((V603))!=t_cons)){
4107          goto T2221;}          goto T2221;}
4108          (void)((*(LnkLI339))());          (void)((*(LnkLI339))());
4109  goto T2221;          goto T2221;
4110  T2221:;  T2221:;
4111          {register object V605;          {register object V605;
4112          V605= make_cons(VV[220],(V603));          V605= make_cons(VV[220],(V603));
# Line 4123  static object LI41(V608,V609) Line 4123  static object LI41(V608,V609)
4123    
4124  object V608;object V609;  object V608;object V609;
4125  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
4126  goto TTL;          goto TTL;
4127  TTL:;  TTL:;
4128          V610= list(3,VV[221],(V608),(V609));          V610= list(3,VV[221],(V608),(V609));
4129          {object V611 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V610));          {object V611 = (VFUN_NARGS=1,(*(LnkLI300))(/* INLINE-ARGS */V610));
# Line 4136  static object LI42(V613) Line 4136  static object LI42(V613)
4136    
4137  object V613;  object V613;
4138  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
4139  goto TTL;          goto TTL;
4140  TTL:;  TTL:;
4141          {object V614 = (*(LnkLI339))();          {object V614 = (*(LnkLI339))();
4142          VMR41(V614)}          VMR41(V614)}
# Line 4148  static object LI43(V616) Line 4148  static object LI43(V616)
4148    
4149  object V616;  object V616;
4150  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
4151  goto TTL;          goto TTL;
4152  TTL:;  TTL:;
4153          V617= (*(LnkLI267))(Cnil,Cnil);          V617= (*(LnkLI267))(Cnil,Cnil);
4154          V618= make_cons(((/* INLINE-ARGS */V617)==Cnil?Ct:Cnil),Cnil);          V618= make_cons(((/* INLINE-ARGS */V617)==Cnil?Ct:Cnil),Cnil);
# Line 4166  static object LI44(V625,V626) Line 4166  static object LI44(V625,V626)
4166    
4167  object V625;object V626;  object V625;object V626;
4168  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
4169  goto TTL;          goto TTL;
4170  TTL:;  TTL:;
4171          princ_str("\n   VV[",VV[25]);          princ_str("\n   VV[",VV[25]);
4172          (void)((*(LnkLI274))((V626)));          (void)((*(LnkLI274))((V626)));
# Line 4183  static object LI45(V629) Line 4183  static object LI45(V629)
4183    
4184  object V629;  object V629;
4185  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
4186  goto TTL;          goto TTL;
4187  TTL:;  TTL:;
4188          {register object V630;          {register object V630;
4189          register object V631;          register object V631;
4190          V630= (V629);          V630= (V629);
4191          V631= car((V630));          V631= car((V630));
4192  goto T2243;          goto T2243;
4193  T2243:;  T2243:;
4194          if(!(endp_prop((V630)))){          if(!(endp_prop((V630)))){
4195          goto T2244;}          goto T2244;}
4196          goto T2239;          goto T2239;
4197  goto T2244;          goto T2244;
4198  T2244:;  T2244:;
4199          if(type_of((V631))==t_string){          if(type_of((V631))==t_string){
4200          goto T2248;}          goto T2248;}
4201          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[223],(V631))));
4202  goto T2248;          goto T2248;
4203  T2248:;  T2248:;
4204          V630= cdr((V630));          V630= cdr((V630));
4205          V631= car((V630));          V631= car((V630));
4206          goto T2243;}          goto T2243;}
4207  goto T2239;          goto T2239;
4208  T2239:;  T2239:;
4209          {object V632;          {object V632;
4210          V632= list(2,VV[224],(V629));          V632= list(2,VV[224],(V629));
# Line 4220  static object LI46(V635) Line 4220  static object LI46(V635)
4220    
4221  object V635;  object V635;
4222  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
4223  goto TTL;          goto TTL;
4224  TTL:;  TTL:;
4225          {register object V636;          {register object V636;
4226          register object V637;          register object V637;
4227          V636= (V635);          V636= (V635);
4228          V637= car((V636));          V637= car((V636));
4229  goto T2261;          goto T2261;
4230  T2261:;  T2261:;
4231          if(!(endp_prop((V636)))){          if(!(endp_prop((V636)))){
4232          goto T2262;}          goto T2262;}
4233          {object V638 = Cnil;          {object V638 = Cnil;
4234          VMR45(V638)}          VMR45(V638)}
4235  goto T2262;          goto T2262;
4236  T2262:;  T2262:;
4237          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4238          (void)((*(LnkLI274))((V637)));          (void)((*(LnkLI274))((V637)));
# Line 4248  static object LI47(V640) Line 4248  static object LI47(V640)
4248    
4249  object V640;  object V640;
4250  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
4251  goto TTL;          goto TTL;
4252  TTL:;  TTL:;
4253          {register object V641;          {register object V641;
4254          V641= Cnil;          V641= Cnil;
# Line 4256  TTL:; Line 4256  TTL:;
4256          goto T2276;}          goto T2276;}
4257          if(!(endp_prop(cdr((V640))))){          if(!(endp_prop(cdr((V640))))){
4258          goto T2275;}          goto T2275;}
4259  goto T2276;          goto T2276;
4260  T2276:;  T2276:;
4261          V642 = make_fixnum((long)length((V640)));          V642 = make_fixnum((long)length((V640)));
4262          (void)((*(LnkLI283))(VV[225],small_fixnum(2),V642));          (void)((*(LnkLI283))(VV[225],small_fixnum(2),V642));
4263  goto T2275;          goto T2275;
4264  T2275:;  T2275:;
4265          if(type_of(car((V640)))==t_string){          if(type_of(car((V640)))==t_string){
4266          goto T2280;}          goto T2280;}
4267          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[226],car((V640)))));
4268  goto T2280;          goto T2280;
4269  T2280:;  T2280:;
4270          {object V643= cadr((V640));          {object V643= cadr((V640));
4271          if(type_of(V643)==t_fixnum||          if(type_of(V643)==t_fixnum||
# Line 4276  type_of(V643)==t_longfloat|| Line 4276  type_of(V643)==t_longfloat||
4276  type_of(V643)==t_complex){  type_of(V643)==t_complex){
4277          goto T2283;}}          goto T2283;}}
4278          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[227],cadr((V640)))));
4279  goto T2283;          goto T2283;
4280  T2283:;  T2283:;
4281          {register object V644;          {register object V644;
4282          register object V645;          register object V645;
4283          V644= cddr((V640));          V644= cddr((V640));
4284          V645= car((V644));          V645= car((V644));
4285  goto T2290;          goto T2290;
4286  T2290:;  T2290:;
4287          if(!(endp_prop((V644)))){          if(!(endp_prop((V644)))){
4288          goto T2291;}          goto T2291;}
4289          goto T2286;          goto T2286;
4290  goto T2291;          goto T2291;
4291  T2291:;  T2291:;
4292          if(!(type_of((V645))==t_string)){          if(!(type_of((V645))==t_string)){
4293          goto T2297;}          goto T2297;}
# Line 4295  T2291:; Line 4295  T2291:;
4295          V646= (V645);          V646= (V645);
4296          V641= make_cons((V646),(V641));          V641= make_cons((V646),(V641));
4297          goto T2295;}          goto T2295;}
4298  goto T2297;          goto T2297;
4299  T2297:;  T2297:;
4300          if(!(type_of((V645))==t_cons)){          if(!(type_of((V645))==t_cons)){
4301          goto T2302;}          goto T2302;}
# Line 4308  T2297:; Line 4308  T2297:;
4308          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4309          goto T2307;}          goto T2307;}
4310          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[228],car((V645)))));
4311  goto T2307;          goto T2307;
4312  T2307:;  T2307:;
4313          {register object V647;          {register object V647;
4314          V648= car((V645));          V648= car((V645));
# Line 4317  T2307:; Line 4317  T2307:;
4317          V647= make_cons(/* INLINE-ARGS */V650,Cnil);          V647= make_cons(/* INLINE-ARGS */V650,Cnil);
4318          V641= make_cons((V647),(V641));          V641= make_cons((V647),(V641));
4319          goto T2295;}          goto T2295;}
4320  goto T2305;          goto T2305;
4321  T2305:;  T2305:;
4322          if(!(type_of(car((V645)))==t_cons)){          if(!(type_of(car((V645)))==t_cons)){
4323          goto T2314;}          goto T2314;}
# Line 4328  T2305:; Line 4328  T2305:;
4328          if(!(endp_prop(cdar((V645))))){          if(!(endp_prop(cdar((V645))))){
4329          goto T2323;}          goto T2323;}
4330          goto T2314;          goto T2314;
4331  goto T2323;          goto T2323;
4332  T2323:;  T2323:;
4333          if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){          if(!(((endp_prop(cddar((V645)))?Ct:Cnil))==Cnil)){
4334          goto T2325;}          goto T2325;}
4335          goto T2314;          goto T2314;
4336  goto T2325;          goto T2325;
4337  T2325:;  T2325:;
4338          if(!(endp_prop(cdr((V645))))){          if(!(endp_prop(cdr((V645))))){
4339          goto T2327;}          goto T2327;}
4340          goto T2314;          goto T2314;
4341  goto T2327;          goto T2327;
4342  T2327:;  T2327:;
4343          if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){          if(((endp_prop(cddr((V645)))?Ct:Cnil))==Cnil){
4344          goto T2314;}          goto T2314;}
4345          goto T2319;          goto T2319;
4346  goto T2321;          goto T2321;
4347  T2321:;  T2321:;
4348          base[2]= caar((V645));          base[2]= caar((V645));
4349          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 4351  T2321:; Line 4351  T2321:;
4351          vs_top=sup;          vs_top=sup;
4352          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4353          goto T2314;}          goto T2314;}
4354  goto T2319;          goto T2319;
4355  T2319:;  T2319:;
4356          {register object V651;          {register object V651;
4357          V652= caar((V645));          V652= caar((V645));
# Line 4360  T2319:; Line 4360  T2319:;
4360          V654= (*(LnkLI325))(cadar((V645)));          V654= (*(LnkLI325))(cadar((V645)));
4361          V653= make_cons(/* INLINE-ARGS */V654,Cnil);          V653= make_cons(/* INLINE-ARGS */V654,Cnil);
4362          goto T2331;          goto T2331;
4363  goto T2333;          goto T2333;
4364  T2333:;  T2333:;
4365          V653= (*(LnkLI340))(cdar((V645)));          V653= (*(LnkLI340))(cdar((V645)));
4366  goto T2331;          goto T2331;
4367  T2331:;  T2331:;
4368          V655= make_cons(/* INLINE-ARGS */V652,V653);          V655= make_cons(/* INLINE-ARGS */V652,V653);
4369          V656= (*(LnkLI340))(cdr((V645)));          V656= (*(LnkLI340))(cdr((V645)));
4370          V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656);          V651= make_cons(/* INLINE-ARGS */V655,/* INLINE-ARGS */V656);
4371          V641= make_cons((V651),(V641));          V641= make_cons((V651),(V641));
4372          goto T2295;}          goto T2295;}
4373  goto T2314;          goto T2314;
4374  T2314:;  T2314:;
4375          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[229],(V645))));
4376          goto T2295;          goto T2295;
4377  goto T2302;          goto T2302;
4378  T2302:;  T2302:;
4379          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[230],(V645))));
4380  goto T2295;          goto T2295;
4381  T2295:;  T2295:;
4382          V644= cdr((V644));          V644= cdr((V644));
4383          V645= car((V644));          V645= car((V644));
4384          goto T2290;}          goto T2290;}
4385  goto T2286;          goto T2286;
4386  T2286:;  T2286:;
4387          {object V657;          {object V657;
4388          V658= car((V640));          V658= car((V640));
# Line 4400  static object LI48(V664,V665,V666) Line 4400  static object LI48(V664,V665,V666)
4400    
4401  object V664;object V665;object V666;  object V664;object V665;object V666;
4402  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
4403  goto TTL;          goto TTL;
4404  TTL:;  TTL:;
4405          {object V667;          {object V667;
4406          V667= Cnil;          V667= Cnil;
# Line 4415  TTL:; Line 4415  TTL:;
4415          if(!(number_compare((V665),small_fixnum(0))>0)){          if(!(number_compare((V665),small_fixnum(0))>0)){
4416          goto T2356;}          goto T2356;}
4417          princ_str("\n   vs_top=old_top;",VV[25]);          princ_str("\n   vs_top=old_top;",VV[25]);
4418  goto T2356;          goto T2356;
4419  T2356:;  T2356:;
4420          princ_str("\n{",VV[25]);          princ_str("\n{",VV[25]);
4421          {object V668;          {object V668;
4422          register object V669;          register object V669;
4423          V668= (V666);          V668= (V666);
4424          V669= car((V668));          V669= car((V668));
4425  goto T2366;          goto T2366;
4426  T2366:;  T2366:;
4427          if(!(endp_prop((V668)))){          if(!(endp_prop((V668)))){
4428          goto T2367;}          goto T2367;}
4429          goto T2362;          goto T2362;
4430  goto T2367;          goto T2367;
4431  T2367:;  T2367:;
4432          if(!(type_of((V669))==t_string)){          if(!(type_of((V669))==t_string)){
4433          goto T2373;}          goto T2373;}
4434          princ_char(10,VV[25]);          princ_char(10,VV[25]);
4435          (void)((*(LnkLI274))((V669)));          (void)((*(LnkLI274))((V669)));
4436          goto T2371;          goto T2371;
4437  goto T2373;          goto T2373;
4438  T2373:;  T2373:;
4439          if(!((caar((V669)))==(VV[91]))){          if(!((caar((V669)))==(VV[91]))){
4440          goto T2378;}          goto T2378;}
# Line 4446  T2373:; Line 4446  T2373:;
4446          (void)((*(LnkLI274))(cadar((V669))));          (void)((*(LnkLI274))(cadar((V669))));
4447          princ_str("];",VV[25]);          princ_str("];",VV[25]);
4448          goto T2371;          goto T2371;
4449  goto T2383;          goto T2383;
4450  T2383:;  T2383:;
4451          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4452          base[1]= symbol_name(caadr((V669)));          base[1]= symbol_name(caadr((V669)));
# Line 4459  T2383:; Line 4459  T2383:;
4459          (void)((*(LnkLI274))(cadar((V669))));          (void)((*(LnkLI274))(cadar((V669))));
4460          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4461          goto T2371;}          goto T2371;}
4462  goto T2378;          goto T2378;
4463  T2378:;  T2378:;
4464          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);          princ_str("\n{vs_base=vs_top=old_top;",VV[25]);
4465          {register object V672;          {register object V672;
4466          register object V673;          register object V673;
4467          V672= cdar((V669));          V672= cdar((V669));
4468          V673= car((V672));          V673= car((V672));
4469  goto T2400;          goto T2400;
4470  T2400:;  T2400:;
4471          if(!(endp_prop((V672)))){          if(!(endp_prop((V672)))){
4472          goto T2401;}          goto T2401;}
4473          goto T2396;          goto T2396;
4474  goto T2401;          goto T2401;
4475  T2401:;  T2401:;
4476          princ_str("\nvs_push(",VV[25]);          princ_str("\nvs_push(",VV[25]);
4477          {object V674= car((V673));          {object V674= car((V673));
4478          if((V674!= VV[74]))goto T2408;          if((V674!= VV[74]))goto T2408;
4479          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4480          goto T2407;          goto T2407;
4481  goto T2408;          goto T2408;
4482  T2408:;  T2408:;
4483          if((V674!= VV[341]))goto T2410;          if((V674!= VV[341]))goto T2410;
4484          princ_str("code_char((long)",VV[25]);          princ_str("code_char((long)",VV[25]);
4485          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4486          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4487          goto T2407;          goto T2407;
4488  goto T2410;          goto T2410;
4489  T2410:;  T2410:;
4490          if((V674!= VV[342]))goto T2414;          if((V674!= VV[342]))goto T2414;
4491          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4492          goto T2415;}          goto T2415;}
4493          princ_str("CMP",VV[25]);          princ_str("CMP",VV[25]);
4494  goto T2415;          goto T2415;
4495  T2415:;  T2415:;
4496          princ_str("make_fixnum((long)",VV[25]);          princ_str("make_fixnum((long)",VV[25]);
4497          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4498          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4499          goto T2407;          goto T2407;
4500  goto T2414;          goto T2414;
4501  T2414:;  T2414:;
4502          if((V674!= VV[343]))goto T2422;          if((V674!= VV[343]))goto T2422;
4503          princ_str("make_shortfloat((double)",VV[25]);          princ_str("make_shortfloat((double)",VV[25]);
4504          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4505          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4506          goto T2407;          goto T2407;
4507  goto T2422;          goto T2422;
4508  T2422:;  T2422:;
4509          if((V674!= VV[344]))goto T2426;          if((V674!= VV[344]))goto T2426;
4510          princ_str("make_longfloat((double)",VV[25]);          princ_str("make_longfloat((double)",VV[25]);
4511          (void)((*(LnkLI274))(cadr((V673))));          (void)((*(LnkLI274))(cadr((V673))));
4512          princ_char(41,VV[25]);          princ_char(41,VV[25]);
4513          goto T2407;          goto T2407;
4514  goto T2426;          goto T2426;
4515  T2426:;}  T2426:;}
4516  goto T2407;          goto T2407;
4517  T2407:;  T2407:;
4518          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4519          V672= cdr((V672));          V672= cdr((V672));
4520          V673= car((V672));          V673= car((V672));
4521          goto T2400;}          goto T2400;}
4522  goto T2396;          goto T2396;
4523  T2396:;  T2396:;
4524          {register object x= caar((V669)),V675= symbol_value(VV[79]);          {register object x= caar((V669)),V675= symbol_value(VV[79]);
4525          while(!endp(V675))          while(!endp(V675))
# Line 4528  T2396:; Line 4528  T2396:;
4528          goto T2441;          goto T2441;
4529          }else V675=V675->c.c_cdr;          }else V675=V675->c.c_cdr;
4530          V667= Cnil;}          V667= Cnil;}
4531  goto T2441;          goto T2441;
4532  T2441:;  T2441:;
4533          if(((V667))==Cnil){          if(((V667))==Cnil){
4534          goto T2439;}          goto T2439;}
# Line 4543  T2441:; Line 4543  T2441:;
4543          princ_str("();",VV[25]);          princ_str("();",VV[25]);
4544          princ_str("\nihs_pop();",VV[25]);          princ_str("\nihs_pop();",VV[25]);
4545          goto T2437;          goto T2437;
4546  goto T2443;          goto T2443;
4547  T2443:;  T2443:;
4548          princ_str("\nL",VV[25]);          princ_str("\nL",VV[25]);
4549          (void)((*(LnkLI274))(cdr((V667))));          (void)((*(LnkLI274))(cdr((V667))));
4550          princ_str("();",VV[25]);          princ_str("();",VV[25]);
4551          goto T2437;          goto T2437;
4552  goto T2439;          goto T2439;
4553  T2439:;  T2439:;
4554          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
4555          goto T2458;}          goto T2458;}
# Line 4558  T2439:; Line 4558  T2439:;
4558          (void)((*(LnkLI274))(/* INLINE-ARGS */V677));          (void)((*(LnkLI274))(/* INLINE-ARGS */V677));
4559          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4560          goto T2437;          goto T2437;
4561  goto T2458;          goto T2458;
4562  T2458:;  T2458:;
4563          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
4564          goto T2464;}          goto T2464;}
# Line 4567  T2458:; Line 4567  T2458:;
4567          (void)((*(LnkLI274))(/* INLINE-ARGS */V678));          (void)((*(LnkLI274))(/* INLINE-ARGS */V678));
4568          princ_str("]);",VV[25]);          princ_str("]);",VV[25]);
4569          goto T2437;          goto T2437;
4570  goto T2464;          goto T2464;
4571  T2464:;  T2464:;
4572          princ_str("\nCMPfuncall(VV[",VV[25]);          princ_str("\nCMPfuncall(VV[",VV[25]);
4573          V679= (*(LnkLI327))(caar((V669)));          V679= (*(LnkLI327))(caar((V669)));
4574          (void)((*(LnkLI274))(/* INLINE-ARGS */V679));          (void)((*(LnkLI274))(/* INLINE-ARGS */V679));
4575          princ_str("]->s.s_gfdef);",VV[25]);          princ_str("]->s.s_gfdef);",VV[25]);
4576  goto T2437;          goto T2437;
4577  T2437:;  T2437:;
4578          if(endp_prop(cdr((V669)))){          if(endp_prop(cdr((V669)))){
4579          goto T2472;}          goto T2472;}
# Line 4583  T2437:; Line 4583  T2437:;
4583          if((V680!= VV[74]))goto T2479;          if((V680!= VV[74]))goto T2479;
4584          princ_str("=vs_base[0];",VV[25]);          princ_str("=vs_base[0];",VV[25]);
4585          goto T2478;          goto T2478;
4586  goto T2479;          goto T2479;
4587  T2479:;  T2479:;
4588          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4589          base[1]= symbol_name(caadr((V669)));          base[1]= symbol_name(caadr((V669)));
# Line 4593  T2479:; Line 4593  T2479:;
4593          V681= vs_base[0];          V681= vs_base[0];
4594          (void)((*(LnkLI274))(V681));          (void)((*(LnkLI274))(V681));
4595          princ_str("(vs_base[0]);",VV[25]);}          princ_str("(vs_base[0]);",VV[25]);}
4596  goto T2478;          goto T2478;
4597  T2478:;  T2478:;
4598          {register object V682;          {register object V682;
4599          register object V683;          register object V683;
4600          V682= cddr((V669));          V682= cddr((V669));
4601          V683= car((V682));          V683= car((V682));
4602  goto T2489;          goto T2489;
4603  T2489:;  T2489:;
4604          if(!(endp_prop((V682)))){          if(!(endp_prop((V682)))){
4605          goto T2490;}          goto T2490;}
4606          goto T2472;          goto T2472;
4607  goto T2490;          goto T2490;
4608  T2490:;  T2490:;
4609          princ_str("\nvs_base++;",VV[25]);          princ_str("\nvs_base++;",VV[25]);
4610          princ_char(10,VV[25]);          princ_char(10,VV[25]);
# Line 4613  T2490:; Line 4613  T2490:;
4613          if((V684!= VV[74]))goto T2500;          if((V684!= VV[74]))goto T2500;
4614          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);          princ_str("=(vs_base<vs_top?vs_base[0]:Cnil);",VV[25]);
4615          goto T2499;          goto T2499;
4616  goto T2500;          goto T2500;
4617  T2500:;  T2500:;
4618          princ_str("=object_to_",VV[25]);          princ_str("=object_to_",VV[25]);
4619          base[3]= symbol_name(car((V683)));          base[3]= symbol_name(car((V683)));
# Line 4623  T2500:; Line 4623  T2500:;
4623          V685= vs_base[0];          V685= vs_base[0];
4624          (void)((*(LnkLI274))(V685));          (void)((*(LnkLI274))(V685));
4625          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}          princ_str("((vs_base<vs_top?vs_base[0]:Cnil));",VV[25]);}
4626  goto T2499;          goto T2499;
4627  T2499:;  T2499:;
4628          V682= cdr((V682));          V682= cdr((V682));
4629          V683= car((V682));          V683= car((V682));
4630          goto T2489;}          goto T2489;}
4631  goto T2472;          goto T2472;
4632  T2472:;  T2472:;
4633          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4634  goto T2371;          goto T2371;
4635  T2371:;  T2371:;
4636          V668= cdr((V668));          V668= cdr((V668));
4637          V669= car((V668));          V669= car((V668));
4638          goto T2366;}          goto T2366;}
4639  goto T2362;          goto T2362;
4640  T2362:;  T2362:;
4641          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
4642          princ_str("\nvs_top=vs;",VV[25]);          princ_str("\nvs_top=vs;",VV[25]);
# Line 4652  static object LI49(V688) Line 4652  static object LI49(V688)
4652    
4653  register object V688;  register object V688;
4654  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
4655  goto TTL;          goto TTL;
4656  TTL:;  TTL:;
4657          {register object V689;          {register object V689;
4658          register object V690;          register object V690;
# Line 4669  TTL:; Line 4669  TTL:;
4669          goto T2529;}          goto T2529;}
4670          if(!(endp_prop(cddr((V688))))){          if(!(endp_prop(cddr((V688))))){
4671          goto T2528;}          goto T2528;}
4672  goto T2529;          goto T2529;
4673  T2529:;  T2529:;
4674          V693 = make_fixnum((long)length((V688)));          V693 = make_fixnum((long)length((V688)));
4675          (void)((*(LnkLI283))(VV[232],small_fixnum(3),V693));          (void)((*(LnkLI283))(VV[232],small_fixnum(3),V693));
4676  goto T2528;          goto T2528;
4677  T2528:;  T2528:;
4678          if(type_of(car((V688)))==t_symbol){          if(type_of(car((V688)))==t_symbol){
4679          goto T2535;}          goto T2535;}
4680          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688)))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[233],car((V688)))));
4681  goto T2535;          goto T2535;
4682  T2535:;  T2535:;
4683          {register object V694;          {register object V694;
4684          register object V695;          register object V695;
4685          V694= cadr((V688));          V694= cadr((V688));
4686          V695= car((V694));          V695= car((V694));
4687  goto T2542;          goto T2542;
4688  T2542:;  T2542:;
4689          if(!(endp_prop((V694)))){          if(!(endp_prop((V694)))){
4690          goto T2543;}          goto T2543;}
4691          goto T2538;          goto T2538;
4692  goto T2543;          goto T2543;
4693  T2543:;  T2543:;
4694          {register object x= (V695),V696= VV[234];          {register object x= (V695),V696= VV[234];
4695          while(!endp(V696))          while(!endp(V696))
# Line 4697  T2543:; Line 4697  T2543:;
4697          goto T2547;          goto T2547;
4698          }else V696=V696->c.c_cdr;}          }else V696=V696->c.c_cdr;}
4699          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[235],(V695))));
4700  goto T2547;          goto T2547;
4701  T2547:;  T2547:;
4702          V694= cdr((V694));          V694= cdr((V694));
4703          V695= car((V694));          V695= car((V694));
4704          goto T2542;}          goto T2542;}
4705  goto T2538;          goto T2538;
4706  T2538:;  T2538:;
4707          V692= caddr((V688));          V692= caddr((V688));
4708          if(!(type_of((V692))==t_symbol)){          if(!(type_of((V692))==t_symbol)){
# Line 4714  T2538:; Line 4714  T2538:;
4714          vs_top=sup;          vs_top=sup;
4715          V690= vs_base[0];          V690= vs_base[0];
4716          goto T2557;          goto T2557;
4717  goto T2559;          goto T2559;
4718  T2559:;  T2559:;
4719          if(!(type_of((V692))==t_string)){          if(!(type_of((V692))==t_string)){
4720          goto T2566;}          goto T2566;}
4721          V689= VV[74];          V689= VV[74];
4722          V690= (V692);          V690= (V692);
4723          goto T2557;          goto T2557;
4724  goto T2566;          goto T2566;
4725  T2566:;  T2566:;
4726          if(!(type_of((V692))==t_cons)){          if(!(type_of((V692))==t_cons)){
4727          goto T2572;}          goto T2572;}
# Line 4731  T2566:; Line 4731  T2566:;
4731          goto T2576;          goto T2576;
4732          }else V697=V697->c.c_cdr;          }else V697=V697->c.c_cdr;
4733          goto T2572;}          goto T2572;}
4734  goto T2576;          goto T2576;
4735  T2576:;  T2576:;
4736          if(!(type_of(cdr((V692)))==t_cons)){          if(!(type_of(cdr((V692)))==t_cons)){
4737          goto T2572;}          goto T2572;}
# Line 4739  T2576:; Line 4739  T2576:;
4739          goto T2579;}          goto T2579;}
4740          if(!(type_of(cadr((V692)))==t_string)){          if(!(type_of(cadr((V692)))==t_string)){
4741          goto T2572;}          goto T2572;}
4742  goto T2579;          goto T2579;
4743  T2579:;  T2579:;
4744          if(!(endp_prop(cddr((V692))))){          if(!(endp_prop(cddr((V692))))){
4745          goto T2572;}          goto T2572;}
# Line 4751  T2579:; Line 4751  T2579:;
4751          vs_top=sup;          vs_top=sup;
4752          V690= vs_base[0];          V690= vs_base[0];
4753          goto T2585;          goto T2585;
4754  goto T2587;          goto T2587;
4755  T2587:;  T2587:;
4756          V690= cadr((V692));          V690= cadr((V692));
4757  goto T2585;          goto T2585;
4758  T2585:;  T2585:;
4759          V689= car((V692));          V689= car((V692));
4760          goto T2557;          goto T2557;
4761  goto T2572;          goto T2572;
4762  T2572:;  T2572:;
4763          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[237],(V692))));
4764  goto T2557;          goto T2557;
4765  T2557:;  T2557:;
4766          {object V698;          {object V698;
4767          V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690));          V698= list(6,VV[232],car((V688)),(V691),cadr((V688)),(V689),(V690));
# Line 4780  static object LI50(V706,V707,V708,V709,V Line 4780  static object LI50(V706,V707,V708,V709,V
4780    
4781  object V706;object V707;object V708;object V709;object V710;  object V706;object V707;object V708;object V709;object V710;
4782  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
4783  goto TTL;          goto TTL;
4784  TTL:;  TTL:;
4785          princ_str("\nstatic void L",VV[31]);          princ_str("\nstatic void L",VV[31]);
4786          (void)((*(LnkLI277))((V707)));          (void)((*(LnkLI277))((V707)));
# Line 4797  static object LI51(V719,V720,V721,V722,V Line 4797  static object LI51(V719,V720,V721,V722,V
4797    
4798  object V719;object V720;object V721;register object V722;object V723;  object V719;object V720;object V721;register object V722;object V723;
4799  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
4800  goto TTL;          goto TTL;
4801  TTL:;  TTL:;
4802          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[239],(V719))));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[239],(V719))));
4803          princ_str("\nstatic void L",VV[25]);          princ_str("\nstatic void L",VV[25]);
# Line 4807  TTL:; Line 4807  TTL:;
4807          {object V724= (V722);          {object V724= (V722);
4808          if((V724!= VV[240]))goto T2608;          if((V724!= VV[240]))goto T2608;
4809          goto T2607;          goto T2607;
4810  goto T2608;          goto T2608;
4811  T2608:;  T2608:;
4812          if((V724!= VV[158]))goto T2609;          if((V724!= VV[158]))goto T2609;
4813          princ_str("\n   char *x;",VV[25]);          princ_str("\n   char *x;",VV[25]);
4814          goto T2607;          goto T2607;
4815  goto T2609;          goto T2609;
4816  T2609:;  T2609:;
4817          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
4818          base[0]= symbol_name((V722));          base[0]= symbol_name((V722));
# Line 4822  T2609:; Line 4822  T2609:;
4822          V725= vs_base[0];          V725= vs_base[0];
4823          (void)((*(LnkLI274))(V725));          (void)((*(LnkLI274))(V725));
4824          princ_str(" x;",VV[25]);}          princ_str(" x;",VV[25]);}
4825  goto T2607;          goto T2607;
4826  T2607:;  T2607:;
4827          if((symbol_value(VV[163]))==Cnil){          if((symbol_value(VV[163]))==Cnil){
4828          goto T2616;}          goto T2616;}
# Line 4830  T2607:; Line 4830  T2607:;
4830          V726 = make_fixnum((long)length((V721)));          V726 = make_fixnum((long)length((V721)));
4831          (void)((*(LnkLI274))(V726));          (void)((*(LnkLI274))(V726));
4832          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4833  goto T2616;          goto T2616;
4834  T2616:;  T2616:;
4835          if(((V722))==(VV[240])){          if(((V722))==(VV[240])){
4836          goto T2622;}          goto T2622;}
4837          princ_str("\n   x=",VV[25]);          princ_str("\n   x=",VV[25]);
4838  goto T2622;          goto T2622;
4839  T2622:;  T2622:;
4840          princ_str("\n   ",VV[25]);          princ_str("\n   ",VV[25]);
4841          (void)((*(LnkLI274))((V723)));          (void)((*(LnkLI274))((V723)));
# Line 4846  T2622:; Line 4846  T2622:;
4846          register long V728;          register long V728;
4847          V728= 0;          V728= 0;
4848          V727= (V721);          V727= (V721);
4849  goto T2635;          goto T2635;
4850  T2635:;  T2635:;
4851          {object V729= car((V727));          {object V729= car((V727));
4852          if((V729!= VV[74]))goto T2639;          if((V729!= VV[74]))goto T2639;
# Line 4855  T2635:; Line 4855  T2635:;
4855          (void)((*(LnkLI274))(V730));          (void)((*(LnkLI274))(V730));
4856          princ_char(93,VV[25]);          princ_char(93,VV[25]);
4857          goto T2638;          goto T2638;
4858  goto T2639;          goto T2639;
4859  T2639:;  T2639:;
4860          princ_str("\n   object_to_",VV[25]);          princ_str("\n   object_to_",VV[25]);
4861          base[0]= symbol_name(car((V727)));          base[0]= symbol_name(car((V727)));
# Line 4868  T2639:; Line 4868  T2639:;
4868          V732 = make_fixnum(V728);          V732 = make_fixnum(V728);
4869          (void)((*(LnkLI274))(V732));          (void)((*(LnkLI274))(V732));
4870          princ_str("])",VV[25]);}          princ_str("])",VV[25]);}
4871  goto T2638;          goto T2638;
4872  T2638:;  T2638:;
4873          if(!(endp_prop(cdr((V727))))){          if(!(endp_prop(cdr((V727))))){
4874          goto T2650;}          goto T2650;}
4875          goto T2630;          goto T2630;
4876  goto T2650;          goto T2650;
4877  T2650:;  T2650:;
4878          princ_char(44,VV[25]);          princ_char(44,VV[25]);
4879          V727= cdr((V727));          V727= cdr((V727));
4880          V728= (long)(V728)+1;          V728= (long)(V728)+1;
4881          goto T2635;}          goto T2635;}
4882  goto T2630;          goto T2630;
4883  T2630:;  T2630:;
4884          princ_str(");",VV[25]);          princ_str(");",VV[25]);
4885          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);          princ_str("\n   vs_top=(vs_base=old_base)+1;",VV[25]);
# Line 4888  T2630:; Line 4888  T2630:;
4888          if((V733!= VV[240]))goto T2666;          if((V733!= VV[240]))goto T2666;
4889          princ_str("Cnil",VV[25]);          princ_str("Cnil",VV[25]);
4890          goto T2665;          goto T2665;
4891  goto T2666;          goto T2666;
4892  T2666:;  T2666:;
4893          if((V733!= VV[74]))goto T2668;          if((V733!= VV[74]))goto T2668;
4894          princ_char(120,VV[25]);          princ_char(120,VV[25]);
4895          goto T2665;          goto T2665;
4896  goto T2668;          goto T2668;
4897  T2668:;  T2668:;
4898          if((V733!= VV[341]))goto T2670;          if((V733!= VV[341]))goto T2670;
4899          princ_str("code_char(x)",VV[25]);          princ_str("code_char(x)",VV[25]);
4900          goto T2665;          goto T2665;
4901  goto T2670;          goto T2670;
4902  T2670:;  T2670:;
4903          if((V733!= VV[342]))goto T2672;          if((V733!= VV[342]))goto T2672;
4904          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[114]))==0)){
4905          goto T2673;}          goto T2673;}
4906          princ_str("CMP",VV[25]);          princ_str("CMP",VV[25]);
4907  goto T2673;          goto T2673;
4908  T2673:;  T2673:;
4909          princ_str("make_fixnum(x)",VV[25]);          princ_str("make_fixnum(x)",VV[25]);
4910          goto T2665;          goto T2665;
4911  goto T2672;          goto T2672;
4912  T2672:;  T2672:;
4913          if((V733!= VV[158]))goto T2678;          if((V733!= VV[158]))goto T2678;
4914          princ_str("make_simple_string(x)",VV[25]);          princ_str("make_simple_string(x)",VV[25]);
4915          goto T2665;          goto T2665;
4916  goto T2678;          goto T2678;
4917  T2678:;  T2678:;
4918          if((V733!= VV[343]))goto T2680;          if((V733!= VV[343]))goto T2680;
4919          princ_str("make_shortfloat(x)",VV[25]);          princ_str("make_shortfloat(x)",VV[25]);
4920          goto T2665;          goto T2665;
4921  goto T2680;          goto T2680;
4922  T2680:;  T2680:;
4923          if((V733!= VV[344]))goto T2682;          if((V733!= VV[344]))goto T2682;
4924          princ_str("make_longfloat(x)",VV[25]);          princ_str("make_longfloat(x)",VV[25]);
4925          goto T2665;          goto T2665;
4926  goto T2682;          goto T2682;
4927  T2682:;}  T2682:;}
4928  goto T2665;          goto T2665;
4929  T2665:;  T2665:;
4930          princ_char(59,VV[25]);          princ_char(59,VV[25]);
4931          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
# Line 4940  static object LI52(V736) Line 4940  static object LI52(V736)
4940    
4941  object V736;  object V736;
4942  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
4943  goto TTL;          goto TTL;
4944  TTL:;  TTL:;
4945          {object V737 = Cnil;          {object V737 = Cnil;
4946          VMR51(V737)}          VMR51(V737)}
# Line 4952  static object LI53(V739) Line 4952  static object LI53(V739)
4952    
4953  object V739;  object V739;
4954  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
4955  goto TTL;          goto TTL;
4956  TTL:;  TTL:;
4957          {register object V740;          {register object V740;
4958          V740= Cnil;          V740= Cnil;
# Line 4960  TTL:; Line 4960  TTL:;
4960          register object V742;          register object V742;
4961          V741= (V739);          V741= (V739);
4962          V742= car((V741));          V742= car((V741));
4963  goto T2691;          goto T2691;
4964  T2691:;  T2691:;
4965          if(!(endp_prop((V741)))){          if(!(endp_prop((V741)))){
4966          goto T2692;}          goto T2692;}
4967          {object V743 = reverse((V740));          {object V743 = reverse((V740));
4968          VMR52(V743)}          VMR52(V743)}
4969  goto T2692;          goto T2692;
4970  T2692:;  T2692:;
4971          if(!(type_of((V742))==t_symbol)){          if(!(type_of((V742))==t_symbol)){
4972          goto T2698;}          goto T2698;}
# Line 4979  T2692:; Line 4979  T2692:;
4979          V744= list(2,VV[74],V745);          V744= list(2,VV[74],V745);
4980          V740= make_cons((V744),(V740));          V740= make_cons((V744),(V740));
4981          goto T2696;}          goto T2696;}
4982  goto T2698;          goto T2698;
4983  T2698:;  T2698:;
4984          if(!(type_of((V742))==t_string)){          if(!(type_of((V742))==t_string)){
4985          goto T2705;}          goto T2705;}
# Line 4987  T2698:; Line 4987  T2698:;
4987          V746= list(2,VV[74],(V742));          V746= list(2,VV[74],(V742));
4988          V740= make_cons((V746),(V740));          V740= make_cons((V746),(V740));
4989          goto T2696;}          goto T2696;}
4990  goto T2705;          goto T2705;
4991  T2705:;  T2705:;
4992          if(!(type_of((V742))==t_cons)){          if(!(type_of((V742))==t_cons)){
4993          goto T2710;}          goto T2710;}
# Line 4997  T2705:; Line 4997  T2705:;
4997          goto T2713;          goto T2713;
4998          }else V747=V747->c.c_cdr;          }else V747=V747->c.c_cdr;
4999          goto T2710;}          goto T2710;}
5000  goto T2713;          goto T2713;
5001  T2713:;  T2713:;
5002          {register object V748;          {register object V748;
5003          register object V749;          register object V749;
5004          V748= cdr((V742));          V748= cdr((V742));
5005          V749= car((V748));          V749= car((V748));
5006  goto T2717;          goto T2717;
5007  T2717:;  T2717:;
5008          if(!(endp_prop((V748)))){          if(!(endp_prop((V748)))){
5009          goto T2718;}          goto T2718;}
5010          goto T2696;          goto T2696;
5011  goto T2718;          goto T2718;
5012  T2718:;  T2718:;
5013          {register object V750;          {register object V750;
5014          V751= car((V742));          V751= car((V742));
# Line 5020  T2718:; Line 5020  T2718:;
5020          vs_top=sup;          vs_top=sup;
5021          V752= vs_base[0];          V752= vs_base[0];
5022          goto T2724;          goto T2724;
5023  goto T2726;          goto T2726;
5024  T2726:;  T2726:;
5025          if(!(type_of((V749))==t_string)){          if(!(type_of((V749))==t_string)){
5026          goto T2730;}          goto T2730;}
5027          V752= (V749);          V752= (V749);
5028          goto T2724;          goto T2724;
5029  goto T2730;          goto T2730;
5030  T2730:;  T2730:;
5031          V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749)));          V752= (VFUN_NARGS=2,(*(LnkLI265))(VV[242],(V749)));
5032  goto T2724;          goto T2724;
5033  T2724:;  T2724:;
5034          V750= list(2,/* INLINE-ARGS */V751,V752);          V750= list(2,/* INLINE-ARGS */V751,V752);
5035          V740= make_cons((V750),(V740));}          V740= make_cons((V750),(V740));}
5036          V748= cdr((V748));          V748= cdr((V748));
5037          V749= car((V748));          V749= car((V748));
5038          goto T2717;}          goto T2717;}
5039  goto T2710;          goto T2710;
5040  T2710:;  T2710:;
5041          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742))));          (void)((VFUN_NARGS=2,(*(LnkLI265))(VV[243],(V742))));
5042  goto T2696;          goto T2696;
5043  T2696:;  T2696:;
5044          V741= cdr((V741));          V741= cdr((V741));
5045          V742= car((V741));          V742= car((V741));
# Line 5054  static object LI54(V758,V759,V760,V761,V Line 5054  static object LI54(V758,V759,V760,V761,V
5054  object V758;object V759;object V760;register object V761;register object V762;  object V758;object V759;object V760;register object V761;register object V762;
5055  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
5056          bds_check;          bds_check;
5057  goto TTL;          goto TTL;
5058  TTL:;  TTL:;
5059          {object V763;          {object V763;
5060          register object V764;          register object V764;
# Line 5063  TTL:; Line 5063  TTL:;
5063          goto T2745;}          goto T2745;}
5064          V763= small_fixnum(0);          V763= small_fixnum(0);
5065          goto T2743;          goto T2743;
5066  goto T2745;          goto T2745;
5067  T2745:;  T2745:;
5068          V763= structure_ref((V761),VV[32],4);          V763= structure_ref((V761),VV[32],4);
5069  goto T2743;          goto T2743;
5070  T2743:;  T2743:;
5071          V764= Cnil;          V764= Cnil;
5072          bds_bind(VV[20],(*(LnkLI306))(cadr((V762))));          bds_bind(VV[20],(*(LnkLI306))(cadr((V762))));
# Line 5076  T2743:; Line 5076  T2743:;
5076          goto T2753;}          goto T2753;}
5077          V766= structure_ref((V761),VV[32],0);          V766= structure_ref((V761),VV[32],0);
5078          goto T2751;          goto T2751;
5079  goto T2753;          goto T2753;
5080  T2753:;  T2753:;
5081          V766= Cnil;          V766= Cnil;
5082  goto T2751;          goto T2751;
5083  T2751:;  T2751:;
5084          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[244],V766)));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[244],V766)));
5085          princ_str("\nstatic void ",VV[25]);          princ_str("\nstatic void ",VV[25]);
# Line 5087  T2751:; Line 5087  T2751:;
5087          goto T2760;}          goto T2760;}
5088          V767= VV[245];          V767= VV[245];
5089          goto T2758;          goto T2758;
5090  goto T2760;          goto T2760;
5091  T2760:;  T2760:;
5092          V767= VV[246];          V767= VV[246];
5093  goto T2758;          goto T2758;
5094  T2758:;  T2758:;
5095          (void)((*(LnkLI274))(V767));          (void)((*(LnkLI274))(V767));
5096          V768= structure_ref((V761),VV[32],3);          V768= structure_ref((V761),VV[32],3);
# Line 5101  T2758:; Line 5101  T2758:;
5101          goto T2769;}          goto T2769;}
5102          V769= VV[247];          V769= VV[247];
5103          goto T2767;          goto T2767;
5104  goto T2769;          goto T2769;
5105  T2769:;  T2769:;
5106          V769= VV[248];          V769= VV[248];
5107  goto T2767;          goto T2767;
5108  T2767:;  T2767:;
5109          (void)((*(LnkLI274))(V769));          (void)((*(LnkLI274))(V769));
5110          V770= structure_ref(cadr((V762)),VV[62],1);          V770= structure_ref(cadr((V762)),VV[62],1);
# Line 5143  T2767:; Line 5143  T2767:;
5143          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
5144          goto T2793;}          goto T2793;}
5145          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
5146  goto T2793;          goto T2793;
5147  T2793:;  T2793:;
5148          base[19]= caddr(cddr((V762)));          base[19]= caddr(cddr((V762)));
5149          vs_top=(vs_base=base+19)+1;          vs_top=(vs_base=base+19)+1;
# Line 5156  T2793:; Line 5156  T2793:;
5156          if(((VV[140]->s.s_dbind))!=Cnil){          if(((VV[140]->s.s_dbind))!=Cnil){
5157          goto T2801;}          goto T2801;}
5158          goto T2799;          goto T2799;
5159  goto T2801;          goto T2801;
5160  T2801:;  T2801:;
5161          princ_str("\n   base[0]=base[0];",VV[25]);          princ_str("\n   base[0]=base[0];",VV[25]);
5162  goto T2799;          goto T2799;
5163  T2799:;  T2799:;
5164          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
5165          (void)((*(LnkLI316))((V764),Ct));          (void)((*(LnkLI316))((V764),Ct));
# Line 5193  static object LI55(V780,V781,V782,V783,V Line 5193  static object LI55(V780,V781,V782,V783,V
5193  object V780;object V781;object V782;object V783;object V784;  object V780;object V781;object V782;object V783;object V784;
5194  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
5195          bds_check;          bds_check;
5196  goto TTL;          goto TTL;
5197  TTL:;  TTL:;
5198          {long V785;          {long V785;
5199          if(((V780))==Cnil){          if(((V780))==Cnil){
5200          goto T2813;}          goto T2813;}
5201          V785= 0;          V785= 0;
5202          goto T2811;          goto T2811;
5203  goto T2813;          goto T2813;
5204  T2813:;  T2813:;
5205          V785= fix(structure_ref((V783),VV[32],4));          V785= fix(structure_ref((V783),VV[32],4));
5206  goto T2811;          goto T2811;
5207  T2811:;  T2811:;
5208          bds_bind(VV[20],(*(LnkLI306))(cadr((V784))));          bds_bind(VV[20],(*(LnkLI306))(cadr((V784))));
5209          bds_bind(VV[117],Cnil);          bds_bind(VV[117],Cnil);
# Line 5213  T2811:; Line 5213  T2811:;
5213          bds_unwind1;          bds_unwind1;
5214          bds_unwind1;          bds_unwind1;
5215          VMR54(V786)}          VMR54(V786)}
5216  goto T2816;          goto T2816;
5217  T2816:;  T2816:;
5218          if((structure_ref((V783),VV[32],0))==Cnil){          if((structure_ref((V783),VV[32],0))==Cnil){
5219          goto T2822;}          goto T2822;}
5220          V787= structure_ref((V783),VV[32],0);          V787= structure_ref((V783),VV[32],0);
5221          goto T2820;          goto T2820;
5222  goto T2822;          goto T2822;
5223  T2822:;  T2822:;
5224          V787= Cnil;          V787= Cnil;
5225  goto T2820;          goto T2820;
5226  T2820:;  T2820:;
5227          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[252],V787)));          (void)((VFUN_NARGS=2,(*(LnkLI312))(VV[252],V787)));
5228          princ_str("\nstatic void ",VV[31]);          princ_str("\nstatic void ",VV[31]);
# Line 5230  T2820:; Line 5230  T2820:;
5230          goto T2829;}          goto T2829;}
5231          V788= VV[253];          V788= VV[253];
5232          goto T2827;          goto T2827;
5233  goto T2829;          goto T2829;
5234  T2829:;  T2829:;
5235          V788= VV[254];          V788= VV[254];
5236  goto T2827;          goto T2827;
5237  T2827:;  T2827:;
5238          (void)((*(LnkLI277))(V788));          (void)((*(LnkLI277))(V788));
5239          V789= structure_ref((V783),VV[32],3);          V789= structure_ref((V783),VV[32],3);
# Line 5244  T2827:; Line 5244  T2827:;
5244          goto T2838;}          goto T2838;}
5245          V790= VV[255];          V790= VV[255];
5246          goto T2836;          goto T2836;
5247  goto T2838;          goto T2838;
5248  T2838:;  T2838:;
5249          V790= VV[256];          V790= VV[256];
5250  goto T2836;          goto T2836;
5251  T2836:;  T2836:;
5252          (void)((*(LnkLI274))(V790));          (void)((*(LnkLI274))(V790));
5253          V791= structure_ref((V783),VV[32],3);          V791= structure_ref((V783),VV[32],3);
# Line 5257  T2836:; Line 5257  T2836:;
5257          register long V793;          register long V793;
5258          V792= make_fixnum(V785);          V792= make_fixnum(V785);
5259          V793= 0;          V793= 0;
5260  goto T2846;          goto T2846;
5261  T2846:;  T2846:;
5262          V794 = make_fixnum(V793);          V794 = make_fixnum(V793);
5263          if(!(number_compare(V794,(V792))>=0)){          if(!(number_compare(V794,(V792))>=0)){
# Line 5267  T2846:; Line 5267  T2846:;
5267          (void)((*(LnkLI274))(V795));          (void)((*(LnkLI274))(V795));
5268          princ_char(41,VV[25]);          princ_char(41,VV[25]);
5269          goto T2842;          goto T2842;
5270  goto T2847;          goto T2847;
5271  T2847:;  T2847:;
5272          princ_str("base",VV[25]);          princ_str("base",VV[25]);
5273          V796 = make_fixnum(V793);          V796 = make_fixnum(V793);
# Line 5275  T2847:; Line 5275  T2847:;
5275          princ_char(44,VV[25]);          princ_char(44,VV[25]);
5276          V793= (long)(V793)+1;          V793= (long)(V793)+1;
5277          goto T2846;}          goto T2846;}
5278  goto T2842;          goto T2842;
5279  T2842:;  T2842:;
5280          princ_str("\nregister object ",VV[25]);          princ_str("\nregister object ",VV[25]);
5281          {register object V797;          {register object V797;
5282          register long V798;          register long V798;
5283          V797= make_fixnum(V785);          V797= make_fixnum(V785);
5284          V798= 0;          V798= 0;
5285  goto T2867;          goto T2867;
5286  T2867:;  T2867:;
5287          V799 = make_fixnum(V798);          V799 = make_fixnum(V798);
5288          if(!(number_compare(V799,(V797))>=0)){          if(!(number_compare(V799,(V797))>=0)){
# Line 5294  T2867:; Line 5294  T2867:;
5294          (void)((*(LnkLI274))(V800));          (void)((*(LnkLI274))(V800));
5295          princ_char(59,VV[25]);          princ_char(59,VV[25]);
5296          goto T2863;          goto T2863;
5297  goto T2868;          goto T2868;
5298  T2868:;  T2868:;
5299          princ_char(42,VV[25]);          princ_char(42,VV[25]);
5300          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));          (void)((*(LnkLI274))((VV[20]->s.s_dbind)));
# Line 5304  T2868:; Line 5304  T2868:;
5304          princ_char(44,VV[25]);          princ_char(44,VV[25]);
5305          V798= (long)(V798)+1;          V798= (long)(V798)+1;
5306          goto T2867;}          goto T2867;}
5307  goto T2863;          goto T2863;
5308  T2863:;  T2863:;
5309          V802= structure_ref(cadr((V784)),VV[62],1);          V802= structure_ref(cadr((V784)),VV[62],1);
5310          (void)((*(LnkLI308))(/* INLINE-ARGS */V802,small_fixnum(2)));          (void)((*(LnkLI308))(/* INLINE-ARGS */V802,small_fixnum(2)));
# Line 5344  T2863:; Line 5344  T2863:;
5344          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));          (void)((*(LnkLI274))((VV[136]->s.s_dbind)));
5345          princ_str(");",VV[25]);          princ_str(");",VV[25]);
5346          goto T2906;          goto T2906;
5347  goto T2908;          goto T2908;
5348  T2908:;  T2908:;
5349          princ_str("\n   vs_check;",VV[25]);          princ_str("\n   vs_check;",VV[25]);
5350  goto T2906;          goto T2906;
5351  T2906:;  T2906:;
5352          if((symbol_value(VV[149]))==Cnil){          if((symbol_value(VV[149]))==Cnil){
5353          goto T2914;}          goto T2914;}
5354          princ_str("\n   ihs_check;",VV[25]);          princ_str("\n   ihs_check;",VV[25]);
5355  goto T2914;          goto T2914;
5356  T2914:;  T2914:;
5357          if(((V780))==Cnil){          if(((V780))==Cnil){
5358          goto T2920;}          goto T2920;}
5359          (void)((VFUN_NARGS=2,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))))));          (void)((VFUN_NARGS=2,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))))));
5360          goto T2918;          goto T2918;
5361  goto T2920;          goto T2920;
5362  T2920:;  T2920:;
5363          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))),(V783))));          (void)((VFUN_NARGS=3,(*(LnkLI331))(caddr((V784)),caddr(cddr((V784))),(V783))));
5364  goto T2918;          goto T2918;
5365  T2918:;  T2918:;
5366          princ_str("\n}",VV[25]);          princ_str("\n}",VV[25]);
5367          {object V806;          {object V806;
# Line 5398  T2918:; Line 5398  T2918:;
5398  static object LI56()  static object LI56()
5399    
5400  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
5401  goto TTL;          goto TTL;
5402  TTL:;  TTL:;
5403          {register object V810;          {register object V810;
5404          V810= Cnil;          V810= Cnil;
# Line 5406  TTL:; Line 5406  TTL:;
5406          register object V812;          register object V812;
5407          V811= symbol_value(VV[18]);          V811= symbol_value(VV[18]);
5408          V812= car((V811));          V812= car((V811));
5409  goto T2935;          goto T2935;
5410  T2935:;  T2935:;
5411          if(!(endp_prop((V811)))){          if(!(endp_prop((V811)))){
5412          goto T2936;}          goto T2936;}
5413          goto T2931;          goto T2931;
5414  goto T2936;          goto T2936;
5415  T2936:;  T2936:;
5416          {register object V813;          {register object V813;
5417          if(!(type_of((V812))==t_cons)){          if(!(type_of((V812))==t_cons)){
# Line 5421  T2936:; Line 5421  T2936:;
5421          V812= cdr((V812));          V812= cdr((V812));
5422          V813= (V814);          V813= (V814);
5423          goto T2941;}          goto T2941;}
5424  goto T2943;          goto T2943;
5425  T2943:;  T2943:;
5426          V813= Ct;          V813= Ct;
5427  goto T2941;          goto T2941;
5428  T2941:;  T2941:;
5429          if(!(((V810))==((V813)))){          if(!(((V810))==((V813)))){
5430          goto T2950;}          goto T2950;}
# Line 5435  T2941:; Line 5435  T2941:;
5435          Lformat();          Lformat();
5436          vs_top=sup;          vs_top=sup;
5437          goto T2948;          goto T2948;
5438  goto T2950;          goto T2950;
5439  T2950:;  T2950:;
5440          if(!(((V810))==Cnil)){          if(!(((V810))==Cnil)){
5441          goto T2956;}          goto T2956;}
5442          goto T2955;          goto T2955;
5443  goto T2956;          goto T2956;
5444  T2956:;  T2956:;
5445          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
5446          base[2]= VV[259];          base[2]= VV[259];
5447          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
5448          Lformat();          Lformat();
5449          vs_top=sup;          vs_top=sup;
5450  goto T2955;          goto T2955;
5451  T2955:;  T2955:;
5452          V810= (V813);          V810= (V813);
5453          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
# Line 5457  T2955:; Line 5457  T2955:;
5457          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
5458          Lformat();          Lformat();
5459          vs_top=sup;          vs_top=sup;
5460  goto T2948;          goto T2948;
5461  T2948:;  T2948:;
5462          if(!(((V810))==(VV[261]))){          if(!(((V810))==(VV[261]))){
5463          goto T2940;}          goto T2940;}
# Line 5467  T2948:; Line 5467  T2948:;
5467          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
5468          Lformat();          Lformat();
5469          vs_top=sup;}          vs_top=sup;}
5470  goto T2940;          goto T2940;
5471  T2940:;  T2940:;
5472          V811= cdr((V811));          V811= cdr((V811));
5473          V812= car((V811));          V812= car((V811));
5474          goto T2935;}          goto T2935;}
5475  goto T2931;          goto T2931;
5476  T2931:;  T2931:;
5477          if(symbol_value(VV[18])==Cnil){          if(symbol_value(VV[18])==Cnil){
5478          goto T2976;}          goto T2976;}
# Line 5481  T2931:; Line 5481  T2931:;
5481          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5482          Lformat();          Lformat();
5483          vs_top=sup;          vs_top=sup;
5484  goto T2976;          goto T2976;
5485  T2976:;  T2976:;
5486          if(eql(symbol_value(VV[141]),small_fixnum(0))){          if(eql(symbol_value(VV[141]),small_fixnum(0))){
5487          goto T2980;}          goto T2980;}
# Line 5493  T2976:; Line 5493  T2976:;
5493          vs_top=sup;          vs_top=sup;
5494          {object V815 = vs_base[0];          {object V815 = vs_base[0];
5495          VMR55(V815)}          VMR55(V815)}
5496  goto T2980;          goto T2980;
5497  T2980:;  T2980:;
5498          {object V816 = Cnil;          {object V816 = Cnil;
5499          VMR55(V816)}}          VMR55(V816)}}
# Line 5511  register object *base0; Line 5511  register object *base0;
5511          check_arg(1);          check_arg(1);
5512          V817=(base[0]);          V817=(base[0]);
5513          vs_top=sup;          vs_top=sup;
5514  goto TTL;          goto TTL;
5515  TTL:;  TTL:;
5516          V818= structure_ref((V817),VV[69],4);          V818= structure_ref((V817),VV[69],4);
5517          if(eql(/* INLINE-ARGS */V818,VV[72])){          if(eql(/* INLINE-ARGS */V818,VV[72])){
5518          goto T2986;}          goto T2986;}
5519          goto T2985;          goto T2985;
5520  goto T2986;          goto T2986;
5521  T2986:;  T2986:;
5522          (VV[153]->s.s_dbind)= Ct;          (VV[153]->s.s_dbind)= Ct;
5523  goto T2985;          goto T2985;
5524  T2985:;  T2985:;
5525          {object V819;          {object V819;
5526          V819= (*(LnkLI345))((V817));          V819= (*(LnkLI345))((V817));
# Line 5536  T2985:; Line 5536  T2985:;
5536          goto T2998;}          goto T2998;}
5537          princ_char(123,VV[25]);          princ_char(123,VV[25]);
5538          base0[1]= Ct;          base0[1]= Ct;
5539  goto T2998;          goto T2998;
5540  T2998:;  T2998:;
5541          base[1]= (V817);          base[1]= (V817);
5542          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
5543          (void) (*Lnk346)();          (void) (*Lnk346)();
5544          return;}          return;}
5545  goto T2991;          goto T2991;
5546  T2991:;  T2991:;
5547          base[1]= Cnil;          base[1]= Cnil;
5548          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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