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

Diff of /gcl/cmpnew/cmpif.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          object V4;          object V4;
# Line 18  TTL:; Line 18  TTL:;
18          goto T4;}          goto T4;}
19          if(!(endp_prop(cdr((V2))))){          if(!(endp_prop(cdr((V2))))){
20          goto T3;}          goto T3;}
21  goto T4;          goto T4;
22  T4:;  T4:;
23          V5 = make_fixnum((long)length((V2)));          V5 = make_fixnum((long)length((V2)));
24          (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));          (void)((*(LnkLI43))(VV[0],small_fixnum(2),V5));
25  goto T3;          goto T3;
26  T3:;  T3:;
27          if(endp_prop(cddr((V2)))){          if(endp_prop(cddr((V2)))){
28          goto T8;}          goto T8;}
# Line 30  T3:; Line 30  T3:;
30          goto T8;}          goto T8;}
31          V6 = make_fixnum((long)length((V2)));          V6 = make_fixnum((long)length((V2)));
32          (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));          (void)((*(LnkLI44))(VV[0],small_fixnum(3),V6));
33  goto T8;          goto T8;
34  T8:;  T8:;
35          V4= (*(LnkLI45))(car((V2)));          V4= (*(LnkLI45))(car((V2)));
36          {object V7= (V4);          {object V7= (V4);
37          if((V7!= Ct))goto T15;          if((V7!= Ct))goto T15;
38          {object V8 = (*(LnkLI46))(cadr((V2)));          {object V8 = (*(LnkLI46))(cadr((V2)));
39          VMR1(V8)}          VMR1(V8)}
40  goto T15;          goto T15;
41  T15:;  T15:;
42          if((V7!= Cnil))goto T16;          if((V7!= Cnil))goto T16;
43          if(!(endp_prop(cddr((V2))))){          if(!(endp_prop(cddr((V2))))){
44          goto T18;}          goto T18;}
45          {object V9 = (*(LnkLI47))();          {object V9 = (*(LnkLI47))();
46          VMR1(V9)}          VMR1(V9)}
47  goto T18;          goto T18;
48  T18:;  T18:;
49          {object V10 = (*(LnkLI46))(caddr((V2)));          {object V10 = (*(LnkLI46))(caddr((V2)));
50          VMR1(V10)}          VMR1(V10)}
51  goto T16;          goto T16;
52  T16:;  T16:;
53          V3= (VFUN_NARGS=0,(*(LnkLI48))());          V3= (VFUN_NARGS=0,(*(LnkLI48))());
54          V11= (*(LnkLI49))((V4),(V3));          V11= (*(LnkLI49))((V4),(V3));
# Line 57  T16:; Line 57  T16:;
57          goto T24;}          goto T24;}
58          V13= (*(LnkLI47))();          V13= (*(LnkLI47))();
59          goto T22;          goto T22;
60  goto T24;          goto T24;
61  T24:;  T24:;
62          V13= (*(LnkLI50))(caddr((V2)),(V3));          V13= (*(LnkLI50))(caddr((V2)),(V3));
63  goto T22;          goto T22;
64  T22:;  T22:;
65          {object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13);          {object V14 = list(5,VV[0],(V3),/* INLINE-ARGS */V11,/* INLINE-ARGS */V12,V13);
66          VMR1(V14)}}}          VMR1(V14)}}}
# Line 72  static object LI2(V16) Line 72  static object LI2(V16)
72    
73  register object V16;  register object V16;
74  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
75  goto TTL;          goto TTL;
76  TTL:;  TTL:;
77          {register object V17;          {register object V17;
78          V17= Cnil;          V17= Cnil;
# Line 82  TTL:; Line 82  TTL:;
82          if((V18!= VV[1]))goto T30;          if((V18!= VV[1]))goto T30;
83          {register object V19;          {register object V19;
84          V19= cdr((V16));          V19= cdr((V16));
85  goto T33;          goto T33;
86  T33:;  T33:;
87          if(!(endp_prop((V19)))){          if(!(endp_prop((V19)))){
88          goto T34;}          goto T34;}
89          {object V20 = Ct;          {object V20 = Ct;
90          VMR2(V20)}          VMR2(V20)}
91  goto T34;          goto T34;
92  T34:;  T34:;
93          V17= (*(LnkLI45))(car((V19)));          V17= (*(LnkLI45))(car((V19)));
94          {object V21= (V17);          {object V21= (V17);
95          if((V21!= Ct))goto T41;          if((V21!= Ct))goto T41;
96          goto T40;          goto T40;
97  goto T41;          goto T41;
98  T41:;  T41:;
99          if((V21!= Cnil))goto T42;          if((V21!= Cnil))goto T42;
100          {object V22 = Cnil;          {object V22 = Cnil;
101          VMR2(V22)}          VMR2(V22)}
102  goto T42;          goto T42;
103  T42:;  T42:;
104          if(!(endp_prop(cdr((V19))))){          if(!(endp_prop(cdr((V19))))){
105          goto T44;}          goto T44;}
106          {object V23 = (V17);          {object V23 = (V17);
107          VMR2(V23)}          VMR2(V23)}
108  goto T44;          goto T44;
109  T44:;  T44:;
110          {object V24 = listA(3,VV[1],(V17),cdr((V19)));          {object V24 = listA(3,VV[1],(V17),cdr((V19)));
111          VMR2(V24)}}          VMR2(V24)}}
112  goto T40;          goto T40;
113  T40:;  T40:;
114          V19= cdr((V19));          V19= cdr((V19));
115          goto T33;}          goto T33;}
116  goto T30;          goto T30;
117  T30:;  T30:;
118          if((V18!= VV[2]))goto T49;          if((V18!= VV[2]))goto T49;
119          {register object V25;          {register object V25;
120          V25= cdr((V16));          V25= cdr((V16));
121  goto T52;          goto T52;
122  T52:;  T52:;
123          if(!(endp_prop((V25)))){          if(!(endp_prop((V25)))){
124          goto T53;}          goto T53;}
125          {object V26 = Cnil;          {object V26 = Cnil;
126          VMR2(V26)}          VMR2(V26)}
127  goto T53;          goto T53;
128  T53:;  T53:;
129          V17= (*(LnkLI45))(car((V25)));          V17= (*(LnkLI45))(car((V25)));
130          {object V27= (V17);          {object V27= (V17);
131          if((V27!= Ct))goto T60;          if((V27!= Ct))goto T60;
132          {object V28 = Ct;          {object V28 = Ct;
133          VMR2(V28)}          VMR2(V28)}
134  goto T60;          goto T60;
135  T60:;  T60:;
136          if((V27!= Cnil))goto T61;          if((V27!= Cnil))goto T61;
137          goto T59;          goto T59;
138  goto T61;          goto T61;
139  T61:;  T61:;
140          if(!(endp_prop(cdr((V25))))){          if(!(endp_prop(cdr((V25))))){
141          goto T63;}          goto T63;}
142          {object V29 = (V17);          {object V29 = (V17);
143          VMR2(V29)}          VMR2(V29)}
144  goto T63;          goto T63;
145  T63:;  T63:;
146          {object V30 = listA(3,VV[2],(V17),cdr((V25)));          {object V30 = listA(3,VV[2],(V17),cdr((V25)));
147          VMR2(V30)}}          VMR2(V30)}}
148  goto T59;          goto T59;
149  T59:;  T59:;
150          V25= cdr((V25));          V25= cdr((V25));
151          goto T52;}          goto T52;}
152  goto T49;          goto T49;
153  T49:;  T49:;
154          if((V18!= VV[3])          if((V18!= VV[3])
155          && (V18!= VV[51]))goto T68;          && (V18!= VV[51]))goto T68;
156          if(!(endp_prop(cdr((V16))))){          if(!(endp_prop(cdr((V16))))){
157          goto T69;}          goto T69;}
158          (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));
159  goto T69;          goto T69;
160  T69:;  T69:;
161          if(endp_prop(cddr((V16)))){          if(endp_prop(cddr((V16)))){
162          goto T72;}          goto T72;}
163          V31 = make_fixnum((long)length(cdr((V16))));          V31 = make_fixnum((long)length(cdr((V16))));
164          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V31));
165  goto T72;          goto T72;
166  T72:;  T72:;
167          V17= (*(LnkLI45))(cadr((V16)));          V17= (*(LnkLI45))(cadr((V16)));
168          {object V32= (V17);          {object V32= (V17);
169          if((V32!= Ct))goto T77;          if((V32!= Ct))goto T77;
170          {object V33 = Cnil;          {object V33 = Cnil;
171          VMR2(V33)}          VMR2(V33)}
172  goto T77;          goto T77;
173  T77:;  T77:;
174          if((V32!= Cnil))goto T78;          if((V32!= Cnil))goto T78;
175          {object V34 = Ct;          {object V34 = Ct;
176          VMR2(V34)}          VMR2(V34)}
177  goto T78;          goto T78;
178  T78:;  T78:;
179          {object V35 = list(2,VV[3],(V17));          {object V35 = list(2,VV[3],(V17));
180          VMR2(V35)}}          VMR2(V35)}}
181  goto T68;          goto T68;
182  T68:;  T68:;
183          {object V36 = (V16);          {object V36 = (V16);
184          VMR2(V36)}}          VMR2(V36)}}
185  goto T28;          goto T28;
186  T28:;  T28:;
187          if(!(type_of((V16))==t_symbol)){          if(!(type_of((V16))==t_symbol)){
188          goto T80;}          goto T80;}
# Line 200  T28:; Line 200  T28:;
200          goto T87;}          goto T87;}
201          {object V37 = Ct;          {object V37 = Ct;
202          VMR2(V37)}          VMR2(V37)}
203  goto T87;          goto T87;
204  T87:;  T87:;
205          {object V38 = Cnil;          {object V38 = Cnil;
206          VMR2(V38)}          VMR2(V38)}
207  goto T83;          goto T83;
208  T83:;  T83:;
209          {object V39 = (V16);          {object V39 = (V16);
210          VMR2(V39)}          VMR2(V39)}
211  goto T80;          goto T80;
212  T80:;  T80:;
213          {object V40 = Ct;          {object V40 = Ct;
214          VMR2(V40)}}          VMR2(V40)}}
# Line 221  static object LI3(V43,V44) Line 221  static object LI3(V43,V44)
221    
222  register object V43;register object V44;  register object V43;register object V44;
223  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
224  goto TTL;          goto TTL;
225  TTL:;  TTL:;
226          if(!(type_of((V43))==t_cons)){          if(!(type_of((V43))==t_cons)){
227          goto T91;}          goto T91;}
228          {object V45= car((V43));          {object V45= car((V43));
229          if((V45!= VV[1]))goto T93;switch((long)length(cdr((V43)))){          if((V45!= VV[1]))goto T93;switch((long)length(cdr((V43)))){
230          case 0:          case 0:
231  goto T95;          goto T95;
232  T95:;  T95:;
233          {object V46 = (*(LnkLI52))();          {object V46 = (*(LnkLI52))();
234          VMR3(V46)}          VMR3(V46)}
235          case 1:          case 1:
236  goto T96;          goto T96;
237  T96:;  T96:;
238          V43= cadr((V43));          V43= cadr((V43));
239          goto TTL;          goto TTL;
240          default:          default:
241  goto T97;          goto T97;
242  T97:;  T97:;
243          {object V48;          {object V48;
244          object V49= cdr((V43));          object V49= cdr((V43));
# Line 246  T97:; Line 246  T97:;
246          V47= Cnil;          V47= Cnil;
247          goto T102;}          goto T102;}
248          base[0]=V48=MMcons(Cnil,Cnil);          base[0]=V48=MMcons(Cnil,Cnil);
249  goto T103;          goto T103;
250  T103:;  T103:;
251          {register object V50;          {register object V50;
252          V50= (V49->c.c_car);          V50= (V49->c.c_car);
# Line 257  T103:; Line 257  T103:;
257          goto T102;}          goto T102;}
258          V48=MMcdr(V48)=MMcons(Cnil,Cnil);          V48=MMcdr(V48)=MMcons(Cnil,Cnil);
259          goto T103;}          goto T103;}
260  goto T102;          goto T102;
261  T102:;  T102:;
262          {object V51 = make_cons(VV[4],V47);          {object V51 = make_cons(VV[4],V47);
263          VMR3(V51)}          VMR3(V51)}
# Line 265  T102:; Line 265  T102:;
265          VMR3(V52)}}          VMR3(V52)}}
266          {object V53 = Cnil;          {object V53 = Cnil;
267          VMR3(V53)}          VMR3(V53)}
268  goto T93;          goto T93;
269  T93:;  T93:;
270          if((V45!= VV[2]))goto T105;switch((long)length(cdr((V43)))){          if((V45!= VV[2]))goto T105;switch((long)length(cdr((V43)))){
271          case 0:          case 0:
272  goto T107;          goto T107;
273  T107:;  T107:;
274          {object V54 = (*(LnkLI47))();          {object V54 = (*(LnkLI47))();
275          VMR3(V54)}          VMR3(V54)}
276          case 1:          case 1:
277  goto T108;          goto T108;
278  T108:;  T108:;
279          V43= cadr((V43));          V43= cadr((V43));
280          goto TTL;          goto TTL;
281          default:          default:
282  goto T109;          goto T109;
283  T109:;  T109:;
284          {object V56;          {object V56;
285          object V57= cdr((V43));          object V57= cdr((V43));
# Line 287  T109:; Line 287  T109:;
287          V55= Cnil;          V55= Cnil;
288          goto T114;}          goto T114;}
289          base[0]=V56=MMcons(Cnil,Cnil);          base[0]=V56=MMcons(Cnil,Cnil);
290  goto T115;          goto T115;
291  T115:;  T115:;
292          {register object V58;          {register object V58;
293          V58= (V57->c.c_car);          V58= (V57->c.c_car);
# Line 298  T115:; Line 298  T115:;
298          goto T114;}          goto T114;}
299          V56=MMcdr(V56)=MMcons(Cnil,Cnil);          V56=MMcdr(V56)=MMcons(Cnil,Cnil);
300          goto T115;}          goto T115;}
301  goto T114;          goto T114;
302  T114:;  T114:;
303          {object V59 = make_cons(VV[5],V55);          {object V59 = make_cons(VV[5],V55);
304          VMR3(V59)}          VMR3(V59)}
# Line 306  T114:; Line 306  T114:;
306          VMR3(V60)}}          VMR3(V60)}}
307          {object V61 = Cnil;          {object V61 = Cnil;
308          VMR3(V61)}          VMR3(V61)}
309  goto T105;          goto T105;
310  T105:;  T105:;
311          if((V45!= VV[3])          if((V45!= VV[3])
312          && (V45!= VV[51]))goto T117;          && (V45!= VV[51]))goto T117;
313          if(!(endp_prop(cdr((V43))))){          if(!(endp_prop(cdr((V43))))){
314          goto T118;}          goto T118;}
315          (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI43))(VV[3],small_fixnum(1),small_fixnum(0)));
316  goto T118;          goto T118;
317  T118:;  T118:;
318          if(endp_prop(cddr((V43)))){          if(endp_prop(cddr((V43)))){
319          goto T121;}          goto T121;}
320          V62 = make_fixnum((long)length(cdr((V43))));          V62 = make_fixnum((long)length(cdr((V43))));
321          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));          (void)((*(LnkLI44))(VV[3],small_fixnum(1),V62));
322  goto T121;          goto T121;
323  T121:;  T121:;
324          {object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44)));          {object V63 = list(2,VV[6],(*(LnkLI49))(cadr((V43)),(V44)));
325          VMR3(V63)}          VMR3(V63)}
326  goto T117;          goto T117;
327  T117:;  T117:;
328          V64= list(3,VV[7],VV[8],(V43));          V64= list(3,VV[7],VV[8],(V43));
329          {object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44));          {object V65 = (*(LnkLI50))(/* INLINE-ARGS */V64,(V44));
330          VMR3(V65)}}          VMR3(V65)}}
331  goto T91;          goto T91;
332  T91:;  T91:;
333          {object V66 = (*(LnkLI50))((V43),(V44));          {object V66 = (*(LnkLI50))((V43),(V44));
334          VMR3(V66)}          VMR3(V66)}
# Line 350  static void L4() Line 350  static void L4()
350          V68=(base[1]);          V68=(base[1]);
351          V69=(base[2]);          V69=(base[2]);
352          vs_top=sup;          vs_top=sup;
353  goto TTL;          goto TTL;
354  TTL:;  TTL:;
355          {register object V70;          {register object V70;
356          register object V71;          register object V71;
# Line 375  TTL:; Line 375  TTL:;
375          bds_unwind1;}          bds_unwind1;}
376          if((cdr((V70)))==Cnil){          if((cdr((V70)))==Cnil){
377          goto T139;}          goto T139;}
378          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
379          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(car((V70))));
380          princ_char(59,VV[16]);          princ_char(59,VV[16]);
381          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
382          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(car((V70))));
383          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
384  goto T139;          goto T139;
385  T139:;  T139:;
386          base[4]= (V68);          base[4]= (V68);
387          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
388          (void) (*Lnk55)();          (void) (*Lnk55)();
389          return;          return;
390  goto T128;          goto T128;
391  T128:;  T128:;
392          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
393          V71= make_cons(symbol_value(VV[9]),Cnil);          V71= make_cons(symbol_value(VV[9]),Cnil);
# Line 399  T128:; Line 399  T128:;
399          bds_unwind1;          bds_unwind1;
400          if((cdr((V70)))==Cnil){          if((cdr((V70)))==Cnil){
401          goto T155;}          goto T155;}
402          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
403          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(car((V70))));
404          princ_char(59,VV[16]);          princ_char(59,VV[16]);
405          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
406          (void)((*(LnkLI54))(car((V70))));          (void)((*(LnkLI54))(car((V70))));
407          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
408  goto T155;          goto T155;
409  T155:;  T155:;
410          base[4]= make_cons(VV[17],symbol_value(VV[15]));          base[4]= make_cons(VV[17],symbol_value(VV[15]));
411          bds_bind(VV[15],base[4]);          bds_bind(VV[15],base[4]);
# Line 416  T155:; Line 416  T155:;
416          bds_unwind1;          bds_unwind1;
417          if((cdr((V71)))==Cnil){          if((cdr((V71)))==Cnil){
418          goto T168;}          goto T168;}
419          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
420          (void)((*(LnkLI54))(car((V71))));          (void)((*(LnkLI54))(car((V71))));
421          princ_char(59,VV[16]);          princ_char(59,VV[16]);
422          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
423          (void)((*(LnkLI54))(car((V71))));          (void)((*(LnkLI54))(car((V71))));
424          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
425  goto T168;          goto T168;
426  T168:;  T168:;
427          base[4]= (V69);          base[4]= (V69);
428          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 437  static object LI5(V78,V79,V80) Line 437  static object LI5(V78,V79,V80)
437  object V78;object V79;object V80;  object V78;object V79;object V80;
438  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
439          bds_check;          bds_check;
440  goto TTL;          goto TTL;
441  TTL:;  TTL:;
442          {object V81= car((V78));          {object V81= car((V78));
443          if((V81!= VV[4]))goto T179;          if((V81!= VV[4]))goto T179;
444          {register object V82;          {register object V82;
445          V82= cdr((V78));          V82= cdr((V78));
446  goto T182;          goto T182;
447  T182:;  T182:;
448          if(!(endp_prop(cdr((V82))))){          if(!(endp_prop(cdr((V82))))){
449          goto T183;}          goto T183;}
450          V78= car((V82));          V78= car((V82));
451          goto TTL;          goto TTL;
452  goto T183;          goto T183;
453  T183:;  T183:;
454          {register object V83;          {register object V83;
455          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
# Line 459  T183:; Line 459  T183:;
459          if((cdr((V83)))==Cnil){          if((cdr((V83)))==Cnil){
460          bds_unwind1;          bds_unwind1;
461          goto T191;}          goto T191;}
462          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
463          (void)((*(LnkLI54))(car((V83))));          (void)((*(LnkLI54))(car((V83))));
464          princ_char(59,VV[16]);          princ_char(59,VV[16]);
465          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
466          (void)((*(LnkLI54))(car((V83))));          (void)((*(LnkLI54))(car((V83))));
467          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
468          bds_unwind1;}          bds_unwind1;}
469  goto T191;          goto T191;
470  T191:;  T191:;
471          V82= cdr((V82));          V82= cdr((V82));
472          goto T182;}          goto T182;}
473  goto T179;          goto T179;
474  T179:;  T179:;
475          if((V81!= VV[5]))goto T208;          if((V81!= VV[5]))goto T208;
476          {register object V84;          {register object V84;
477          V84= cdr((V78));          V84= cdr((V78));
478  goto T211;          goto T211;
479  T211:;  T211:;
480          if(!(endp_prop(cdr((V84))))){          if(!(endp_prop(cdr((V84))))){
481          goto T212;}          goto T212;}
482          V78= car((V84));          V78= car((V84));
483          goto TTL;          goto TTL;
484  goto T212;          goto T212;
485  T212:;  T212:;
486          {register object V85;          {register object V85;
487          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
# Line 491  T212:; Line 491  T212:;
491          if((cdr((V85)))==Cnil){          if((cdr((V85)))==Cnil){
492          bds_unwind1;          bds_unwind1;
493          goto T220;}          goto T220;}
494          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
495          (void)((*(LnkLI54))(car((V85))));          (void)((*(LnkLI54))(car((V85))));
496          princ_char(59,VV[16]);          princ_char(59,VV[16]);
497          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
498          (void)((*(LnkLI54))(car((V85))));          (void)((*(LnkLI54))(car((V85))));
499          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
500          bds_unwind1;}          bds_unwind1;}
501  goto T220;          goto T220;
502  T220:;  T220:;
503          V84= cdr((V84));          V84= cdr((V84));
504          goto T211;}          goto T211;}
505  goto T208;          goto T208;
506  T208:;  T208:;
507          if((V81!= VV[6]))goto T237;          if((V81!= VV[6]))goto T237;
508          {object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79));          {object V86 = (*(LnkLI53))(cadr((V78)),(V80),(V79));
509          VMR5(V86)}          VMR5(V86)}
510  goto T237;          goto T237;
511  T237:;  T237:;
512          if((V81!= VV[10]))goto T238;          if((V81!= VV[10]))goto T238;
513          {object V87= caddr((V78));          {object V87= caddr((V78));
# Line 521  T237:; Line 521  T237:;
521          princ_char(59,VV[16]);          princ_char(59,VV[16]);
522          {object V88 = Cnil;          {object V88 = Cnil;
523          VMR5(V88)}          VMR5(V88)}
524  goto T239;          goto T239;
525  T239:;  T239:;
526          if((V87!= Cnil))goto T246;          if((V87!= Cnil))goto T246;
527          {object V89 = Cnil;          {object V89 = Cnil;
528          VMR5(V89)}          VMR5(V89)}
529  goto T246;          goto T246;
530  T246:;  T246:;
531          base[0]= list(2,VV[18],(V79));          base[0]= list(2,VV[18],(V79));
532          bds_bind(VV[11],base[0]);          bds_bind(VV[11],base[0]);
533          {object V90 = (*(LnkLI58))((V78));          {object V90 = (*(LnkLI58))((V78));
534          bds_unwind1;          bds_unwind1;
535          VMR5(V90)}}          VMR5(V90)}}
536  goto T238;          goto T238;
537  T238:;  T238:;
538          base[0]= list(2,VV[18],(V79));          base[0]= list(2,VV[18],(V79));
539          bds_bind(VV[11],base[0]);          bds_bind(VV[11],base[0]);
# Line 550  static object LI6(V95,V96,V97) Line 550  static object LI6(V95,V96,V97)
550  object V95;object V96;object V97;  object V95;object V96;object V97;
551  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
552          bds_check;          bds_check;
553  goto TTL;          goto TTL;
554  TTL:;  TTL:;
555          {object V98= car((V95));          {object V98= car((V95));
556          if((V98!= VV[4]))goto T249;          if((V98!= VV[4]))goto T249;
557          {register object V99;          {register object V99;
558          V99= cdr((V95));          V99= cdr((V95));
559  goto T252;          goto T252;
560  T252:;  T252:;
561          if(!(endp_prop(cdr((V99))))){          if(!(endp_prop(cdr((V99))))){
562          goto T253;}          goto T253;}
563          V95= car((V99));          V95= car((V99));
564          goto TTL;          goto TTL;
565  goto T253;          goto T253;
566  T253:;  T253:;
567          {register object V100;          {register object V100;
568          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
# Line 572  T253:; Line 572  T253:;
572          if((cdr((V100)))==Cnil){          if((cdr((V100)))==Cnil){
573          bds_unwind1;          bds_unwind1;
574          goto T261;}          goto T261;}
575          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
576          (void)((*(LnkLI54))(car((V100))));          (void)((*(LnkLI54))(car((V100))));
577          princ_char(59,VV[16]);          princ_char(59,VV[16]);
578          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
579          (void)((*(LnkLI54))(car((V100))));          (void)((*(LnkLI54))(car((V100))));
580          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
581          bds_unwind1;}          bds_unwind1;}
582  goto T261;          goto T261;
583  T261:;  T261:;
584          V99= cdr((V99));          V99= cdr((V99));
585          goto T252;}          goto T252;}
586  goto T249;          goto T249;
587  T249:;  T249:;
588          if((V98!= VV[5]))goto T278;          if((V98!= VV[5]))goto T278;
589          {register object V101;          {register object V101;
590          V101= cdr((V95));          V101= cdr((V95));
591  goto T281;          goto T281;
592  T281:;  T281:;
593          if(!(endp_prop(cdr((V101))))){          if(!(endp_prop(cdr((V101))))){
594          goto T282;}          goto T282;}
595          V95= car((V101));          V95= car((V101));
596          goto TTL;          goto TTL;
597  goto T282;          goto T282;
598  T282:;  T282:;
599          {register object V102;          {register object V102;
600          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
# Line 604  T282:; Line 604  T282:;
604          if((cdr((V102)))==Cnil){          if((cdr((V102)))==Cnil){
605          bds_unwind1;          bds_unwind1;
606          goto T290;}          goto T290;}
607          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
608          (void)((*(LnkLI54))(car((V102))));          (void)((*(LnkLI54))(car((V102))));
609          princ_char(59,VV[16]);          princ_char(59,VV[16]);
610          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
611          (void)((*(LnkLI54))(car((V102))));          (void)((*(LnkLI54))(car((V102))));
612          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
613          bds_unwind1;}          bds_unwind1;}
614  goto T290;          goto T290;
615  T290:;  T290:;
616          V101= cdr((V101));          V101= cdr((V101));
617          goto T281;}          goto T281;}
618  goto T278;          goto T278;
619  T278:;  T278:;
620          if((V98!= VV[6]))goto T307;          if((V98!= VV[6]))goto T307;
621          {object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96));          {object V103 = (*(LnkLI56))(cadr((V95)),(V97),(V96));
622          VMR6(V103)}          VMR6(V103)}
623  goto T307;          goto T307;
624  T307:;  T307:;
625          if((V98!= VV[10]))goto T308;          if((V98!= VV[10]))goto T308;
626          {object V104= caddr((V95));          {object V104= caddr((V95));
627          if((V104!= Ct))goto T309;          if((V104!= Ct))goto T309;
628          {object V105 = Cnil;          {object V105 = Cnil;
629          VMR6(V105)}          VMR6(V105)}
630  goto T309;          goto T309;
631  T309:;  T309:;
632          if((V104!= Cnil))goto T310;          if((V104!= Cnil))goto T310;
633          (void)((*(LnkLI57))((V97)));          (void)((*(LnkLI57))((V97)));
# Line 639  T309:; Line 639  T309:;
639          princ_char(59,VV[16]);          princ_char(59,VV[16]);
640          {object V106 = Cnil;          {object V106 = Cnil;
641          VMR6(V106)}          VMR6(V106)}
642  goto T310;          goto T310;
643  T310:;  T310:;
644          base[0]= list(2,VV[19],(V97));          base[0]= list(2,VV[19],(V97));
645          bds_bind(VV[11],base[0]);          bds_bind(VV[11],base[0]);
646          {object V107 = (*(LnkLI58))((V95));          {object V107 = (*(LnkLI58))((V95));
647          bds_unwind1;          bds_unwind1;
648          VMR6(V107)}}          VMR6(V107)}}
649  goto T308;          goto T308;
650  T308:;  T308:;
651          base[0]= list(2,VV[19],(V97));          base[0]= list(2,VV[19],(V97));
652          bds_bind(VV[11],base[0]);          bds_bind(VV[11],base[0]);
# Line 662  static object LI7(V110) Line 662  static object LI7(V110)
662    
663  register object V110;  register object V110;
664  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
665  goto TTL;          goto TTL;
666  TTL:;  TTL:;
667          if(!(endp_prop((V110)))){          if(!(endp_prop((V110)))){
668          goto T320;}          goto T320;}
669          {object V111 = (*(LnkLI52))();          {object V111 = (*(LnkLI52))();
670          VMR7(V111)}          VMR7(V111)}
671  goto T320;          goto T320;
672  T320:;  T320:;
673          if(!(endp_prop(cdr((V110))))){          if(!(endp_prop(cdr((V110))))){
674          goto T323;}          goto T323;}
675          {object V112 = (*(LnkLI46))(car((V110)));          {object V112 = (*(LnkLI46))(car((V110)));
676          VMR7(V112)}          VMR7(V112)}
677  goto T323;          goto T323;
678  T323:;  T323:;
679          {object V113;          {object V113;
680          V113= (VFUN_NARGS=0,(*(LnkLI48))());          V113= (VFUN_NARGS=0,(*(LnkLI48))());
# Line 693  static void L8() Line 693  static void L8()
693          check_arg(1);          check_arg(1);
694          V115=(base[0]);          V115=(base[0]);
695          vs_top=sup;          vs_top=sup;
696  goto TTL;          goto TTL;
697  TTL:;  TTL:;
698          {register object V116;          {register object V116;
699          V116= (V115);          V116= (V115);
700  goto T327;          goto T327;
701  T327:;  T327:;
702          if(!(endp_prop(cdr((V116))))){          if(!(endp_prop(cdr((V116))))){
703          goto T328;}          goto T328;}
# Line 705  T327:; Line 705  T327:;
705          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
706          (void) (*Lnk55)();          (void) (*Lnk55)();
707          return;          return;
708  goto T328;          goto T328;
709  T328:;  T328:;
710          if(!((caar((V116)))==(VV[10]))){          if(!((caar((V116)))==(VV[10]))){
711          goto T335;}          goto T335;}
712          {object V117= caddar((V116));          {object V117= caddar((V116));
713          if((V117!= Ct))goto T337;          if((V117!= Ct))goto T337;
714          goto T333;          goto T333;
715  goto T337;          goto T337;
716  T337:;  T337:;
717          if((V117!= Cnil))goto T338;          if((V117!= Cnil))goto T338;
718          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
719          goto T333;          goto T333;
720  goto T338;          goto T338;
721  T338:;  T338:;
722          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
723          (void)((*(LnkLI54))(caddar((V116))));          (void)((*(LnkLI54))(caddar((V116))));
# Line 725  T338:; Line 725  T338:;
725          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
726          princ_char(125,VV[16]);          princ_char(125,VV[16]);
727          goto T333;}          goto T333;}
728  goto T335;          goto T335;
729  T335:;  T335:;
730          if(!((caar((V116)))==(VV[20]))){          if(!((caar((V116)))==(VV[20]))){
731          goto T346;}          goto T346;}
# Line 735  T335:; Line 735  T335:;
735          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
736          princ_char(125,VV[16]);          princ_char(125,VV[16]);
737          goto T333;          goto T333;
738  goto T346;          goto T346;
739  T346:;  T346:;
740          {register object V118;          {register object V118;
741          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
# Line 749  T346:; Line 749  T346:;
749          if((cdr((V118)))==Cnil){          if((cdr((V118)))==Cnil){
750          bds_unwind1;          bds_unwind1;
751          goto T333;}          goto T333;}
752          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
753          (void)((*(LnkLI54))(car((V118))));          (void)((*(LnkLI54))(car((V118))));
754          princ_char(59,VV[16]);          princ_char(59,VV[16]);
755          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
756          (void)((*(LnkLI54))(car((V118))));          (void)((*(LnkLI54))(car((V118))));
757          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
758          bds_unwind1;}          bds_unwind1;}
759  goto T333;          goto T333;
760  T333:;  T333:;
761          V116= cdr((V116));          V116= cdr((V116));
762          goto T327;}          goto T327;}
# Line 768  static object LI9(V121) Line 768  static object LI9(V121)
768    
769  register object V121;  register object V121;
770  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
771  goto TTL;          goto TTL;
772  TTL:;  TTL:;
773          if(!(endp_prop((V121)))){          if(!(endp_prop((V121)))){
774          goto T374;}          goto T374;}
775          {object V122 = (*(LnkLI47))();          {object V122 = (*(LnkLI47))();
776          VMR9(V122)}          VMR9(V122)}
777  goto T374;          goto T374;
778  T374:;  T374:;
779          if(!(endp_prop(cdr((V121))))){          if(!(endp_prop(cdr((V121))))){
780          goto T377;}          goto T377;}
781          {object V123 = (*(LnkLI46))(car((V121)));          {object V123 = (*(LnkLI46))(car((V121)));
782          VMR9(V123)}          VMR9(V123)}
783  goto T377;          goto T377;
784  T377:;  T377:;
785          {object V124;          {object V124;
786          V124= (VFUN_NARGS=0,(*(LnkLI48))());          V124= (VFUN_NARGS=0,(*(LnkLI48))());
# Line 799  static void L10() Line 799  static void L10()
799          check_arg(1);          check_arg(1);
800          V126=(base[0]);          V126=(base[0]);
801          vs_top=sup;          vs_top=sup;
802  goto TTL;          goto TTL;
803  TTL:;  TTL:;
804          {object V127;          {object V127;
805          bds_bind(VV[21],symbol_value(VV[21]));          bds_bind(VV[21],symbol_value(VV[21]));
806          V127= Cnil;          V127= Cnil;
807          {register object V128;          {register object V128;
808          V128= (V126);          V128= (V126);
809  goto T382;          goto T382;
810  T382:;  T382:;
811          if(!(endp_prop(cdr((V128))))){          if(!(endp_prop(cdr((V128))))){
812          goto T383;}          goto T383;}
# Line 815  T382:; Line 815  T382:;
815          (void) (*Lnk55)();          (void) (*Lnk55)();
816          bds_unwind1;          bds_unwind1;
817          return;          return;
818  goto T383;          goto T383;
819  T383:;  T383:;
820          if(!((caar((V128)))==(VV[10]))){          if(!((caar((V128)))==(VV[10]))){
821          goto T390;}          goto T390;}
# Line 823  T383:; Line 823  T383:;
823          if((V129!= Ct))goto T392;          if((V129!= Ct))goto T392;
824          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Ct,VV[17])));
825          goto T388;          goto T388;
826  goto T392;          goto T392;
827  T392:;  T392:;
828          if((V129!= Cnil))goto T393;          if((V129!= Cnil))goto T393;
829          goto T388;          goto T388;
830  goto T393;          goto T393;
831  T393:;  T393:;
832          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
833          (void)((*(LnkLI54))(caddar((V128))));          (void)((*(LnkLI54))(caddar((V128))));
# Line 835  T393:; Line 835  T393:;
835          (void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(caddar((V128)),VV[17])));
836          princ_char(125,VV[16]);          princ_char(125,VV[16]);
837          goto T388;}          goto T388;}
838  goto T390;          goto T390;
839  T390:;  T390:;
840          if(!((caar((V128)))==(VV[20]))){          if(!((caar((V128)))==(VV[20]))){
841          goto T401;}          goto T401;}
# Line 846  T390:; Line 846  T390:;
846          (void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(/* INLINE-ARGS */V130,VV[17])));
847          princ_char(125,VV[16]);          princ_char(125,VV[16]);
848          goto T388;          goto T388;
849  goto T401;          goto T401;
850  T401:;  T401:;
851          if(!((caar((V128)))==(VV[22]))){          if(!((caar((V128)))==(VV[22]))){
852          goto T411;}          goto T411;}
# Line 864  T401:; Line 864  T401:;
864          if((cdr((V131)))==Cnil){          if((cdr((V131)))==Cnil){
865          bds_unwind1;          bds_unwind1;
866          goto T388;}          goto T388;}
867          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
868          (void)((*(LnkLI54))(car((V131))));          (void)((*(LnkLI54))(car((V131))));
869          princ_char(59,VV[16]);          princ_char(59,VV[16]);
870          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
# Line 872  T401:; Line 872  T401:;
872          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
873          bds_unwind1;          bds_unwind1;
874          goto T388;}          goto T388;}
875  goto T411;          goto T411;
876  T411:;  T411:;
877          {register object V133;          {register object V133;
878          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
# Line 894  T411:; Line 894  T411:;
894          (void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))((V127),VV[17])));
895          if((cdr((V133)))==Cnil){          if((cdr((V133)))==Cnil){
896          goto T446;}          goto T446;}
897          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
898          (void)((*(LnkLI54))(car((V133))));          (void)((*(LnkLI54))(car((V133))));
899          princ_char(59,VV[16]);          princ_char(59,VV[16]);
900          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
901          (void)((*(LnkLI54))(car((V133))));          (void)((*(LnkLI54))(car((V133))));
902          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
903  goto T446;          goto T446;
904  T446:;  T446:;
905          V135= (*(LnkLI63))();          V135= (*(LnkLI63))();
906          bds_unwind1;          bds_unwind1;
907          bds_unwind1;}          bds_unwind1;}
908  goto T388;          goto T388;
909  T388:;  T388:;
910          V128= cdr((V128));          V128= cdr((V128));
911          goto T382;}}          goto T382;}}
# Line 917  static object LI11(V138,V139) Line 917  static object LI11(V138,V139)
917    
918  register object V138;object V139;  register object V138;object V139;
919  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
920  goto TTL;          goto TTL;
921  TTL:;  TTL:;
922          if(((V138))==Cnil){          if(((V138))==Cnil){
923          goto T460;}          goto T460;}
# Line 926  TTL:; Line 926  TTL:;
926          if(((V140))==Cnil){          if(((V140))==Cnil){
927          goto T465;}          goto T465;}
928          goto T462;          goto T462;
929  goto T465;          goto T465;
930  T465:;  T465:;
931          if(!(type_of((V138))==t_cons)){          if(!(type_of((V138))==t_cons)){
932          goto T468;}          goto T468;}
# Line 940  T465:; Line 940  T465:;
940          vs_top=sup;          vs_top=sup;
941          princ_char(41,VV[16]);          princ_char(41,VV[16]);
942          goto T462;          goto T462;
943  goto T468;          goto T468;
944  T468:;  T468:;
945          princ_str("\n   if((",VV[16]);          princ_str("\n   if((",VV[16]);
946          (void)((*(LnkLI54))((V138)));          (void)((*(LnkLI54))((V138)));
947          princ_str(")!=Cnil)",VV[16]);}          princ_str(")!=Cnil)",VV[16]);}
948  goto T462;          goto T462;
949  T462:;  T462:;
950          if(((V138))==(Ct)){          if(((V138))==(Ct)){
951          goto T481;}          goto T481;}
952          princ_char(123,VV[16]);          princ_char(123,VV[16]);
953  goto T481;          goto T481;
954  T481:;  T481:;
955          (void)((*(LnkLI57))((V139)));          (void)((*(LnkLI57))((V139)));
956          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
# Line 964  T481:; Line 964  T481:;
964          princ_char(125,VV[16]);          princ_char(125,VV[16]);
965          {object V141 = Cnil;          {object V141 = Cnil;
966          VMR11(V141)}          VMR11(V141)}
967  goto T493;          goto T493;
968  T493:;  T493:;
969          {object V142 = Cnil;          {object V142 = Cnil;
970          VMR11(V142)}          VMR11(V142)}
971  goto T460;          goto T460;
972  T460:;  T460:;
973          {object V143 = Cnil;          {object V143 = Cnil;
974          VMR11(V143)}          VMR11(V143)}
# Line 981  static object LI12(V146,V147) Line 981  static object LI12(V146,V147)
981    
982  register object V146;object V147;  register object V146;object V147;
983  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
984  goto TTL;          goto TTL;
985  TTL:;  TTL:;
986          if(((V146))==(Ct)){          if(((V146))==(Ct)){
987          goto T497;}          goto T497;}
# Line 990  TTL:; Line 990  TTL:;
990          if(((V148))==Cnil){          if(((V148))==Cnil){
991          goto T502;}          goto T502;}
992          goto T499;          goto T499;
993  goto T502;          goto T502;
994  T502:;  T502:;
995          if(!(type_of((V146))==t_cons)){          if(!(type_of((V146))==t_cons)){
996          goto T505;}          goto T505;}
# Line 1004  T502:; Line 1004  T502:;
1004          vs_top=sup;          vs_top=sup;
1005          princ_str("))",VV[16]);          princ_str("))",VV[16]);
1006          goto T499;          goto T499;
1007  goto T505;          goto T505;
1008  T505:;  T505:;
1009          princ_str("\n   if((",VV[16]);          princ_str("\n   if((",VV[16]);
1010          (void)((*(LnkLI54))((V146)));          (void)((*(LnkLI54))((V146)));
1011          princ_str(")==Cnil)",VV[16]);}          princ_str(")==Cnil)",VV[16]);}
1012  goto T499;          goto T499;
1013  T499:;  T499:;
1014          if(((V146))==Cnil){          if(((V146))==Cnil){
1015          goto T518;}          goto T518;}
1016          princ_char(123,VV[16]);          princ_char(123,VV[16]);
1017  goto T518;          goto T518;
1018  T518:;  T518:;
1019          (void)((*(LnkLI57))((V147)));          (void)((*(LnkLI57))((V147)));
1020          princ_str("\n   ",VV[16]);          princ_str("\n   ",VV[16]);
# Line 1028  T518:; Line 1028  T518:;
1028          princ_char(125,VV[16]);          princ_char(125,VV[16]);
1029          {object V149 = Cnil;          {object V149 = Cnil;
1030          VMR12(V149)}          VMR12(V149)}
1031  goto T530;          goto T530;
1032  T530:;  T530:;
1033          {object V150 = Cnil;          {object V150 = Cnil;
1034          VMR12(V150)}          VMR12(V150)}
1035  goto T497;          goto T497;
1036  T497:;  T497:;
1037          {object V151 = Cnil;          {object V151 = Cnil;
1038          VMR12(V151)}          VMR12(V151)}
# Line 1045  static object LI13(V153) Line 1045  static object LI13(V153)
1045    
1046  object V153;  object V153;
1047  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1048  goto TTL;          goto TTL;
1049  TTL:;  TTL:;
1050          {object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct));          {object V154 = (VFUN_NARGS=2,(*(LnkLI65))((V153),Ct));
1051          VMR13(V154)}          VMR13(V154)}
# Line 1057  static object LI14(V157,V158) Line 1057  static object LI14(V157,V158)
1057    
1058  object V157;object V158;  object V157;object V158;
1059  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1060  goto TTL;          goto TTL;
1061  TTL:;  TTL:;
1062          {object V159;          {object V159;
1063          register object V160;          register object V160;
# Line 1072  TTL:; Line 1072  TTL:;
1072          register object V163;          register object V163;
1073          V162= cdr((V157));          V162= cdr((V157));
1074          V163= car((V162));          V163= car((V162));
1075  goto T538;          goto T538;
1076  T538:;  T538:;
1077          if(!(endp_prop((V162)))){          if(!(endp_prop((V162)))){
1078          goto T539;}          goto T539;}
1079          goto T534;          goto T534;
1080  goto T539;          goto T539;
1081  T539:;  T539:;
1082          if(!(type_of(car((V163)))==t_fixnum)){          if(!(type_of(car((V163)))==t_fixnum)){
1083          goto T545;}          goto T545;}
# Line 1085  T539:; Line 1085  T539:;
1085          V164= car((V163));          V164= car((V163));
1086          V160= make_cons((V164),(V160));          V160= make_cons((V164),(V160));
1087          goto T543;}          goto T543;}
1088  goto T545;          goto T545;
1089  T545:;  T545:;
1090          if(!(type_of(car((V163)))==t_cons)){          if(!(type_of(car((V163)))==t_cons)){
1091          goto T550;}          goto T550;}
# Line 1093  T545:; Line 1093  T545:;
1093          register object V166;          register object V166;
1094          V165= car((V163));          V165= car((V163));
1095          V166= car((V165));          V166= car((V165));
1096  goto T555;          goto T555;
1097  T555:;  T555:;
1098          if(!(endp_prop((V165)))){          if(!(endp_prop((V165)))){
1099          goto T556;}          goto T556;}
1100          goto T543;          goto T543;
1101  goto T556;          goto T556;
1102  T556:;  T556:;
1103          V160= make_cons(V166,(V160));          V160= make_cons(V166,(V160));
1104          V165= cdr((V165));          V165= cdr((V165));
1105          V166= car((V165));          V166= car((V165));
1106          goto T555;}          goto T555;}
1107  goto T550;          goto T550;
1108  T550:;  T550:;
1109          {register object x= car((V163)),V168= VV[26];          {register object x= car((V163)),V168= VV[26];
1110          while(!endp(V168))          while(!endp(V168))
# Line 1112  T550:; Line 1112  T550:;
1112          goto T568;          goto T568;
1113          }else V168=V168->c.c_cdr;          }else V168=V168->c.c_cdr;
1114          goto T543;}          goto T543;}
1115  goto T568;          goto T568;
1116  T568:;  T568:;
1117          if((V158)==Cnil){          if((V158)==Cnil){
1118          goto T569;}          goto T569;}
# Line 1120  T568:; Line 1120  T568:;
1120          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1121          (void) (*Lnk66)();          (void) (*Lnk66)();
1122          vs_top=sup;          vs_top=sup;
1123  goto T569;          goto T569;
1124  T569:;  T569:;
1125          V160= make_cons(Ct,(V160));          V160= make_cons(Ct,(V160));
1126  goto T543;          goto T543;
1127  T543:;  T543:;
1128          {object V170;          {object V170;
1129          V170= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163))));          V170= list(3,VV[28],(V159),make_cons(VV[29],cdr((V163))));
# Line 1131  T543:; Line 1131  T543:;
1131          V162= cdr((V162));          V162= cdr((V162));
1132          V163= car((V162));          V163= car((V162));
1133          goto T538;}          goto T538;}
1134  goto T534;          goto T534;
1135  T534:;  T534:;
1136          if(((V158))==Cnil){          if(((V158))==Cnil){
1137          goto T580;}          goto T580;}
# Line 1140  T534:; Line 1140  T534:;
1140          object V173;          object V173;
1141          V172= cdr((V157));          V172= cdr((V157));
1142          V173= car((V172));          V173= car((V172));
1143  goto T589;          goto T589;
1144  T589:;  T589:;
1145          if(!(endp_prop((V172)))){          if(!(endp_prop((V172)))){
1146          goto T590;}          goto T590;}
1147          goto T585;          goto T585;
1148  goto T590;          goto T590;
1149  T590:;  T590:;
1150          if(!(type_of(car((V173)))!=t_cons)){          if(!(type_of(car((V173)))!=t_cons)){
1151          goto T596;}          goto T596;}
# Line 1153  T590:; Line 1153  T590:;
1153          V174= car((V173));          V174= car((V173));
1154          V161= make_cons((V174),(V161));          V161= make_cons((V174),(V161));
1155          goto T594;}          goto T594;}
1156  goto T596;          goto T596;
1157  T596:;  T596:;
1158          V161= append(car((V173)),(V161));          V161= append(car((V173)),(V161));
1159  goto T594;          goto T594;
1160  T594:;  T594:;
1161          V172= cdr((V172));          V172= cdr((V172));
1162          V173= car((V172));          V173= car((V172));
1163          goto T589;}          goto T589;}
1164  goto T585;          goto T585;
1165  T585:;  T585:;
1166          {object V175;          {object V175;
1167          V176= car((V157));          V176= car((V157));
1168          V175= list(4,VV[30],VV[31],/* INLINE-ARGS */V176,list(2,VV[32],(V161)));          V175= list(4,VV[30],VV[31],/* INLINE-ARGS */V176,list(2,VV[32],(V161)));
1169          V160= make_cons((V175),(V160));}          V160= make_cons((V175),(V160));}
1170  goto T580;          goto T580;
1171  T580:;  T580:;
1172          V177= car((V157));          V177= car((V157));
1173          {object V178 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V177,nreverse((V160))));          {object V178 = list(3,VV[33],(V159),listA(3,VV[34],/* INLINE-ARGS */V177,nreverse((V160))));
# Line 1192  static object LI15(object V179,object fi Line 1192  static object LI15(object V179,object fi
1192          else {          else {
1193          V181= first;}          V181= first;}
1194          --narg; goto T609;          --narg; goto T609;
1195  goto T608;          goto T608;
1196  T608:;  T608:;
1197          V181= Cnil;          V181= Cnil;
1198  goto T609;          goto T609;
1199  T609:;  T609:;
1200          if(!(endp_prop((V180)))){          if(!(endp_prop((V180)))){
1201          goto T611;}          goto T611;}
1202          (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI43))(VV[35],small_fixnum(1),small_fixnum(0)));
1203  goto T611;          goto T611;
1204  T611:;  T611:;
1205          {register object V182;          {register object V182;
1206          object V183;          object V183;
# Line 1218  T611:; Line 1218  T611:;
1218          V185= (*(LnkLI68))((V180),(V181));          V185= (*(LnkLI68))((V180),(V181));
1219          {object V186 = (*(LnkLI46))(/* INLINE-ARGS */V185);          {object V186 = (*(LnkLI46))(/* INLINE-ARGS */V185);
1220          VMR15(V186)}          VMR15(V186)}
1221  goto T617;          goto T617;
1222  T617:;  T617:;
1223          {register object V187;          {register object V187;
1224          register object V188;          register object V188;
1225          V187= cdr((V180));          V187= cdr((V180));
1226          V188= car((V187));          V188= car((V187));
1227  goto T626;          goto T626;
1228  T626:;  T626:;
1229          if(!(endp_prop((V187)))){          if(!(endp_prop((V187)))){
1230          goto T627;}          goto T627;}
1231          goto T622;          goto T622;
1232  goto T627;          goto T627;
1233  T627:;  T627:;
1234          if(!(endp_prop((V188)))){          if(!(endp_prop((V188)))){
1235          goto T631;}          goto T631;}
1236          (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V188))));          (void)((VFUN_NARGS=2,(*(LnkLI69))(VV[38],(V188))));
1237  goto T631;          goto T631;
1238  T631:;  T631:;
1239          {object V189= car((V188));          {object V189= car((V188));
1240          if((V189!= Cnil))goto T635;          if((V189!= Cnil))goto T635;
1241          goto T634;          goto T634;
1242  goto T635;          goto T635;
1243  T635:;  T635:;
1244          if((V189!= Ct)          if((V189!= Ct)
1245          && (V189!= VV[70]))goto T636;          && (V189!= VV[70]))goto T636;
# Line 1249  T635:; Line 1249  T635:;
1249          goto T642;}          goto T642;}
1250          V190= VV[39];          V190= VV[39];
1251          goto T640;          goto T640;
1252  goto T642;          goto T642;
1253  T642:;  T642:;
1254          V190= VV[40];          V190= VV[40];
1255  goto T640;          goto T640;
1256  T640:;  T640:;
1257          (void)((VFUN_NARGS=1,(*(LnkLI69))(V190)));          (void)((VFUN_NARGS=1,(*(LnkLI69))(V190)));
1258  goto T637;          goto T637;
1259  T637:;  T637:;
1260          V181= (*(LnkLI71))(cdr((V188)));          V181= (*(LnkLI71))(cdr((V188)));
1261          (void)((*(LnkLI72))((V182),cadr((V181))));          (void)((*(LnkLI72))((V182),cadr((V181))));
1262          goto T634;          goto T634;
1263  goto T636;          goto T636;
1264  T636:;  T636:;
1265          {object V191;          {object V191;
1266          register object V192;          register object V192;
# Line 1272  T636:; Line 1272  T636:;
1272          V191= Cnil;          V191= Cnil;
1273          goto T646;}          goto T646;}
1274          base[6]=V193=MMcons(Cnil,Cnil);          base[6]=V193=MMcons(Cnil,Cnil);
1275  goto T650;          goto T650;
1276  T650:;  T650:;
1277          {register object V195;          {register object V195;
1278          V195= (V194->c.c_car);          V195= (V194->c.c_car);
# Line 1280  T650:; Line 1280  T650:;
1280          goto T653;}          goto T653;}
1281          (V193->c.c_car)= (V195);          (V193->c.c_car)= (V195);
1282          goto T651;          goto T651;
1283  goto T653;          goto T653;
1284  T653:;  T653:;
1285          (V193->c.c_car)= (*(LnkLI73))((V195));}          (V193->c.c_car)= (*(LnkLI73))((V195));}
1286  goto T651;          goto T651;
1287  T651:;  T651:;
1288          V194=MMcdr(V194);          V194=MMcdr(V194);
1289          if(endp(V194)){          if(endp(V194)){
# Line 1291  T651:; Line 1291  T651:;
1291          goto T646;}          goto T646;}
1292          V193=MMcdr(V193)=MMcons(Cnil,Cnil);          V193=MMcdr(V193)=MMcons(Cnil,Cnil);
1293          goto T650;}          goto T650;}
1294  goto T648;          goto T648;
1295  T648:;  T648:;
1296          if(!(type_of(car((V188)))==t_symbol)){          if(!(type_of(car((V188)))==t_symbol)){
1297          goto T656;}          goto T656;}
1298          V191= make_cons(car((V188)),Cnil);          V191= make_cons(car((V188)),Cnil);
1299          goto T646;          goto T646;
1300  goto T656;          goto T656;
1301  T656:;  T656:;
1302          V196= (*(LnkLI73))(car((V188)));          V196= (*(LnkLI73))(car((V188)));
1303          V191= make_cons(/* INLINE-ARGS */V196,Cnil);          V191= make_cons(/* INLINE-ARGS */V196,Cnil);
1304  goto T646;          goto T646;
1305  T646:;  T646:;
1306          V192= (*(LnkLI71))(cdr((V188)));          V192= (*(LnkLI71))(cdr((V188)));
1307          (void)((*(LnkLI72))((V182),cadr((V192))));          (void)((*(LnkLI72))((V182),cadr((V192))));
1308          {object V197;          {object V197;
1309          V197= make_cons((V191),(V192));          V197= make_cons((V191),(V192));
1310          V184= make_cons((V197),(V184));}}}          V184= make_cons((V197),(V184));}}}
1311  goto T634;          goto T634;
1312  T634:;  T634:;
1313          V187= cdr((V187));          V187= cdr((V187));
1314          V188= car((V187));          V188= car((V187));
1315          goto T626;}          goto T626;}
1316  goto T622;          goto T622;
1317  T622:;  T622:;
1318          V198= reverse((V184));          V198= reverse((V184));
1319          if((V181)!=Cnil){          if((V181)!=Cnil){
1320          V199= (V181);          V199= (V181);
1321          goto T667;}          goto T667;}
1322          V199= (*(LnkLI47))();          V199= (*(LnkLI47))();
1323  goto T667;          goto T667;
1324  T667:;  T667:;
1325          {object V200 = list(5,VV[35],(V182),(V183),/* INLINE-ARGS */V198,V199);          {object V200 = list(5,VV[35],(V182),(V183),/* INLINE-ARGS */V198,V199);
1326          VMR15(V200)}}          VMR15(V200)}}
# Line 1335  static object LI16(V204,V205,V206) Line 1335  static object LI16(V204,V205,V206)
1335  object V204;object V205;object V206;  object V204;object V205;object V206;
1336  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1337          bds_check;          bds_check;
1338  goto TTL;          goto TTL;
1339  TTL:;  TTL:;
1340          {register object V207;          {register object V207;
1341          setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1)));          setq(VV[41],number_plus(symbol_value(VV[41]),small_fixnum(1)));
# Line 1354  TTL:; Line 1354  TTL:;
1354          object V211;          object V211;
1355          V210= (V205);          V210= (V205);
1356          V211= car((V210));          V211= car((V210));
1357  goto T682;          goto T682;
1358  T682:;  T682:;
1359          if(!(endp_prop((V210)))){          if(!(endp_prop((V210)))){
1360          goto T683;}          goto T683;}
1361          goto T678;          goto T678;
1362  goto T683;          goto T683;
1363  T683:;  T683:;
1364          {object V212;          {object V212;
1365          register object V213;          register object V213;
# Line 1368  T683:; Line 1368  T683:;
1368          V212= make_cons(symbol_value(VV[9]),Cnil);          V212= make_cons(symbol_value(VV[9]),Cnil);
1369          V213= car((V211));          V213= car((V211));
1370          V214= Cnil;          V214= Cnil;
1371  goto T694;          goto T694;
1372  T694:;  T694:;
1373          if(!(((long)length((V213)))<=(5))){          if(!(((long)length((V213)))<=(5))){
1374          goto T695;}          goto T695;}
1375          goto T692;          goto T692;
1376  goto T695;          goto T695;
1377  T695:;  T695:;
1378          if(((V214))!=Cnil){          if(((V214))!=Cnil){
1379          goto T699;}          goto T699;}
1380          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
1381          V214= make_cons(symbol_value(VV[9]),Cnil);          V214= make_cons(symbol_value(VV[9]),Cnil);
1382  goto T699;          goto T699;
1383  T699:;  T699:;
1384          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
1385          {register object V216;          {register object V216;
1386          V216= small_fixnum(0);          V216= small_fixnum(0);
1387  goto T709;          goto T709;
1388  T709:;  T709:;
1389          if(!(number_compare((V216),small_fixnum(5))>=0)){          if(!(number_compare((V216),small_fixnum(5))>=0)){
1390          goto T710;}          goto T710;}
1391          goto T706;          goto T706;
1392  goto T710;          goto T710;
1393  T710:;  T710:;
1394          if(!(type_of(car((V213)))==t_symbol)){          if(!(type_of(car((V213)))==t_symbol)){
1395          goto T716;}          goto T716;}
# Line 1400  T710:; Line 1400  T710:;
1400          if((V217!= Ct))goto T723;          if((V217!= Ct))goto T723;
1401          princ_str("Ct",VV[16]);          princ_str("Ct",VV[16]);
1402          goto T722;          goto T722;
1403  goto T723;          goto T723;
1404  T723:;  T723:;
1405          if((V217!= Cnil))goto T725;          if((V217!= Cnil))goto T725;
1406          princ_str("Cnil",VV[16]);          princ_str("Cnil",VV[16]);
1407          goto T722;          goto T722;
1408  goto T725;          goto T725;
1409  T725:;  T725:;
1410          princ_str("VV[",VV[16]);          princ_str("VV[",VV[16]);
1411          V218= (*(LnkLI75))(car((V213)));          V218= (*(LnkLI75))(car((V213)));
1412          (void)((*(LnkLI54))(/* INLINE-ARGS */V218));          (void)((*(LnkLI54))(/* INLINE-ARGS */V218));
1413          princ_char(93,VV[16]);}          princ_char(93,VV[16]);}
1414  goto T722;          goto T722;
1415  T722:;  T722:;
1416          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1417          goto T714;          goto T714;
1418  goto T716;          goto T716;
1419  T716:;  T716:;
1420          princ_str("eql(V",VV[16]);          princ_str("eql(V",VV[16]);
1421          (void)((*(LnkLI54))((V207)));          (void)((*(LnkLI54))((V207)));
1422          princ_str(",VV[",VV[16]);          princ_str(",VV[",VV[16]);
1423          (void)((*(LnkLI54))(car((V213))));          (void)((*(LnkLI54))(car((V213))));
1424          princ_str("])",VV[16]);          princ_str("])",VV[16]);
1425  goto T714;          goto T714;
1426  T714:;  T714:;
1427          if(!(number_compare((V216),small_fixnum(4))<0)){          if(!(number_compare((V216),small_fixnum(4))<0)){
1428          goto T736;}          goto T736;}
1429          princ_str("\n   || ",VV[16]);          princ_str("\n   || ",VV[16]);
1430  goto T736;          goto T736;
1431  T736:;  T736:;
1432          {object V219;          {object V219;
1433          V219= car((V213));          V219= car((V213));
1434          V213= cdr((V213));}          V213= cdr((V213));}
1435          V216= one_plus((V216));          V216= one_plus((V216));
1436          goto T709;}          goto T709;}
1437  goto T706;          goto T706;
1438  T706:;  T706:;
1439          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1440          if(type_of((V214))!=t_cons)FEwrong_type_argument(Scons,(V214));          if(type_of((V214))!=t_cons)FEwrong_type_argument(Scons,(V214));
# Line 1443  T706:; Line 1443  T706:;
1443          (void)((*(LnkLI54))(car((V214))));          (void)((*(LnkLI54))(car((V214))));
1444          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1445          goto T694;          goto T694;
1446  goto T692;          goto T692;
1447  T692:;  T692:;
1448          princ_str("\n   if(",VV[16]);          princ_str("\n   if(",VV[16]);
1449  goto T760;          goto T760;
1450  T760:;  T760:;
1451          if(!(endp_prop((V213)))){          if(!(endp_prop((V213)))){
1452          goto T761;}          goto T761;}
1453          goto T758;          goto T758;
1454  goto T761;          goto T761;
1455  T761:;  T761:;
1456          if(!(type_of(car((V213)))==t_symbol)){          if(!(type_of(car((V213)))==t_symbol)){
1457          goto T767;}          goto T767;}
# Line 1462  T761:; Line 1462  T761:;
1462          if((V220!= Ct))goto T774;          if((V220!= Ct))goto T774;
1463          princ_str("Ct",VV[16]);          princ_str("Ct",VV[16]);
1464          goto T773;          goto T773;
1465  goto T774;          goto T774;
1466  T774:;  T774:;
1467          if((V220!= Cnil))goto T776;          if((V220!= Cnil))goto T776;
1468          princ_str("Cnil",VV[16]);          princ_str("Cnil",VV[16]);
1469          goto T773;          goto T773;
1470  goto T776;          goto T776;
1471  T776:;  T776:;
1472          princ_str("VV[",VV[16]);          princ_str("VV[",VV[16]);
1473          V221= (*(LnkLI75))(car((V213)));          V221= (*(LnkLI75))(car((V213)));
1474          (void)((*(LnkLI54))(/* INLINE-ARGS */V221));          (void)((*(LnkLI54))(/* INLINE-ARGS */V221));
1475          princ_char(93,VV[16]);}          princ_char(93,VV[16]);}
1476  goto T773;          goto T773;
1477  T773:;  T773:;
1478          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1479          goto T765;          goto T765;
1480  goto T767;          goto T767;
1481  T767:;  T767:;
1482          princ_str("!eql(V",VV[16]);          princ_str("!eql(V",VV[16]);
1483          (void)((*(LnkLI54))((V207)));          (void)((*(LnkLI54))((V207)));
1484          princ_str(",VV[",VV[16]);          princ_str(",VV[",VV[16]);
1485          (void)((*(LnkLI54))(car((V213))));          (void)((*(LnkLI54))(car((V213))));
1486          princ_str("])",VV[16]);          princ_str("])",VV[16]);
1487  goto T765;          goto T765;
1488  T765:;  T765:;
1489          if(endp_prop(cdr((V213)))){          if(endp_prop(cdr((V213)))){
1490          goto T787;}          goto T787;}
1491          princ_str("\n   && ",VV[16]);          princ_str("\n   && ",VV[16]);
1492  goto T787;          goto T787;
1493  T787:;  T787:;
1494          {object V222;          {object V222;
1495          V222= car((V213));          V222= car((V213));
1496          V213= cdr((V213));}          V213= cdr((V213));}
1497          goto T760;          goto T760;
1498  goto T758;          goto T758;
1499  T758:;  T758:;
1500          princ_char(41,VV[16]);          princ_char(41,VV[16]);
1501          if(type_of((V212))!=t_cons)FEwrong_type_argument(Scons,(V212));          if(type_of((V212))!=t_cons)FEwrong_type_argument(Scons,(V212));
# Line 1507  T758:; Line 1507  T758:;
1507          goto T804;}          goto T804;}
1508          if((cdr((V214)))==Cnil){          if((cdr((V214)))==Cnil){
1509          goto T804;}          goto T804;}
1510          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
1511          (void)((*(LnkLI54))(car((V214))));          (void)((*(LnkLI54))(car((V214))));
1512          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1513          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
1514          (void)((*(LnkLI54))(car((V214))));          (void)((*(LnkLI54))(car((V214))));
1515          princ_str(":;",VV[16]);          princ_str(":;",VV[16]);
1516  goto T804;          goto T804;
1517  T804:;  T804:;
1518          base[6]= make_cons(VV[17],symbol_value(VV[15]));          base[6]= make_cons(VV[17],symbol_value(VV[15]));
1519          bds_bind(VV[15],base[6]);          bds_bind(VV[15],base[6]);
# Line 1524  T804:; Line 1524  T804:;
1524          bds_unwind1;          bds_unwind1;
1525          if((cdr((V212)))==Cnil){          if((cdr((V212)))==Cnil){
1526          goto T687;}          goto T687;}
1527          princ_str("\ngoto T",VV[16]);          princ_str("\n   goto T",VV[16]);
1528          (void)((*(LnkLI54))(car((V212))));          (void)((*(LnkLI54))(car((V212))));
1529          princ_char(59,VV[16]);          princ_char(59,VV[16]);
1530          princ_str("\nT",VV[16]);          princ_str("\nT",VV[16]);
1531          (void)((*(LnkLI54))(car((V212))));          (void)((*(LnkLI54))(car((V212))));
1532          princ_str(":;",VV[16]);}          princ_str(":;",VV[16]);}
1533  goto T687;          goto T687;
1534  T687:;  T687:;
1535          V210= cdr((V210));          V210= cdr((V210));
1536          V211= car((V210));          V211= car((V210));
1537          goto T682;}          goto T682;}
1538  goto T678;          goto T678;
1539  T678:;  T678:;
1540          if(!(((V206))==(Ct))){          if(!(((V206))==(Ct))){
1541          goto T835;}          goto T835;}
# Line 1544  T678:; Line 1544  T678:;
1544          princ_str(");",VV[16]);          princ_str(");",VV[16]);
1545          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));          (void)((VFUN_NARGS=2,(*(LnkLI60))(Cnil,VV[17])));
1546          goto T833;          goto T833;
1547  goto T835;          goto T835;
1548  T835:;  T835:;
1549          base[3]= (V206);          base[3]= (V206);
1550          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1551          (void) (*Lnk55)();          (void) (*Lnk55)();
1552          vs_top=sup;          vs_top=sup;
1553  goto T833;          goto T833;
1554  T833:;  T833:;
1555          princ_char(125,VV[16]);          princ_char(125,VV[16]);
1556          {object V223 = (*(LnkLI63))();          {object V223 = (*(LnkLI63))();

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