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

Diff of /gcl/cmpnew/cmpfun.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 8  static object LI1(V2) Line 8  static object LI1(V2)
8    
9  register object V2;  register object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11  goto TTL;          goto TTL;
12  TTL:;  TTL:;
13          {register object V3;          {register object V3;
14          register object V4;          register object V4;
# Line 17  TTL:; Line 17  TTL:;
17          if(!(endp_prop((V2)))){          if(!(endp_prop((V2)))){
18          goto T3;}          goto T3;}
19          (void)((*(LnkLI209))(VV[0],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI209))(VV[0],small_fixnum(1),small_fixnum(0)));
20  goto T3;          goto T3;
21  T3:;  T3:;
22          if(endp_prop(cdr((V2)))){          if(endp_prop(cdr((V2)))){
23          goto T6;}          goto T6;}
# Line 25  T3:; Line 25  T3:;
25          goto T6;}          goto T6;}
26          V5 = make_fixnum((long)length((V2)));          V5 = make_fixnum((long)length((V2)));
27          (void)((*(LnkLI210))(VV[0],small_fixnum(2),V5));          (void)((*(LnkLI210))(VV[0],small_fixnum(2),V5));
28  goto T6;          goto T6;
29  T6:;  T6:;
30          if(!(endp_prop(cdr((V2))))){          if(!(endp_prop(cdr((V2))))){
31          goto T14;}          goto T14;}
32          V3= (*(LnkLI211))();          V3= (*(LnkLI211))();
33          goto T12;          goto T12;
34  goto T14;          goto T14;
35  T14:;  T14:;
36          V3= (*(LnkLI212))(cadr((V2)),(V4));          V3= (*(LnkLI212))(cadr((V2)),(V4));
37  goto T12;          goto T12;
38  T12:;  T12:;
39          if(!(type_of(car((V2)))==t_string)){          if(!(type_of(car((V2)))==t_string)){
40          goto T19;}          goto T19;}
41          V6 = make_fixnum((long)length(car((V2))));          V6 = make_fixnum((long)length(car((V2))));
42          if(number_compare(V6,symbol_value(VV[1]))<=0){          if(number_compare(V6,symbol_value(VV[1]))<=0){
43          goto T18;}          goto T18;}
44  goto T19;          goto T19;
45  T19:;  T19:;
46          if(!(type_of(car((V2)))==t_character)){          if(!(type_of(car((V2)))==t_character)){
47          goto T17;}          goto T17;}
48  goto T18;          goto T18;
49  T18:;  T18:;
50          if(endp_prop(cdr((V2)))){          if(endp_prop(cdr((V2)))){
51          goto T16;}          goto T16;}
# Line 58  T18:; Line 58  T18:;
58          goto T28;          goto T28;
59          }else V7=V7->c.c_cdr;          }else V7=V7->c.c_cdr;
60          goto T17;}          goto T17;}
61  goto T28;          goto T28;
62  T28:;  T28:;
63  goto T16;          goto T16;
64  T16:;  T16:;
65          V9= car((V2));          V9= car((V2));
66          if(!(endp_prop(cdr((V2))))){          if(!(endp_prop(cdr((V2))))){
67          goto T31;}          goto T31;}
68          V10= Cnil;          V10= Cnil;
69          goto T29;          goto T29;
70  goto T31;          goto T31;
71  T31:;  T31:;
72          V10= structure_ref(caaddr((V3)),VV[2],4);          V10= structure_ref(caaddr((V3)),VV[2],4);
73  goto T29;          goto T29;
74  T29:;  T29:;
75          {object V11 = list(5,VV[0],(V4),/* INLINE-ARGS */V9,V10,(V3));          {object V11 = list(5,VV[0],(V4),/* INLINE-ARGS */V9,V10,(V3));
76          VMR1(V11)}          VMR1(V11)}
77  goto T17;          goto T17;
78  T17:;  T17:;
79          V12= (*(LnkLI212))(car((V2)),(V4));          V12= (*(LnkLI212))(car((V2)),(V4));
80          {object V13 = list(4,VV[4],(V4),VV[0],list(2,/* INLINE-ARGS */V12,(V3)));          {object V13 = list(4,VV[4],(V4),VV[0],list(2,/* INLINE-ARGS */V12,(V3)));
# Line 88  static object LI2(V17,V18,V19) Line 88  static object LI2(V17,V18,V19)
88    
89  register object V17;register object V18;object V19;  register object V17;register object V18;object V19;
90  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
91  goto TTL;          goto TTL;
92  TTL:;  TTL:;
93          if(!((symbol_value(VV[5]))==(VV[6]))){          if(!((symbol_value(VV[5]))==(VV[6]))){
94          goto T34;}          goto T34;}
# Line 105  TTL:; Line 105  TTL:;
105          goto T47;}          goto T47;}
106          princ_str(",Cnil",VV[7]);          princ_str(",Cnil",VV[7]);
107          goto T45;          goto T45;
108  goto T47;          goto T47;
109  T47:;  T47:;
110          princ_str(",VV[",VV[7]);          princ_str(",VV[",VV[7]);
111          (void)((*(LnkLI213))((V18)));          (void)((*(LnkLI213))((V18)));
112          princ_char(93,VV[7]);          princ_char(93,VV[7]);
113  goto T45;          goto T45;
114  T45:;  T45:;
115          princ_str(");",VV[7]);          princ_str(");",VV[7]);
116          goto T36;          goto T36;
117  goto T38;          goto T38;
118  T38:;  T38:;
119          if(!(((long)length((V17)))==(1))){          if(!(((long)length((V17)))==(1))){
120          goto T55;}          goto T55;}
# Line 129  T38:; Line 129  T38:;
129          goto T64;}          goto T64;}
130          princ_str(",Cnil",VV[7]);          princ_str(",Cnil",VV[7]);
131          goto T62;          goto T62;
132  goto T64;          goto T64;
133  T64:;  T64:;
134          princ_str(",VV[",VV[7]);          princ_str(",VV[",VV[7]);
135          (void)((*(LnkLI213))((V18)));          (void)((*(LnkLI213))((V18)));
136          princ_char(93,VV[7]);          princ_char(93,VV[7]);
137  goto T62;          goto T62;
138  T62:;  T62:;
139          princ_str(");",VV[7]);          princ_str(");",VV[7]);
140          goto T36;          goto T36;
141  goto T55;          goto T55;
142  T55:;  T55:;
143          princ_str("\n   princ_str(\"",VV[7]);          princ_str("\n   princ_str(\"",VV[7]);
144          {register long V22;          {register long V22;
145          register long V23;          register long V23;
146          V22= (long)length((V17));          V22= (long)length((V17));
147          V23= 0;          V23= 0;
148  goto T77;          goto T77;
149  T77:;  T77:;
150          if(!((V23)>=(V22))){          if(!((V23)>=(V22))){
151          goto T78;}          goto T78;}
152          goto T73;          goto T73;
153  goto T78;          goto T78;
154  T78:;  T78:;
155          {register object V24;          {register object V24;
156          V24= elt((V17),V23);          V24= elt((V17),V23);
# Line 163  T78:; Line 163  T78:;
163          goto T85;}          goto T85;}
164          princ_str("\\\\",VV[7]);          princ_str("\\\\",VV[7]);
165          goto T82;          goto T82;
166  goto T85;          goto T85;
167  T85:;  T85:;
168          base[0]= (V24);          base[0]= (V24);
169          base[1]= VV[9];          base[1]= VV[9];
# Line 174  T85:; Line 174  T85:;
174          goto T91;}          goto T91;}
175          princ_str("\\\"",VV[7]);          princ_str("\\\"",VV[7]);
176          goto T82;          goto T82;
177  goto T91;          goto T91;
178  T91:;  T91:;
179          base[0]= (V24);          base[0]= (V24);
180          base[1]= VV[10];          base[1]= VV[10];
# Line 185  T91:; Line 185  T91:;
185          goto T97;}          goto T97;}
186          princ_str("\\n",VV[7]);          princ_str("\\n",VV[7]);
187          goto T82;          goto T82;
188  goto T97;          goto T97;
189  T97:;  T97:;
190          (void)((*(LnkLI213))((V24)));}          (void)((*(LnkLI213))((V24)));}
191  goto T82;          goto T82;
192  T82:;  T82:;
193          V23= (long)(V23)+1;          V23= (long)(V23)+1;
194          goto T77;}          goto T77;}
195  goto T73;          goto T73;
196  T73:;  T73:;
197          princ_str("\",",VV[7]);          princ_str("\",",VV[7]);
198          if(((V18))!=Cnil){          if(((V18))!=Cnil){
199          goto T110;}          goto T110;}
200          princ_str("Cnil",VV[7]);          princ_str("Cnil",VV[7]);
201          goto T108;          goto T108;
202  goto T110;          goto T110;
203  T110:;  T110:;
204          princ_str("VV[",VV[7]);          princ_str("VV[",VV[7]);
205          (void)((*(LnkLI213))((V18)));          (void)((*(LnkLI213))((V18)));
206          princ_char(93,VV[7]);          princ_char(93,VV[7]);
207  goto T108;          goto T108;
208  T108:;  T108:;
209          princ_str(");",VV[7]);          princ_str(");",VV[7]);
210  goto T36;          goto T36;
211  T36:;  T36:;
212          {object V25 = (VFUN_NARGS=1,(*(LnkLI214))(Cnil));          {object V25 = (VFUN_NARGS=1,(*(LnkLI214))(Cnil));
213          VMR2(V25)}          VMR2(V25)}
214  goto T34;          goto T34;
215  T34:;  T34:;
216          if(!(eql((V17),VV[10]))){          if(!(eql((V17),VV[10]))){
217          goto T118;}          goto T118;}
218          V26= make_cons((V19),Cnil);          V26= make_cons((V19),Cnil);
219          {object V27 = (*(LnkLI215))(VV[11],/* INLINE-ARGS */V26,Cnil,Ct);          {object V27 = (*(LnkLI215))(VV[11],/* INLINE-ARGS */V26,Cnil,Ct);
220          VMR2(V27)}          VMR2(V27)}
221  goto T118;          goto T118;
222  T118:;  T118:;
223          if(!(type_of((V17))==t_character)){          if(!(type_of((V17))==t_character)){
224          goto T122;}          goto T122;}
225          V28= VV[14];          V28= VV[14];
226          goto T120;          goto T120;
227  goto T122;          goto T122;
228  T122:;  T122:;
229          V28= VV[15];          V28= VV[15];
230  goto T120;          goto T120;
231  T120:;  T120:;
232          V29= (VFUN_NARGS=2,(*(LnkLI208))(VV[13],V28));          V29= (VFUN_NARGS=2,(*(LnkLI208))(VV[13],V28));
233          V30= list(2,list(3,VV[12],/* INLINE-ARGS */V29,list(2,VV[16],(*(LnkLI216))((V17)))),(V19));          V30= list(2,list(3,VV[12],/* INLINE-ARGS */V29,list(2,VV[16],(*(LnkLI216))((V17)))),(V19));
# Line 242  static object LI3(V33) Line 242  static object LI3(V33)
242    
243  register object V33;  register object V33;
244  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
245  goto TTL;          goto TTL;
246  TTL:;  TTL:;
247          {register object V34;          {register object V34;
248          object V35;          object V35;
# Line 254  TTL:; Line 254  TTL:;
254          goto T126;}          goto T126;}
255          V36 = make_fixnum((long)length((V33)));          V36 = make_fixnum((long)length((V33)));
256          (void)((*(LnkLI210))(VV[11],small_fixnum(1),V36));          (void)((*(LnkLI210))(VV[11],small_fixnum(1),V36));
257  goto T126;          goto T126;
258  T126:;  T126:;
259          if(!(endp_prop((V33)))){          if(!(endp_prop((V33)))){
260          goto T134;}          goto T134;}
261          V34= (*(LnkLI211))();          V34= (*(LnkLI211))();
262          goto T132;          goto T132;
263  goto T134;          goto T134;
264  T134:;  T134:;
265          V34= (*(LnkLI212))(car((V33)),(V35));          V34= (*(LnkLI212))(car((V33)),(V35));
266  goto T132;          goto T132;
267  T132:;  T132:;
268          if(endp_prop((V33))){          if(endp_prop((V33))){
269          goto T136;}          goto T136;}
# Line 276  T132:; Line 276  T132:;
276          goto T142;          goto T142;
277          }else V37=V37->c.c_cdr;          }else V37=V37->c.c_cdr;
278          goto T137;}          goto T137;}
279  goto T142;          goto T142;
280  T142:;  T142:;
281  goto T136;          goto T136;
282  T136:;  T136:;
283          if(!(endp_prop((V33)))){          if(!(endp_prop((V33)))){
284          goto T145;}          goto T145;}
285          V39= Cnil;          V39= Cnil;
286          goto T143;          goto T143;
287  goto T145;          goto T145;
288  T145:;  T145:;
289          V39= structure_ref(caaddr((V34)),VV[2],4);          V39= structure_ref(caaddr((V34)),VV[2],4);
290  goto T143;          goto T143;
291  T143:;  T143:;
292          {object V40 = list(5,VV[0],(V35),VV[10],V39,(V34));          {object V40 = list(5,VV[0],(V35),VV[10],V39,(V34));
293          VMR3(V40)}          VMR3(V40)}
294  goto T137;          goto T137;
295  T137:;  T137:;
296          {object V41 = list(4,VV[4],(V35),VV[11],make_cons((V34),Cnil));          {object V41 = list(4,VV[4],(V35),VV[11],make_cons((V34),Cnil));
297          VMR3(V41)}}          VMR3(V41)}}
# Line 304  static object LI4(V43) Line 304  static object LI4(V43)
304    
305  register object V43;  register object V43;
306  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
307  goto TTL;          goto TTL;
308  TTL:;  TTL:;
309          {register object V44;          {register object V44;
310          V44= Cnil;          V44= Cnil;
# Line 312  TTL:; Line 312  TTL:;
312          goto T149;}          goto T149;}
313          if(!(endp_prop(cdr((V43))))){          if(!(endp_prop(cdr((V43))))){
314          goto T148;}          goto T148;}
315  goto T149;          goto T149;
316  T149:;  T149:;
317          V45 = make_fixnum((long)length((V43)));          V45 = make_fixnum((long)length((V43)));
318          (void)((*(LnkLI209))(VV[18],small_fixnum(2),V45));          (void)((*(LnkLI209))(VV[18],small_fixnum(2),V45));
319  goto T148;          goto T148;
320  T148:;  T148:;
321          {register object V46;          {register object V46;
322          V46= (*(LnkLI217))(car((V43)));          V46= (*(LnkLI217))(car((V43)));
# Line 338  T148:; Line 338  T148:;
338          goto T165;}          goto T165;}
339          {object V49 = (*(LnkLI220))((V44),car((V48)),caddr((V48)),car(cddddr((V47))),(V43));          {object V49 = (*(LnkLI220))((V44),car((V48)),caddr((V48)),car(cddddr((V47))),(V43));
340          VMR4(V49)}          VMR4(V49)}
341  goto T165;          goto T165;
342  T165:;  T165:;
343          {object V50 = list(4,VV[18],(V44),(V46),(V43));          {object V50 = list(4,VV[18],(V44),(V46),(V43));
344          VMR4(V50)}}          VMR4(V50)}}
345  goto T160;          goto T160;
346  T160:;  T160:;
347          {object V51 = list(4,VV[18],(V44),(V46),(V43));          {object V51 = list(4,VV[18],(V44),(V46),(V43));
348          VMR4(V51)}}}          VMR4(V51)}}}
# Line 356  static object LI5(V54,V55) Line 356  static object LI5(V54,V55)
356  object V54;object V55;  object V54;object V55;
357  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
358          bds_check;          bds_check;
359  goto TTL;          goto TTL;
360  TTL:;  TTL:;
361          {object V56;          {object V56;
362          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
# Line 371  TTL:; Line 371  TTL:;
371          bds_bind(VV[20],base[1]);          bds_bind(VV[20],base[1]);
372          {register object V59;          {register object V59;
373          V59= (V55);          V59= (V55);
374  goto T179;          goto T179;
375  T179:;  T179:;
376          if(!(endp_prop(cdr((V59))))){          if(!(endp_prop(cdr((V59))))){
377          goto T180;}          goto T180;}
# Line 382  T179:; Line 382  T179:;
382          V60= (*(LnkLI222))(car((V59)));          V60= (*(LnkLI222))(car((V59)));
383          bds_unwind1;          bds_unwind1;
384          goto T177;          goto T177;
385  goto T180;          goto T180;
386  T180:;  T180:;
387          base[2]= list(2,VV[23],(*(LnkLI223))());          base[2]= list(2,VV[23],(*(LnkLI223))());
388          bds_bind(VV[5],base[2]);          bds_bind(VV[5],base[2]);
# Line 390  T180:; Line 390  T180:;
390          bds_unwind1;          bds_unwind1;
391          V59= cdr((V59));          V59= cdr((V59));
392          goto T179;}          goto T179;}
393  goto T177;          goto T177;
394  T177:;  T177:;
395          princ_str("\n    vs_top=base+",VV[7]);          princ_str("\n    vs_top=base+",VV[7]);
396          (void)((*(LnkLI213))((VV[20]->s.s_dbind)));          (void)((*(LnkLI213))((VV[20]->s.s_dbind)));
# Line 409  T177:; Line 409  T177:;
409          (void)((*(LnkLI213))((V58)));          (void)((*(LnkLI213))((V58)));
410          princ_str(");}",VV[7]);          princ_str(");}",VV[7]);
411          goto T199;          goto T199;
412  goto T201;          goto T201;
413  T201:;  T201:;
414          princ_str("\n    while(",VV[7]);          princ_str("\n    while(",VV[7]);
415          (void)((*(LnkLI213))((V58)));          (void)((*(LnkLI213))((V58)));
# Line 421  T201:; Line 421  T201:;
421          princ_str("=(",VV[7]);          princ_str("=(",VV[7]);
422          (void)((*(LnkLI213))((V58)));          (void)((*(LnkLI213))((V58)));
423          princ_str(")->c.c_cdr;}",VV[7]);          princ_str(")->c.c_cdr;}",VV[7]);
424  goto T199;          goto T199;
425  T199:;  T199:;
426          princ_str("\n   vs_base=base+",VV[7]);          princ_str("\n   vs_base=base+",VV[7]);
427          (void)((*(LnkLI213))((V57)));          (void)((*(LnkLI213))((V57)));
# Line 440  static object LI6(V68,V69,V70,V71,V72) Line 440  static object LI6(V68,V69,V70,V71,V72)
440    
441  object V68;register object V69;object V70;object V71;register object V72;  object V68;register object V69;object V70;object V71;register object V72;
442  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
443  goto TTL;          goto TTL;
444  TTL:;  TTL:;
445          {register object V73;          {register object V73;
446          register object V74;          register object V74;
447          V73= Cnil;          V73= Cnil;
448          V74= Cnil;          V74= Cnil;
449  goto T236;          goto T236;
450  T236:;  T236:;
451          if(endp_prop(cdr((V72)))){          if(endp_prop(cdr((V72)))){
452          goto T238;}          goto T238;}
453          if(!(endp_prop((V69)))){          if(!(endp_prop((V69)))){
454          goto T237;}          goto T237;}
455  goto T238;          goto T238;
456  T238:;  T238:;
457          goto T234;          goto T234;
458  goto T237;          goto T237;
459  T237:;  T237:;
460          {register object V75;          {register object V75;
461          {register object V76;          {register object V76;
# Line 470  T237:; Line 470  T237:;
470          V77= (V78);}          V77= (V78);}
471          V74= make_cons((V77),(V74));}          V74= make_cons((V77),(V74));}
472          goto T236;          goto T236;
473  goto T234;          goto T234;
474  T234:;  T234:;
475          if((cdr((V72)))==Cnil){          if((cdr((V72)))==Cnil){
476          goto T258;}          goto T258;}
477          if(((V70))!=Cnil){          if(((V70))!=Cnil){
478          goto T260;}          goto T260;}
479          (void)((VFUN_NARGS=1,(*(LnkLI225))(VV[27])));          (void)((VFUN_NARGS=1,(*(LnkLI225))(VV[27])));
480  goto T260;          goto T260;
481  T260:;  T260:;
482          V73= make_cons(V70,(V73));          V73= make_cons(V70,(V73));
483          {object V80;          {object V80;
# Line 486  T260:; Line 486  T260:;
486          V81= reverse((V73));          V81= reverse((V73));
487          {object V82 = list(5,VV[29],(V68),/* INLINE-ARGS */V81,reverse((V74)),(V71));          {object V82 = list(5,VV[29],(V68),/* INLINE-ARGS */V81,reverse((V74)),(V71));
488          VMR6(V82)}          VMR6(V82)}
489  goto T258;          goto T258;
490  T258:;  T258:;
491          if(((V69))==Cnil){          if(((V69))==Cnil){
492          goto T269;}          goto T269;}
# Line 500  T258:; Line 500  T258:;
500          V87= reverse((V74));          V87= reverse((V74));
501          {object V88 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,/* INLINE-ARGS */V87,list(6,VV[33],cadr((V71)),(V83),(V69),(V70),(V71)));          {object V88 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,/* INLINE-ARGS */V87,list(6,VV[33],cadr((V71)),(V83),(V69),(V70),(V71)));
502          VMR6(V88)}}          VMR6(V88)}}
503  goto T269;          goto T269;
504  T269:;  T269:;
505          if(((V70))==Cnil){          if(((V70))==Cnil){
506          goto T278;}          goto T278;}
# Line 511  T269:; Line 511  T269:;
511          V91= reverse((V73));          V91= reverse((V73));
512          {object V92 = list(5,VV[29],(V68),/* INLINE-ARGS */V91,reverse((V74)),(V71));          {object V92 = list(5,VV[29],(V68),/* INLINE-ARGS */V91,reverse((V74)),(V71));
513          VMR6(V92)}          VMR6(V92)}
514  goto T278;          goto T278;
515  T278:;  T278:;
516          {object V93;          {object V93;
517          V93= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));          V93= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));
# Line 543  static void L7() Line 543  static void L7()
543          V101=(base[2]);          V101=(base[2]);
544          V102=(base[3]);          V102=(base[3]);
545          vs_top=sup;          vs_top=sup;
546  goto TTL;          goto TTL;
547  TTL:;  TTL:;
548          bds_bind(VV[34],symbol_value(VV[34]));          bds_bind(VV[34],symbol_value(VV[34]));
549          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
# Line 553  TTL:; Line 553  TTL:;
553          goto T292;}          goto T292;}
554          if((symbol_value(VV[37]))==Cnil){          if((symbol_value(VV[37]))==Cnil){
555          goto T291;}          goto T291;}
556  goto T292;          goto T292;
557  T292:;  T292:;
558          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
559          if(((V101))==Cnil){          if(((V101))==Cnil){
560          goto T301;}          goto T301;}
561          V103= VV[38];          V103= VV[38];
562          goto T299;          goto T299;
563  goto T301;          goto T301;
564  T301:;  T301:;
565          V103= VV[39];          V103= VV[39];
566  goto T299;          goto T299;
567  T299:;  T299:;
568          (void)((*(LnkLI213))(V103));          (void)((*(LnkLI213))(V103));
569          princ_char(40,VV[7]);          princ_char(40,VV[7]);
# Line 572  T299:; Line 572  T299:;
572          princ_char(44,VV[7]);          princ_char(44,VV[7]);
573          (void)((*(LnkLI227))((V99),Cnil));          (void)((*(LnkLI227))((V99),Cnil));
574          princ_str(");",VV[7]);          princ_str(");",VV[7]);
575  goto T291;          goto T291;
576  T291:;  T291:;
577          {object V105;          {object V105;
578          object V106;          object V106;
579          V105= (V100);          V105= (V100);
580          V106= car((V105));          V106= car((V105));
581  goto T312;          goto T312;
582  T312:;  T312:;
583          if(!(endp_prop((V105)))){          if(!(endp_prop((V105)))){
584          goto T313;}          goto T313;}
585          goto T308;          goto T308;
586  goto T313;          goto T313;
587  T313:;  T313:;
588          V107= (*(LnkLI223))();          V107= (*(LnkLI223))();
589          (void)(structure_set((V106),VV[2],2,/* INLINE-ARGS */V107));          (void)(structure_set((V106),VV[2],2,/* INLINE-ARGS */V107));
590          V105= cdr((V105));          V105= cdr((V105));
591          V106= car((V105));          V106= car((V105));
592          goto T312;}          goto T312;}
593  goto T308;          goto T308;
594  T308:;  T308:;
595          if(((V101))==Cnil){          if(((V101))==Cnil){
596          goto T323;}          goto T323;}
597          V108= (*(LnkLI223))();          V108= (*(LnkLI223))();
598          (void)(structure_set((V101),VV[2],2,/* INLINE-ARGS */V108));          (void)(structure_set((V101),VV[2],2,/* INLINE-ARGS */V108));
599  goto T323;          goto T323;
600  T323:;  T323:;
601          {register long V109;          {register long V109;
602          object V110;          object V110;
603          V109= 0;          V109= 0;
604          V110= (V100);          V110= (V100);
605  goto T329;          goto T329;
606  T329:;  T329:;
607          if(!(endp_prop((V110)))){          if(!(endp_prop((V110)))){
608          goto T330;}          goto T330;}
# Line 616  T329:; Line 616  T329:;
616          register long V113;          register long V113;
617          V112= V109;          V112= V109;
618          V113= 0;          V113= 0;
619  goto T343;          goto T343;
620  T343:;  T343:;
621          if(!((V113)>=(V112))){          if(!((V113)>=(V112))){
622          goto T344;}          goto T344;}
623          goto T339;          goto T339;
624  goto T344;          goto T344;
625  T344:;  T344:;
626          princ_char(40,VV[7]);          princ_char(40,VV[7]);
627          V113= (long)(V113)+1;          V113= (long)(V113)+1;
628          goto T343;}          goto T343;}
629  goto T339;          goto T339;
630  T339:;  T339:;
631          (void)((*(LnkLI227))((V99),Cnil));          (void)((*(LnkLI227))((V99),Cnil));
632          {long V114;          {long V114;
633          register long V115;          register long V115;
634          V114= V109;          V114= V109;
635          V115= 0;          V115= 0;
636  goto T358;          goto T358;
637  T358:;  T358:;
638          if(!((V115)>=(V114))){          if(!((V115)>=(V114))){
639          goto T359;}          goto T359;}
640          goto T354;          goto T354;
641  goto T359;          goto T359;
642  T359:;  T359:;
643          princ_str("\n   )->c.c_cdr",VV[7]);          princ_str("\n   )->c.c_cdr",VV[7]);
644          V115= (long)(V115)+1;          V115= (long)(V115)+1;
645          goto T358;}          goto T358;}
646  goto T354;          goto T354;
647  T354:;  T354:;
648          princ_char(59,VV[7]);          princ_char(59,VV[7]);
649          goto T326;          goto T326;
650  goto T330;          goto T330;
651  T330:;  T330:;
652          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
653          V116= structure_ref(car((V110)),VV[2],2);          V116= structure_ref(car((V110)),VV[2],2);
# Line 657  T330:; Line 657  T330:;
657          register long V118;          register long V118;
658          V117= V109;          V117= V109;
659          V118= 0;          V118= 0;
660  goto T378;          goto T378;
661  T378:;  T378:;
662          if(!((V118)>=(V117))){          if(!((V118)>=(V117))){
663          goto T379;}          goto T379;}
664          goto T374;          goto T374;
665  goto T379;          goto T379;
666  T379:;  T379:;
667          princ_char(40,VV[7]);          princ_char(40,VV[7]);
668          V118= (long)(V118)+1;          V118= (long)(V118)+1;
669          goto T378;}          goto T378;}
670  goto T374;          goto T374;
671  T374:;  T374:;
672          (void)((*(LnkLI227))((V99),Cnil));          (void)((*(LnkLI227))((V99),Cnil));
673          {long V119;          {long V119;
674          register long V120;          register long V120;
675          V119= V109;          V119= V109;
676          V120= 0;          V120= 0;
677  goto T393;          goto T393;
678  T393:;  T393:;
679          if(!((V120)>=(V119))){          if(!((V120)>=(V119))){
680          goto T394;}          goto T394;}
681          goto T389;          goto T389;
682  goto T394;          goto T394;
683  T394:;  T394:;
684          princ_str("\n   )->c.c_cdr",VV[7]);          princ_str("\n   )->c.c_cdr",VV[7]);
685          V120= (long)(V120)+1;          V120= (long)(V120)+1;
686          goto T393;}          goto T393;}
687  goto T389;          goto T389;
688  T389:;  T389:;
689          princ_str(")->c.c_car;",VV[7]);          princ_str(")->c.c_car;",VV[7]);
690          V109= (long)(V109)+1;          V109= (long)(V109)+1;
691          V110= cdr((V110));          V110= cdr((V110));
692          goto T329;}          goto T329;}
693  goto T326;          goto T326;
694  T326:;  T326:;
695          {object V121;          {object V121;
696          object V122;          object V122;
697          V121= (V100);          V121= (V100);
698          V122= car((V121));          V122= car((V121));
699  goto T413;          goto T413;
700  T413:;  T413:;
701          if(!(endp_prop((V121)))){          if(!(endp_prop((V121)))){
702          goto T414;}          goto T414;}
703          goto T409;          goto T409;
704  goto T414;          goto T414;
705  T414:;  T414:;
706          (void)((*(LnkLI229))((V122)));          (void)((*(LnkLI229))((V122)));
707          V121= cdr((V121));          V121= cdr((V121));
708          V122= car((V121));          V122= car((V121));
709          goto T413;}          goto T413;}
710  goto T409;          goto T409;
711  T409:;  T409:;
712          if(((V101))==Cnil){          if(((V101))==Cnil){
713          goto T424;}          goto T424;}
714          (void)((*(LnkLI229))((V101)));          (void)((*(LnkLI229))((V101)));
715  goto T424;          goto T424;
716  T424:;  T424:;
717          base[8]= (V102);          base[8]= (V102);
718          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
# Line 730  static object LI8(V124) Line 730  static object LI8(V124)
730    
731  object V124;  object V124;
732  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
733  goto TTL;          goto TTL;
734  TTL:;  TTL:;
735          {object V125;          {object V125;
736          object V126;          object V126;
# Line 739  TTL:; Line 739  TTL:;
739          if(!(endp_prop((V124)))){          if(!(endp_prop((V124)))){
740          goto T430;}          goto T430;}
741          (void)((*(LnkLI209))(VV[40],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI209))(VV[40],small_fixnum(1),small_fixnum(0)));
742  goto T430;          goto T430;
743  T430:;  T430:;
744          V125= (*(LnkLI217))(car((V124)));          V125= (*(LnkLI217))(car((V124)));
745          (void)((*(LnkLI231))((V126),cadr((V125))));          (void)((*(LnkLI231))((V126),cadr((V125))));
# Line 754  static object LI9(V129) Line 754  static object LI9(V129)
754    
755  register object V129;  register object V129;
756  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
757  goto TTL;          goto TTL;
758  TTL:;  TTL:;
759          {object V130;          {object V130;
760          V130= (VFUN_NARGS=0,(*(LnkLI208))());          V130= (VFUN_NARGS=0,(*(LnkLI208))());
# Line 762  TTL:; Line 762  TTL:;
762          goto T438;}          goto T438;}
763          if(!(endp_prop(cdr((V129))))){          if(!(endp_prop(cdr((V129))))){
764          goto T437;}          goto T437;}
765  goto T438;          goto T438;
766  T438:;  T438:;
767          V131 = make_fixnum((long)length((V129)));          V131 = make_fixnum((long)length((V129)));
768          (void)((*(LnkLI209))(VV[41],small_fixnum(2),V131));          (void)((*(LnkLI209))(VV[41],small_fixnum(2),V131));
769  goto T437;          goto T437;
770  T437:;  T437:;
771          if(endp_prop(cddr((V129)))){          if(endp_prop(cddr((V129)))){
772          goto T442;}          goto T442;}
773          V132 = make_fixnum((long)length((V129)));          V132 = make_fixnum((long)length((V129)));
774          (void)((*(LnkLI210))(VV[41],small_fixnum(2),V132));          (void)((*(LnkLI210))(VV[41],small_fixnum(2),V132));
775  goto T442;          goto T442;
776  T442:;  T442:;
777          V129= (*(LnkLI219))((V129),(V130));          V129= (*(LnkLI219))((V129),(V130));
778          {object V133 = list(3,VV[41],(V130),(V129));          {object V133 = list(3,VV[41],(V130),(V129));
# Line 787  static object LI10(V135) Line 787  static object LI10(V135)
787  register object V135;  register object V135;
788  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
789          bds_check;          bds_check;
790  goto TTL;          goto TTL;
791  TTL:;  TTL:;
792          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
793          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
# Line 800  TTL:; Line 800  TTL:;
800          princ_str("FEwrong_type_argument(Scons,",VV[7]);          princ_str("FEwrong_type_argument(Scons,",VV[7]);
801          (void)((*(LnkLI213))(car((V135))));          (void)((*(LnkLI213))(car((V135))));
802          princ_str(");",VV[7]);          princ_str(");",VV[7]);
803  goto T449;          goto T449;
804  T449:;  T449:;
805          princ_str("\n   (",VV[7]);          princ_str("\n   (",VV[7]);
806          (void)((*(LnkLI213))(car((V135))));          (void)((*(LnkLI213))(car((V135))));
# Line 821  static object LI11(V138) Line 821  static object LI11(V138)
821    
822  register object V138;  register object V138;
823  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
824  goto TTL;          goto TTL;
825  TTL:;  TTL:;
826          {object V139;          {object V139;
827          V139= (VFUN_NARGS=0,(*(LnkLI208))());          V139= (VFUN_NARGS=0,(*(LnkLI208))());
# Line 829  TTL:; Line 829  TTL:;
829          goto T467;}          goto T467;}
830          if(!(endp_prop(cdr((V138))))){          if(!(endp_prop(cdr((V138))))){
831          goto T466;}          goto T466;}
832  goto T467;          goto T467;
833  T467:;  T467:;
834          V140 = make_fixnum((long)length((V138)));          V140 = make_fixnum((long)length((V138)));
835          (void)((*(LnkLI209))(VV[44],small_fixnum(2),V140));          (void)((*(LnkLI209))(VV[44],small_fixnum(2),V140));
836  goto T466;          goto T466;
837  T466:;  T466:;
838          if(endp_prop(cddr((V138)))){          if(endp_prop(cddr((V138)))){
839          goto T471;}          goto T471;}
840          V141 = make_fixnum((long)length((V138)));          V141 = make_fixnum((long)length((V138)));
841          (void)((*(LnkLI210))(VV[44],small_fixnum(2),V141));          (void)((*(LnkLI210))(VV[44],small_fixnum(2),V141));
842  goto T471;          goto T471;
843  T471:;  T471:;
844          V138= (*(LnkLI219))((V138),(V139));          V138= (*(LnkLI219))((V138),(V139));
845          {object V142 = list(3,VV[44],(V139),(V138));          {object V142 = list(3,VV[44],(V139),(V138));
# Line 854  static object LI12(V144) Line 854  static object LI12(V144)
854  register object V144;  register object V144;
855  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
856          bds_check;          bds_check;
857  goto TTL;          goto TTL;
858  TTL:;  TTL:;
859          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
860          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
# Line 867  TTL:; Line 867  TTL:;
867          princ_str("FEwrong_type_argument(Scons,",VV[7]);          princ_str("FEwrong_type_argument(Scons,",VV[7]);
868          (void)((*(LnkLI213))(car((V144))));          (void)((*(LnkLI213))(car((V144))));
869          princ_str(");",VV[7]);          princ_str(");",VV[7]);
870  goto T478;          goto T478;
871  T478:;  T478:;
872          princ_str("\n   (",VV[7]);          princ_str("\n   (",VV[7]);
873          (void)((*(LnkLI213))(car((V144))));          (void)((*(LnkLI213))(car((V144))));
# Line 888  static object LI13(V147) Line 888  static object LI13(V147)
888    
889  register object V147;  register object V147;
890  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
891  goto TTL;          goto TTL;
892  TTL:;  TTL:;
893          {object V148;          {object V148;
894          V148= (VFUN_NARGS=0,(*(LnkLI208))());          V148= (VFUN_NARGS=0,(*(LnkLI208))());
# Line 896  TTL:; Line 896  TTL:;
896          goto T496;}          goto T496;}
897          if(!(endp_prop(cdr((V147))))){          if(!(endp_prop(cdr((V147))))){
898          goto T495;}          goto T495;}
899  goto T496;          goto T496;
900  T496:;  T496:;
901          V149 = make_fixnum((long)length((V147)));          V149 = make_fixnum((long)length((V147)));
902          (void)((*(LnkLI209))(VV[46],small_fixnum(2),V149));          (void)((*(LnkLI209))(VV[46],small_fixnum(2),V149));
903  goto T495;          goto T495;
904  T495:;  T495:;
905          if(endp_prop(cddr((V147)))){          if(endp_prop(cddr((V147)))){
906          goto T500;}          goto T500;}
907          V150 = make_fixnum((long)length((V147)));          V150 = make_fixnum((long)length((V147)));
908          (void)((*(LnkLI210))(VV[46],small_fixnum(2),V150));          (void)((*(LnkLI210))(VV[46],small_fixnum(2),V150));
909  goto T500;          goto T500;
910  T500:;  T500:;
911          V151= list(2,car((V147)),cadr((V147)));          V151= list(2,car((V147)),cadr((V147)));
912          {object V152 = list(4,VV[47],(V148),VV[48],(*(LnkLI219))(/* INLINE-ARGS */V151,(V148)));          {object V152 = list(4,VV[47],(V148),VV[48],(*(LnkLI219))(/* INLINE-ARGS */V151,(V148)));
# Line 920  static object LI14(V154) Line 920  static object LI14(V154)
920    
921  register object V154;  register object V154;
922  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
923  goto TTL;          goto TTL;
924  TTL:;  TTL:;
925          {register object V155;          {register object V155;
926          V155= (VFUN_NARGS=0,(*(LnkLI208))());          V155= (VFUN_NARGS=0,(*(LnkLI208))());
# Line 928  TTL:; Line 928  TTL:;
928          goto T505;}          goto T505;}
929          if(!(endp_prop(cdr((V154))))){          if(!(endp_prop(cdr((V154))))){
930          goto T504;}          goto T504;}
931  goto T505;          goto T505;
932  T505:;  T505:;
933          V156 = make_fixnum((long)length((V154)));          V156 = make_fixnum((long)length((V154)));
934          (void)((*(LnkLI209))(VV[49],small_fixnum(2),V156));          (void)((*(LnkLI209))(VV[49],small_fixnum(2),V156));
935  goto T504;          goto T504;
936  T504:;  T504:;
937          if(!(endp_prop(cddr((V154))))){          if(!(endp_prop(cddr((V154))))){
938          goto T510;}          goto T510;}
939          {object V157 = list(4,VV[47],(V155),VV[50],(*(LnkLI219))((V154),(V155)));          {object V157 = list(4,VV[47],(V155),VV[50],(*(LnkLI219))((V154),(V155)));
940          VMR14(V157)}          VMR14(V157)}
941  goto T510;          goto T510;
942  T510:;  T510:;
943          if(!((caddr((V154)))==(VV[51]))){          if(!((caddr((V154)))==(VV[51]))){
944          goto T513;}          goto T513;}
# Line 950  T510:; Line 950  T510:;
950          goto T518;          goto T518;
951          }else V158=V158->c.c_cdr;          }else V158=V158->c.c_cdr;
952          goto T513;}          goto T513;}
953  goto T518;          goto T518;
954  T518:;  T518:;
955          V159= cadr(cadddr((V154)));          V159= cadr(cadddr((V154)));
956          V160= list(2,car((V154)),cadr((V154)));          V160= list(2,car((V154)),cadr((V154)));
957          {object V161 = list(4,VV[47],(V155),/* INLINE-ARGS */V159,(*(LnkLI219))(/* INLINE-ARGS */V160,(V155)));          {object V161 = list(4,VV[47],(V155),/* INLINE-ARGS */V159,(*(LnkLI219))(/* INLINE-ARGS */V160,(V155)));
958          VMR14(V161)}          VMR14(V161)}
959  goto T513;          goto T513;
960  T513:;  T513:;
961          {object V162 = list(4,VV[4],(V155),VV[49],(*(LnkLI219))((V154),(V155)));          {object V162 = list(4,VV[4],(V155),VV[49],(*(LnkLI219))((V154),(V155)));
962          VMR14(V162)}}          VMR14(V162)}}
# Line 970  static object LI15(V165,V166) Line 970  static object LI15(V165,V166)
970  object V165;register object V166;  object V165;register object V166;
971  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
972          bds_check;          bds_check;
973  goto TTL;          goto TTL;
974  TTL:;  TTL:;
975          {register object V167;          {register object V167;
976          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],symbol_value(VV[20]));
# Line 991  TTL:; Line 991  TTL:;
991          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
992          princ_str("))",VV[7]);          princ_str("))",VV[7]);
993          goto T531;          goto T531;
994  goto T533;          goto T533;
995  T533:;  T533:;
996          princ_str("\n   while(V",VV[7]);          princ_str("\n   while(V",VV[7]);
997          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
998          princ_str("!=Cnil)",VV[7]);          princ_str("!=Cnil)",VV[7]);
999  goto T531;          goto T531;
1000  T531:;  T531:;
1001          if(!(((V165))==(VV[48]))){          if(!(((V165))==(VV[48]))){
1002          goto T543;}          goto T543;}
# Line 1004  T531:; Line 1004  T531:;
1004          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
1005          princ_str("->c.c_car)){",VV[7]);          princ_str("->c.c_car)){",VV[7]);
1006          goto T541;          goto T541;
1007  goto T543;          goto T543;
1008  T543:;  T543:;
1009          princ_str("\n   if(",VV[7]);          princ_str("\n   if(",VV[7]);
1010          base[3]= symbol_name((V165));          base[3]= symbol_name((V165));
# Line 1016  T543:; Line 1016  T543:;
1016          princ_str("(x,V",VV[7]);          princ_str("(x,V",VV[7]);
1017          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
1018          princ_str("->c.c_car)){",VV[7]);          princ_str("->c.c_car)){",VV[7]);
1019  goto T541;          goto T541;
1020  T541:;  T541:;
1021          if(!(type_of(symbol_value(VV[5]))==t_cons)){          if(!(type_of(symbol_value(VV[5]))==t_cons)){
1022          goto T557;}          goto T557;}
# Line 1024  T541:; Line 1024  T541:;
1024          goto T556;}          goto T556;}
1025          if(!((car(symbol_value(VV[5])))==(VV[55]))){          if(!((car(symbol_value(VV[5])))==(VV[55]))){
1026          goto T557;}          goto T557;}
1027  goto T556;          goto T556;
1028  T556:;  T556:;
1029          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));
1030          goto T555;          goto T555;
1031  goto T557;          goto T557;
1032  T557:;  T557:;
1033          V169= list(2,VV[21],(V167));          V169= list(2,VV[21],(V167));
1034          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V169,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V169,VV[56])));
1035  goto T555;          goto T555;
1036  T555:;  T555:;
1037          princ_str("\n   }else V",VV[7]);          princ_str("\n   }else V",VV[7]);
1038          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
# Line 1054  static object LI16(V172) Line 1054  static object LI16(V172)
1054    
1055  register object V172;  register object V172;
1056  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1057  goto TTL;          goto TTL;
1058  TTL:;  TTL:;
1059          {register object V173;          {register object V173;
1060          V173= (VFUN_NARGS=0,(*(LnkLI208))());          V173= (VFUN_NARGS=0,(*(LnkLI208))());
# Line 1062  TTL:; Line 1062  TTL:;
1062          goto T574;}          goto T574;}
1063          if(!(endp_prop(cdr((V172))))){          if(!(endp_prop(cdr((V172))))){
1064          goto T573;}          goto T573;}
1065  goto T574;          goto T574;
1066  T574:;  T574:;
1067          V174 = make_fixnum((long)length((V172)));          V174 = make_fixnum((long)length((V172)));
1068          (void)((*(LnkLI209))(VV[57],small_fixnum(2),V174));          (void)((*(LnkLI209))(VV[57],small_fixnum(2),V174));
1069  goto T573;          goto T573;
1070  T573:;  T573:;
1071          if(!(endp_prop(cddr((V172))))){          if(!(endp_prop(cddr((V172))))){
1072          goto T579;}          goto T579;}
1073          {object V175 = list(4,VV[58],(V173),VV[50],(*(LnkLI219))((V172),(V173)));          {object V175 = list(4,VV[58],(V173),VV[50],(*(LnkLI219))((V172),(V173)));
1074          VMR16(V175)}          VMR16(V175)}
1075  goto T579;          goto T579;
1076  T579:;  T579:;
1077          if(!((caddr((V172)))==(VV[51]))){          if(!((caddr((V172)))==(VV[51]))){
1078          goto T582;}          goto T582;}
# Line 1084  T579:; Line 1084  T579:;
1084          goto T587;          goto T587;
1085          }else V176=V176->c.c_cdr;          }else V176=V176->c.c_cdr;
1086          goto T582;}          goto T582;}
1087  goto T587;          goto T587;
1088  T587:;  T587:;
1089          V177= cadr(cadddr((V172)));          V177= cadr(cadddr((V172)));
1090          V178= list(2,car((V172)),cadr((V172)));          V178= list(2,car((V172)),cadr((V172)));
1091          {object V179 = list(4,VV[58],(V173),/* INLINE-ARGS */V177,(*(LnkLI219))(/* INLINE-ARGS */V178,(V173)));          {object V179 = list(4,VV[58],(V173),/* INLINE-ARGS */V177,(*(LnkLI219))(/* INLINE-ARGS */V178,(V173)));
1092          VMR16(V179)}          VMR16(V179)}
1093  goto T582;          goto T582;
1094  T582:;  T582:;
1095          {object V180 = list(4,VV[4],(V173),VV[57],(*(LnkLI219))((V172),(V173)));          {object V180 = list(4,VV[4],(V173),VV[57],(*(LnkLI219))((V172),(V173)));
1096          VMR16(V180)}}          VMR16(V180)}}
# Line 1104  static object LI17(V183,V184) Line 1104  static object LI17(V183,V184)
1104  object V183;register object V184;  object V183;register object V184;
1105  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1106          bds_check;          bds_check;
1107  goto TTL;          goto TTL;
1108  TTL:;  TTL:;
1109          {register object V185;          {register object V185;
1110          register object V186;          register object V186;
# Line 1118  TTL:; Line 1118  TTL:;
1118          if(!(((V183))==(VV[48]))){          if(!(((V183))==(VV[48]))){
1119          goto T596;}          goto T596;}
1120          goto T595;          goto T595;
1121  goto T596;          goto T596;
1122  T596:;  T596:;
1123          base[3]= (V186);          base[3]= (V186);
1124          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1125          Lstring_downcase();          Lstring_downcase();
1126          vs_top=sup;          vs_top=sup;
1127          V186= vs_base[0];          V186= vs_base[0];
1128  goto T595;          goto T595;
1129  T595:;  T595:;
1130          princ_str("\n   {register object x= ",VV[7]);          princ_str("\n   {register object x= ",VV[7]);
1131          (void)((*(LnkLI213))(car((V184))));          (void)((*(LnkLI213))(car((V184))));
# Line 1147  T595:; Line 1147  T595:;
1147          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
1148          princ_str("->c.c_car->c.c_car)){",VV[7]);          princ_str("->c.c_car->c.c_car)){",VV[7]);
1149          goto T608;          goto T608;
1150  goto T610;          goto T610;
1151  T610:;  T610:;
1152          princ_str("\n   while(V",VV[7]);          princ_str("\n   while(V",VV[7]);
1153          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
# Line 1160  T610:; Line 1160  T610:;
1160          princ_char(86,VV[7]);          princ_char(86,VV[7]);
1161          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
1162          princ_str("->c.c_car != Cnil){",VV[7]);          princ_str("->c.c_car != Cnil){",VV[7]);
1163  goto T608;          goto T608;
1164  T608:;  T608:;
1165          if(!(type_of(symbol_value(VV[5]))==t_cons)){          if(!(type_of(symbol_value(VV[5]))==t_cons)){
1166          goto T637;}          goto T637;}
# Line 1168  T608:; Line 1168  T608:;
1168          goto T636;}          goto T636;}
1169          if(!((car(symbol_value(VV[5])))==(VV[55]))){          if(!((car(symbol_value(VV[5])))==(VV[55]))){
1170          goto T637;}          goto T637;}
1171  goto T636;          goto T636;
1172  T636:;  T636:;
1173          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));
1174          goto T635;          goto T635;
1175  goto T637;          goto T637;
1176  T637:;  T637:;
1177          V187= list(2,VV[61],(V185));          V187= list(2,VV[61],(V185));
1178          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V187,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V187,VV[56])));
1179  goto T635;          goto T635;
1180  T635:;  T635:;
1181          princ_str("\n   }else V",VV[7]);          princ_str("\n   }else V",VV[7]);
1182          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
# Line 1206  static void L18() Line 1206  static void L18()
1206          V190=(base[1]);          V190=(base[1]);
1207          V191=(base[2]);          V191=(base[2]);
1208          vs_top=sup;          vs_top=sup;
1209  goto TTL;          goto TTL;
1210  TTL:;  TTL:;
1211          base[3]= (V189);          base[3]= (V189);
1212          base[4]= (V190);          base[4]= (V190);
# Line 1222  static object LI19(V193) Line 1222  static object LI19(V193)
1222    
1223  object V193;  object V193;
1224  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1225  goto TTL;          goto TTL;
1226  TTL:;  TTL:;
1227          if(((endp_prop(cddr((V193)))?Ct:Cnil))==Cnil){          if(((endp_prop(cddr((V193)))?Ct:Cnil))==Cnil){
1228          goto T655;}          goto T655;}
1229          {object V194 = Cnil;          {object V194 = Cnil;
1230          VMR19(V194)}          VMR19(V194)}
1231  goto T655;          goto T655;
1232  T655:;  T655:;
1233          if(endp_prop(cdddr((V193)))){          if(endp_prop(cdddr((V193)))){
1234          goto T657;}          goto T657;}
1235          {object V195 = Cnil;          {object V195 = Cnil;
1236          VMR19(V195)}          VMR19(V195)}
1237  goto T657;          goto T657;
1238  T657:;  T657:;
1239          {object V196 = (*(LnkLI234))(car((V193)));          {object V196 = (*(LnkLI234))(car((V193)));
1240          VMR19(V196)}          VMR19(V196)}
# Line 1246  static object LI20(V198) Line 1246  static object LI20(V198)
1246    
1247  object V198;  object V198;
1248  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1249  goto TTL;          goto TTL;
1250  TTL:;  TTL:;
1251          V199= make_cons(VV[62],(V198));          V199= make_cons(VV[62],(V198));
1252          {object V200 = (*(LnkLI235))(/* INLINE-ARGS */V199);          {object V200 = (*(LnkLI235))(/* INLINE-ARGS */V199);
# Line 1270  static void L21() Line 1270  static void L21()
1270          if(!((car((V202)))==(VV[63]))){          if(!((car((V202)))==(VV[63]))){
1271          goto T661;}          goto T661;}
1272          goto T660;          goto T660;
1273  goto T661;          goto T661;
1274  T661:;  T661:;
1275          base[1]= VV[64];          base[1]= VV[64];
1276          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1277          Lerror();          Lerror();
1278          vs_top=sup;          vs_top=sup;
1279  goto T660;          goto T660;
1280  T660:;  T660:;
1281          {object V203;          {object V203;
1282          V203= (*(LnkLI234))(caddr((V202)));          V203= (*(LnkLI234))(caddr((V202)));
# Line 1286  T660:; Line 1286  T660:;
1286          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1287          Lerror();          Lerror();
1288          vs_top=sup;          vs_top=sup;
1289  goto T665;          goto T665;
1290  T665:;  T665:;
1291          base[1]= (V203);          base[1]= (V203);
1292          base[2]= cdr((V201));          base[2]= cdr((V201));
# Line 1301  static object LI22(V205) Line 1301  static object LI22(V205)
1301    
1302  register object V205;  register object V205;
1303  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1304  goto TTL;          goto TTL;
1305  TTL:;  TTL:;
1306          base[0]= (V205);          base[0]= (V205);
1307          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1310  TTL:; Line 1310  TTL:;
1310          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1311          goto T670;}          goto T670;}
1312          goto T669;          goto T669;
1313  goto T670;          goto T670;
1314  T670:;  T670:;
1315          base[0]= (V205);          base[0]= (V205);
1316          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1317          Leval();          Leval();
1318          vs_top=sup;          vs_top=sup;
1319          V205= vs_base[0];          V205= vs_base[0];
1320  goto T669;          goto T669;
1321  T669:;  T669:;
1322          {object V206= (V205);          {object V206= (V205);
1323          if(!eql(V206,VV[66]))goto T675;          if(!eql(V206,VV[66]))goto T675;
1324          {object V207 = VV[67];          {object V207 = VV[67];
1325          VMR22(V207)}          VMR22(V207)}
1326  goto T675;          goto T675;
1327  T675:;  T675:;
1328          if(!eql(V206,VV[68]))goto T676;          if(!eql(V206,VV[68]))goto T676;
1329          {object V208 = VV[69];          {object V208 = VV[69];
1330          VMR22(V208)}          VMR22(V208)}
1331  goto T676;          goto T676;
1332  T676:;  T676:;
1333          if(!eql(V206,VV[70]))goto T677;          if(!eql(V206,VV[70]))goto T677;
1334          {object V209 = VV[71];          {object V209 = VV[71];
1335          VMR22(V209)}          VMR22(V209)}
1336  goto T677;          goto T677;
1337  T677:;  T677:;
1338          if(!eql(V206,VV[72]))goto T678;          if(!eql(V206,VV[72]))goto T678;
1339          {object V210 = VV[73];          {object V210 = VV[73];
1340          VMR22(V210)}          VMR22(V210)}
1341  goto T678;          goto T678;
1342  T678:;  T678:;
1343          if(!eql(V206,VV[74]))goto T679;          if(!eql(V206,VV[74]))goto T679;
1344          {object V211 = VV[75];          {object V211 = VV[75];
1345          VMR22(V211)}          VMR22(V211)}
1346  goto T679;          goto T679;
1347  T679:;  T679:;
1348          if(!eql(V206,VV[76]))goto T680;          if(!eql(V206,VV[76]))goto T680;
1349          {object V212 = VV[77];          {object V212 = VV[77];
1350          VMR22(V212)}          VMR22(V212)}
1351  goto T680;          goto T680;
1352  T680:;  T680:;
1353          if(!eql(V206,VV[78]))goto T681;          if(!eql(V206,VV[78]))goto T681;
1354          {object V213 = VV[79];          {object V213 = VV[79];
1355          VMR22(V213)}          VMR22(V213)}
1356  goto T681;          goto T681;
1357  T681:;  T681:;
1358          if(!eql(V206,VV[80]))goto T682;          if(!eql(V206,VV[80]))goto T682;
1359          {object V214 = VV[81];          {object V214 = VV[81];
1360          VMR22(V214)}          VMR22(V214)}
1361  goto T682;          goto T682;
1362  T682:;  T682:;
1363          if(!eql(V206,VV[82]))goto T683;          if(!eql(V206,VV[82]))goto T683;
1364          {object V215 = VV[83];          {object V215 = VV[83];
1365          VMR22(V215)}          VMR22(V215)}
1366  goto T683;          goto T683;
1367  T683:;  T683:;
1368          if(!eql(V206,VV[84]))goto T684;          if(!eql(V206,VV[84]))goto T684;
1369          {object V216 = VV[85];          {object V216 = VV[85];
1370          VMR22(V216)}          VMR22(V216)}
1371  goto T684;          goto T684;
1372  T684:;  T684:;
1373          {object V217 = Cnil;          {object V217 = Cnil;
1374          VMR22(V217)}}          VMR22(V217)}}
# Line 1381  static object LI23(V219) Line 1381  static object LI23(V219)
1381    
1382  object V219;  object V219;
1383  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1384  goto TTL;          goto TTL;
1385  TTL:;  TTL:;
1386          {register object V220;          {register object V220;
1387          V220= cadr((V219));{object V221;          V220= cadr((V219));{object V221;
# Line 1391  TTL:; Line 1391  TTL:;
1391          goto T688;}          goto T688;}
1392          V221= Cnil;          V221= Cnil;
1393          goto T687;          goto T687;
1394  goto T688;          goto T688;
1395  T688:;  T688:;
1396          if((fix((V222)))>=(-31)){          if((fix((V222)))>=(-31)){
1397          goto T690;}          goto T690;}
1398          V221= Cnil;          V221= Cnil;
1399          goto T687;          goto T687;
1400  goto T690;          goto T690;
1401  T690:;  T690:;
1402          V221= ((fix((V222)))<=(31)?Ct:Cnil);}          V221= ((fix((V222)))<=(31)?Ct:Cnil);}
1403  goto T687;          goto T687;
1404  T687:;  T687:;
1405          if(V221==Cnil)goto T686;          if(V221==Cnil)goto T686;
1406          {object V223 = V221;          {object V223 = V221;
1407          VMR23(V223)}          VMR23(V223)}
1408  goto T686;          goto T686;
1409  T686:;}  T686:;}
1410          if(type_of((V220))==t_cons){          if(type_of((V220))==t_cons){
1411          goto T692;}          goto T692;}
1412          {object V224 = Cnil;          {object V224 = Cnil;
1413          VMR23(V224)}          VMR23(V224)}
1414  goto T692;          goto T692;
1415  T692:;  T692:;
1416          if((car((V220)))==(VV[86])){          if((car((V220)))==(VV[86])){
1417          goto T694;}          goto T694;}
1418          {object V225 = Cnil;          {object V225 = Cnil;
1419          VMR23(V225)}          VMR23(V225)}
1420  goto T694;          goto T694;
1421  T694:;  T694:;
1422          {object V226;          {object V226;
1423          V226= cadr((V220));          V226= cadr((V220));
# Line 1437  static object LI24(V229) Line 1437  static object LI24(V229)
1437    
1438  object V229;  object V229;
1439  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1440  goto TTL;          goto TTL;
1441  TTL:;  TTL:;
1442          {register object V230;          {register object V230;
1443          register object V231;          register object V231;
# Line 1461  TTL:; Line 1461  TTL:;
1461          V232= vs_base[0];          V232= vs_base[0];
1462          if(V232==Cnil)goto T709;          if(V232==Cnil)goto T709;
1463          goto T708;          goto T708;
1464  goto T709;          goto T709;
1465  T709:;}  T709:;}
1466          base[0]= VV[88];          base[0]= VV[88];
1467          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1468          Lerror();          Lerror();
1469          vs_top=sup;          vs_top=sup;
1470  goto T708;          goto T708;
1471  T708:;  T708:;
1472          if(!(number_compare((V230),small_fixnum(0))<0)){          if(!(number_compare((V230),small_fixnum(0))<0)){
1473          goto T714;}          goto T714;}
1474          V231= VV[89];          V231= VV[89];
1475          goto T700;          goto T700;
1476  goto T714;          goto T714;
1477  T714:;  T714:;
1478          if(!(number_compare((V230),small_fixnum(0))>=0)){          if(!(number_compare((V230),small_fixnum(0))>=0)){
1479          goto T700;}          goto T700;}
1480          V231= VV[90];          V231= VV[90];
1481          goto T700;          goto T700;
1482  goto T702;          goto T702;
1483  T702:;  T702:;
1484          {object V233;          {object V233;
1485          V233= cadr((V230));          V233= cadr((V230));
# Line 1492  T702:; Line 1492  T702:;
1492          goto T722;}          goto T722;}
1493          V231= VV[90];          V231= VV[90];
1494          goto T700;          goto T700;
1495  goto T722;          goto T722;
1496  T722:;  T722:;
1497          base[0]= (V233);          base[0]= (V233);
1498          base[1]= VV[92];          base[1]= VV[92];
# Line 1503  T722:; Line 1503  T722:;
1503          goto T728;}          goto T728;}
1504          V231= VV[89];          V231= VV[89];
1505          goto T700;          goto T700;
1506  goto T728;          goto T728;
1507  T728:;  T728:;
1508          base[0]= VV[93];          base[0]= VV[93];
1509          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1510          Lerror();          Lerror();
1511          vs_top=sup;}          vs_top=sup;}
1512  goto T700;          goto T700;
1513  T700:;  T700:;
1514          V234= make_cons((V231),(V229));          V234= make_cons((V231),(V229));
1515          {object V235 = (*(LnkLI235))(/* INLINE-ARGS */V234);          {object V235 = (*(LnkLI235))(/* INLINE-ARGS */V234);
# Line 1523  static object LI25(V238,V239) Line 1523  static object LI25(V238,V239)
1523    
1524  object V238;object V239;  object V238;object V239;
1525  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1526  goto TTL;          goto TTL;
1527  TTL:;  TTL:;
1528          base[0]= (V238);          base[0]= (V238);
1529          base[1]= (V239);          base[1]= (V239);
# Line 1541  static object LI26(V243,V244) Line 1541  static object LI26(V243,V244)
1541    
1542  object V243;object V244;  object V243;object V244;
1543  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1544  goto TTL;          goto TTL;
1545  TTL:;  TTL:;
1546          base[0]= (V243);          base[0]= (V243);
1547          base[1]= (V244);          base[1]= (V244);
# Line 1565  static void L27() Line 1565  static void L27()
1565          V246=(base[0]);          V246=(base[0]);
1566          V247=(base[1]);          V247=(base[1]);
1567          vs_top=sup;          vs_top=sup;
1568  goto TTL;          goto TTL;
1569  TTL:;  TTL:;
1570          {register object V248;          {register object V248;
1571          object V249;          object V249;
# Line 1582  TTL:; Line 1582  TTL:;
1582          goto T744;}          goto T744;}
1583          V251= Cnil;          V251= Cnil;
1584          goto T743;          goto T743;
1585  goto T744;          goto T744;
1586  T744:;  T744:;
1587          if((VV[95])==(car((V248)))){          if((VV[95])==(car((V248)))){
1588          goto T747;}          goto T747;}
1589          V251= Cnil;          V251= Cnil;
1590          goto T743;          goto T743;
1591  goto T747;          goto T747;
1592  T747:;  T747:;
1593          V251= make_cons(cadr((V248)),caddr((V248)));          V251= make_cons(cadr((V248)),caddr((V248)));
1594  goto T743;          goto T743;
1595  T743:;  T743:;
1596          if(((V251))==Cnil){          if(((V251))==Cnil){
1597          goto T750;}          goto T750;}
1598          V250= (V251);          V250= (V251);
1599          goto T742;          goto T742;
1600  goto T750;          goto T750;
1601  T750:;  T750:;
1602          V250= Cnil;}          V250= Cnil;}
1603  goto T742;          goto T742;
1604  T742:;  T742:;
1605          {object V252= cdr((V250));          {object V252= cdr((V250));
1606          if(!(type_of(V252)==t_fixnum||type_of(V252)==t_bignum)){          if(!(type_of(V252)==t_fixnum||type_of(V252)==t_bignum)){
# Line 1622  T742:; Line 1622  T742:;
1622          base[3]= (*(LnkLI235))(/* INLINE-ARGS */V255);          base[3]= (*(LnkLI235))(/* INLINE-ARGS */V255);
1623          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1624          return;          return;
1625  goto T753;          goto T753;
1626  T753:;  T753:;
1627          base[3]= Cnil;          base[3]= Cnil;
1628          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1635  static object LI28(V257) Line 1635  static object LI28(V257)
1635    
1636  register object V257;  register object V257;
1637  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1638  goto TTL;          goto TTL;
1639  TTL:;  TTL:;
1640          {register object V258;          {register object V258;
1641          V258= (VFUN_NARGS=0,(*(LnkLI208))());          V258= (VFUN_NARGS=0,(*(LnkLI208))());
# Line 1645  TTL:; Line 1645  TTL:;
1645          goto T766;}          goto T766;}
1646          V259= Cnil;          V259= Cnil;
1647          goto T765;          goto T765;
1648  goto T766;          goto T766;
1649  T766:;  T766:;
1650          if((caar((V257)))==(VV[99])){          if((caar((V257)))==(VV[99])){
1651          goto T768;}          goto T768;}
1652          V259= Cnil;          V259= Cnil;
1653          goto T765;          goto T765;
1654  goto T768;          goto T768;
1655  T768:;  T768:;
1656          {object V260;          {object V260;
1657          V260= cdr(car((V257)));          V260= cdr(car((V257)));
# Line 1662  T768:; Line 1662  T768:;
1662          goto T771;}          goto T771;}
1663          V259= Cnil;          V259= Cnil;
1664          goto T765;          goto T765;
1665  goto T771;          goto T771;
1666  T771:;  T771:;
1667          V259= list(4,VV[4],(V258),VV[100],(*(LnkLI219))((V260),(V258)));}          V259= list(4,VV[4],(V258),VV[100],(*(LnkLI219))((V260),(V258)));}
1668  goto T765;          goto T765;
1669  T765:;  T765:;
1670          if(((V259))==Cnil){          if(((V259))==Cnil){
1671          goto T774;}          goto T774;}
1672          {object V261 = (V259);          {object V261 = (V259);
1673          VMR28(V261)}          VMR28(V261)}
1674  goto T774;          goto T774;
1675  T774:;  T774:;
1676          V257= (*(LnkLI219))((V257),(V258));          V257= (*(LnkLI219))((V257),(V258));
1677          {object V262 = list(4,VV[4],(V258),VV[101],(V257));          {object V262 = list(4,VV[4],(V258),VV[101],(V257));
# Line 1685  static object LI29(V264) Line 1685  static object LI29(V264)
1685    
1686  register object V264;  register object V264;
1687  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1688  goto TTL;          goto TTL;
1689  TTL:;  TTL:;
1690          {object V265;          {object V265;
1691          V265= (VFUN_NARGS=0,(*(LnkLI208))());          V265= (VFUN_NARGS=0,(*(LnkLI208))());
# Line 1693  TTL:; Line 1693  TTL:;
1693          goto T780;}          goto T780;}
1694          if(!(endp_prop(cdr((V264))))){          if(!(endp_prop(cdr((V264))))){
1695          goto T779;}          goto T779;}
1696  goto T780;          goto T780;
1697  T780:;  T780:;
1698          V266 = make_fixnum((long)length((V264)));          V266 = make_fixnum((long)length((V264)));
1699          (void)((*(LnkLI209))(VV[102],small_fixnum(2),V266));          (void)((*(LnkLI209))(VV[102],small_fixnum(2),V266));
1700  goto T779;          goto T779;
1701  T779:;  T779:;
1702          if(endp_prop(cddr((V264)))){          if(endp_prop(cddr((V264)))){
1703          goto T784;}          goto T784;}
# Line 1705  T779:; Line 1705  T779:;
1705          goto T784;}          goto T784;}
1706          V267 = make_fixnum((long)length((V264)));          V267 = make_fixnum((long)length((V264)));
1707          (void)((*(LnkLI210))(VV[102],small_fixnum(3),V267));          (void)((*(LnkLI210))(VV[102],small_fixnum(3),V267));
1708  goto T784;          goto T784;
1709  T784:;  T784:;
1710          {object V268 = list(3,VV[102],(V265),(*(LnkLI219))((V264),(V265)));          {object V268 = list(3,VV[102],(V265),(*(LnkLI219))((V264),(V265)));
1711          VMR29(V268)}}          VMR29(V268)}}
# Line 1719  static object LI30(V270) Line 1719  static object LI30(V270)
1719  register object V270;  register object V270;
1720  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1721          bds_check;          bds_check;
1722  goto TTL;          goto TTL;
1723  TTL:;  TTL:;
1724          if((symbol_value(VV[25]))==Cnil){          if((symbol_value(VV[25]))==Cnil){
1725          goto T790;}          goto T790;}
1726          {object V271 = (*(LnkLI215))(VV[102],(V270),Cnil,Ct);          {object V271 = (*(LnkLI215))(VV[102],(V270),Cnil,Ct);
1727          VMR30(V271)}          VMR30(V271)}
1728  goto T790;          goto T790;
1729  T790:;  T790:;
1730          {register object V272;          {register object V272;
1731          base[0]= symbol_value(VV[20]);          base[0]= symbol_value(VV[20]);
# Line 1737  T790:; Line 1737  T790:;
1737          goto T799;}          goto T799;}
1738          V273= VV[103];          V273= VV[103];
1739          goto T797;          goto T797;
1740  goto T799;          goto T799;
1741  T799:;  T799:;
1742          V273= VV[104];          V273= VV[104];
1743  goto T797;          goto T797;
1744  T797:;  T797:;
1745          V270= (VFUN_NARGS=2,(*(LnkLI232))((V270),V273));          V270= (VFUN_NARGS=2,(*(LnkLI232))((V270),V273));
1746          princ_str("\n   {object V",VV[7]);          princ_str("\n   {object V",VV[7]);
# Line 1768  T797:; Line 1768  T797:;
1768          goto T829;}          goto T829;}
1769          V275= caddr((V270));          V275= caddr((V270));
1770          goto T827;          goto T827;
1771  goto T829;          goto T829;
1772  T829:;  T829:;
1773          V275= Cnil;          V275= Cnil;
1774  goto T827;          goto T827;
1775  T827:;  T827:;
1776          (void)((VFUN_NARGS=1,(*(LnkLI214))(V275)));          (void)((VFUN_NARGS=1,(*(LnkLI214))(V275)));
1777          princ_char(125,VV[7]);          princ_char(125,VV[7]);
# Line 1788  static object LI31(V279,V280) Line 1788  static object LI31(V279,V280)
1788    
1789  object V279;register object V280;  object V279;register object V280;
1790  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1791  goto TTL;          goto TTL;
1792  TTL:;{object V281;  TTL:;{object V281;
1793          if((cdr((V280)))!=Cnil){          if((cdr((V280)))!=Cnil){
1794          goto T837;}          goto T837;}
1795          V281= Cnil;          V281= Cnil;
1796          goto T836;          goto T836;
1797  goto T837;          goto T837;
1798  T837:;  T837:;
1799          V281= ((symbol_value(VV[25]))==Cnil?Ct:Cnil);          V281= ((symbol_value(VV[25]))==Cnil?Ct:Cnil);
1800  goto T836;          goto T836;
1801  T836:;  T836:;
1802          if(V281==Cnil)goto T835;          if(V281==Cnil)goto T835;
1803          goto T834;          goto T834;
1804  goto T835;          goto T835;
1805  T835:;}  T835:;}
1806          {object V282 = Cnil;          {object V282 = Cnil;
1807          VMR31(V282)}          VMR31(V282)}
1808  goto T834;          goto T834;
1809  T834:;  T834:;
1810          if(((*(LnkLI240))((V280)))==Cnil){          if(((*(LnkLI240))((V280)))==Cnil){
1811          goto T840;}          goto T840;}
1812          if(!(type_of(cadr((V280)))==t_character)){          if(!(type_of(cadr((V280)))==t_character)){
1813          goto T842;}          goto T842;}
1814          V280= reverse((V280));          V280= reverse((V280));
1815  goto T842;          goto T842;
1816  T842:;  T842:;
1817          if(!(type_of(car((V280)))==t_character)){          if(!(type_of(car((V280)))==t_character)){
1818          goto T847;}          goto T847;}
# Line 1830  T842:; Line 1830  T842:;
1830          V290= list(4,VV[29],/* INLINE-ARGS */V285,/* INLINE-ARGS */V287,list(3,VV[108],/* INLINE-ARGS */V288,list(3,VV[111],/* INLINE-ARGS */V289,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V283)))))));          V290= list(4,VV[29],/* INLINE-ARGS */V285,/* INLINE-ARGS */V287,list(3,VV[108],/* INLINE-ARGS */V288,list(3,VV[111],/* INLINE-ARGS */V289,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V283)))))));
1831          {object V291 = (*(LnkLI235))(/* INLINE-ARGS */V290);          {object V291 = (*(LnkLI235))(/* INLINE-ARGS */V290);
1832          VMR31(V291)}}          VMR31(V291)}}
1833  goto T847;          goto T847;
1834  T847:;  T847:;
1835          {object V292 = Cnil;          {object V292 = Cnil;
1836          VMR31(V292)}          VMR31(V292)}
1837  goto T840;          goto T840;
1838  T840:;  T840:;
1839          {object V293 = Cnil;          {object V293 = Cnil;
1840          VMR31(V293)}          VMR31(V293)}
# Line 1847  static object LI32(V295) Line 1847  static object LI32(V295)
1847    
1848  register object V295;  register object V295;
1849  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1850  goto TTL;          goto TTL;
1851  TTL:;  TTL:;
1852          if(!(type_of((V295))==t_symbol)){          if(!(type_of((V295))==t_symbol)){
1853          goto T851;}          goto T851;}
# Line 1855  TTL:; Line 1855  TTL:;
1855          V296= (*(LnkLI235))((V295));          V296= (*(LnkLI235))((V295));
1856          {object V297 = structure_ref(cadr((V296)),VV[98],2);          {object V297 = structure_ref(cadr((V296)),VV[98],2);
1857          VMR32(V297)}}          VMR32(V297)}}
1858  goto T851;          goto T851;
1859  T851:;  T851:;
1860          base[0]= (V295);          base[0]= (V295);
1861          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 1870  T851:; Line 1870  T851:;
1870          V298= vs_base[0];          V298= vs_base[0];
1871          {object V299 = (*(LnkLI241))(V298);          {object V299 = (*(LnkLI241))(V298);
1872          VMR32(V299)}          VMR32(V299)}
1873  goto T855;          goto T855;
1874  T855:;  T855:;
1875          if(!(type_of((V295))==t_cons)){          if(!(type_of((V295))==t_cons)){
1876          goto T861;}          goto T861;}
# Line 1878  T855:; Line 1878  T855:;
1878          goto T861;}          goto T861;}
1879          {object V300 = (*(LnkLI241))(cadr((V295)));          {object V300 = (*(LnkLI241))(cadr((V295)));
1880          VMR32(V300)}          VMR32(V300)}
1881  goto T861;          goto T861;
1882  T861:;  T861:;
1883          {object V301 = Ct;          {object V301 = Ct;
1884          VMR32(V301)}          VMR32(V301)}
# Line 1891  static object LI33(V304,V305) Line 1891  static object LI33(V304,V305)
1891    
1892  object V304;register object V305;  object V304;register object V305;
1893  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1894  goto TTL;          goto TTL;
1895  TTL:;  TTL:;
1896          {register object V306;          {register object V306;
1897          V306= Cnil;          V306= Cnil;
# Line 1904  TTL:; Line 1904  TTL:;
1904          goto T870;}          goto T870;}
1905          V309= Cnil;          V309= Cnil;
1906          goto T869;          goto T869;
1907  goto T870;          goto T870;
1908  T870:;  T870:;
1909          if((car(cadr((V305))))==(VV[113])){          if((car(cadr((V305))))==(VV[113])){
1910          goto T872;}          goto T872;}
1911          V309= Cnil;          V309= Cnil;
1912          goto T869;          goto T869;
1913  goto T872;          goto T872;
1914  T872:;  T872:;
1915          V309= cadr(cadr((V305)));          V309= cadr(cadr((V305)));
1916  goto T869;          goto T869;
1917  T869:;  T869:;
1918          base[2]= (*(LnkLI239))(car((V305)));          base[2]= (*(LnkLI239))(car((V305)));
1919          base[3]= (V309);          base[3]= (V309);
# Line 1925  T869:; Line 1925  T869:;
1925          V308= Ct;          V308= Ct;
1926          {object V310 = (*(LnkLI235))((V308));          {object V310 = (*(LnkLI235))((V308));
1927          VMR33(V310)}          VMR33(V310)}
1928  goto T874;          goto T874;
1929  T874:;  T874:;
1930          if(((V309))!=Cnil){          if(((V309))!=Cnil){
1931          goto T884;}          goto T884;}
1932          V308= Cnil;          V308= Cnil;
1933          goto T882;          goto T882;
1934  goto T884;          goto T884;
1935  T884:;  T884:;
1936          {register object x= (V309),V311= symbol_value(VV[114]);          {register object x= (V309),V311= symbol_value(VV[114]);
1937          while(!endp(V311))          while(!endp(V311))
# Line 1940  T884:; Line 1940  T884:;
1940          goto T889;          goto T889;
1941          }else V311=V311->c.c_cdr;          }else V311=V311->c.c_cdr;
1942          V304= Cnil;}          V304= Cnil;}
1943  goto T889;          goto T889;
1944  T889:;  T889:;
1945          if(((V304))==Cnil){          if(((V304))==Cnil){
1946          goto T887;}          goto T887;}
1947          V308= list(2,cdr((V304)),(V307));          V308= list(2,cdr((V304)),(V307));
1948          goto T882;          goto T882;
1949  goto T887;          goto T887;
1950  T887:;  T887:;
1951          if(!(type_of((V309))==t_cons)){          if(!(type_of((V309))==t_cons)){
1952          goto T891;}          goto T891;}
# Line 1954  T887:; Line 1954  T887:;
1954          goto T894;}          goto T894;}
1955          if((cddr((V309)))==Cnil){          if((cddr((V309)))==Cnil){
1956          goto T890;}          goto T890;}
1957  goto T894;          goto T894;
1958  T894:;  T894:;
1959          {register object x= car((V309)),V312= VV[116];          {register object x= car((V309)),V312= VV[116];
1960          while(!endp(V312))          while(!endp(V312))
# Line 1962  T894:; Line 1962  T894:;
1962          goto T899;          goto T899;
1963          }else V312=V312->c.c_cdr;          }else V312=V312->c.c_cdr;
1964          goto T891;}          goto T891;}
1965  goto T899;          goto T899;
1966  T899:;  T899:;
1967          if(!(equal(caddr((V309)),VV[117]))){          if(!(equal(caddr((V309)),VV[117]))){
1968          goto T891;}          goto T891;}
1969  goto T890;          goto T890;
1970  T890:;  T890:;
1971          V306= (*(LnkLI242))(cadr((V309)));          V306= (*(LnkLI242))(cadr((V309)));
1972          if(!(((V306))==(VV[118]))){          if(!(((V306))==(VV[118]))){
1973          goto T904;}          goto T904;}
1974          V308= list(2,VV[119],(V307));          V308= list(2,VV[119],(V307));
1975          goto T882;          goto T882;
1976  goto T904;          goto T904;
1977  T904:;  T904:;
1978          if(!(((V306))==(VV[120]))){          if(!(((V306))==(VV[120]))){
1979          goto T907;}          goto T907;}
1980          V308= list(2,VV[121],(V307));          V308= list(2,VV[121],(V307));
1981          goto T882;          goto T882;
1982  goto T907;          goto T907;
1983  T907:;  T907:;
1984          V306= (VFUN_NARGS=2,(*(LnkLI243))((V306),symbol_value(VV[122])));          V306= (VFUN_NARGS=2,(*(LnkLI243))((V306),symbol_value(VV[122])));
1985          if(((V306))==Cnil){          if(((V306))==Cnil){
1986          goto T910;}          goto T910;}
1987          V308= list(3,VV[86],VV[123],list(3,VV[124],(V307),(V306)));          V308= list(3,VV[86],VV[123],list(3,VV[124],(V307),(V306)));
1988          goto T882;          goto T882;
1989  goto T910;          goto T910;
1990  T910:;  T910:;
1991          V308= Cnil;          V308= Cnil;
1992          goto T882;          goto T882;
1993  goto T891;          goto T891;
1994  T891:;  T891:;
1995          {object V313;          {object V313;
1996          if(type_of((V309))==t_cons){          if(type_of((V309))==t_cons){
1997          goto T914;}          goto T914;}
1998          V313= Cnil;          V313= Cnil;
1999          goto T913;          goto T913;
2000  goto T914;          goto T914;
2001  T914:;  T914:;
2002          if((car((V309)))==(VV[125])){          if((car((V309)))==(VV[125])){
2003          goto T916;}          goto T916;}
2004          V313= Cnil;          V313= Cnil;
2005          goto T913;          goto T913;
2006  goto T916;          goto T916;
2007  T916:;  T916:;
2008          if(type_of(cdr((V309)))==t_cons){          if(type_of(cdr((V309)))==t_cons){
2009          goto T918;}          goto T918;}
2010          V313= Cnil;          V313= Cnil;
2011          goto T913;          goto T913;
2012  goto T918;          goto T918;
2013  T918:;  T918:;
2014          if((cadr((V309)))!=Cnil){          if((cadr((V309)))!=Cnil){
2015          goto T920;}          goto T920;}
2016          V313= Cnil;          V313= Cnil;
2017          goto T913;          goto T913;
2018  goto T920;          goto T920;
2019  T920:;  T920:;
2020          if(type_of(cadr((V309)))==t_symbol){          if(type_of(cadr((V309)))==t_symbol){
2021          goto T922;}          goto T922;}
2022          V313= Cnil;          V313= Cnil;
2023          goto T913;          goto T913;
2024  goto T922;          goto T922;
2025  T922:;  T922:;
2026          base[2]= cadr((V309));          base[2]= cadr((V309));
2027          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2031  T922:; Line 2031  T922:;
2031          goto T924;}          goto T924;}
2032          V313= Cnil;          V313= Cnil;
2033          goto T913;          goto T913;
2034  goto T924;          goto T924;
2035  T924:;  T924:;
2036          if((cddr((V309)))==Cnil){          if((cddr((V309)))==Cnil){
2037          goto T927;}          goto T927;}
2038          V313= Cnil;          V313= Cnil;
2039          goto T913;          goto T913;
2040  goto T927;          goto T927;
2041  T927:;  T927:;
2042          V313= list(2,cadr((V309)),(V307));          V313= list(2,cadr((V309)),(V307));
2043  goto T913;          goto T913;
2044  T913:;  T913:;
2045          if(((V313))==Cnil){          if(((V313))==Cnil){
2046          goto T930;}          goto T930;}
2047          V308= (V313);          V308= (V313);
2048          goto T882;          goto T882;
2049  goto T930;          goto T930;
2050  T930:;  T930:;
2051          base[2]= (V309);          base[2]= (V309);
2052          base[3]= VV[96];          base[3]= VV[96];
# Line 2060  T930:; Line 2060  T930:;
2060          goto T939;}          goto T939;}
2061          V308= Cnil;          V308= Cnil;
2062          goto T882;          goto T882;
2063  goto T939;          goto T939;
2064  T939:;  T939:;
2065          base[2]= cadr((V306));          base[2]= cadr((V306));
2066          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2070  T939:; Line 2070  T939:;
2070          goto T941;}          goto T941;}
2071          V308= Cnil;          V308= Cnil;
2072          goto T882;          goto T882;
2073  goto T941;          goto T941;
2074  T941:;  T941:;
2075          base[2]= caddr((V306));          base[2]= caddr((V306));
2076          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 2080  T941:; Line 2080  T941:;
2080          goto T944;}          goto T944;}
2081          V308= Cnil;          V308= Cnil;
2082          goto T882;          goto T882;
2083  goto T944;          goto T944;
2084  T944:;  T944:;
2085          V314= list(2,VV[126],(V307));          V314= list(2,VV[126],(V307));
2086          V315= make_cons(/* INLINE-ARGS */V314,Cnil);          V315= make_cons(/* INLINE-ARGS */V314,Cnil);
# Line 2089  T944:; Line 2089  T944:;
2089          V318= list(3,VV[128],VV[129],cadr((V306)));          V318= list(3,VV[128],VV[129],cadr((V306)));
2090          V308= list(4,VV[29],/* INLINE-ARGS */V315,/* INLINE-ARGS */V317,list(4,VV[108],VV[127],/* INLINE-ARGS */V318,list(3,VV[130],VV[131],caddr((V306)))));          V308= list(4,VV[29],/* INLINE-ARGS */V315,/* INLINE-ARGS */V317,list(4,VV[108],VV[127],/* INLINE-ARGS */V318,list(3,VV[130],VV[131],caddr((V306)))));
2091          goto T882;          goto T882;
2092  goto T933;          goto T933;
2093  T933:;  T933:;
2094          if(!(type_of((V309))==t_symbol)){          if(!(type_of((V309))==t_symbol)){
2095          goto T948;}          goto T948;}
# Line 2100  T933:; Line 2100  T933:;
2100          goto T953;}          goto T953;}
2101          if((symbol_value(VV[133]))==Cnil){          if((symbol_value(VV[133]))==Cnil){
2102          goto T954;}          goto T954;}
2103  goto T953;          goto T953;
2104  T953:;  T953:;
2105          V308= (*(LnkLI245))((V307),(V306));          V308= (*(LnkLI245))((V307),(V306));
2106          goto T882;          goto T882;
2107  goto T954;          goto T954;
2108  T954:;  T954:;
2109          V308= list(3,VV[134],(V307),list(2,VV[113],(V309)));          V308= list(3,VV[134],(V307),list(2,VV[113],(V309)));
2110          goto T882;          goto T882;
2111  goto T948;          goto T948;
2112  T948:;  T948:;
2113          V308= Cnil;}          V308= Cnil;}
2114  goto T882;          goto T882;
2115  T882:;  T882:;
2116          if((V308)==Cnil){          if((V308)==Cnil){
2117          {object V319 = Cnil;          {object V319 = Cnil;
# Line 2128  static object LI34(V324,V325) Line 2128  static object LI34(V324,V325)
2128    
2129  object V324;object V325;  object V324;object V325;
2130  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
2131  goto TTL;          goto TTL;
2132  TTL:;  TTL:;
2133          {register object V326;          {register object V326;
2134          object V327;          object V327;
# Line 2149  TTL:; Line 2149  TTL:;
2149          V333= Cnil;          V333= Cnil;
2150          goto T964;}          goto T964;}
2151          base[0]=V334=MMcons(Cnil,Cnil);          base[0]=V334=MMcons(Cnil,Cnil);
2152  goto T965;          goto T965;
2153  T965:;  T965:;
2154          V337= list(2,VV[137],(V326));          V337= list(2,VV[137],(V326));
2155          (V334->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V337,(*(LnkLI247))((V335->c.c_car)));          (V334->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V337,(*(LnkLI247))((V335->c.c_car)));
# Line 2159  T965:; Line 2159  T965:;
2159          goto T964;}          goto T964;}
2160          V334=MMcdr(V334)=MMcons(Cnil,Cnil);          V334=MMcdr(V334)=MMcons(Cnil,Cnil);
2161          goto T965;}          goto T965;}
2162  goto T964;          goto T964;
2163  T964:;  T964:;
2164          V332= make_cons(VV[136],V333);          V332= make_cons(VV[136],V333);
2165          goto T960;          goto T960;
2166  goto T962;          goto T962;
2167  T962:;  T962:;
2168          V338= structure_ref((V325),VV[132],0);          V338= structure_ref((V325),VV[132],0);
2169          V332= list(3,VV[134],(V326),(*(LnkLI247))(/* INLINE-ARGS */V338));          V332= list(3,VV[134],(V326),(*(LnkLI247))(/* INLINE-ARGS */V338));
2170  goto T960;          goto T960;
2171  T960:;  T960:;
2172          {object V339 = list(3,VV[29],/* INLINE-ARGS */V330,list(3,VV[108],/* INLINE-ARGS */V331,V332));          {object V339 = list(3,VV[29],/* INLINE-ARGS */V330,list(3,VV[108],/* INLINE-ARGS */V331,V332));
2173          VMR34(V339)}}          VMR34(V339)}}
# Line 2180  static object LI35(V341) Line 2180  static object LI35(V341)
2180    
2181  object V341;  object V341;
2182  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2183  goto TTL;          goto TTL;
2184  TTL:;  TTL:;
2185          {object V342;          {object V342;
2186          V342= get((V341),VV[132],Cnil);          V342= get((V341),VV[132],Cnil);
# Line 2192  TTL:; Line 2192  TTL:;
2192          V344= Cnil;          V344= Cnil;
2193          goto T968;}          goto T968;}
2194          base[0]=V345=MMcons(Cnil,Cnil);          base[0]=V345=MMcons(Cnil,Cnil);
2195  goto T969;          goto T969;
2196  T969:;  T969:;
2197          (V345->c.c_cdr)= (*(LnkLI246))((V346->c.c_car));          (V345->c.c_cdr)= (*(LnkLI246))((V346->c.c_car));
2198          {object cdr_V345=MMcdr(V345);while(!endp(cdr_V345)) {cdr_V345=MMcdr(cdr_V345);V345=MMcdr(V345);}}          {object cdr_V345=MMcdr(V345);while(!endp(cdr_V345)) {cdr_V345=MMcdr(cdr_V345);V345=MMcdr(V345);}}
# Line 2202  T969:; Line 2202  T969:;
2202          V344= base[0];          V344= base[0];
2203          goto T968;}          goto T968;}
2204          goto T969;}          goto T969;}
2205  goto T968;          goto T968;
2206  T968:;  T968:;
2207          {object V348 = make_cons(/* INLINE-ARGS */V343,V344);          {object V348 = make_cons(/* INLINE-ARGS */V343,V344);
2208          VMR35(V348)}}          VMR35(V348)}}
# Line 2215  static object LI36(V351,V352) Line 2215  static object LI36(V351,V352)
2215    
2216  object V351;register object V352;  object V351;register object V352;
2217  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
2218  goto TTL;          goto TTL;
2219  TTL:;  TTL:;
2220          {object V353= car((V352));          {object V353= car((V352));
2221          if(type_of(V353)==t_cons||(V353)==Cnil){          if(type_of(V353)==t_cons||(V353)==Cnil){
2222          goto T972;}}          goto T972;}}
2223          {object V354 = Cnil;          {object V354 = Cnil;
2224          VMR36(V354)}          VMR36(V354)}
2225  goto T972;          goto T972;
2226  T972:;  T972:;
2227          if((symbol_value(VV[25]))==Cnil){          if((symbol_value(VV[25]))==Cnil){
2228          goto T974;}          goto T974;}
2229          {object V355 = Cnil;          {object V355 = Cnil;
2230          VMR36(V355)}          VMR36(V355)}
2231  goto T974;          goto T974;
2232  T974:;  T974:;
2233          if((cdr((V352)))!=Cnil){          if((cdr((V352)))!=Cnil){
2234          goto T976;}          goto T976;}
2235          {object V356 = Cnil;          {object V356 = Cnil;
2236          VMR36(V356)}          VMR36(V356)}
2237  goto T976;          goto T976;
2238  T976:;  T976:;
2239          if((caar((V352)))==(VV[99])){          if((caar((V352)))==(VV[99])){
2240          goto T978;}          goto T978;}
2241          {object V357 = Cnil;          {object V357 = Cnil;
2242          VMR36(V357)}          VMR36(V357)}
2243  goto T978;          goto T978;
2244  T978:;  T978:;
2245          V358= list(3,VV[138],list(3,VV[86],VV[15],cadr(car((V352)))),cadr((V352)));          V358= list(3,VV[138],list(3,VV[86],VV[15],cadr(car((V352)))),cadr((V352)));
2246          {object V359 = (*(LnkLI235))(/* INLINE-ARGS */V358);          {object V359 = (*(LnkLI235))(/* INLINE-ARGS */V358);
# Line 2253  static object LI37(V361) Line 2253  static object LI37(V361)
2253    
2254  object V361;  object V361;
2255  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
2256  goto TTL;          goto TTL;
2257  TTL:;  TTL:;
2258          {register object V362;          {register object V362;
2259          base[0]= (V361);          base[0]= (V361);
# Line 2266  TTL:; Line 2266  TTL:;
2266          goto T983;}          goto T983;}
2267          V363= Cnil;          V363= Cnil;
2268          goto T982;          goto T982;
2269  goto T983;          goto T983;
2270  T983:;  T983:;
2271          if(type_of(car((V362)))==t_cons){          if(type_of(car((V362)))==t_cons){
2272          goto T985;}          goto T985;}
2273          V363= Cnil;          V363= Cnil;
2274          goto T982;          goto T982;
2275  goto T985;          goto T985;
2276  T985:;  T985:;
2277          if((caar((V362)))==(VV[139])){          if((caar((V362)))==(VV[139])){
2278          goto T987;}          goto T987;}
2279          V363= Cnil;          V363= Cnil;
2280          goto T982;          goto T982;
2281  goto T987;          goto T987;
2282  T987:;  T987:;
2283          if(((long)length(cdar((V362))))==(2)){          if(((long)length(cdar((V362))))==(2)){
2284          goto T989;}          goto T989;}
2285          V363= Cnil;          V363= Cnil;
2286          goto T982;          goto T982;
2287  goto T989;          goto T989;
2288  T989:;  T989:;
2289          base[0]= (V361);          base[0]= (V361);
2290          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2293  T989:; Line 2293  T989:;
2293          V364= vs_base[0];          V364= vs_base[0];
2294          V365= append(V364,cdar((V362)));          V365= append(V364,cdar((V362)));
2295          V363= (*(LnkLI248))(/* INLINE-ARGS */V365);          V363= (*(LnkLI248))(/* INLINE-ARGS */V365);
2296  goto T982;          goto T982;
2297  T982:;  T982:;
2298          if(((V363))==Cnil){          if(((V363))==Cnil){
2299          goto T994;}          goto T994;}
2300          {object V366 = (V363);          {object V366 = (V363);
2301          VMR37(V366)}          VMR37(V366)}
2302  goto T994;          goto T994;
2303  T994:;  T994:;
2304          {object V367 = (V361);          {object V367 = (V361);
2305          VMR37(V367)}}}          VMR37(V367)}}}
# Line 2312  static object LI38(V370,V371) Line 2312  static object LI38(V370,V371)
2312    
2313  object V370;object V371;  object V370;object V371;
2314  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
2315  goto TTL;          goto TTL;
2316  TTL:;  TTL:;
2317          {register object V372;          {register object V372;
2318          if(((long)length((V371)))==(2)){          if(((long)length((V371)))==(2)){
2319          goto T998;}          goto T998;}
2320          V372= Cnil;          V372= Cnil;
2321          goto T997;          goto T997;
2322  goto T998;          goto T998;
2323  T998:;  T998:;
2324          V372= (*(LnkLI248))((V371));          V372= (*(LnkLI248))((V371));
2325  goto T997;          goto T997;
2326  T997:;  T997:;
2327          if(((((V372))==((V371))?Ct:Cnil))==Cnil){          if(((((V372))==((V371))?Ct:Cnil))==Cnil){
2328          goto T1000;}          goto T1000;}
2329          {object V373 = Cnil;          {object V373 = Cnil;
2330          VMR38(V373)}          VMR38(V373)}
2331  goto T1000;          goto T1000;
2332  T1000:;  T1000:;
2333          base[0]= (V372);          base[0]= (V372);
2334          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2344  T1000:; Line 2344  T1000:;
2344          V376= vs_base[0];          V376= vs_base[0];
2345          V374= make_cons(VV[141],V376);          V374= make_cons(VV[141],V376);
2346          goto T1002;          goto T1002;
2347  goto T1004;          goto T1004;
2348  T1004:;  T1004:;
2349          V374= make_cons(VV[28],(V372));          V374= make_cons(VV[28],(V372));
2350  goto T1002;          goto T1002;
2351  T1002:;  T1002:;
2352          {object V377 = (*(LnkLI235))(V374);          {object V377 = (*(LnkLI235))(V374);
2353          VMR38(V377)}}          VMR38(V377)}}
# Line 2360  static object LI39(V379) Line 2360  static object LI39(V379)
2360    
2361  register object V379;  register object V379;
2362  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
2363  goto TTL;          goto TTL;
2364  TTL:;  TTL:;
2365          if(((endp_prop((V379))?Ct:Cnil))==Cnil){          if(((endp_prop((V379))?Ct:Cnil))==Cnil){
2366          goto T1010;}          goto T1010;}
2367          {object V380 = Cnil;          {object V380 = Cnil;
2368          VMR39(V380)}          VMR39(V380)}
2369  goto T1010;          goto T1010;
2370  T1010:;  T1010:;
2371          if(((endp_prop(cdr((V379)))?Ct:Cnil))==Cnil){          if(((endp_prop(cdr((V379)))?Ct:Cnil))==Cnil){
2372          goto T1012;}          goto T1012;}
2373          {object V381 = Cnil;          {object V381 = Cnil;
2374          VMR39(V381)}          VMR39(V381)}
2375  goto T1012;          goto T1012;
2376  T1012:;  T1012:;
2377          if(endp_prop(cddr((V379)))){          if(endp_prop(cddr((V379)))){
2378          goto T1014;}          goto T1014;}
2379          {object V382 = Cnil;          {object V382 = Cnil;
2380          VMR39(V382)}          VMR39(V382)}
2381  goto T1014;          goto T1014;
2382  T1014:;  T1014:;
2383          {object V383= car((V379));          {object V383= car((V379));
2384          if(type_of(V383)==t_fixnum||          if(type_of(V383)==t_fixnum||
# Line 2390  type_of(V383)==t_complex){ Line 2390  type_of(V383)==t_complex){
2390          goto T1016;}}          goto T1016;}}
2391          {object V384 = Cnil;          {object V384 = Cnil;
2392          VMR39(V384)}          VMR39(V384)}
2393  goto T1016;          goto T1016;
2394  T1016:;  T1016:;
2395          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
2396          base[1]= car((V379));          base[1]= car((V379));
# Line 2409  static object LI40(V387) Line 2409  static object LI40(V387)
2409    
2410  register object V387;  register object V387;
2411  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
2412  goto TTL;          goto TTL;
2413  TTL:;  TTL:;
2414          {object V389= car((V387));          {object V389= car((V387));
2415          if(!eql(V389,VV[142]))goto T1022;          if(!eql(V389,VV[142]))goto T1022;
2416          V388= make_cons(VV[61],cdr((V387)));          V388= make_cons(VV[61],cdr((V387)));
2417          goto T1021;          goto T1021;
2418  goto T1022;          goto T1022;
2419  T1022:;  T1022:;
2420          if(!eql(V389,VV[80]))goto T1023;          if(!eql(V389,VV[80]))goto T1023;
2421          V388= make_cons(VV[105],cdr((V387)));          V388= make_cons(VV[105],cdr((V387)));
2422          goto T1021;          goto T1021;
2423  goto T1023;          goto T1023;
2424  T1023:;  T1023:;
2425          if(!eql(V389,VV[68]))goto T1024;          if(!eql(V389,VV[68]))goto T1024;
2426          V388= make_cons(VV[143],cdr((V387)));          V388= make_cons(VV[143],cdr((V387)));
2427          goto T1021;          goto T1021;
2428  goto T1024;          goto T1024;
2429  T1024:;  T1024:;
2430          if(!eql(V389,VV[144]))goto T1025;          if(!eql(V389,VV[144]))goto T1025;
2431          V388= make_cons(VV[145],cdr((V387)));          V388= make_cons(VV[145],cdr((V387)));
2432          goto T1021;          goto T1021;
2433  goto T1025;          goto T1025;
2434  T1025:;  T1025:;
2435          if(!eql(V389,VV[66]))goto T1026;          if(!eql(V389,VV[66]))goto T1026;
2436          V388= list(2,VV[61],make_cons(VV[146],cdr((V387))));          V388= list(2,VV[61],make_cons(VV[146],cdr((V387))));
2437          goto T1021;          goto T1021;
2438  goto T1026;          goto T1026;
2439  T1026:;  T1026:;
2440          if(!eql(V389,VV[147]))goto T1027;          if(!eql(V389,VV[147]))goto T1027;
2441          V388= list(2,VV[105],make_cons(VV[146],cdr((V387))));          V388= list(2,VV[105],make_cons(VV[146],cdr((V387))));
2442          goto T1021;          goto T1021;
2443  goto T1027;          goto T1027;
2444  T1027:;  T1027:;
2445          if(!eql(V389,VV[82]))goto T1028;          if(!eql(V389,VV[82]))goto T1028;
2446          V388= list(2,VV[143],make_cons(VV[146],cdr((V387))));          V388= list(2,VV[143],make_cons(VV[146],cdr((V387))));
2447          goto T1021;          goto T1021;
2448  goto T1028;          goto T1028;
2449  T1028:;  T1028:;
2450          if(!eql(V389,VV[84]))goto T1029;          if(!eql(V389,VV[84]))goto T1029;
2451          V388= list(2,VV[145],make_cons(VV[146],cdr((V387))));          V388= list(2,VV[145],make_cons(VV[146],cdr((V387))));
2452          goto T1021;          goto T1021;
2453  goto T1029;          goto T1029;
2454  T1029:;  T1029:;
2455          V388= Cnil;}          V388= Cnil;}
2456  goto T1021;          goto T1021;
2457  T1021:;  T1021:;
2458          {object V390 = (*(LnkLI235))(V388);          {object V390 = (*(LnkLI235))(V388);
2459          VMR40(V390)}          VMR40(V390)}
# Line 2465  static object LI41(V392) Line 2465  static object LI41(V392)
2465    
2466  register object V392;  register object V392;
2467  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2468  goto TTL;          goto TTL;
2469  TTL:;  TTL:;
2470          if(((endp_prop((V392))?Ct:Cnil))==Cnil){          if(((endp_prop((V392))?Ct:Cnil))==Cnil){
2471          goto T1030;}          goto T1030;}
2472          {object V393 = Cnil;          {object V393 = Cnil;
2473          VMR41(V393)}          VMR41(V393)}
2474  goto T1030;          goto T1030;
2475  T1030:;  T1030:;
2476          if(((endp_prop(cdr((V392)))?Ct:Cnil))==Cnil){          if(((endp_prop(cdr((V392)))?Ct:Cnil))==Cnil){
2477          goto T1032;}          goto T1032;}
2478          {object V394 = Cnil;          {object V394 = Cnil;
2479          VMR41(V394)}          VMR41(V394)}
2480  goto T1032;          goto T1032;
2481  T1032:;  T1032:;
2482          if(endp_prop(cddr((V392)))){          if(endp_prop(cddr((V392)))){
2483          goto T1034;}          goto T1034;}
2484          {object V395 = Cnil;          {object V395 = Cnil;
2485          VMR41(V395)}          VMR41(V395)}
2486  goto T1034;          goto T1034;
2487  T1034:;  T1034:;
2488          {object V396= car((V392));          {object V396= car((V392));
2489          if(type_of(V396)==t_fixnum||          if(type_of(V396)==t_fixnum||
# Line 2495  type_of(V396)==t_complex){ Line 2495  type_of(V396)==t_complex){
2495          goto T1036;}}          goto T1036;}}
2496          {object V397 = Cnil;          {object V397 = Cnil;
2497          VMR41(V397)}          VMR41(V397)}
2498  goto T1036;          goto T1036;
2499  T1036:;  T1036:;
2500          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
2501          base[1]= car((V392));          base[1]= car((V392));
# Line 2514  static object LI42(V400) Line 2514  static object LI42(V400)
2514    
2515  register object V400;  register object V400;
2516  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2517  goto TTL;          goto TTL;
2518  TTL:;  TTL:;
2519          {object V402= car((V400));          {object V402= car((V400));
2520          if(!eql(V402,VV[142]))goto T1042;          if(!eql(V402,VV[142]))goto T1042;
2521          V401= cadr((V400));          V401= cadr((V400));
2522          goto T1041;          goto T1041;
2523  goto T1042;          goto T1042;
2524  T1042:;  T1042:;
2525          if(!eql(V402,VV[80]))goto T1043;          if(!eql(V402,VV[80]))goto T1043;
2526          V401= make_cons(VV[148],cdr((V400)));          V401= make_cons(VV[148],cdr((V400)));
2527          goto T1041;          goto T1041;
2528  goto T1043;          goto T1043;
2529  T1043:;  T1043:;
2530          if(!eql(V402,VV[68]))goto T1044;          if(!eql(V402,VV[68]))goto T1044;
2531          V401= make_cons(VV[149],cdr((V400)));          V401= make_cons(VV[149],cdr((V400)));
2532          goto T1041;          goto T1041;
2533  goto T1044;          goto T1044;
2534  T1044:;  T1044:;
2535          if(!eql(V402,VV[144]))goto T1045;          if(!eql(V402,VV[144]))goto T1045;
2536          V401= make_cons(VV[150],cdr((V400)));          V401= make_cons(VV[150],cdr((V400)));
2537          goto T1041;          goto T1041;
2538  goto T1045;          goto T1045;
2539  T1045:;  T1045:;
2540          if(!eql(V402,VV[66]))goto T1046;          if(!eql(V402,VV[66]))goto T1046;
2541          V401= make_cons(VV[146],cdr((V400)));          V401= make_cons(VV[146],cdr((V400)));
2542          goto T1041;          goto T1041;
2543  goto T1046;          goto T1046;
2544  T1046:;  T1046:;
2545          if(!eql(V402,VV[147]))goto T1047;          if(!eql(V402,VV[147]))goto T1047;
2546          V401= list(2,VV[148],make_cons(VV[146],cdr((V400))));          V401= list(2,VV[148],make_cons(VV[146],cdr((V400))));
2547          goto T1041;          goto T1041;
2548  goto T1047;          goto T1047;
2549  T1047:;  T1047:;
2550          if(!eql(V402,VV[82]))goto T1048;          if(!eql(V402,VV[82]))goto T1048;
2551          V401= list(2,VV[149],make_cons(VV[146],cdr((V400))));          V401= list(2,VV[149],make_cons(VV[146],cdr((V400))));
2552          goto T1041;          goto T1041;
2553  goto T1048;          goto T1048;
2554  T1048:;  T1048:;
2555          if(!eql(V402,VV[84]))goto T1049;          if(!eql(V402,VV[84]))goto T1049;
2556          V401= list(2,VV[150],make_cons(VV[146],cdr((V400))));          V401= list(2,VV[150],make_cons(VV[146],cdr((V400))));
2557          goto T1041;          goto T1041;
2558  goto T1049;          goto T1049;
2559  T1049:;  T1049:;
2560          V401= Cnil;}          V401= Cnil;}
2561  goto T1041;          goto T1041;
2562  T1041:;  T1041:;
2563          {object V403 = (*(LnkLI235))(V401);          {object V403 = (*(LnkLI235))(V401);
2564          VMR42(V403)}          VMR42(V403)}
# Line 2570  static object LI43(V405) Line 2570  static object LI43(V405)
2570    
2571  register object V405;  register object V405;
2572  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
2573  goto TTL;          goto TTL;
2574  TTL:;  TTL:;
2575          {object V406;          {object V406;
2576          V406= (VFUN_NARGS=0,(*(LnkLI208))());          V406= (VFUN_NARGS=0,(*(LnkLI208))());
# Line 2580  TTL:; Line 2580  TTL:;
2580          goto T1052;}          goto T1052;}
2581          if(!(endp_prop(cddr((V405))))){          if(!(endp_prop(cddr((V405))))){
2582          goto T1051;}          goto T1051;}
2583  goto T1052;          goto T1052;
2584  T1052:;  T1052:;
2585          V407 = make_fixnum((long)length((V405)));          V407 = make_fixnum((long)length((V405)));
2586          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V407));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V407));
2587  goto T1051;          goto T1051;
2588  T1051:;  T1051:;
2589          if(endp_prop(cdddr((V405)))){          if(endp_prop(cdddr((V405)))){
2590          goto T1058;}          goto T1058;}
2591          V408 = make_fixnum((long)length((V405)));          V408 = make_fixnum((long)length((V405)));
2592          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V408));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V408));
2593  goto T1058;          goto T1058;
2594  T1058:;  T1058:;
2595          {object V409= cadr((V405));          {object V409= cadr((V405));
2596          if(!(type_of(V409)==t_fixnum||          if(!(type_of(V409)==t_fixnum||
# Line 2624  type_of(V409)==t_complex)){ Line 2624  type_of(V409)==t_complex)){
2624          V415= list(5,VV[29],/* INLINE-ARGS */V413,/* INLINE-ARGS */V414,list(3,VV[152],list(2,VV[61],(V410)),(V411)),(V411));          V415= list(5,VV[29],/* INLINE-ARGS */V413,/* INLINE-ARGS */V414,list(3,VV[152],list(2,VV[61],(V410)),(V411)),(V411));
2625          {object V416 = (*(LnkLI235))(/* INLINE-ARGS */V415);          {object V416 = (*(LnkLI235))(/* INLINE-ARGS */V415);
2626          VMR43(V416)}}          VMR43(V416)}}
2627  goto T1062;          goto T1062;
2628  T1062:;  T1062:;
2629          {object V417 = list(4,VV[4],(V406),VV[151],(*(LnkLI219))((V405),(V406)));          {object V417 = list(4,VV[4],(V406),VV[151],(*(LnkLI219))((V405),(V406)));
2630          VMR43(V417)}}          VMR43(V417)}}
# Line 2637  static object LI44(V420,V421) Line 2637  static object LI44(V420,V421)
2637    
2638  register object V420;object V421;  register object V420;object V421;
2639  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
2640  goto TTL;          goto TTL;
2641  TTL:;  TTL:;
2642          if((symbol_value(VV[25]))!=Cnil){          if((symbol_value(VV[25]))!=Cnil){
2643          goto T1072;}          goto T1072;}
# Line 2656  TTL:; Line 2656  TTL:;
2656          V422= car((V420));          V422= car((V420));
2657          if(V422==Cnil)goto T1085;          if(V422==Cnil)goto T1085;
2658          goto T1084;          goto T1084;
2659  goto T1085;          goto T1085;
2660  T1085:;}  T1085:;}
2661          V420= make_cons(VV[156],cdr((V420)));          V420= make_cons(VV[156],cdr((V420)));
2662  goto T1084;          goto T1084;
2663  T1084:;  T1084:;
2664          {register object V423;          {register object V423;
2665          object V424;          object V424;
# Line 2673  T1084:; Line 2673  T1084:;
2673          goto T1092;}          goto T1092;}
2674          V429= VV[166];          V429= VV[166];
2675          goto T1090;          goto T1090;
2676  goto T1092;          goto T1092;
2677  T1092:;  T1092:;
2678          V429= VV[162];          V429= VV[162];
2679  goto T1090;          goto T1090;
2680  T1090:;  T1090:;
2681          V430= list(3,/* INLINE-ARGS */V425,/* INLINE-ARGS */V426,list(3,VV[159],/* INLINE-ARGS */V428,list(2,Ct,V429)));          V430= list(3,/* INLINE-ARGS */V425,/* INLINE-ARGS */V426,list(3,VV[159],/* INLINE-ARGS */V428,list(2,Ct,V429)));
2682          {object V431 = list(4,VV[29],VV[157],VV[158],list(3,VV[159],/* INLINE-ARGS */V430,list(2,Ct,list(3,(V421),(V423),(V424)))));          {object V431 = list(4,VV[29],VV[157],VV[158],list(3,VV[159],/* INLINE-ARGS */V430,list(2,Ct,list(3,(V421),(V423),(V424)))));
2683          VMR44(V431)}}          VMR44(V431)}}
2684  goto T1082;          goto T1082;
2685  T1082:;  T1082:;
2686          V432= list(2,VV[167],car((V420)));          V432= list(2,VV[167],car((V420)));
2687          V433= make_cons(/* INLINE-ARGS */V432,Cnil);          V433= make_cons(/* INLINE-ARGS */V432,Cnil);
# Line 2690  T1082:; Line 2690  T1082:;
2690          V436= make_cons(VV[167],cdr((V420)));          V436= make_cons(VV[167],cdr((V420)));
2691          {object V437 = list(4,VV[29],/* INLINE-ARGS */V433,/* INLINE-ARGS */V435,(*(LnkLI249))(/* INLINE-ARGS */V436,(V421)));          {object V437 = list(4,VV[29],/* INLINE-ARGS */V433,/* INLINE-ARGS */V435,(*(LnkLI249))(/* INLINE-ARGS */V436,(V421)));
2692          VMR44(V437)}          VMR44(V437)}
2693  goto T1072;          goto T1072;
2694  T1072:;  T1072:;
2695          {object V438 = Cnil;          {object V438 = Cnil;
2696          VMR44(V438)}          VMR44(V438)}
# Line 2704  static object LI45(V441,V442) Line 2704  static object LI45(V441,V442)
2704  object V441;object V442;  object V441;object V442;
2705  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
2706          bds_check;          bds_check;
2707  goto TTL;          goto TTL;
2708  TTL:;  TTL:;
2709          {object V443;          {object V443;
2710          V443= Cnil;          V443= Cnil;
# Line 2715  TTL:; Line 2715  TTL:;
2715          {object V444 = (*(LnkLI235))((V443));          {object V444 = (*(LnkLI235))((V443));
2716          bds_unwind1;          bds_unwind1;
2717          VMR45(V444)}          VMR45(V444)}
2718  goto T1097;          goto T1097;
2719  T1097:;  T1097:;
2720          {object V445 = Cnil;          {object V445 = Cnil;
2721          VMR45(V445)}}          VMR45(V445)}}
# Line 2729  static object LI46(V448,V449) Line 2729  static object LI46(V448,V449)
2729  object V448;object V449;  object V448;object V449;
2730  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
2731          bds_check;          bds_check;
2732  goto TTL;          goto TTL;
2733  TTL:;  TTL:;
2734          {object V450;          {object V450;
2735          V450= Cnil;          V450= Cnil;
# Line 2740  TTL:; Line 2740  TTL:;
2740          {object V451 = (*(LnkLI235))((V450));          {object V451 = (*(LnkLI235))((V450));
2741          bds_unwind1;          bds_unwind1;
2742          VMR46(V451)}          VMR46(V451)}
2743  goto T1103;          goto T1103;
2744  T1103:;  T1103:;
2745          {object V452 = Cnil;          {object V452 = Cnil;
2746          VMR46(V452)}}          VMR46(V452)}}
# Line 2753  static object LI47(V455,V456) Line 2753  static object LI47(V455,V456)
2753    
2754  object V455;object V456;  object V455;object V456;
2755  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
2756  goto TTL;          goto TTL;
2757  TTL:;  TTL:;
2758          if((symbol_value(VV[25]))!=Cnil){          if((symbol_value(VV[25]))!=Cnil){
2759          goto T1107;}          goto T1107;}
# Line 2770  TTL:; Line 2770  TTL:;
2770          if((V457)!=Cnil){          if((V457)!=Cnil){
2771          goto T1115;}          goto T1115;}
2772          V457= VV[169];          V457= VV[169];
2773  goto T1115;          goto T1115;
2774  T1115:;  T1115:;
2775          if(!(type_of((V457))!=t_cons)){          if(!(type_of((V457))!=t_cons)){
2776          goto T1118;}          goto T1118;}
# Line 2778  T1115:; Line 2778  T1115:;
2778          V459= list(2,/* INLINE-ARGS */V458,list(3,VV[86],VV[96],list(3,VV[170],VV[171],(V457))));          V459= list(2,/* INLINE-ARGS */V458,list(3,VV[86],VV[96],list(3,VV[170],VV[171],(V457))));
2779          {object V460 = list(3,VV[159],/* INLINE-ARGS */V459,list(2,Ct,list(3,(V456),VV[171],(V457))));          {object V460 = list(3,VV[159],/* INLINE-ARGS */V459,list(2,Ct,list(3,(V456),VV[171],(V457))));
2780          VMR47(V460)}          VMR47(V460)}
2781  goto T1118;          goto T1118;
2782  T1118:;  T1118:;
2783          V461= list(2,VV[172],(V457));          V461= list(2,VV[172],(V457));
2784          V462= make_cons(/* INLINE-ARGS */V461,Cnil);          V462= make_cons(/* INLINE-ARGS */V461,Cnil);
# Line 2787  T1118:; Line 2787  T1118:;
2787          V465= list(2,VV[171],VV[172]);          V465= list(2,VV[171],VV[172]);
2788          {object V466 = list(4,VV[29],/* INLINE-ARGS */V462,/* INLINE-ARGS */V464,(*(LnkLI250))(/* INLINE-ARGS */V465,(V456)));          {object V466 = list(4,VV[29],/* INLINE-ARGS */V462,/* INLINE-ARGS */V464,(*(LnkLI250))(/* INLINE-ARGS */V465,(V456)));
2789          VMR47(V466)}}          VMR47(V466)}}
2790  goto T1107;          goto T1107;
2791  T1107:;  T1107:;
2792          {object V467 = Cnil;          {object V467 = Cnil;
2793          VMR47(V467)}          VMR47(V467)}
# Line 2801  static object LI48(V470,V471) Line 2801  static object LI48(V470,V471)
2801  object V470;register object V471;  object V470;register object V471;
2802  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
2803          bds_check;          bds_check;
2804  goto TTL;          goto TTL;
2805  TTL:;  TTL:;
2806          {object V472;          {object V472;
2807          V472= (*(LnkLI250))((V471),VV[173]);          V472= (*(LnkLI250))((V471),VV[173]);
# Line 2814  TTL:; Line 2814  TTL:;
2814          goto T1127;}          goto T1127;}
2815          V475= car((V471));          V475= car((V471));
2816          goto T1125;          goto T1125;
2817  goto T1127;          goto T1127;
2818  T1127:;  T1127:;
2819          V475= VV[171];          V475= VV[171];
2820  goto T1125;          goto T1125;
2821  T1125:;  T1125:;
2822          V476= list(5,VV[29],/* INLINE-ARGS */V474,VV[174],(V472),V475);          V476= list(5,VV[29],/* INLINE-ARGS */V474,VV[174],(V472),V475);
2823          {object V477 = (*(LnkLI235))(/* INLINE-ARGS */V476);          {object V477 = (*(LnkLI235))(/* INLINE-ARGS */V476);
2824          bds_unwind1;          bds_unwind1;
2825          VMR48(V477)}          VMR48(V477)}
2826  goto T1123;          goto T1123;
2827  T1123:;  T1123:;
2828          {object V478 = Cnil;          {object V478 = Cnil;
2829          VMR48(V478)}}          VMR48(V478)}}
# Line 2837  static object LI49(V481,V482) Line 2837  static object LI49(V481,V482)
2837  object V481;register object V482;  object V481;register object V482;
2838  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
2839          bds_check;          bds_check;
2840  goto TTL;          goto TTL;
2841  TTL:;  TTL:;
2842          {object V483;          {object V483;
2843          V483= (*(LnkLI250))((V482),VV[175]);          V483= (*(LnkLI250))((V482),VV[175]);
# Line 2850  TTL:; Line 2850  TTL:;
2850          goto T1136;}          goto T1136;}
2851          V486= car((V482));          V486= car((V482));
2852          goto T1134;          goto T1134;
2853  goto T1136;          goto T1136;
2854  T1136:;  T1136:;
2855          V486= VV[171];          V486= VV[171];
2856  goto T1134;          goto T1134;
2857  T1134:;  T1134:;
2858          V487= list(5,VV[29],/* INLINE-ARGS */V485,VV[176],(V483),V486);          V487= list(5,VV[29],/* INLINE-ARGS */V485,VV[176],(V483),V486);
2859          {object V488 = (*(LnkLI235))(/* INLINE-ARGS */V487);          {object V488 = (*(LnkLI235))(/* INLINE-ARGS */V487);
2860          bds_unwind1;          bds_unwind1;
2861          VMR49(V488)}          VMR49(V488)}
2862  goto T1132;          goto T1132;
2863  T1132:;  T1132:;
2864          {object V489 = Cnil;          {object V489 = Cnil;
2865          VMR49(V489)}}          VMR49(V489)}}
# Line 2872  static object LI50(V491) Line 2872  static object LI50(V491)
2872    
2873  object V491;  object V491;
2874  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
2875  goto TTL;          goto TTL;
2876  TTL:;  TTL:;
2877          {object V492= (V491);          {object V492= (V491);
2878          if((V492!= Ct))goto T1138;          if((V492!= Ct))goto T1138;
2879          {object V493 = VV[177];          {object V493 = VV[177];
2880          VMR50(V493)}          VMR50(V493)}
2881  goto T1138;          goto T1138;
2882  T1138:;  T1138:;
2883          if((V492!= VV[118])          if((V492!= VV[118])
2884          && (V492!= VV[251]))goto T1139;          && (V492!= VV[251]))goto T1139;
2885          {object V494 = VV[178];          {object V494 = VV[178];
2886          VMR50(V494)}          VMR50(V494)}
2887  goto T1139;          goto T1139;
2888  T1139:;  T1139:;
2889          if((V492!= VV[96]))goto T1140;          if((V492!= VV[96]))goto T1140;
2890          {object V495 = VV[179];          {object V495 = VV[179];
2891          VMR50(V495)}          VMR50(V495)}
2892  goto T1140;          goto T1140;
2893  T1140:;  T1140:;
2894          if((V492!= VV[252]))goto T1141;          if((V492!= VV[252]))goto T1141;
2895          {object V496 = VV[180];          {object V496 = VV[180];
2896          VMR50(V496)}          VMR50(V496)}
2897  goto T1141;          goto T1141;
2898  T1141:;  T1141:;
2899          if((V492!= VV[253]))goto T1142;          if((V492!= VV[253]))goto T1142;
2900          {object V497 = VV[181];          {object V497 = VV[181];
2901          VMR50(V497)}          VMR50(V497)}
2902  goto T1142;          goto T1142;
2903  T1142:;  T1142:;
2904          if((V492!= VV[254]))goto T1143;          if((V492!= VV[254]))goto T1143;
2905          {object V498 = VV[182];          {object V498 = VV[182];
2906          VMR50(V498)}          VMR50(V498)}
2907  goto T1143;          goto T1143;
2908  T1143:;  T1143:;
2909          if((V492!= VV[253]))goto T1144;          if((V492!= VV[253]))goto T1144;
2910          {object V499 = VV[183];          {object V499 = VV[183];
2911          VMR50(V499)}          VMR50(V499)}
2912  goto T1144;          goto T1144;
2913  T1144:;  T1144:;
2914          if((V492!= VV[255]))goto T1145;          if((V492!= VV[255]))goto T1145;
2915          {object V500 = VV[184];          {object V500 = VV[184];
2916          VMR50(V500)}          VMR50(V500)}
2917  goto T1145;          goto T1145;
2918  T1145:;  T1145:;
2919          if((V492!= VV[256]))goto T1146;          if((V492!= VV[256]))goto T1146;
2920          {object V501 = VV[185];          {object V501 = VV[185];
2921          VMR50(V501)}          VMR50(V501)}
2922  goto T1146;          goto T1146;
2923  T1146:;  T1146:;
2924          FEerror("The ECASE key value ~s is illegal.",1,V492);          FEerror("The ECASE key value ~s is illegal.",1,V492);
2925          {object V502 = Cnil;          {object V502 = Cnil;
# Line 2933  static object LI51(V505,V506) Line 2933  static object LI51(V505,V506)
2933  object V505;register object V506;  object V505;register object V506;
2934  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
2935          bds_check;          bds_check;
2936  goto TTL;          goto TTL;
2937  TTL:;  TTL:;
2938          if((symbol_value(VV[25]))!=Cnil){          if((symbol_value(VV[25]))!=Cnil){
2939          goto T1149;}          goto T1149;}
# Line 2952  TTL:; Line 2952  TTL:;
2952          goto T1157;}          goto T1157;}
2953          V513= listA(4,VV[192],VV[187],VV[188],cddr((V506)));          V513= listA(4,VV[192],VV[187],VV[188],cddr((V506)));
2954          goto T1155;          goto T1155;
2955  goto T1157;          goto T1157;
2956  T1157:;  T1157:;
2957          V513= Cnil;          V513= Cnil;
2958  goto T1155;          goto T1155;
2959  T1155:;  T1155:;
2960          V514= list(6,VV[186],/* INLINE-ARGS */V508,VV[190],/* INLINE-ARGS */V510,/* INLINE-ARGS */V512,list(3,VV[159],VV[191],list(2,Ct,V513)));          V514= list(6,VV[186],/* INLINE-ARGS */V508,VV[190],/* INLINE-ARGS */V510,/* INLINE-ARGS */V512,list(3,VV[159],VV[191],list(2,Ct,V513)));
2961          {object V515 = (*(LnkLI235))(/* INLINE-ARGS */V514);          {object V515 = (*(LnkLI235))(/* INLINE-ARGS */V514);
2962          bds_unwind1;          bds_unwind1;
2963          VMR51(V515)}          VMR51(V515)}
2964  goto T1149;          goto T1149;
2965  T1149:;  T1149:;
2966          {object V516 = Cnil;          {object V516 = Cnil;
2967          VMR51(V516)}          VMR51(V516)}
# Line 2974  static object LI52(V518) Line 2974  static object LI52(V518)
2974    
2975  register object V518;  register object V518;
2976  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
2977  goto TTL;          goto TTL;
2978  TTL:;  TTL:;
2979          base[0]= (V518);          base[0]= (V518);
2980          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 2984  TTL:; Line 2984  TTL:;
2984          goto T1160;}          goto T1160;}
2985          {object V519 = Ct;          {object V519 = Ct;
2986          VMR52(V519)}          VMR52(V519)}
2987  goto T1160;          goto T1160;
2988  T1160:;  T1160:;
2989          if(!(type_of((V518))!=t_cons)){          if(!(type_of((V518))!=t_cons)){
2990          goto T1164;}          goto T1164;}
2991          {object V520 = Cnil;          {object V520 = Cnil;
2992          VMR52(V520)}          VMR52(V520)}
2993  goto T1164;          goto T1164;
2994  T1164:;  T1164:;
2995          if(!((car((V518)))==(VV[86]))){          if(!((car((V518)))==(VV[86]))){
2996          goto T1167;}          goto T1167;}
2997          V518= caddr((V518));          V518= caddr((V518));
2998          goto TTL;          goto TTL;
2999  goto T1167;          goto T1167;
3000  T1167:;  T1167:;
3001          if(!(type_of(car((V518)))==t_symbol)){          if(!(type_of(car((V518)))==t_symbol)){
3002          goto T1172;}          goto T1172;}
# Line 3007  T1167:; Line 3007  T1167:;
3007          register object V523;          register object V523;
3008          V522= cdr((V518));          V522= cdr((V518));
3009          V523= car((V522));          V523= car((V522));
3010  goto T1181;          goto T1181;
3011  T1181:;  T1181:;
3012          if(!(endp_prop((V522)))){          if(!(endp_prop((V522)))){
3013          goto T1182;}          goto T1182;}
3014          goto T1177;          goto T1177;
3015  goto T1182;          goto T1182;
3016  T1182:;{object V524;  T1182:;{object V524;
3017          V524= (*(LnkLI257))((V523));          V524= (*(LnkLI257))((V523));
3018          if(V524==Cnil)goto T1187;          if(V524==Cnil)goto T1187;
3019          goto T1186;          goto T1186;
3020  goto T1187;          goto T1187;
3021  T1187:;}  T1187:;}
3022          {object V525 = Cnil;          {object V525 = Cnil;
3023          VMR52(V525)}          VMR52(V525)}
3024  goto T1186;          goto T1186;
3025  T1186:;  T1186:;
3026          V522= cdr((V522));          V522= cdr((V522));
3027          V523= car((V522));          V523= car((V522));
3028          goto T1181;}          goto T1181;}
3029  goto T1177;          goto T1177;
3030  T1177:;  T1177:;
3031          {object V526 = Ct;          {object V526 = Ct;
3032          VMR52(V526)}          VMR52(V526)}
3033  goto T1172;          goto T1172;
3034  T1172:;  T1172:;
3035          {object V527 = Cnil;          {object V527 = Cnil;
3036          VMR52(V527)}          VMR52(V527)}
# Line 3043  static object LI53(V530,V531) Line 3043  static object LI53(V530,V531)
3043    
3044  object V530;object V531;  object V530;object V531;
3045  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3046  goto TTL;          goto TTL;
3047  TTL:;  TTL:;
3048          base[0]= (V530);          base[0]= (V530);
3049          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3055  TTL:; Line 3055  TTL:;
3055          register object V533;          register object V533;
3056          V532= (V531);          V532= (V531);
3057          V533= car((V532));          V533= car((V532));
3058  goto T1203;          goto T1203;
3059  T1203:;  T1203:;
3060          if(!(endp_prop((V532)))){          if(!(endp_prop((V532)))){
3061          goto T1204;}          goto T1204;}
3062          goto T1199;          goto T1199;
3063  goto T1204;          goto T1204;
3064  T1204:;{object V534;  T1204:;{object V534;
3065          V534= (*(LnkLI257))((V533));          V534= (*(LnkLI257))((V533));
3066          if(V534==Cnil)goto T1209;          if(V534==Cnil)goto T1209;
3067          goto T1208;          goto T1208;
3068  goto T1209;          goto T1209;
3069  T1209:;}  T1209:;}
3070          {object V535 = Cnil;          {object V535 = Cnil;
3071          VMR53(V535)}          VMR53(V535)}
3072  goto T1208;          goto T1208;
3073  T1208:;  T1208:;
3074          V532= cdr((V532));          V532= cdr((V532));
3075          V533= car((V532));          V533= car((V532));
3076          goto T1203;}          goto T1203;}
3077  goto T1199;          goto T1199;
3078  T1199:;  T1199:;
3079          base[0]= make_cons((V530),(V531));          base[0]= make_cons((V530),(V531));
3080          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 3083  T1199:; Line 3083  T1199:;
3083          V536= vs_base[0];          V536= vs_base[0];
3084          {object V537 = (*(LnkLI235))(V536);          {object V537 = (*(LnkLI235))(V536);
3085          VMR53(V537)}          VMR53(V537)}
3086  goto T1195;          goto T1195;
3087  T1195:;  T1195:;
3088          {object V538 = Cnil;          {object V538 = Cnil;
3089          VMR53(V538)}          VMR53(V538)}
# Line 3096  static object LI54(V541,V542) Line 3096  static object LI54(V541,V542)
3096    
3097  object V541;register object V542;  object V541;register object V542;
3098  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3099  goto TTL;          goto TTL;
3100  TTL:;  TTL:;
3101          {object V544= (V541);          {object V544= (V541);
3102          if((V544!= VV[260])          if((V544!= VV[260])
# Line 3110  TTL:; Line 3110  TTL:;
3110          V547= vs_base[0];          V547= vs_base[0];
3111          V543= listA(4,(V541),/* INLINE-ARGS */V545,/* INLINE-ARGS */V546,V547);          V543= listA(4,(V541),/* INLINE-ARGS */V545,/* INLINE-ARGS */V546,V547);
3112          goto T1218;          goto T1218;
3113  goto T1219;          goto T1219;
3114  T1219:;  T1219:;
3115          if((V544!= VV[262])          if((V544!= VV[262])
3116          && (V544!= VV[263]))goto T1222;          && (V544!= VV[263]))goto T1222;
# Line 3122  T1219:; Line 3122  T1219:;
3122          V549= vs_base[0];          V549= vs_base[0];
3123          V543= listA(3,(V541),/* INLINE-ARGS */V548,V549);          V543= listA(3,(V541),/* INLINE-ARGS */V548,V549);
3124          goto T1218;          goto T1218;
3125  goto T1222;          goto T1222;
3126  T1222:;  T1222:;
3127          V543= Cnil;}          V543= Cnil;}
3128  goto T1218;          goto T1218;
3129  T1218:;  T1218:;
3130          V550= (*(LnkLI259))(V543);          V550= (*(LnkLI259))(V543);
3131          {object V551 = (*(LnkLI235))(/* INLINE-ARGS */V550);          {object V551 = (*(LnkLI235))(/* INLINE-ARGS */V550);
# Line 3139  static object LI56(V554,V555) Line 3139  static object LI56(V554,V555)
3139    
3140  object V554;register object V555;  object V554;register object V555;
3141  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3142  goto TTL;          goto TTL;
3143  TTL:;  TTL:;
3144          {register object V556;          {register object V556;
3145          V556= Cnil;switch((long)length((V555))){          V556= Cnil;switch((long)length((V555))){
3146          case 2:          case 2:
3147  goto T1230;          goto T1230;
3148  T1230:;  T1230:;
3149          V556= VV[50];          V556= VV[50];
3150          if((VV[50])!=Cnil){          if((VV[50])!=Cnil){
3151          goto T1227;}          goto T1227;}
3152          goto T1228;          goto T1228;
3153          case 4:          case 4:
3154  goto T1231;          goto T1231;
3155  T1231:;  T1231:;
3156          if((caddr((V555)))==(VV[51])){          if((caddr((V555)))==(VV[51])){
3157          goto T1234;}          goto T1234;}
3158          goto T1228;          goto T1228;
3159  goto T1234;          goto T1234;
3160  T1234:;  T1234:;
3161          {register object x= cadddr((V555)),V557= VV[195];          {register object x= cadddr((V555)),V557= VV[195];
3162          while(!endp(V557))          while(!endp(V557))
# Line 3164  T1234:; Line 3164  T1234:;
3164          goto T1238;          goto T1238;
3165          }else V557=V557->c.c_cdr;          }else V557=V557->c.c_cdr;
3166          goto T1237;}          goto T1237;}
3167  goto T1238;          goto T1238;
3168  T1238:;  T1238:;
3169          V556= VV[196];          V556= VV[196];
3170          if((VV[196])!=Cnil){          if((VV[196])!=Cnil){
3171          goto T1227;}          goto T1227;}
3172          goto T1228;          goto T1228;
3173  goto T1237;          goto T1237;
3174  T1237:;  T1237:;
3175          {register object x= cadddr((V555)),V558= VV[197];          {register object x= cadddr((V555)),V558= VV[197];
3176          while(!endp(V558))          while(!endp(V558))
# Line 3178  T1237:; Line 3178  T1237:;
3178          goto T1242;          goto T1242;
3179          }else V558=V558->c.c_cdr;          }else V558=V558->c.c_cdr;
3180          goto T1241;}          goto T1241;}
3181  goto T1242;          goto T1242;
3182  T1242:;  T1242:;
3183          V556= VV[50];          V556= VV[50];
3184          if((VV[50])!=Cnil){          if((VV[50])!=Cnil){
3185          goto T1227;}          goto T1227;}
3186          goto T1228;          goto T1228;
3187  goto T1241;          goto T1241;
3188  T1241:;  T1241:;
3189          {register object x= cadddr((V555)),V559= VV[198];          {register object x= cadddr((V555)),V559= VV[198];
3190          while(!endp(V559))          while(!endp(V559))
# Line 3192  T1241:; Line 3192  T1241:;
3192          goto T1246;          goto T1246;
3193          }else V559=V559->c.c_cdr;          }else V559=V559->c.c_cdr;
3194          goto T1245;}          goto T1245;}
3195  goto T1246;          goto T1246;
3196  T1246:;  T1246:;
3197          V556= VV[48];          V556= VV[48];
3198          if((VV[48])!=Cnil){          if((VV[48])!=Cnil){
3199          goto T1227;}          goto T1227;}
3200          goto T1228;          goto T1228;
3201  goto T1245;          goto T1245;
3202  T1245:;  T1245:;
3203          goto T1228;          goto T1228;
3204          default:          default:
3205  goto T1232;          goto T1232;
3206  T1232:;  T1232:;
3207          goto T1228;}          goto T1228;}
3208  goto T1228;          goto T1228;
3209  T1228:;  T1228:;
3210          {object V560 = Cnil;          {object V560 = Cnil;
3211          VMR55(V560)}          VMR55(V560)}
3212  goto T1227;          goto T1227;
3213  T1227:;  T1227:;
3214          {object V561;          {object V561;
3215          vs_base=vs_top;          vs_base=vs_top;
# Line 3231  static object LI57(V570,V571,V572) Line 3231  static object LI57(V570,V571,V572)
3231    
3232  object V570;object V571;object V572;  object V570;object V571;object V572;
3233  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3234  goto TTL;          goto TTL;
3235  TTL:;  TTL:;
3236          {object V573;          {object V573;
3237          V574= (VFUN_NARGS=4,(*(LnkLI264))(cadr((V572)),symbol_value(VV[200]),VV[201],VV[105]));          V574= (VFUN_NARGS=4,(*(LnkLI264))(cadr((V572)),symbol_value(VV[200]),VV[201],VV[105]));
# Line 3243  TTL:; Line 3243  TTL:;
3243          goto T1252;          goto T1252;
3244          }else V576=V576->c.c_cdr;          }else V576=V576->c.c_cdr;
3245          V575= Cnil;}          V575= Cnil;}
3246  goto T1252;          goto T1252;
3247  T1252:;  T1252:;
3248          if(V575==Cnil)goto T1251;          if(V575==Cnil)goto T1251;
3249          goto T1250;          goto T1250;
3250  goto T1251;          goto T1251;
3251  T1251:;}  T1251:;}
3252          base[0]= VV[203];          base[0]= VV[203];
3253          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3254          Lerror();          Lerror();
3255          vs_top=sup;          vs_top=sup;
3256  goto T1250;          goto T1250;
3257  T1250:;  T1250:;
3258          princ_str("(check_alist(",VV[7]);          princ_str("(check_alist(",VV[7]);
3259          (void)((*(LnkLI213))((V570)));          (void)((*(LnkLI213))((V570)));
# Line 3281  static object LI58(V580) Line 3281  static object LI58(V580)
3281    
3282  register object V580;  register object V580;
3283  {        VMB57 VMS57 VMV57  {        VMB57 VMS57 VMV57
3284  goto TTL;          goto TTL;
3285  TTL:;  TTL:;
3286          {register object V581;          {register object V581;
3287          V581= (VFUN_NARGS=0,(*(LnkLI208))());          V581= (VFUN_NARGS=0,(*(LnkLI208))());
# Line 3289  TTL:; Line 3289  TTL:;
3289          goto T1268;}          goto T1268;}
3290          if(!(endp_prop(cdr((V580))))){          if(!(endp_prop(cdr((V580))))){
3291          goto T1267;}          goto T1267;}
3292  goto T1268;          goto T1268;
3293  T1268:;  T1268:;
3294          V582 = make_fixnum((long)length((V580)));          V582 = make_fixnum((long)length((V580)));
3295          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V582));          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V582));
3296  goto T1267;          goto T1267;
3297  T1267:;  T1267:;
3298          if(endp_prop(cddr((V580)))){          if(endp_prop(cddr((V580)))){
3299          goto T1272;}          goto T1272;}
3300          V583 = make_fixnum((long)length((V580)));          V583 = make_fixnum((long)length((V580)));
3301          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V583));          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V583));
3302  goto T1272;          goto T1272;
3303  T1272:;  T1272:;
3304          {object V584= car((V580));          {object V584= car((V580));
3305          if(!(type_of(V584)==t_fixnum||          if(!(type_of(V584)==t_fixnum||
# Line 3321  type_of(V584)==t_complex)){ Line 3321  type_of(V584)==t_complex)){
3321          V586= make_cons(cadr((V580)),Cnil);          V586= make_cons(cadr((V580)),Cnil);
3322          {object V587 = list(4,VV[205],(V581),/* INLINE-ARGS */V585,(*(LnkLI219))(/* INLINE-ARGS */V586,(V581)));          {object V587 = list(4,VV[205],(V581),/* INLINE-ARGS */V585,(*(LnkLI219))(/* INLINE-ARGS */V586,(V581)));
3323          VMR57(V587)}          VMR57(V587)}
3324  goto T1276;          goto T1276;
3325  T1276:;  T1276:;
3326          {object V588 = list(4,VV[4],(V581),VV[206],(*(LnkLI219))((V580),(V581)));          {object V588 = list(4,VV[4],(V581),VV[206],(*(LnkLI219))((V580),(V581)));
3327          VMR57(V588)}}          VMR57(V588)}}
# Line 3335  static object LI59(V591,V592) Line 3335  static object LI59(V591,V592)
3335  object V591;object V592;  object V591;object V592;
3336  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
3337          bds_check;          bds_check;
3338  goto TTL;          goto TTL;
3339  TTL:;  TTL:;
3340          {object V593;          {object V593;
3341          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));
# Line 3352  TTL:; Line 3352  TTL:;
3352          register long V595;          register long V595;
3353          V594= fix((V591));          V594= fix((V591));
3354          V595= 0;          V595= 0;
3355  goto T1299;          goto T1299;
3356  T1299:;  T1299:;
3357          if(!((V595)>=(V594))){          if(!((V595)>=(V594))){
3358          goto T1300;}          goto T1300;}
3359          goto T1295;          goto T1295;
3360  goto T1300;          goto T1300;
3361  T1300:;  T1300:;
3362          princ_str("cdr(",VV[7]);          princ_str("cdr(",VV[7]);
3363          V595= (long)(V595)+1;          V595= (long)(V595)+1;
3364          goto T1299;}          goto T1299;}
3365  goto T1295;          goto T1295;
3366  T1295:;  T1295:;
3367          (void)((*(LnkLI213))(car((V592))));          (void)((*(LnkLI213))(car((V592))));
3368          {register long V596;          {register long V596;
3369          register long V597;          register long V597;
3370          V596= fix((V591));          V596= fix((V591));
3371          V597= 0;          V597= 0;
3372  goto T1315;          goto T1315;
3373  T1315:;  T1315:;
3374          if(!((V597)>=(V596))){          if(!((V597)>=(V596))){
3375          goto T1316;}          goto T1316;}
3376          goto T1311;          goto T1311;
3377  goto T1316;          goto T1316;
3378  T1316:;  T1316:;
3379          princ_char(41,VV[7]);          princ_char(41,VV[7]);
3380          V597= (long)(V597)+1;          V597= (long)(V597)+1;
3381          goto T1315;}          goto T1315;}
3382  goto T1311;          goto T1311;
3383  T1311:;  T1311:;
3384          princ_char(59,VV[7]);          princ_char(59,VV[7]);
3385          princ_str("\n   if((type_of(V",VV[7]);          princ_str("\n   if((type_of(V",VV[7]);
# Line 3391  T1311:; Line 3391  T1311:;
3391          (void)((*(LnkLI213))((V593)));          (void)((*(LnkLI213))((V593)));
3392          princ_str(");",VV[7]);          princ_str(");",VV[7]);
3393          goto T1291;          goto T1291;
3394  goto T1293;          goto T1293;
3395  T1293:;  T1293:;
3396          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
3397          (void)((*(LnkLI213))(car((V592))));          (void)((*(LnkLI213))(car((V592))));
# Line 3399  T1293:; Line 3399  T1293:;
3399          register long V599;          register long V599;
3400          V598= fix((V591));          V598= fix((V591));
3401          V599= 0;          V599= 0;
3402  goto T1343;          goto T1343;
3403  T1343:;  T1343:;
3404          if(!((V599)>=(V598))){          if(!((V599)>=(V598))){
3405          goto T1344;}          goto T1344;}
3406          goto T1339;          goto T1339;
3407  goto T1344;          goto T1344;
3408  T1344:;  T1344:;
3409          princ_str("\n   ->c.c_cdr",VV[7]);          princ_str("\n   ->c.c_cdr",VV[7]);
3410          V599= (long)(V599)+1;          V599= (long)(V599)+1;
3411          goto T1343;}          goto T1343;}
3412  goto T1339;          goto T1339;
3413  T1339:;  T1339:;
3414          princ_char(59,VV[7]);          princ_char(59,VV[7]);
3415  goto T1291;          goto T1291;
3416  T1291:;  T1291:;
3417          V600= list(2,VV[61],(V593));          V600= list(2,VV[61],(V593));
3418          (void)((VFUN_NARGS=1,(*(LnkLI214))(/* INLINE-ARGS */V600)));          (void)((VFUN_NARGS=1,(*(LnkLI214))(/* INLINE-ARGS */V600)));
# Line 3435  register object *base0; Line 3435  register object *base0;
3435          check_arg(1);          check_arg(1);
3436          V602=(base[0]);          V602=(base[0]);
3437          vs_top=sup;          vs_top=sup;
3438  goto TTL;          goto TTL;
3439  TTL:;  TTL:;
3440          {register object V603;          {register object V603;
3441          V603= Cnil;          V603= Cnil;
3442  goto T1359;          goto T1359;
3443  T1359:;  T1359:;
3444          if(!(type_of((V602))==t_cons)){          if(!(type_of((V602))==t_cons)){
3445          goto T1362;}          goto T1362;}
3446          goto T1361;          goto T1361;
3447  goto T1362;          goto T1362;
3448  T1362:;  T1362:;
3449          goto T1360;          goto T1360;
3450  goto T1361;          goto T1361;
3451  T1361:;  T1361:;
3452          {register object V604;          {register object V604;
3453          V604= car((V602));          V604= car((V602));
# Line 3465  T1361:; Line 3465  T1361:;
3465          V606= car((V602));          V606= car((V602));
3466          V602= cdr((V602));          V602= cdr((V602));
3467          goto T1364;}          goto T1364;}
3468  goto T1367;          goto T1367;
3469  T1367:;  T1367:;
3470          goto T1360;}          goto T1360;}
3471  goto T1364;          goto T1364;
3472  T1364:;  T1364:;
3473          goto T1359;          goto T1359;
3474  goto T1360;          goto T1360;
3475  T1360:;  T1360:;
3476          V607= nreverse((V603));          V607= nreverse((V603));
3477          base[1]= nconc(/* INLINE-ARGS */V607,(V602));          base[1]= nconc(/* INLINE-ARGS */V607,(V602));

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