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

Diff of /gcl/cmpnew/cmpcall.c

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

revision 1.8 by camm, Sun Feb 9 22:35:14 2003 UTC revision 1.9 by camm, Wed Feb 26 22:21:35 2003 UTC
# Line 19  static object LI1(object V1,object first Line 19  static object LI1(object V1,object first
19          else {          else {
20          V3= first;}          V3= first;}
21          --narg; goto T2;          --narg; goto T2;
22  goto T1;          goto T1;
23  T1:;  T1:;
24          V3= Cnil;          V3= Cnil;
25  goto T2;          goto T2;
26  T2:;  T2:;
27          if(type_of((V2))==t_symbol){          if(type_of((V2))==t_symbol){
28          goto T4;}          goto T4;}
29          {object V4 = Cnil;          {object V4 = Cnil;
30          VMR1(V4)}          VMR1(V4)}
31  goto T4;          goto T4;
32  T4:;  T4:;
33          if(((long)length((V3)))<(64)){          if(((long)length((V3)))<(64)){
34          goto T6;}          goto T6;}
35          {object V5 = Cnil;          {object V5 = Cnil;
36          VMR1(V5)}          VMR1(V5)}
37  goto T6;          goto T6;
38  T6:;{object V6;  T6:;{object V6;
39          if((get((V2),VV[0],Cnil))!=Cnil){          if((get((V2),VV[0],Cnil))!=Cnil){
40          goto T10;}          goto T10;}
41          V6= Cnil;          V6= Cnil;
42          goto T9;          goto T9;
43  goto T10;          goto T10;
44  T10:;  T10:;
45          V6= (type_of((V3))==t_cons||((V3))==Cnil?Ct:Cnil);          V6= (type_of((V3))==t_cons||((V3))==Cnil?Ct:Cnil);
46  goto T9;          goto T9;
47  T9:;  T9:;
48          if(V6==Cnil)goto T8;          if(V6==Cnil)goto T8;
49          {object V7 = V6;          {object V7 = V6;
50          VMR1(V7)}          VMR1(V7)}
51  goto T8;          goto T8;
52  T8:;}  T8:;}
53          if((get((V2),VV[1],Cnil))!=Cnil){          if((get((V2),VV[1],Cnil))!=Cnil){
54          goto T12;}          goto T12;}
55          {object V8 = Cnil;          {object V8 = Cnil;
56          VMR1(V8)}          VMR1(V8)}
57  goto T12;          goto T12;
58  T12:;  T12:;
59          {object V9;          {object V9;
60          V9= get((V2),VV[2],Cnil);          V9= get((V2),VV[2],Cnil);
# Line 65  T12:; Line 65  T12:;
65          goto T17;          goto T17;
66          }else V11=V11->c.c_cdr;          }else V11=V11->c.c_cdr;
67          V10= Cnil;}          V10= Cnil;}
68  goto T17;          goto T17;
69  T17:;  T17:;
70          if((V10)==Cnil){          if((V10)==Cnil){
71          goto T14;}}          goto T14;}}
72          {object V12 = Cnil;          {object V12 = Cnil;
73          VMR1(V12)}          VMR1(V12)}
74  goto T14;          goto T14;
75  T14:;  T14:;
76          {register object V13;          {register object V13;
77          register object V14;          register object V14;
78          V13= get((V2),VV[4],Cnil);          V13= get((V2),VV[4],Cnil);
79          V14= car((V13));          V14= car((V13));
80  goto T21;          goto T21;
81  T21:;  T21:;
82          if(!(endp_prop((V13)))){          if(!(endp_prop((V13)))){
83          goto T22;}          goto T22;}
84          {object V15 = Ct;          {object V15 = Ct;
85          VMR1(V15)}          VMR1(V15)}
86  goto T22;          goto T22;
87  T22:;  T22:;
88          if(!(((V14))==(VV[5]))){          if(!(((V14))==(VV[5]))){
89          goto T27;}          goto T27;}
90          goto T26;          goto T26;
91  goto T27;          goto T27;
92  T27:;{object V16;  T27:;{object V16;
93          {register object V17;          {register object V17;
94          V17= (V14);          V17= (V14);
# Line 99  T27:;{object V16; Line 99  T27:;{object V16;
99          goto T31;          goto T31;
100          }else V19=V19->c.c_cdr;          }else V19=V19->c.c_cdr;
101          V18= Cnil;}          V18= Cnil;}
102  goto T31;          goto T31;
103  T31:;  T31:;
104          V16= ((V18)==Cnil?Ct:Cnil);}          V16= ((V18)==Cnil?Ct:Cnil);}
105          if(V16==Cnil)goto T29;          if(V16==Cnil)goto T29;
106          goto T26;          goto T26;
107  goto T29;          goto T29;
108  T29:;}  T29:;}
109          {object V20 = Cnil;          {object V20 = Cnil;
110          VMR1(V20)}          VMR1(V20)}
111  goto T26;          goto T26;
112  T26:;  T26:;
113          V13= cdr((V13));          V13= cdr((V13));
114          V14= car((V13));          V14= car((V13));
# Line 123  static object LI2(V22) Line 123  static object LI2(V22)
123    
124  object V22;  object V22;
125  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
126  goto TTL;          goto TTL;
127  TTL:;  TTL:;
128          {object V23;          {object V23;
129          V23= Cnil;          V23= Cnil;
# Line 134  TTL:; Line 134  TTL:;
134          goto T43;}          goto T43;}
135          {object V24 = Cnil;          {object V24 = Cnil;
136          VMR2(V24)}          VMR2(V24)}
137  goto T43;          goto T43;
138  T43:;  T43:;
139          {object V25 = (V23);          {object V25 = (V23);
140          VMR2(V25)}          VMR2(V25)}
141  goto T39;          goto T39;
142  T39:;  T39:;
143          base[0]= (V22);          base[0]= (V22);
144          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 156  static object LI3(V28) Line 156  static object LI3(V28)
156  register object V28;  register object V28;
157  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
158          bds_check;          bds_check;
159  goto TTL;          goto TTL;
160  TTL:;  TTL:;
161          {register object V29;          {register object V29;
162          V29= Cnil;          V29= Cnil;
# Line 167  TTL:; Line 167  TTL:;
167          if(((*(LnkLI101))(car((V28))))==Cnil){          if(((*(LnkLI101))(car((V28))))==Cnil){
168          goto T47;}          goto T47;}
169          V28= (*(LnkLI102))((V28));          V28= (*(LnkLI102))((V28));
170  goto T47;          goto T47;
171  T47:;{object V30;  T47:;{object V30;
172          if(type_of((V28))==t_cons){          if(type_of((V28))==t_cons){
173          goto T57;}          goto T57;}
174          V30= Cnil;          V30= Cnil;
175          goto T56;          goto T56;
176  goto T57;          goto T57;
177  T57:;{object V31;  T57:;{object V31;
178          if((car((V28)))==(VV[7])){          if((car((V28)))==(VV[7])){
179          goto T61;}          goto T61;}
180          V31= Cnil;          V31= Cnil;
181          goto T60;          goto T60;
182  goto T61;          goto T61;
183  T61:;  T61:;
184          if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){          if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){
185          goto T63;}          goto T63;}
186          V31= Cnil;          V31= Cnil;
187          goto T60;          goto T60;
188  goto T63;          goto T63;
189  T63:;  T63:;
190          if(endp_prop(cddr((V28)))){          if(endp_prop(cddr((V28)))){
191          goto T65;}          goto T65;}
192          V31= Cnil;          V31= Cnil;
193          goto T60;          goto T60;
194  goto T65;          goto T65;
195  T65:;{object V32;  T65:;{object V32;
196          if(type_of(cadr((V28)))==t_cons){          if(type_of(cadr((V28)))==t_cons){
197          goto T69;}          goto T69;}
198          V32= Cnil;          V32= Cnil;
199          goto T68;          goto T68;
200  goto T69;          goto T69;
201  T69:;  T69:;
202          if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){          if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){
203          goto T71;}          goto T71;}
204          V32= Cnil;          V32= Cnil;
205          goto T68;          goto T68;
206  goto T71;          goto T71;
207  T71:;  T71:;
208          if((caadr((V28)))==(VV[8])){          if((caadr((V28)))==(VV[8])){
209          goto T73;}          goto T73;}
210          V32= Cnil;          V32= Cnil;
211          goto T68;          goto T68;
212  goto T73;          goto T73;
213  T73:;  T73:;
214          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
215          bds_bind(VV[10],Cnil);          bds_bind(VV[10],Cnil);
# Line 223  T73:; Line 223  T73:;
223          bds_unwind1;          bds_unwind1;
224          bds_unwind1;          bds_unwind1;
225          V32= V34;}          V32= V34;}
226  goto T68;          goto T68;
227  T68:;  T68:;
228          if(V32==Cnil)goto T67;          if(V32==Cnil)goto T67;
229          V31= V32;          V31= V32;
230          goto T60;          goto T60;
231  goto T67;          goto T67;
232  T67:;}  T67:;}
233          if(type_of(cadr((V28)))==t_symbol){          if(type_of(cadr((V28)))==t_symbol){
234          goto T76;}          goto T76;}
235          V31= Cnil;          V31= Cnil;
236          goto T60;          goto T60;
237  goto T76;          goto T76;
238  T76:;{object V35;  T76:;{object V35;
239          V29= (*(LnkLI100))(cadr((V28)));          V29= (*(LnkLI100))(cadr((V28)));
240          if(((V29))!=Cnil){          if(((V29))!=Cnil){
241          goto T80;}          goto T80;}
242          V35= Cnil;          V35= Cnil;
243          goto T79;          goto T79;
244  goto T80;          goto T80;
245  T80:;  T80:;
246          if((car((V29)))==(VV[6])){          if((car((V29)))==(VV[6])){
247          goto T83;}          goto T83;}
248          V35= Cnil;          V35= Cnil;
249          goto T79;          goto T79;
250  goto T83;          goto T83;
251  T83:;  T83:;
252          V35= (V29);          V35= (V29);
253  goto T79;          goto T79;
254  T79:;  T79:;
255          if(V35==Cnil)goto T78;          if(V35==Cnil)goto T78;
256          V31= V35;          V31= V35;
257          goto T60;          goto T60;
258  goto T78;          goto T78;
259  T78:;}  T78:;}
260          V36= get(cadr((V28)),VV[16],Cnil);          V36= get(cadr((V28)),VV[16],Cnil);
261          V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil)));          V37= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V36)==Cnil?Ct:Cnil)));
262          V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28)));          V31= list(3,VV[14],/* INLINE-ARGS */V37,cadr((V28)));
263  goto T60;          goto T60;
264  T60:;  T60:;
265          if(V31==Cnil)goto T59;          if(V31==Cnil)goto T59;
266          V30= V31;          V30= V31;
267          goto T56;          goto T56;
268  goto T59;          goto T59;
269  T59:;}  T59:;}
270          if((car((V28)))==(VV[17])){          if((car((V28)))==(VV[17])){
271          goto T86;}          goto T86;}
272          V30= Cnil;          V30= Cnil;
273          goto T56;          goto T56;
274  goto T86;          goto T86;
275  T86:;  T86:;
276          if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){          if(((endp_prop(cdr((V28)))?Ct:Cnil))==Cnil){
277          goto T88;}          goto T88;}
278          V30= Cnil;          V30= Cnil;
279          goto T56;          goto T56;
280  goto T88;          goto T88;
281  T88:;  T88:;
282          if(endp_prop(cddr((V28)))){          if(endp_prop(cddr((V28)))){
283          goto T90;}          goto T90;}
284          V30= Cnil;          V30= Cnil;
285          goto T56;          goto T56;
286  goto T90;          goto T90;
287  T90:;{object V38;  T90:;{object V38;
288          if(type_of(cadr((V28)))==t_cons){          if(type_of(cadr((V28)))==t_cons){
289          goto T94;}          goto T94;}
290          V38= Cnil;          V38= Cnil;
291          goto T93;          goto T93;
292  goto T94;          goto T94;
293  T94:;  T94:;
294          if((caadr((V28)))==(VV[8])){          if((caadr((V28)))==(VV[8])){
295          goto T96;}          goto T96;}
296          V38= Cnil;          V38= Cnil;
297          goto T93;          goto T93;
298  goto T96;          goto T96;
299  T96:;  T96:;
300          if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){          if(((endp_prop(cdadr((V28)))?Ct:Cnil))==Cnil){
301          goto T98;}          goto T98;}
302          V38= Cnil;          V38= Cnil;
303          goto T93;          goto T93;
304  goto T98;          goto T98;
305  T98:;  T98:;
306          {object V39;          {object V39;
307          V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28))));          V39= (VFUN_NARGS=1,(*(LnkLI103))(cdadr((V28))));
308          V38= list(3,VV[13],cadr((V39)),(V39));}          V38= list(3,VV[13],cadr((V39)),(V39));}
309  goto T93;          goto T93;
310  T93:;  T93:;
311          if(V38==Cnil)goto T92;          if(V38==Cnil)goto T92;
312          V30= V38;          V30= V38;
313          goto T56;          goto T56;
314  goto T92;          goto T92;
315  T92:;}  T92:;}
316          if(type_of(cadr((V28)))==t_symbol){          if(type_of(cadr((V28)))==t_symbol){
317          goto T101;}          goto T101;}
318          V30= Cnil;          V30= Cnil;
319          goto T56;          goto T56;
320  goto T101;          goto T101;
321  T101:;{object V40;  T101:;{object V40;
322          V29= (*(LnkLI100))(cadr((V28)));          V29= (*(LnkLI100))(cadr((V28)));
323          if(((V29))!=Cnil){          if(((V29))!=Cnil){
324          goto T105;}          goto T105;}
325          V40= Cnil;          V40= Cnil;
326          goto T104;          goto T104;
327  goto T105;          goto T105;
328  T105:;  T105:;
329          if((car((V29)))==(VV[6])){          if((car((V29)))==(VV[6])){
330          goto T108;}          goto T108;}
331          V40= Cnil;          V40= Cnil;
332          goto T104;          goto T104;
333  goto T108;          goto T108;
334  T108:;  T108:;
335          V40= (V29);          V40= (V29);
336  goto T104;          goto T104;
337  T104:;  T104:;
338          if(V40==Cnil)goto T103;          if(V40==Cnil)goto T103;
339          V30= V40;          V30= V40;
340          goto T56;          goto T56;
341  goto T103;          goto T103;
342  T103:;}  T103:;}
343          V41= get(cadr((V28)),VV[16],Cnil);          V41= get(cadr((V28)),VV[16],Cnil);
344          V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil)));          V42= (VFUN_NARGS=2,(*(LnkLI104))(VV[15],((V41)==Cnil?Ct:Cnil)));
345          V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28)));          V30= list(3,VV[14],/* INLINE-ARGS */V42,cadr((V28)));
346  goto T56;          goto T56;
347  T56:;  T56:;
348          if(V30==Cnil)goto T55;          if(V30==Cnil)goto T55;
349          {object V43 = V30;          {object V43 = V30;
350          VMR3(V43)}          VMR3(V43)}
351  goto T55;          goto T55;
352  T55:;}  T55:;}
353          {object V44;          {object V44;
354          object V45;          object V45;
# Line 366  static object LI4(V48) Line 366  static object LI4(V48)
366    
367  register object V48;  register object V48;
368  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
369  goto TTL;          goto TTL;
370  TTL:;  TTL:;
371          {object V49;          {object V49;
372          object V50;          object V50;
# Line 405  static object LI5(object V55,object V54, Line 405  static object LI5(object V55,object V54,
405          else {          else {
406          V59= va_arg(ap,object);}          V59= va_arg(ap,object);}
407          --narg; goto T120;          --narg; goto T120;
408  goto T118;          goto T118;
409  T118:;  T118:;
410          V58= Cnil;          V58= Cnil;
411  goto T119;          goto T119;
412  T119:;  T119:;
413          V59= Cnil;          V59= Cnil;
414  goto T120;          goto T120;
415  T120:;  T120:;
416          {object V60= car((V56));          {object V60= car((V56));
417          if((V60!= VV[14]))goto T123;          if((V60!= VV[14]))goto T123;
418          {object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct);          {object V61 = (*(LnkLI108))(caddr((V56)),(V57),(V58),Ct);
419          VMR5(V61)}          VMR5(V61)}
420  goto T123;          goto T123;
421  T123:;  T123:;
422          if((V60!= VV[6]))goto T124;          if((V60!= VV[6]))goto T124;
423          {object V62 = (*(LnkLI109))(cddr((V56)),(V57));          {object V62 = (*(LnkLI109))(cddr((V56)),(V57));
424          VMR5(V62)}          VMR5(V62)}
425  goto T124;          goto T124;
426  T124:;  T124:;
427          if((V60!= VV[13]))goto T125;          if((V60!= VV[13]))goto T125;
428          {object V63 = (*(LnkLI110))(caddr((V56)),(V57));          {object V63 = (*(LnkLI110))(caddr((V56)),(V57));
429          VMR5(V63)}          VMR5(V63)}
430  goto T125;          goto T125;
431  T125:;  T125:;
432          if((V60!= VV[18]))goto T126;          if((V60!= VV[18]))goto T126;
433          {register object V64;          {register object V64;
# Line 444  T125:; Line 444  T125:;
444          goto T137;}          goto T137;}
445          if((car(symbol_value(VV[21])))==(VV[23])){          if((car(symbol_value(VV[21])))==(VV[23])){
446          goto T130;}          goto T130;}
447  goto T137;          goto T137;
448  T137:;  T137:;
449          if(((V59))==Cnil){          if(((V59))==Cnil){
450          goto T129;}          goto T129;}
451          V65= structure_ref((V59),VV[24],2);          V65= structure_ref((V59),VV[24],2);
452          if(!(equal(/* INLINE-ARGS */V65,VV[25]))){          if(!(equal(/* INLINE-ARGS */V65,VV[25]))){
453          goto T129;}          goto T129;}
454  goto T130;          goto T130;
455  T130:;  T130:;
456          (void)((*(LnkLI111))((V64),(V57),(V59)));          (void)((*(LnkLI111))((V64),(V57),(V59)));
457          {object V66 = Cnil;          {object V66 = Cnil;
458          bds_unwind1;          bds_unwind1;
459          VMR5(V66)}          VMR5(V66)}
460  goto T129;          goto T129;
461  T129:;  T129:;
462          if(((V58))!=Cnil){          if(((V58))!=Cnil){
463          goto T145;}          goto T145;}
464          if(type_of((V57))==t_cons||((V57))==Cnil){          if(type_of((V57))==t_cons||((V57))==Cnil){
465          goto T148;}          goto T148;}
466          (void)((*(LnkLI112))());          (void)((*(LnkLI112))());
467  goto T148;          goto T148;
468  T148:;  T148:;
469          if(!((car((V64)))==(VV[26]))){          if(!((car((V64)))==(VV[26]))){
470          goto T152;}          goto T152;}
471          V58= caddr((V64));          V58= caddr((V64));
472          goto T145;          goto T145;
473  goto T152;          goto T152;
474  T152:;  T152:;
475          if(!((car((V64)))==(VV[23]))){          if(!((car((V64)))==(VV[23]))){
476          goto T156;}          goto T156;}
# Line 478  T152:; Line 478  T152:;
478          goto T156;}          goto T156;}
479          V58= make_cons(VV[23],caddr((V64)));          V58= make_cons(VV[23],caddr((V64)));
480          goto T145;          goto T145;
481  goto T156;          goto T156;
482  T156:;  T156:;
483          V58= list(2,VV[27],(*(LnkLI114))());          V58= list(2,VV[27],(*(LnkLI114))());
484          bds_bind(VV[21],(V58));          bds_bind(VV[21],(V58));
485          V67= (*(LnkLI115))(caddr((V56)));          V67= (*(LnkLI115))(caddr((V56)));
486          bds_unwind1;          bds_unwind1;
487  goto T145;          goto T145;
488  T145:;  T145:;
489          (void)((*(LnkLI116))((V57)));          (void)((*(LnkLI116))((V57)));
490          if((symbol_value(VV[28]))==Cnil){          if((symbol_value(VV[28]))==Cnil){
# Line 493  T145:; Line 493  T145:;
493          (void)((*(LnkLI117))((V58)));          (void)((*(LnkLI117))((V58)));
494          princ_str(");",VV[29]);          princ_str(");",VV[29]);
495          goto T164;          goto T164;
496  goto T166;          goto T166;
497  T166:;  T166:;
498          if((symbol_value(VV[30]))==Cnil){          if((symbol_value(VV[30]))==Cnil){
499          goto T172;}          goto T172;}
# Line 501  T166:; Line 501  T166:;
501          (type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)):          (type_of(symbol_value(VV[30])) == t_sfun ?(*((symbol_value(VV[30]))->sfn.sfn_self)):
502          (fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58))));          (fcall.fun=(symbol_value(VV[30])),fcall.argd=1,fcalln))((V58))));
503          goto T164;          goto T164;
504  goto T172;          goto T172;
505  T172:;  T172:;
506          princ_str("\n   super_funcall_no_event(",VV[29]);          princ_str("\n   super_funcall_no_event(",VV[29]);
507          (void)((*(LnkLI117))((V58)));          (void)((*(LnkLI117))((V58)));
508          princ_str(");",VV[29]);          princ_str(");",VV[29]);
509  goto T164;          goto T164;
510  T164:;  T164:;
511          {object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          {object V68 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
512          bds_unwind1;          bds_unwind1;
513          VMR5(V68)}}          VMR5(V68)}}
514  goto T126;          goto T126;
515  T126:;  T126:;
516          {object V69 = (*(LnkLI112))();          {object V69 = (*(LnkLI112))();
517          VMR5(V69)}}          VMR5(V69)}}
# Line 540  static object LI6(object first,...) Line 540  static object LI6(object first,...)
540          goto T182;}          goto T182;}
541          if((car((V72)))==(VV[23])){          if((car((V72)))==(VV[23])){
542          goto T181;}          goto T181;}
543  goto T182;          goto T182;
544  T182:;  T182:;
545          V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))()));          V72= list(2,VV[33],(VFUN_NARGS=0,(*(LnkLI119))()));
546          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
# Line 548  T182:; Line 548  T182:;
548          princ_str(" = ",VV[29]);          princ_str(" = ",VV[29]);
549          (void)((*(LnkLI117))(car((V70))));          (void)((*(LnkLI117))(car((V70))));
550          princ_char(44,VV[29]);          princ_char(44,VV[29]);
551  goto T181;          goto T181;
552  T181:;  T181:;
553          princ_str("\n   (type_of(",VV[29]);          princ_str("\n   (type_of(",VV[29]);
554          (void)((*(LnkLI117))((V72)));          (void)((*(LnkLI117))((V72)));
# Line 568  T181:; Line 568  T181:;
568          princ_str("\n   (*((",VV[29]);          princ_str("\n   (*((",VV[29]);
569          (void)((*(LnkLI117))((V72)));          (void)((*(LnkLI117))((V72)));
570          princ_str(")->sfn.sfn_self)):",VV[29]);          princ_str(")->sfn.sfn_self)):",VV[29]);
571  goto T200;          goto T200;
572  T200:;  T200:;
573          princ_str("\n   (fcall.fun=(",VV[29]);          princ_str("\n   (fcall.fun=(",VV[29]);
574          (void)((*(LnkLI117))((V72)));          (void)((*(LnkLI117))((V72)));
# Line 579  T200:; Line 579  T200:;
579          V75 = make_fixnum((long)length(cdr((V70))));          V75 = make_fixnum((long)length(cdr((V70))));
580          (void)((*(LnkLI117))(V75));          (void)((*(LnkLI117))(V75));
581          princ_char(44,VV[29]);          princ_char(44,VV[29]);
582  goto T218;          goto T218;
583  T218:;  T218:;
584          princ_str("fcalln))(",VV[29]);          princ_str("fcalln))(",VV[29]);
585          if((cdr((V70)))==Cnil){          if((cdr((V70)))==Cnil){
# Line 589  T218:; Line 589  T218:;
589          register object V77;          register object V77;
590          V76= cddr((V70));          V76= cddr((V70));
591          V77= car((V76));          V77= car((V76));
592  goto T234;          goto T234;
593  T234:;  T234:;
594          if(!(endp_prop((V76)))){          if(!(endp_prop((V76)))){
595          goto T235;}          goto T235;}
596          goto T226;          goto T226;
597  goto T235;          goto T235;
598  T235:;  T235:;
599          (void)((*(LnkLI117))(VV[35]));          (void)((*(LnkLI117))(VV[35]));
600          (void)((*(LnkLI117))((V77)));          (void)((*(LnkLI117))((V77)));
601          V76= cdr((V76));          V76= cdr((V76));
602          V77= car((V76));          V77= car((V76));
603          goto T234;}          goto T234;}
604  goto T226;          goto T226;
605  T226:;  T226:;
606          (void)((*(LnkLI117))(VV[36]));          (void)((*(LnkLI117))(VV[36]));
607          (void)((*(LnkLI117))(VV[36]));          (void)((*(LnkLI117))(VV[36]));
# Line 618  static object LI7(V81,V82) Line 618  static object LI7(V81,V82)
618  object V81;register object V82;  object V81;register object V82;
619  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
620          bds_check;          bds_check;
621  goto TTL;          goto TTL;
622  TTL:;  TTL:;
623          {register object V83;          {register object V83;
624          V83= caddr((V81));          V83= caddr((V81));
# Line 630  TTL:; Line 630  TTL:;
630          goto T250;}          goto T250;}
631          if(type_of((V82))==t_cons||((V82))==Cnil){          if(type_of((V82))==t_cons||((V82))==Cnil){
632          goto T251;}          goto T251;}
633  goto T250;          goto T250;
634  T250:;  T250:;
635          if(!(type_of((V82))==t_cons||((V82))==Cnil)){          if(!(type_of((V82))==t_cons||((V82))==Cnil)){
636          goto T259;}          goto T259;}
# Line 649  T250:; Line 649  T250:;
649          princ_char(59,VV[29]);          princ_char(59,VV[29]);
650          setq(VV[37],Ct);          setq(VV[37],Ct);
651          bds_unwind1;}          bds_unwind1;}
652  goto T259;          goto T259;
653  T259:;  T259:;
654          {object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81)))));          {object V86 = (VFUN_NARGS=2,(*(LnkLI122))((V83),caddr(cddr((V81)))));
655          VMR7(V86)}          VMR7(V86)}
656  goto T251;          goto T251;
657  T251:;  T251:;
658          {object V87;          {object V87;
659          object V88;          object V88;
# Line 662  T251:; Line 662  T251:;
662          if(!(eql((V88),(V87)))){          if(!(eql((V88),(V87)))){
663          goto T276;}          goto T276;}
664          goto T273;          goto T273;
665  goto T276;          goto T276;
666  T276:;  T276:;
667          (void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));}          (void)((VFUN_NARGS=3,(*(LnkLI123))(VV[38],(V88),(V87))));}
668  goto T273;          goto T273;
669  T273:;  T273:;
670          {object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81))));          {object V89 = (*(LnkLI124))(car((V83)),(V82),caddr(cddr((V81))));
671          VMR7(V89)}}          VMR7(V89)}}
# Line 678  static object LI8(V92,V93) Line 678  static object LI8(V92,V93)
678    
679  object V92;object V93;  object V92;object V93;
680  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
681  goto TTL;          goto TTL;
682  TTL:;  TTL:;
683          {register object V94;          {register object V94;
684          V94= get((V92),VV[39],Ct);          V94= get((V92),VV[39],Ct);
685          if((Ct)==((V94))){          if((Ct)==((V94))){
686          goto T280;}          goto T280;}
687          goto T279;          goto T279;
688  goto T280;          goto T280;
689  T280:;  T280:;
690          if((get((V92),VV[40],Cnil))!=Cnil){          if((get((V92),VV[40],Cnil))!=Cnil){
691          goto T282;}          goto T282;}
692          goto T279;          goto T279;
693  goto T282;          goto T282;
694  T282:;  T282:;
695          V94= VV[41];          V94= VV[41];
696  goto T279;          goto T279;
697  T279:;  T279:;
698          if(!(type_of((V94))==t_cons||((V94))==Cnil)){          if(!(type_of((V94))==t_cons||((V94))==Cnil)){
699          goto T286;}          goto T286;}
# Line 708  T279:; Line 708  T279:;
708          goto T292;}          goto T292;}
709          {object V96 = Ct;          {object V96 = Ct;
710          VMR8(V96)}          VMR8(V96)}
711  goto T292;          goto T292;
712  T292:;  T292:;
713          V97 = make_fixnum((long)length((V93)));          V97 = make_fixnum((long)length((V93)));
714          V98 = make_fixnum((long)length((V94)));          V98 = make_fixnum((long)length((V94)));
715          {object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98));          {object V99 = (VFUN_NARGS=4,(*(LnkLI125))(VV[42],(V92),V97,V98));
716          VMR8(V99)}          VMR8(V99)}
717  goto T286;          goto T286;
718  T286:;  T286:;
719          {object V100 = Cnil;          {object V100 = Cnil;
720          VMR8(V100)}}          VMR8(V100)}}
# Line 730  static void L9() Line 730  static void L9()
730          check_arg(1);          check_arg(1);
731          V101=(base[0]);          V101=(base[0]);
732          vs_top=sup;          vs_top=sup;
733  goto TTL;          goto TTL;
734  TTL:;  TTL:;
735          if((symbol_value(VV[43]))!=Cnil){          if((symbol_value(VV[43]))!=Cnil){
736          goto T295;}{object V102;          goto T295;}{object V102;
# Line 741  TTL:; Line 741  TTL:;
741          goto T301;          goto T301;
742          }else V103=V103->c.c_cdr;          }else V103=V103->c.c_cdr;
743          V102= Cnil;}          V102= Cnil;}
744  goto T301;          goto T301;
745  T301:;  T301:;
746          if(V102==Cnil)goto T300;          if(V102==Cnil)goto T300;
747          setq(VV[43],V102);          setq(VV[43],V102);
748          goto T299;          goto T299;
749  goto T300;          goto T300;
750  T300:;}  T300:;}
751          if(!((cadr((V101)))==(VV[44]))){          if(!((cadr((V101)))==(VV[44]))){
752          goto T302;}          goto T302;}
753          setq(VV[43],Ct);          setq(VV[43],Ct);
754          goto T299;          goto T299;
755  goto T302;          goto T302;
756  T302:;  T302:;
757          base[1]= small_fixnum(4);          base[1]= small_fixnum(4);
758          base[2]= caddr((V101));          base[2]= caddr((V101));
# Line 760  T302:; Line 760  T302:;
760          Llogbitp();          Llogbitp();
761          vs_top=sup;          vs_top=sup;
762          setq(VV[43],vs_base[0]);          setq(VV[43],vs_base[0]);
763  goto T299;          goto T299;
764  T299:;  T299:;
765          if((symbol_value(VV[43]))==Cnil){          if((symbol_value(VV[43]))==Cnil){
766          goto T295;}          goto T295;}
# Line 773  T299:; Line 773  T299:;
773          base[1]= Ct;          base[1]= Ct;
774          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
775          return;          return;
776  goto T309;          goto T309;
777  T309:;  T309:;
778          setq(VV[45],make_cons(symbol_value(VV[45]),VV[46]));          setq(VV[45],make_cons(symbol_value(VV[45]),VV[46]));
779          base[1]= symbol_value(VV[45]);          base[1]= symbol_value(VV[45]);
780          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
781          return;          return;
782  goto T295;          goto T295;
783  T295:;  T295:;
784          base[1]= Cnil;          base[1]= Cnil;
785          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 793  static object LI10(V108,V109,V110,V111) Line 793  static object LI10(V108,V109,V110,V111)
793  register object V108;register object V109;object V110;object V111;  register object V108;register object V109;object V110;object V111;
794  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
795          bds_check;          bds_check;
796  goto TTL;          goto TTL;
797  TTL:;  TTL:;
798          {register object V112;          {register object V112;
799          V112= Cnil;          V112= Cnil;
# Line 814  TTL:; Line 814  TTL:;
814          goto T327;          goto T327;
815          }else V113=V113->c.c_cdr;          }else V113=V113->c.c_cdr;
816          goto T317;}          goto T317;}
817  goto T327;          goto T327;
818  T327:;  T327:;
819          if(((*(LnkLI128))())==Cnil){          if(((*(LnkLI128))())==Cnil){
820          goto T317;}          goto T317;}
# Line 830  T327:; Line 830  T327:;
830          V114= Cnil;          V114= Cnil;
831          goto T336;}          goto T336;}
832          base[4]=V115=MMcons(Cnil,Cnil);          base[4]=V115=MMcons(Cnil,Cnil);
833  goto T337;          goto T337;
834  T337:;  T337:;
835          (V115->c.c_car)= list(2,(V116->c.c_car),Cnil);          (V115->c.c_car)= list(2,(V116->c.c_car),Cnil);
836          V116=MMcdr(V116);          V116=MMcdr(V116);
# Line 839  T337:; Line 839  T337:;
839          goto T336;}          goto T336;}
840          V115=MMcdr(V115)=MMcons(Cnil,Cnil);          V115=MMcdr(V115)=MMcons(Cnil,Cnil);
841          goto T337;}          goto T337;}
842  goto T336;          goto T336;
843  T336:;  T336:;
844          (void)((*(LnkLI129))(V114,(V109)));          (void)((*(LnkLI129))(V114,(V109)));
845          if((cdr((VV[49]->s.s_dbind)))==Cnil){          if((cdr((VV[49]->s.s_dbind)))==Cnil){
# Line 847  T336:; Line 847  T336:;
847          bds_unwind1;          bds_unwind1;
848          bds_unwind1;          bds_unwind1;
849          goto T331;}          goto T331;}
850          princ_str("\ngoto T",VV[29]);          princ_str("\n   goto T",VV[29]);
851          (void)((*(LnkLI117))(car((VV[49]->s.s_dbind))));          (void)((*(LnkLI117))(car((VV[49]->s.s_dbind))));
852          princ_char(59,VV[29]);          princ_char(59,VV[29]);
853          princ_str("\nT",VV[29]);          princ_str("\nT",VV[29]);
# Line 856  T336:; Line 856  T336:;
856          bds_unwind1;          bds_unwind1;
857          bds_unwind1;          bds_unwind1;
858          bds_unwind1;          bds_unwind1;
859  goto T331;          goto T331;
860  T331:;  T331:;
861          (void)((*(LnkLI130))(VV[53]));          (void)((*(LnkLI130))(VV[53]));
862          princ_str("\n   goto TTL;",VV[29]);          princ_str("\n   goto TTL;",VV[29]);
863          {object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108)));          {object V118 = (VFUN_NARGS=2,(*(LnkLI131))(VV[54],(V108)));
864          bds_unwind1;          bds_unwind1;
865          VMR10(V118)}          VMR10(V118)}
866  goto T317;          goto T317;
867  T317:;  T317:;
868          if(!(type_of((V109))==t_cons||((V109))==Cnil)){          if(!(type_of((V109))==t_cons||((V109))==Cnil)){
869          goto T352;}          goto T352;}
# Line 885  T317:; Line 885  T317:;
885          bds_unwind1;          bds_unwind1;
886          bds_unwind1;          bds_unwind1;
887          VMR10(V120)}          VMR10(V120)}
888  goto T352;          goto T352;
889  T352:;{object V121;  T352:;{object V121;
890          V121= get((V108),VV[55],Cnil);          V121= get((V108),VV[55],Cnil);
891          if(V121==Cnil)goto T366;          if(V121==Cnil)goto T366;
892          V112= V121;          V112= V121;
893          goto T365;          goto T365;
894  goto T366;          goto T366;
895  T366:;}  T366:;}
896          V112= get((V108),VV[56],Cnil);          V112= get((V108),VV[56],Cnil);
897  goto T365;          goto T365;
898  T365:;  T365:;
899          if(((V112))==Cnil){          if(((V112))==Cnil){
900          goto T363;}          goto T363;}
# Line 906  T365:; Line 906  T365:;
906          {object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));          {object V122 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));
907          bds_unwind1;          bds_unwind1;
908          VMR10(V122)}          VMR10(V122)}
909  goto T363;          goto T363;
910  T363:;  T363:;
911          if(!(type_of((V109))==t_cons||((V109))==Cnil)){          if(!(type_of((V109))==t_cons||((V109))==Cnil)){
912          goto T375;}          goto T375;}
# Line 916  T363:; Line 916  T363:;
916          goto T380;}          goto T380;}
917          if((get((V108),VV[58],Cnil))==Cnil){          if((get((V108),VV[58],Cnil))==Cnil){
918          goto T375;}          goto T375;}
919  goto T380;          goto T380;
920  T380:;  T380:;
921          if(!((symbol_value(VV[21]))==(VV[59]))){          if(!((symbol_value(VV[21]))==(VV[59]))){
922          goto T386;}          goto T386;}
# Line 926  T380:; Line 926  T380:;
926          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
927          Lformat();          Lformat();
928          vs_top=sup;          vs_top=sup;
929  goto T386;          goto T386;
930  T386:;  T386:;
931          if((VV[59])==(symbol_value(VV[21]))){          if((VV[59])==(symbol_value(VV[21]))){
932          goto T375;}          goto T375;}
# Line 940  T386:; Line 940  T386:;
940          bds_unwind1;          bds_unwind1;
941          bds_unwind1;          bds_unwind1;
942          VMR10(V125)}          VMR10(V125)}
943  goto T375;          goto T375;
944  T375:;  T375:;
945          (void)((*(LnkLI116))((V109)));          (void)((*(LnkLI116))((V109)));
946          {object V126;          {object V126;
# Line 952  T375:; Line 952  T375:;
952          goto T402;}          goto T402;}
953          princ_str("Lclptr",VV[29]);          princ_str("Lclptr",VV[29]);
954          (void)((*(LnkLI117))((V126)));          (void)((*(LnkLI117))((V126)));
955  goto T402;          goto T402;
956  T402:;  T402:;
957          princ_str(");",VV[29]);          princ_str(");",VV[29]);
958          {object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));          {object V127 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V108)));
959          bds_unwind1;          bds_unwind1;
960          VMR10(V127)}}          VMR10(V127)}}
961  goto T314;          goto T314;
962  T314:;  T314:;
963          {object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil);          {object V128 = (*(LnkLI139))((V108),(V109),(V110),Cnil);
964          bds_unwind1;          bds_unwind1;
# Line 972  static object LI11(V132,V133,V134) Line 972  static object LI11(V132,V133,V134)
972    
973  register object V132;object V133;object V134;  register object V132;object V133;object V134;
974  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
975  goto TTL;          goto TTL;
976  TTL:;  TTL:;
977          {object V135;          {object V135;
978          object V136;          object V136;
# Line 994  TTL:; Line 994  TTL:;
994          goto T417;}          goto T417;}
995          V141= Cnil;          V141= Cnil;
996          goto T416;          goto T416;
997  goto T417;          goto T417;
998  T417:;  T417:;
999          V141= make_fixnum((long)length((V134)));          V141= make_fixnum((long)length((V134)));
1000  goto T416;          goto T416;
1001  T416:;  T416:;
1002          if((get((V132),VV[1],Cnil))==Cnil){          if((get((V132),VV[1],Cnil))==Cnil){
1003          goto T422;}          goto T422;}
1004          V140= get((V132),VV[4],Cnil);          V140= get((V132),VV[4],Cnil);
1005          goto T420;          goto T420;
1006  goto T422;          goto T422;
1007  T422:;  T422:;
1008          V139= get((V132),VV[0],Cnil);          V139= get((V132),VV[0],Cnil);
1009          if(((V139))==Cnil){          if(((V139))==Cnil){
# Line 1013  T422:; Line 1013  T422:;
1013          if(!(equal((V141),(V139)))){          if(!(equal((V141),(V139)))){
1014          goto T432;}          goto T432;}
1015          goto T428;          goto T428;
1016  goto T432;          goto T432;
1017  T432:;  T432:;
1018          (void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132))));          (void)((VFUN_NARGS=2,(*(LnkLI125))(VV[62],(V132))));
1019          goto T428;          goto T428;
1020  goto T430;          goto T430;
1021  T430:;  T430:;
1022          (void)(sputprop((V132),VV[0],(V141)));          (void)(sputprop((V132),VV[0],(V141)));
1023  goto T428;          goto T428;
1024  T428:;  T428:;
1025          base[2]= (V141);          base[2]= (V141);
1026          base[3]= VV[63];          base[3]= VV[63];
# Line 1030  T428:; Line 1030  T428:;
1030          vs_top=sup;          vs_top=sup;
1031          V140= vs_base[0];          V140= vs_base[0];
1032          goto T420;          goto T420;
1033  goto T425;          goto T425;
1034  T425:;  T425:;
1035          V140= Cnil;          V140= Cnil;
1036  goto T420;          goto T420;
1037  T420:;  T420:;
1038          if((V141)==Cnil){          if((V141)==Cnil){
1039          goto T437;}          goto T437;}
# Line 1041  T420:; Line 1041  T420:;
1041          if(!(eql((V141),V142))){          if(!(eql((V141),V142))){
1042          goto T438;}          goto T438;}
1043          goto T437;          goto T437;
1044  goto T438;          goto T438;
1045  T438:;{object V143;  T438:;{object V143;
1046          {register object x= VV[5],V144= (V140);          {register object x= VV[5],V144= (V140);
1047          while(!endp(V144))          while(!endp(V144))
# Line 1050  T438:;{object V143; Line 1050  T438:;{object V143;
1050          goto T441;          goto T441;
1051          }else V144=V144->c.c_cdr;          }else V144=V144->c.c_cdr;
1052          V143= Cnil;}          V143= Cnil;}
1053  goto T441;          goto T441;
1054  T441:;  T441:;
1055          if(V143==Cnil)goto T440;          if(V143==Cnil)goto T440;
1056          goto T437;          goto T437;
1057  goto T440;          goto T440;
1058  T440:;}  T440:;}
1059          V145 = make_fixnum((long)length((V140)));          V145 = make_fixnum((long)length((V140)));
1060          (void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145)));          (void)((VFUN_NARGS=4,(*(LnkLI125))(VV[64],(V132),(V141),V145)));
1061  goto T437;          goto T437;
1062  T437:;  T437:;
1063          {register object x= (V132),V146= symbol_value(VV[65]);          {register object x= (V132),V146= symbol_value(VV[65]);
1064          while(!endp(V146))          while(!endp(V146))
# Line 1067  T437:; Line 1067  T437:;
1067          goto T444;          goto T444;
1068          }else V146=V146->c.c_cdr;          }else V146=V146->c.c_cdr;
1069          V136= Cnil;}          V136= Cnil;}
1070  goto T444;          goto T444;
1071  T444:;  T444:;
1072          if((cddr((V136)))!=Cnil){          if((cddr((V136)))!=Cnil){
1073          goto T410;}          goto T410;}
# Line 1088  T444:; Line 1088  T444:;
1088          V148= Cnil;          V148= Cnil;
1089          V149= (V140);          V149= (V140);
1090          V150= small_fixnum(0);          V150= small_fixnum(0);
1091  goto T454;          goto T454;
1092  T454:;  T454:;
1093          if(((V149))!=Cnil){          if(((V149))!=Cnil){
1094          goto T455;}          goto T455;}
1095          goto T452;          goto T452;
1096  goto T455;          goto T455;
1097  T455:;  T455:;
1098          if(!((car((V149)))==(VV[5]))){          if(!((car((V149)))==(VV[5]))){
1099          goto T461;}          goto T461;}
1100          V138= Ct;          V138= Ct;
1101          (void)(princ(VV[67],(V147)));          (void)(princ(VV[67],(V147)));
1102          goto T459;          goto T459;
1103  goto T461;          goto T461;
1104  T461:;  T461:;
1105          if(((V148))==Cnil){          if(((V148))==Cnil){
1106          goto T467;}          goto T467;}
1107          (void)(princ(VV[68],(V147)));          (void)(princ(VV[68],(V147)));
1108          goto T465;          goto T465;
1109  goto T467;          goto T467;
1110  T467:;  T467:;
1111          V148= Ct;          V148= Ct;
1112  goto T465;          goto T465;
1113  T465:;  T465:;
1114          base[2]= (V147);          base[2]= (V147);
1115          base[3]= VV[69];          base[3]= VV[69];
# Line 1117  T465:; Line 1117  T465:;
1117          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1118          Lformat();          Lformat();
1119          vs_top=sup;          vs_top=sup;
1120  goto T459;          goto T459;
1121  T459:;  T459:;
1122          V149= cdr((V149));          V149= cdr((V149));
1123          V150= number_plus(small_fixnum(1),(V150));          V150= number_plus(small_fixnum(1),(V150));
1124          goto T454;}          goto T454;}
1125  goto T452;          goto T452;
1126  T452:;  T452:;
1127          (void)(princ(VV[70],(V147)));          (void)(princ(VV[70],(V147)));
1128          base[2]= (V147);          base[2]= (V147);
# Line 1134  T452:; Line 1134  T452:;
1134          goto T479;}          goto T479;}
1135          V135=          V135=
1136          make_cclosure_new(LC21,Cnil,base[0],Cdata);          make_cclosure_new(LC21,Cnil,base[0],Cdata);
1137  goto T479;          goto T479;
1138  T479:;  T479:;
1139          {object V151;{object V153;          {object V151;{object V153;
1140          V153= get((V132),VV[2],Cnil);          V153= get((V132),VV[2],Cnil);
1141          if(V153==Cnil)goto T486;          if(V153==Cnil)goto T486;
1142          V152= V153;          V152= V153;
1143          goto T485;          goto T485;
1144  goto T486;          goto T486;
1145  T486:;}  T486:;}
1146          V152= Ct;          V152= Ct;
1147  goto T485;          goto T485;
1148  T485:;  T485:;
1149          if((V135)!=Cnil){          if((V135)!=Cnil){
1150          V154= (V135);          V154= (V135);
1151          goto T488;}          goto T488;}
1152          V154= (base[0]->c.c_car);          V154= (base[0]->c.c_car);
1153  goto T488;          goto T488;
1154  T488:;  T488:;
1155          V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]);          V151= list(6,(V132),(V140),V152,small_fixnum(3),V154,VV[71]);
1156          setq(VV[72],make_cons((V151),symbol_value(VV[72])));}          setq(VV[72],make_cons((V151),symbol_value(VV[72])));}
# Line 1165  T488:; Line 1165  T488:;
1165          if(V157==Cnil)goto T496;          if(V157==Cnil)goto T496;
1166          V156= V157;          V156= V157;
1167          goto T495;          goto T495;
1168  goto T496;          goto T496;
1169  T496:;}  T496:;}
1170          V156= Ct;          V156= Ct;
1171  goto T495;          goto T495;
1172  T495:;  T495:;
1173          V136= list(4,(V132),V155,V156,(V140));          V136= list(4,(V132),V155,V156,(V140));
1174          goto T410;}          goto T410;}
1175  goto T412;          goto T412;
1176  T412:;  T412:;
1177          (void)((*(LnkLI136))((V132),(V134)));          (void)((*(LnkLI136))((V132),(V134)));
1178          if((get((V132),VV[61],Cnil))==Cnil){          if((get((V132),VV[61],Cnil))==Cnil){
1179          goto T502;}          goto T502;}
1180          V158= VV[61];          V158= VV[61];
1181          goto T500;          goto T500;
1182  goto T502;          goto T502;
1183  T502:;  T502:;
1184          V158= Cnil;          V158= Cnil;
1185  goto T500;          goto T500;
1186  T500:;  T500:;
1187          V136= list(3,(V132),(V137),V158);          V136= list(3,(V132),(V137),V158);
1188  goto T410;          goto T410;
1189  T410:;  T410:;
1190          base[0]= V136;          base[0]= V136;
1191          base[1]= symbol_value(VV[65]);          base[1]= symbol_value(VV[65]);
# Line 1210  static void L12() Line 1210  static void L12()
1210          check_arg(1);          check_arg(1);
1211          V161=(base[0]);          V161=(base[0]);
1212          vs_top=sup;          vs_top=sup;
1213  goto TTL;          goto TTL;
1214  TTL:;  TTL:;
1215          if(!(equal((V161),VV[76]))){          if(!(equal((V161),VV[76]))){
1216          goto T511;}          goto T511;}
1217          base[1]= VV[77];          base[1]= VV[77];
1218          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1219          return;          return;
1220  goto T511;          goto T511;
1221  T511:;  T511:;
1222          if(!(equal((V161),VV[78]))){          if(!(equal((V161),VV[78]))){
1223          goto T514;}          goto T514;}
1224          base[1]= VV[79];          base[1]= VV[79];
1225          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1226          return;          return;
1227  goto T514;          goto T514;
1228  T514:;  T514:;
1229          base[1]= (V161);          base[1]= (V161);
1230          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1237  static object LI13(V163) Line 1237  static object LI13(V163)
1237    
1238  register object V163;  register object V163;
1239  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1240  goto TTL;          goto TTL;
1241  TTL:;  TTL:;
1242          {register object V164;          {register object V164;
1243          register object V165;          register object V165;
# Line 1257  TTL:; Line 1257  TTL:;
1257          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V165)));
1258          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1259          goto T520;          goto T520;
1260  goto T522;          goto T522;
1261  T522:;  T522:;
1262          if(!(eql((V166),VV[61]))){          if(!(eql((V166),VV[61]))){
1263          goto T532;}          goto T532;}
# Line 1267  T522:; Line 1267  T522:;
1267          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V165)));
1268          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1269          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V165)));
1270          princ_str(",&Lclptr",VV[29]);          princ_str(",(void **)&Lclptr",VV[29]);
1271          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V165)));
1272          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1273          goto T520;          goto T520;
1274  goto T532;          goto T532;
1275  T532:;  T532:;
1276          princ_str("\nstatic ",VV[29]);          princ_str("\nstatic ",VV[29]);
1277          base[0]= (*(LnkLI143))((V166));          base[0]= (*(LnkLI143))((V166));
# Line 1286  T532:; Line 1286  T532:;
1286          goto T550;}          goto T550;}
1287          if((Ct)==((V166))){          if((Ct)==((V166))){
1288          goto T551;}          goto T551;}
1289  goto T550;          goto T550;
1290  T550:;  T550:;
1291          {object V169;          {object V169;
1292          {register object x= VV[5],V170= (V167);          {register object x= VV[5],V170= (V167);
# Line 1296  T550:; Line 1296  T550:;
1296          goto T555;          goto T555;
1297          }else V170=V170->c.c_cdr;          }else V170=V170->c.c_cdr;
1298          V169= Cnil;}          V169= Cnil;}
1299  goto T555;          goto T555;
1300  T555:;  T555:;
1301          princ_str("(object first,...){",VV[29]);          princ_str("(object first,...){",VV[29]);
1302          base[0]= (*(LnkLI143))((V166));          base[0]= (*(LnkLI143))((V166));
# Line 1311  T555:; Line 1311  T555:;
1311          goto T566;}          goto T566;}
1312          V172= VV[80];          V172= VV[80];
1313          goto T564;          goto T564;
1314  goto T566;          goto T566;
1315  T566:;  T566:;
1316          V172= VV[81];          V172= VV[81];
1317  goto T564;          goto T564;
1318  T564:;  T564:;
1319          (void)((*(LnkLI117))(V172));          (void)((*(LnkLI117))(V172));
1320          princ_str("proc_new(VV[",VV[29]);          princ_str("proc_new(VV[",VV[29]);
# Line 1327  T564:; Line 1327  T564:;
1327          princ_char(44,VV[29]);          princ_char(44,VV[29]);
1328          V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166)));          V174 = make_fixnum((long)(*(LnkLI146))((V167),(V166)));
1329          (void)((*(LnkLI117))(V174));          (void)((*(LnkLI117))(V174));
1330  goto T572;          goto T572;
1331  T572:;  T572:;
1332          princ_str(",first,ap);va_end(ap);return V1;}",VV[29]);          princ_str(",first,ap);va_end(ap);return V1;}",VV[29]);
1333          goto T520;}          goto T520;}
1334  goto T551;          goto T551;
1335  T551:;  T551:;
1336          princ_str("(){return call_proc0(VV[",VV[29]);          princ_str("(){return call_proc0(VV[",VV[29]);
1337          V175= (*(LnkLI145))((V164));          V175= (*(LnkLI145))((V164));
# Line 1339  T551:; Line 1339  T551:;
1339          princ_str("],(void **)&Lnk",VV[29]);          princ_str("],(void **)&Lnk",VV[29]);
1340          (void)((*(LnkLI117))((V165)));          (void)((*(LnkLI117))((V165)));
1341          princ_str(");}",VV[29]);          princ_str(");}",VV[29]);
1342  goto T520;          goto T520;
1343  T520:;  T520:;
1344          V164= symbol_name((V164));          V164= symbol_name((V164));
1345          if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){          if(((VFUN_NARGS=2,(*(LnkLI147))(VV[82],(V164))))==Cnil){
1346          goto T583;}          goto T583;}
1347          V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164)));          V164= (VFUN_NARGS=2,(*(LnkLI148))(VV[82],(V164)));
1348  goto T583;          goto T583;
1349  T583:;  T583:;
1350          princ_str(" /* ",VV[29]);          princ_str(" /* ",VV[29]);
1351          (void)((*(LnkLI117))((V164)));          (void)((*(LnkLI117))((V164)));
# Line 1362  static object LI14(V178) Line 1362  static object LI14(V178)
1362  register object V178;  register object V178;
1363  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1364          bds_check;          bds_check;
1365  goto TTL;          goto TTL;
1366  TTL:;  TTL:;
1367          {object V179;          {object V179;
1368          object V180;          object V180;
# Line 1387  TTL:; Line 1387  TTL:;
1387          (void) (*Lnk149)();          (void) (*Lnk149)();
1388          vs_top=sup;          vs_top=sup;
1389          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1390  goto T598;          goto T598;
1391  T598:;  T598:;
1392          (void)((*(LnkLI116))((V180)));          (void)((*(LnkLI116))((V180)));
1393          princ_str("\n   (",VV[29]);          princ_str("\n   (",VV[29]);
# Line 1396  T598:; Line 1396  T598:;
1396          (void) (*Lnk149)();          (void) (*Lnk149)();
1397          vs_top=sup;          vs_top=sup;
1398          goto T593;}          goto T593;}
1399  goto T595;          goto T595;
1400  T595:;  T595:;
1401          setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));          setq(VV[84],number_plus(symbol_value(VV[84]),small_fixnum(1)));
1402          V181= list(2,VV[33],symbol_value(VV[84]));          V181= list(2,VV[33],symbol_value(VV[84]));
# Line 1409  T595:; Line 1409  T595:;
1409          princ_str("(V",VV[29]);          princ_str("(V",VV[29]);
1410          (void)((*(LnkLI117))(cadr((V181))));          (void)((*(LnkLI117))(cadr((V181))));
1411          bds_unwind1;          bds_unwind1;
1412  goto T593;          goto T593;
1413  T593:;  T593:;
1414          princ_str(")->cf.cf_self ();",VV[29]);          princ_str(")->cf.cf_self ();",VV[29]);
1415          if((V181)==Cnil){          if((V181)==Cnil){
1416          goto T590;}          goto T590;}
1417          princ_char(125,VV[29]);}          princ_char(125,VV[29]);}
1418  goto T590;          goto T590;
1419  T590:;  T590:;
1420          {object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          {object V183 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1421          VMR14(V183)}          VMR14(V183)}
# Line 1428  static object LI15(V186,V187) Line 1428  static object LI15(V186,V187)
1428    
1429  object V186;object V187;  object V186;object V187;
1430  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1431  goto TTL;          goto TTL;
1432  TTL:;  TTL:;
1433          {register object V188;          {register object V188;
1434          register object V189;          register object V189;
# Line 1454  TTL:; Line 1454  TTL:;
1454          V193= vs_base[0];          V193= vs_base[0];
1455          V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]);          V191= list(5,VV[87],Ct,small_fixnum(3),V193,VV[58]);
1456          goto T635;          goto T635;
1457  goto T636;          goto T636;
1458  T636:;  T636:;
1459          if(!eql(V192,VV[89]))goto T641;          if(!eql(V192,VV[89]))goto T641;
1460          base[2]= Cnil;          base[2]= Cnil;
# Line 1466  T636:; Line 1466  T636:;
1466          V194= vs_base[0];          V194= vs_base[0];
1467          V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]);          V191= list(5,VV[90],Ct,small_fixnum(3),V194,VV[58]);
1468          goto T635;          goto T635;
1469  goto T641;          goto T641;
1470  T641:;  T641:;
1471          base[2]= (V188);          base[2]= (V188);
1472          base[3]= VV[63];          base[3]= VV[63];
# Line 1483  T641:; Line 1483  T641:;
1483          register object V198;          register object V198;
1484          V197= (V188);          V197= (V188);
1485          V198= small_fixnum(0);          V198= small_fixnum(0);
1486  goto T659;          goto T659;
1487  T659:;  T659:;
1488          if(!(number_compare((V198),(V197))>=0)){          if(!(number_compare((V198),(V197))>=0)){
1489          goto T660;}          goto T660;}
1490          base[6]= nreverse((V189));          base[6]= nreverse((V189));
1491          goto T655;          goto T655;
1492  goto T660;          goto T660;
1493  T660:;  T660:;
1494          {register object V199;          {register object V199;
1495          V199= (V198);          V199= (V198);
1496          V189= make_cons((V199),(V189));}          V189= make_cons((V199),(V189));}
1497          V198= one_plus((V198));          V198= one_plus((V198));
1498          goto T659;}          goto T659;}
1499  goto T655;          goto T655;
1500  T655:;  T655:;
1501          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
1502          Lformat();          Lformat();
1503          vs_top=sup;          vs_top=sup;
1504          V196= vs_base[0];          V196= vs_base[0];
1505          V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);}          V191= list(5,V195,Ct,small_fixnum(3),V196,VV[58]);}
1506  goto T635;          goto T635;
1507  T635:;  T635:;
1508          {object V200;          {object V200;
1509          V200= make_cons((V186),(V191));          V200= make_cons((V186),(V191));
# Line 1534  static object LI16(object V204,object V2 Line 1534  static object LI16(object V204,object V2
1534          else {          else {
1535          V208= first;}          V208= first;}
1536          --narg; goto T674;          --narg; goto T674;
1537  goto T673;          goto T673;
1538  T673:;  T673:;
1539          V208= Cnil;          V208= Cnil;
1540  goto T674;          goto T674;
1541  T674:;  T674:;
1542          princ_str("simple_",VV[29]);          princ_str("simple_",VV[29]);
1543          (void)((*(LnkLI117))((V205)));          (void)((*(LnkLI117))((V205)));
# Line 1547  T674:; Line 1547  T674:;
1547          princ_str("VV[",VV[29]);          princ_str("VV[",VV[29]);
1548          (void)((*(LnkLI117))((V208)));          (void)((*(LnkLI117))((V208)));
1549          princ_str("],",VV[29]);          princ_str("],",VV[29]);
1550  goto T680;          goto T680;
1551  T680:;  T680:;
1552          princ_str("base+",VV[29]);          princ_str("base+",VV[29]);
1553          (void)((*(LnkLI117))((V206)));          (void)((*(LnkLI117))((V206)));
# Line 1567  static object LI17(V211) Line 1567  static object LI17(V211)
1567  register object V211;  register object V211;
1568  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1569          bds_check;          bds_check;
1570  goto TTL;          goto TTL;
1571  TTL:;  TTL:;
1572          {object V212= car((V211));          {object V212= car((V211));
1573          if((V212!= VV[13])          if((V212!= VV[13])
# Line 1575  TTL:; Line 1575  TTL:;
1575          && (V212!= VV[6]))goto T693;          && (V212!= VV[6]))goto T693;
1576          {object V213 = Cnil;          {object V213 = Cnil;
1577          VMR17(V213)}          VMR17(V213)}
1578  goto T693;          goto T693;
1579  T693:;  T693:;
1580          if((V212!= VV[14]))goto T694;          if((V212!= VV[14]))goto T694;
1581          if(((*(LnkLI127))(caddr((V211))))==Cnil){          if(((*(LnkLI127))(caddr((V211))))==Cnil){
# Line 1589  T693:; Line 1589  T693:;
1589          if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){          if(type_of(V214->c.c_car)==t_cons &&eql(x,V214->c.c_car->c.c_car)){
1590          goto T696;          goto T696;
1591          }else V214=V214->c.c_cdr;}          }else V214=V214->c.c_cdr;}
1592  goto T695;          goto T695;
1593  T695:;  T695:;
1594          {object V215;          {object V215;
1595          V215= list(2,VV[27],(*(LnkLI114))());          V215= list(2,VV[27],(*(LnkLI114))());
# Line 1602  T695:; Line 1602  T695:;
1602          (void)((*(LnkLI117))(/* INLINE-ARGS */V216));          (void)((*(LnkLI117))(/* INLINE-ARGS */V216));
1603          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1604          goto T705;          goto T705;
1605  goto T707;          goto T707;
1606  T707:;  T707:;
1607          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1608          (void)((*(LnkLI117))((V215)));          (void)((*(LnkLI117))((V215)));
# Line 1610  T707:; Line 1610  T707:;
1610          V217= (*(LnkLI140))(caddr((V211)));          V217= (*(LnkLI140))(caddr((V211)));
1611          (void)((*(LnkLI117))(/* INLINE-ARGS */V217));          (void)((*(LnkLI117))(/* INLINE-ARGS */V217));
1612          princ_str("]->s.s_gfdef;",VV[29]);          princ_str("]->s.s_gfdef;",VV[29]);
1613  goto T705;          goto T705;
1614  T705:;  T705:;
1615          {object V218 = (V215);          {object V218 = (V215);
1616          VMR17(V218)}}          VMR17(V218)}}
1617  goto T696;          goto T696;
1618  T696:;  T696:;
1619          {object V219 = Cnil;          {object V219 = Cnil;
1620          VMR17(V219)}          VMR17(V219)}
1621  goto T694;          goto T694;
1622  T694:;  T694:;
1623          if((V212!= VV[18]))goto T719;          if((V212!= VV[18]))goto T719;
1624          {object V220;          {object V220;
# Line 1628  T694:; Line 1628  T694:;
1628          {object V221 = (V220);          {object V221 = (V220);
1629          bds_unwind1;          bds_unwind1;
1630          VMR17(V221)}}          VMR17(V221)}}
1631  goto T719;          goto T719;
1632  T719:;  T719:;
1633          {object V222 = (*(LnkLI112))();          {object V222 = (*(LnkLI112))();
1634          VMR17(V222)}}          VMR17(V222)}}
# Line 1642  static object LI18(V224) Line 1642  static object LI18(V224)
1642  object V224;  object V224;
1643  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1644          bds_check;          bds_check;
1645  goto TTL;          goto TTL;
1646  TTL:;  TTL:;
1647          if(((V224))!=Cnil){          if(((V224))!=Cnil){
1648          goto T723;}          goto T723;}
1649          princ_str("\n   vs_base=vs_top;",VV[29]);          princ_str("\n   vs_base=vs_top;",VV[29]);
1650          {object V225 = Cnil;          {object V225 = Cnil;
1651          VMR18(V225)}          VMR18(V225)}
1652  goto T723;          goto T723;
1653  T723:;  T723:;
1654          if(!(type_of((V224))==t_cons)){          if(!(type_of((V224))==t_cons)){
1655          goto T727;}          goto T727;}
# Line 1660  T723:; Line 1660  T723:;
1660          register object V228;          register object V228;
1661          V227= (V224);          V227= (V224);
1662          V228= car((V227));          V228= car((V227));
1663  goto T734;          goto T734;
1664  T734:;  T734:;
1665          if(!(endp_prop((V227)))){          if(!(endp_prop((V227)))){
1666          goto T735;}          goto T735;}
1667          goto T730;          goto T730;
1668  goto T735;          goto T735;
1669  T735:;  T735:;
1670          base[2]= list(2,VV[27],(*(LnkLI114))());          base[2]= list(2,VV[27],(*(LnkLI114))());
1671          bds_bind(VV[21],base[2]);          bds_bind(VV[21],base[2]);
# Line 1674  T735:; Line 1674  T735:;
1674          V227= cdr((V227));          V227= cdr((V227));
1675          V228= car((V227));          V228= car((V227));
1676          goto T734;}          goto T734;}
1677  goto T730;          goto T730;
1678  T730:;  T730:;
1679          princ_str("\n   vs_top=(vs_base=base+",VV[29]);          princ_str("\n   vs_top=(vs_base=base+",VV[29]);
1680          (void)((*(LnkLI117))((V226)));          (void)((*(LnkLI117))((V226)));
# Line 1686  T730:; Line 1686  T730:;
1686          {object V231 = Ct;          {object V231 = Ct;
1687          bds_unwind1;          bds_unwind1;
1688          VMR18(V231)}}          VMR18(V231)}}
1689  goto T727;          goto T727;
1690  T727:;  T727:;
1691          {object V232 = Cnil;          {object V232 = Cnil;
1692          VMR18(V232)}          VMR18(V232)}
# Line 1700  static object LI19(V234) Line 1700  static object LI19(V234)
1700  object V234;  object V234;
1701  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1702          bds_check;          bds_check;
1703  goto TTL;          goto TTL;
1704  TTL:;  TTL:;
1705          {register object V235;          {register object V235;
1706          register object V236;          register object V236;
1707          V235= (V234);          V235= (V234);
1708          V236= car((V235));          V236= car((V235));
1709  goto T756;          goto T756;
1710  T756:;  T756:;
1711          if(!(endp_prop((V235)))){          if(!(endp_prop((V235)))){
1712          goto T757;}          goto T757;}
1713          {object V237 = Cnil;          {object V237 = Cnil;
1714          VMR19(V237)}          VMR19(V237)}
1715  goto T757;          goto T757;
1716  T757:;  T757:;
1717          base[1]= list(2,VV[27],(*(LnkLI114))());          base[1]= list(2,VV[27],(*(LnkLI114))());
1718          bds_bind(VV[21],base[1]);          bds_bind(VV[21],base[1]);
# Line 1730  static object LI20(V243,V244,V245,V246) Line 1730  static object LI20(V243,V244,V245,V246)
1730    
1731  register object V243;register object V244;register object V245;register object V246;  register object V243;register object V244;register object V245;register object V246;
1732  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1733  goto TTL;          goto TTL;
1734  TTL:;  TTL:;
1735          if((symbol_value(VV[28]))==Cnil){          if((symbol_value(VV[28]))==Cnil){
1736          goto T769;}          goto T769;}
# Line 1743  TTL:; Line 1743  TTL:;
1743          V247= (*(LnkLI140))((V243));          V247= (*(LnkLI140))((V243));
1744          (void)((*(LnkLI117))(/* INLINE-ARGS */V247));          (void)((*(LnkLI117))(/* INLINE-ARGS */V247));
1745          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1746  goto T771;          goto T771;
1747  T771:;  T771:;
1748          (void)((*(LnkLI116))((V244)));          (void)((*(LnkLI116))((V244)));
1749          princ_str("\n   funcall_with_catcher(VV[",VV[29]);          princ_str("\n   funcall_with_catcher(VV[",VV[29]);
# Line 1754  T771:; Line 1754  T771:;
1754          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1755          {object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));          {object V249 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));
1756          VMR20(V249)}          VMR20(V249)}
1757  goto T769;          goto T769;
1758  T769:;  T769:;
1759          if(((V245))==Cnil){          if(((V245))==Cnil){
1760          goto T789;}          goto T789;}
# Line 1767  T769:; Line 1767  T769:;
1767          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V245)));
1768          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1769          goto T792;          goto T792;
1770  goto T797;          goto T797;
1771  T797:;  T797:;
1772          princ_str("\n   CMPfuncall(",VV[29]);          princ_str("\n   CMPfuncall(",VV[29]);
1773          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V245)));
1774          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1775          goto T792;          goto T792;
1776  goto T794;          goto T794;
1777  T794:;  T794:;
1778          princ_str("\n   funcall(",VV[29]);          princ_str("\n   funcall(",VV[29]);
1779          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V245)));
1780          princ_str(");",VV[29]);          princ_str(");",VV[29]);
1781  goto T792;          goto T792;
1782  T792:;  T792:;
1783          {object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          {object V250 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1784          VMR20(V250)}          VMR20(V250)}
1785  goto T789;          goto T789;
1786  T789:;  T789:;
1787          if(((*(LnkLI151))((V244)))==Cnil){          if(((*(LnkLI151))((V244)))==Cnil){
1788          goto T809;}          goto T809;}
# Line 1798  T789:; Line 1798  T789:;
1798          (void)((*(LnkLI117))(/* INLINE-ARGS */V252));          (void)((*(LnkLI117))(/* INLINE-ARGS */V252));
1799          princ_str("]);",VV[29]);          princ_str("]);",VV[29]);
1800          goto T813;          goto T813;
1801  goto T815;          goto T815;
1802  T815:;  T815:;
1803          princ_str("\n   ",VV[29]);          princ_str("\n   ",VV[29]);
1804          (void)((*(LnkLI117))((V245)));          (void)((*(LnkLI117))((V245)));
# Line 1806  T815:; Line 1806  T815:;
1806          V253= (*(LnkLI140))((V243));          V253= (*(LnkLI140))((V243));
1807          (void)((*(LnkLI117))(/* INLINE-ARGS */V253));          (void)((*(LnkLI117))(/* INLINE-ARGS */V253));
1808          princ_str("]->s.s_gfdef);",VV[29]);          princ_str("]->s.s_gfdef);",VV[29]);
1809  goto T813;          goto T813;
1810  T813:;  T813:;
1811          (void)((*(LnkLI120))((V244)));          (void)((*(LnkLI120))((V244)));
1812          if((symbol_value(VV[21]))==(VV[94])){          if((symbol_value(VV[21]))==(VV[94])){
1813          goto T828;}          goto T828;}
1814          if(!((symbol_value(VV[21]))==(VV[59]))){          if(!((symbol_value(VV[21]))==(VV[59]))){
1815          goto T829;}          goto T829;}
1816  goto T828;          goto T828;
1817  T828:;  T828:;
1818          princ_str("\n   lispcall",VV[29]);          princ_str("\n   lispcall",VV[29]);
1819          if(((V246))==Cnil){          if(((V246))==Cnil){
1820          goto T835;}          goto T835;}
1821          princ_str("_no_event",VV[29]);          princ_str("_no_event",VV[29]);
1822  goto T835;          goto T835;
1823  T835:;  T835:;
1824          princ_str("(base+",VV[29]);          princ_str("(base+",VV[29]);
1825          (void)((*(LnkLI117))((V251)));          (void)((*(LnkLI117))((V251)));
# Line 1830  T835:; Line 1830  T835:;
1830          setq(VV[37],Ct);          setq(VV[37],Ct);
1831          {object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));          {object V255 = (VFUN_NARGS=1,(*(LnkLI118))(VV[31]));
1832          VMR20(V255)}          VMR20(V255)}
1833  goto T829;          goto T829;
1834  T829:;  T829:;
1835          if(((V246))==Cnil){          if(((V246))==Cnil){
1836          goto T849;}          goto T849;}
1837          V256= VV[96];          V256= VV[96];
1838          goto T847;          goto T847;
1839  goto T849;          goto T849;
1840  T849:;  T849:;
1841          V256= VV[97];          V256= VV[97];
1842  goto T847;          goto T847;
1843  T847:;  T847:;
1844          V257 = make_fixnum((long)length((V244)));          V257 = make_fixnum((long)length((V244)));
1845          V258= list(4,VV[95],V256,(V251),V257);          V258= list(4,VV[95],V256,(V251),V257);
1846          {object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258));          {object V259 = (VFUN_NARGS=1,(*(LnkLI118))(/* INLINE-ARGS */V258));
1847          VMR20(V259)}}          VMR20(V259)}}
1848  goto T809;          goto T809;
1849  T809:;  T809:;
1850          {object V260;          {object V260;
1851          V260= symbol_value(VV[19]);          V260= symbol_value(VV[19]);
# Line 1854  T809:; Line 1854  T809:;
1854          goto T852;}          goto T852;}
1855          if(!((symbol_value(VV[21]))==(VV[59]))){          if(!((symbol_value(VV[21]))==(VV[59]))){
1856          goto T853;}          goto T853;}
1857  goto T852;          goto T852;
1858  T852:;  T852:;
1859          princ_str("\n   symlispcall",VV[29]);          princ_str("\n   symlispcall",VV[29]);
1860          if(((V246))==Cnil){          if(((V246))==Cnil){
1861          goto T859;}          goto T859;}
1862          princ_str("_no_event",VV[29]);          princ_str("_no_event",VV[29]);
1863  goto T859;          goto T859;
1864  T859:;  T859:;
1865          princ_str("(VV[",VV[29]);          princ_str("(VV[",VV[29]);
1866          V261= (*(LnkLI140))((V243));          V261= (*(LnkLI140))((V243));
# Line 1874  T859:; Line 1874  T859:;
1874          setq(VV[37],Ct);          setq(VV[37],Ct);
1875          {object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));          {object V263 = (VFUN_NARGS=3,(*(LnkLI118))(VV[31],Cnil,(V243)));
1876          VMR20(V263)}          VMR20(V263)}
1877  goto T853;          goto T853;
1878  T853:;  T853:;
1879          if(((V246))==Cnil){          if(((V246))==Cnil){
1880          goto T875;}          goto T875;}
1881          V264= VV[98];          V264= VV[98];
1882          goto T873;          goto T873;
1883  goto T875;          goto T875;
1884  T875:;  T875:;
1885          V264= VV[99];          V264= VV[99];
1886  goto T873;          goto T873;
1887  T873:;  T873:;
1888          V265 = make_fixnum((long)length((V244)));          V265 = make_fixnum((long)length((V244)));
1889          V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243)));          V266= list(5,VV[95],V264,(V260),V265,(*(LnkLI140))((V243)));

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

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