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

Diff of /gcl/cmpnew/cmpmap.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:54 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "cmpmap.h"  #include "cmpmap.h"
4  init_cmpmap(){do_init(VV);}  void init_cmpmap(){do_init(VV);}
5  /*      local entry for function C1MAPCAR       */  /*      local entry for function C1MAPCAR       */
6    
7  static object LI1(V2)  static object LI1(V2)
8    
9  object V2;  object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11    goto TTL;
12  TTL:;  TTL:;
13          {object V3 = (*(LnkLI23))(VV[0],Ct,(V2));          {object V3 = (*(LnkLI23))(VV[0],Ct,(V2));
14          VMR1(V3)}          VMR1(V3)}
15            return Cnil;
16  }  }
17  /*      local entry for function C1MAPLIST      */  /*      local entry for function C1MAPLIST      */
18    
# Line 18  static object LI2(V5) Line 20  static object LI2(V5)
20    
21  object V5;  object V5;
22  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
23    goto TTL;
24  TTL:;  TTL:;
25          {object V6 = (*(LnkLI23))(VV[0],Cnil,(V5));          {object V6 = (*(LnkLI23))(VV[0],Cnil,(V5));
26          VMR2(V6)}          VMR2(V6)}
27            return Cnil;
28  }  }
29  /*      local entry for function C1MAPC */  /*      local entry for function C1MAPC */
30    
# Line 28  static object LI3(V8) Line 32  static object LI3(V8)
32    
33  object V8;  object V8;
34  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
35    goto TTL;
36  TTL:;  TTL:;
37          {object V9 = (*(LnkLI23))(VV[1],Ct,(V8));          {object V9 = (*(LnkLI23))(VV[1],Ct,(V8));
38          VMR3(V9)}          VMR3(V9)}
39            return Cnil;
40  }  }
41  /*      local entry for function C1MAPL */  /*      local entry for function C1MAPL */
42    
# Line 38  static object LI4(V11) Line 44  static object LI4(V11)
44    
45  object V11;  object V11;
46  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
47    goto TTL;
48  TTL:;  TTL:;
49          {object V12 = (*(LnkLI23))(VV[1],Cnil,(V11));          {object V12 = (*(LnkLI23))(VV[1],Cnil,(V11));
50          VMR4(V12)}          VMR4(V12)}
51            return Cnil;
52  }  }
53  /*      local entry for function C1MAPCAN       */  /*      local entry for function C1MAPCAN       */
54    
# Line 48  static object LI5(V14) Line 56  static object LI5(V14)
56    
57  object V14;  object V14;
58  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
59    goto TTL;
60  TTL:;  TTL:;
61          {object V15 = (*(LnkLI23))(VV[2],Ct,(V14));          {object V15 = (*(LnkLI23))(VV[2],Ct,(V14));
62          VMR5(V15)}          VMR5(V15)}
63            return Cnil;
64  }  }
65  /*      local entry for function C1MAPCON       */  /*      local entry for function C1MAPCON       */
66    
# Line 58  static object LI6(V17) Line 68  static object LI6(V17)
68    
69  object V17;  object V17;
70  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
71    goto TTL;
72  TTL:;  TTL:;
73          {object V18 = (*(LnkLI23))(VV[2],Cnil,(V17));          {object V18 = (*(LnkLI23))(VV[2],Cnil,(V17));
74          VMR6(V18)}          VMR6(V18)}
75            return Cnil;
76  }  }
77  /*      local entry for function C1MAP-FUNCTIONS        */  /*      local entry for function C1MAP-FUNCTIONS        */
78    
# Line 68  static object LI7(V22,V23,V24) Line 80  static object LI7(V22,V23,V24)
80    
81  object V22;object V23;register object V24;  object V22;object V23;register object V24;
82  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
83    goto TTL;
84  TTL:;  TTL:;
85          {object V25;          {object V25;
86          object V26;          object V26;
# Line 77  TTL:; Line 90  TTL:;
90          goto T4;}          goto T4;}
91          if(!(endp(cdr((V24))))){          if(!(endp(cdr((V24))))){
92          goto T3;}          goto T3;}
93    goto T4;
94  T4:;  T4:;
95          V27 = make_fixnum(length((V24)));          V27 = make_fixnum(length((V24)));
96          (void)((*(LnkLI24))(VV[3],small_fixnum(2),V27));          (void)((*(LnkLI24))(VV[3],small_fixnum(2),V27));
97    goto T3;
98  T3:;  T3:;
99          V25= (*(LnkLI25))(car((V24)));          V25= (*(LnkLI25))(car((V24)));
100          base[0]= cadr((V25));          base[0]= cadr((V25));
# Line 89  T3:; Line 104  T3:;
104          V26= vs_base[0];          V26= vs_base[0];
105          {object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(cdr((V24)),(V26)));          {object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(cdr((V24)),(V26)));
106          VMR7(V28)}}          VMR7(V28)}}
107            base[0]=base[0];
108            return Cnil;
109  }  }
110  /*      local entry for function C2MAPCAR       */  /*      local entry for function C2MAPCAR       */
111    
# Line 97  static object LI8(V32,V33,V34) Line 114  static object LI8(V32,V33,V34)
114  object V32;object V33;register object V34;  object V32;object V33;register object V34;
115  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
116          bds_check;          bds_check;
117    goto TTL;
118  TTL:;  TTL:;
119          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],symbol_value(VV[4]));
120          bds_bind(VV[5],small_fixnum(0));          bds_bind(VV[5],small_fixnum(0));
# Line 116  TTL:; Line 134  TTL:;
134          V38= Cnil;          V38= Cnil;
135          goto T18;}          goto T18;}
136          base[2]=V40=MMcons(Cnil,Cnil);          base[2]=V40=MMcons(Cnil,Cnil);
137    goto T19;
138  T19:;  T19:;
139          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
140          (V40->c.c_car)= list(2,VV[8],symbol_value(VV[9]));          (V40->c.c_car)= list(2,VV[8],symbol_value(VV[9]));
# Line 124  T19:; Line 143  T19:;
143          goto T18;}          goto T18;}
144          V40=MMcdr(V40)=MMcons(Cnil,Cnil);          V40=MMcdr(V40)=MMcons(Cnil,Cnil);
145          goto T19;}          goto T19;}
146    goto T18;
147  T18:;  T18:;
148          V39= Cnil;          V39= Cnil;
149          V39= (*(LnkLI29))((V32));          V39= (*(LnkLI29))((V32));
# Line 143  T18:; Line 163  T18:;
163          object V46;          object V46;
164          V45= (V38);          V45= (V38);
165          V46= car((V45));          V46= car((V45));
166    goto T38;
167  T38:;  T38:;
168          if(!(endp((V45)))){          if(!(endp((V45)))){
169          goto T39;}          goto T39;}
170          goto T34;          goto T34;
171    goto T39;
172  T39:;  T39:;
173          princ_str("\n   object ",VV[11]);          princ_str("\n   object ",VV[11]);
174          (void)((*(LnkLI32))((V46)));          (void)((*(LnkLI32))((V46)));
# Line 159  T39:; Line 181  T39:;
181          V45= cdr((V45));          V45= cdr((V45));
182          V46= car((V45));          V46= car((V45));
183          goto T38;}          goto T38;}
184    goto T34;
185  T34:;  T34:;
186          if((symbol_value(VV[12]))==Cnil){          if((symbol_value(VV[12]))==Cnil){
187          goto T60;}          goto T60;}
# Line 169  T34:; Line 192  T34:;
192          object V49;          object V49;
193          V48= cdr((V38));          V48= cdr((V38));
194          V49= car((V48));          V49= car((V48));
195    goto T70;
196  T70:;  T70:;
197          if(!(endp((V48)))){          if(!(endp((V48)))){
198          goto T71;}          goto T71;}
199          goto T66;          goto T66;
200    goto T71;
201  T71:;  T71:;
202          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
203          (void)((*(LnkLI32))((V49)));          (void)((*(LnkLI32))((V49)));
# Line 180  T71:; Line 205  T71:;
205          V48= cdr((V48));          V48= cdr((V48));
206          V49= car((V48));          V49= car((V48));
207          goto T70;}          goto T70;}
208    goto T66;
209  T66:;  T66:;
210          princ_str("){",VV[11]);          princ_str("){",VV[11]);
211          goto T58;          goto T58;
212    goto T60;
213  T60:;  T60:;
214          princ_str("\n   if(",VV[11]);          princ_str("\n   if(",VV[11]);
215          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(car((V38))));
# Line 191  T60:; Line 218  T60:;
218          object V51;          object V51;
219          V50= cdr((V38));          V50= cdr((V38));
220          V51= car((V50));          V51= car((V50));
221    goto T93;
222  T93:;  T93:;
223          if(!(endp((V50)))){          if(!(endp((V50)))){
224          goto T94;}          goto T94;}
225          goto T89;          goto T89;
226    goto T94;
227  T94:;  T94:;
228          princ_str("||",VV[11]);          princ_str("||",VV[11]);
229          (void)((*(LnkLI32))((V51)));          (void)((*(LnkLI32))((V51)));
# Line 202  T94:; Line 231  T94:;
231          V50= cdr((V50));          V50= cdr((V50));
232          V51= car((V50));          V51= car((V50));
233          goto T93;}          goto T93;}
234    goto T89;
235  T89:;  T89:;
236          princ_str("){",VV[11]);          princ_str("){",VV[11]);
237    goto T58;
238  T58:;  T58:;
239          (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));          (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
240          princ_char(125,VV[11]);          princ_char(125,VV[11]);
# Line 214  T58:; Line 245  T58:;
245          princ_str("=MMcons(Cnil,Cnil);",VV[11]);          princ_str("=MMcons(Cnil,Cnil);",VV[11]);
246          if((cdr((V35)))==Cnil){          if((cdr((V35)))==Cnil){
247          goto T117;}          goto T117;}
248            princ_str("\ngoto T",VV[11]);
249            (void)((*(LnkLI32))(car((V35))));
250            princ_char(59,VV[11]);
251          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
252          (void)((*(LnkLI32))(car((V35))));          (void)((*(LnkLI32))(car((V35))));
253          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
254    goto T117;
255  T117:;  T117:;
256          bds_bind(VV[14],list(2,VV[15],cadr((V37))));          bds_bind(VV[14],list(2,VV[15],cadr((V37))));
257          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
258          bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));          bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));
259          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));
260          if(((V33))==Cnil){          if(((V33))==Cnil){
261          goto T131;}          goto T135;}
262          {object V53;          {object V53;
263          object V54= (V38);          object V54= (V38);
264          if(endp(V54)){          if(endp(V54)){
265          V52= Cnil;          V52= Cnil;
266          goto T129;}          goto T133;}
267          base[5]=V53=MMcons(Cnil,Cnil);          base[5]=V53=MMcons(Cnil,Cnil);
268  T133:;{object V56;  goto T137;
269    T137:;{object V56;
270          V56= symbol_value(VV[19]);          V56= symbol_value(VV[19]);
271          (V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));}          (V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));}
272          if(endp(V54=MMcdr(V54))){          if(endp(V54=MMcdr(V54))){
273          V52= base[5];          V52= base[5];
         goto T129;}  
         V53=MMcdr(V53)=MMcons(Cnil,Cnil);  
274          goto T133;}          goto T133;}
275  T131:;          V53=MMcdr(V53)=MMcons(Cnil,Cnil);
276            goto T137;}
277    goto T135;
278    T135:;
279          {object V57;          {object V57;
280          object V58= (V38);          object V58= (V38);
281          if(endp(V58)){          if(endp(V58)){
282          V52= Cnil;          V52= Cnil;
283          goto T129;}          goto T133;}
284          base[5]=V57=MMcons(Cnil,Cnil);          base[5]=V57=MMcons(Cnil,Cnil);
285  T135:;  goto T139;
286    T139:;
287          (V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car));          (V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car));
288          if(endp(V58=MMcdr(V58))){          if(endp(V58=MMcdr(V58))){
289          V52= base[5];          V52= base[5];
290          goto T129;}          goto T133;}
291          V57=MMcdr(V57)=MMcons(Cnil,Cnil);          V57=MMcdr(V57)=MMcons(Cnil,Cnil);
292          goto T135;}          goto T139;}
293  T129:;  goto T133;
294    T133:;
295          (void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39))));          (void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39))));
296          if((cdr((VV[16]->s.s_dbind)))==Cnil){          if((cdr((VV[16]->s.s_dbind)))==Cnil){
297          bds_unwind1;          bds_unwind1;
298          bds_unwind1;          bds_unwind1;
299          bds_unwind1;          bds_unwind1;
300          goto T123;}          goto T127;}
301            princ_str("\ngoto T",VV[11]);
302            (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
303            princ_char(59,VV[11]);
304          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
305          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
306          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
307          bds_unwind1;          bds_unwind1;
308          bds_unwind1;          bds_unwind1;
309          bds_unwind1;          bds_unwind1;
310  T123:;  goto T127;
311    T127:;
312          if((symbol_value(VV[12]))==Cnil){          if((symbol_value(VV[12]))==Cnil){
313          goto T144;}          goto T152;}
314          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
315          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(car((V38))));
316          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 277  T123:; Line 320  T123:;
320          object V61;          object V61;
321          V60= cdr((V38));          V60= cdr((V38));
322          V61= car((V60));          V61= car((V60));
323  T156:;  goto T164;
324    T164:;
325          if(!(endp((V60)))){          if(!(endp((V60)))){
326          goto T157;}          goto T165;}
327          goto T152;          goto T160;
328  T157:;  goto T165;
329    T165:;
330          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
331          (void)((*(LnkLI32))((V61)));          (void)((*(LnkLI32))((V61)));
332          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 289  T157:; Line 334  T157:;
334          princ_str("))",VV[11]);          princ_str("))",VV[11]);
335          V60= cdr((V60));          V60= cdr((V60));
336          V61= car((V60));          V61= car((V60));
337          goto T156;}          goto T164;}
338  T152:;  goto T160;
339    T160:;
340          princ_str("){",VV[11]);          princ_str("){",VV[11]);
341          goto T142;          goto T150;
342  T144:;  goto T152;
343    T152:;
344          princ_str("\n   if((",VV[11]);          princ_str("\n   if((",VV[11]);
345          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(car((V38))));
346          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 303  T144:; Line 350  T144:;
350          object V63;          object V63;
351          V62= cdr((V38));          V62= cdr((V38));
352          V63= car((V62));          V63= car((V62));
353  T183:;  goto T191;
354    T191:;
355          if(!(endp((V62)))){          if(!(endp((V62)))){
356          goto T184;}          goto T192;}
357          goto T179;          goto T187;
358  T184:;  goto T192;
359    T192:;
360          princ_str("||(",VV[11]);          princ_str("||(",VV[11]);
361          (void)((*(LnkLI32))((V63)));          (void)((*(LnkLI32))((V63)));
362          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 315  T184:; Line 364  T184:;
364          princ_str("))==Cnil",VV[11]);          princ_str("))==Cnil",VV[11]);
365          V62= cdr((V62));          V62= cdr((V62));
366          V63= car((V62));          V63= car((V62));
367          goto T183;}          goto T191;}
368  T179:;  goto T187;
369    T187:;
370          princ_str("){",VV[11]);          princ_str("){",VV[11]);
371  T142:;  goto T150;
372    T150:;
373          (void)((VFUN_NARGS=2,(*(LnkLI33))((V36),VV[13])));          (void)((VFUN_NARGS=2,(*(LnkLI33))((V36),VV[13])));
374          princ_char(125,VV[11]);          princ_char(125,VV[11]);
375          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
# Line 337  T142:; Line 388  T142:;
388          bds_unwind1;          bds_unwind1;
389          bds_unwind1;          bds_unwind1;
390          VMR8(V64)}}          VMR8(V64)}}
391            base[0]=base[0];
392            return Cnil;
393  }  }
394  /*      local entry for function C2MAPC */  /*      local entry for function C2MAPC */
395    
# Line 345  static object LI9(V68,V69,V70) Line 398  static object LI9(V68,V69,V70)
398  object V68;object V69;register object V70;  object V68;object V69;register object V70;
399  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
400          bds_check;          bds_check;
401    goto TTL;
402  TTL:;  TTL:;
403          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],symbol_value(VV[4]));
404          bds_bind(VV[5],small_fixnum(0));          bds_bind(VV[5],small_fixnum(0));
# Line 358  TTL:; Line 412  TTL:;
412          object V76= (V70);          object V76= (V70);
413          if(endp(V76)){          if(endp(V76)){
414          V73= Cnil;          V73= Cnil;
415          goto T219;}          goto T227;}
416          base[2]=V75=MMcons(Cnil,Cnil);          base[2]=V75=MMcons(Cnil,Cnil);
417  T220:;  goto T228;
418    T228:;
419          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
420          (V75->c.c_car)= list(2,VV[8],symbol_value(VV[9]));          (V75->c.c_car)= list(2,VV[8],symbol_value(VV[9]));
421          if(endp(V76=MMcdr(V76))){          if(endp(V76=MMcdr(V76))){
422          V73= base[2];          V73= base[2];
423          goto T219;}          goto T227;}
424          V75=MMcdr(V75)=MMcons(Cnil,Cnil);          V75=MMcdr(V75)=MMcons(Cnil,Cnil);
425          goto T220;}          goto T228;}
426  T219:;  goto T227;
427    T227:;
428          V72= Cnil;          V72= Cnil;
429          V74= Cnil;          V74= Cnil;
430          V74= (*(LnkLI29))((V68));          V74= (*(LnkLI29))((V68));
# Line 387  T219:; Line 443  T219:;
443          object V81;          object V81;
444          V80= (V73);          V80= (V73);
445          V81= car((V80));          V81= car((V80));
446  T239:;  goto T247;
447    T247:;
448          if(!(endp((V80)))){          if(!(endp((V80)))){
449          goto T240;}          goto T248;}
450          goto T235;          goto T243;
451  T240:;  goto T248;
452    T248:;
453          princ_str("\n   object ",VV[11]);          princ_str("\n   object ",VV[11]);
454          (void)((*(LnkLI32))((V81)));          (void)((*(LnkLI32))((V81)));
455          princ_str("= ",VV[11]);          princ_str("= ",VV[11]);
# Line 402  T240:; Line 460  T240:;
460          V70= cdr((V70));}          V70= cdr((V70));}
461          V80= cdr((V80));          V80= cdr((V80));
462          V81= car((V80));          V81= car((V80));
463          goto T239;}          goto T247;}
464  T235:;  goto T243;
465    T243:;
466          if((symbol_value(VV[12]))==Cnil){          if((symbol_value(VV[12]))==Cnil){
467          goto T261;}          goto T269;}
468          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
469          (void)((*(LnkLI32))(car((V73))));          (void)((*(LnkLI32))(car((V73))));
470          princ_char(41,VV[11]);          princ_char(41,VV[11]);
# Line 413  T235:; Line 472  T235:;
472          object V84;          object V84;
473          V83= cdr((V73));          V83= cdr((V73));
474          V84= car((V83));          V84= car((V83));
475  T271:;  goto T279;
476    T279:;
477          if(!(endp((V83)))){          if(!(endp((V83)))){
478          goto T272;}          goto T280;}
479          goto T267;          goto T275;
480  T272:;  goto T280;
481    T280:;
482          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
483          (void)((*(LnkLI32))((V84)));          (void)((*(LnkLI32))((V84)));
484          princ_char(41,VV[11]);          princ_char(41,VV[11]);
485          V83= cdr((V83));          V83= cdr((V83));
486          V84= car((V83));          V84= car((V83));
487          goto T271;}          goto T279;}
488  T267:;  goto T275;
489    T275:;
490          princ_str("){",VV[11]);          princ_str("){",VV[11]);
491          goto T259;          goto T267;
492  T261:;  goto T269;
493    T269:;
494          princ_str("\n   if(",VV[11]);          princ_str("\n   if(",VV[11]);
495          (void)((*(LnkLI32))(car((V73))));          (void)((*(LnkLI32))(car((V73))));
496          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
# Line 435  T261:; Line 498  T261:;
498          object V86;          object V86;
499          V85= cdr((V73));          V85= cdr((V73));
500          V86= car((V85));          V86= car((V85));
501  T294:;  goto T302;
502    T302:;
503          if(!(endp((V85)))){          if(!(endp((V85)))){
504          goto T295;}          goto T303;}
505          goto T290;          goto T298;
506  T295:;  goto T303;
507    T303:;
508          princ_str("||",VV[11]);          princ_str("||",VV[11]);
509          (void)((*(LnkLI32))((V86)));          (void)((*(LnkLI32))((V86)));
510          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
511          V85= cdr((V85));          V85= cdr((V85));
512          V86= car((V85));          V86= car((V85));
513          goto T294;}          goto T302;}
514  T290:;  goto T298;
515    T298:;
516          princ_str("){",VV[11]);          princ_str("){",VV[11]);
517  T259:;  goto T267;
518    T267:;
519          (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));          (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
520          princ_char(125,VV[11]);          princ_char(125,VV[11]);
521          if((cdr((V71)))==Cnil){          if((cdr((V71)))==Cnil){
522          goto T312;}          goto T320;}
523            princ_str("\ngoto T",VV[11]);
524            (void)((*(LnkLI32))(car((V71))));
525            princ_char(59,VV[11]);
526          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
527          (void)((*(LnkLI32))(car((V71))));          (void)((*(LnkLI32))(car((V71))));
528          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
529  T312:;  goto T320;
530    T320:;
531          bds_bind(VV[14],VV[20]);          bds_bind(VV[14],VV[20]);
532          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
533          bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));          bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));
534          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));
535          if(((V69))==Cnil){          if(((V69))==Cnil){
536          goto T325;}          goto T337;}
537          {object V88;          {object V88;
538          object V89= (V73);          object V89= (V73);
539          if(endp(V89)){          if(endp(V89)){
540          V87= Cnil;          V87= Cnil;
541          goto T323;}          goto T335;}
542          base[5]=V88=MMcons(Cnil,Cnil);          base[5]=V88=MMcons(Cnil,Cnil);
543  T327:;{object V91;  goto T339;
544    T339:;{object V91;
545          V91= symbol_value(VV[19]);          V91= symbol_value(VV[19]);
546          (V88->c.c_car)= list(3,VV[18],V91,list(2,VV[15],cadr((V89->c.c_car))));}          (V88->c.c_car)= list(3,VV[18],V91,list(2,VV[15],cadr((V89->c.c_car))));}
547          if(endp(V89=MMcdr(V89))){          if(endp(V89=MMcdr(V89))){
548          V87= base[5];          V87= base[5];
549          goto T323;}          goto T335;}
550          V88=MMcdr(V88)=MMcons(Cnil,Cnil);          V88=MMcdr(V88)=MMcons(Cnil,Cnil);
551          goto T327;}          goto T339;}
552  T325:;  goto T337;
553    T337:;
554          {object V92;          {object V92;
555          object V93= (V73);          object V93= (V73);
556          if(endp(V93)){          if(endp(V93)){
557          V87= Cnil;          V87= Cnil;
558          goto T323;}          goto T335;}
559          base[5]=V92=MMcons(Cnil,Cnil);          base[5]=V92=MMcons(Cnil,Cnil);
560  T329:;  goto T341;
561    T341:;
562          (V92->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V93->c.c_car));          (V92->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V93->c.c_car));
563          if(endp(V93=MMcdr(V93))){          if(endp(V93=MMcdr(V93))){
564          V87= base[5];          V87= base[5];
565          goto T323;}          goto T335;}
566          V92=MMcdr(V92)=MMcons(Cnil,Cnil);          V92=MMcdr(V92)=MMcons(Cnil,Cnil);
567          goto T329;}          goto T341;}
568  T323:;  goto T335;
569    T335:;
570          (void)((VFUN_NARGS=3,(*(LnkLI34))((V68),V87,(V74))));          (void)((VFUN_NARGS=3,(*(LnkLI34))((V68),V87,(V74))));
571          if((cdr((VV[16]->s.s_dbind)))==Cnil){          if((cdr((VV[16]->s.s_dbind)))==Cnil){
572          bds_unwind1;          bds_unwind1;
573          bds_unwind1;          bds_unwind1;
574          bds_unwind1;          bds_unwind1;
575          goto T318;}          goto T330;}
576            princ_str("\ngoto T",VV[11]);
577            (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
578            princ_char(59,VV[11]);
579          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
580          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
581          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
582          bds_unwind1;          bds_unwind1;
583          bds_unwind1;          bds_unwind1;
584          bds_unwind1;          bds_unwind1;
585  T318:;  goto T330;
586    T330:;
587          if((symbol_value(VV[12]))==Cnil){          if((symbol_value(VV[12]))==Cnil){
588          goto T338;}          goto T354;}
589          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
590          (void)((*(LnkLI32))(car((V73))));          (void)((*(LnkLI32))(car((V73))));
591          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 516  T318:; Line 595  T318:;
595          object V96;          object V96;
596          V95= cdr((V73));          V95= cdr((V73));
597          V96= car((V95));          V96= car((V95));
598  T350:;  goto T366;
599    T366:;
600          if(!(endp((V95)))){          if(!(endp((V95)))){
601          goto T351;}          goto T367;}
602          goto T346;          goto T362;
603  T351:;  goto T367;
604    T367:;
605          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
606          (void)((*(LnkLI32))((V96)));          (void)((*(LnkLI32))((V96)));
607          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 528  T351:; Line 609  T351:;
609          princ_str("))",VV[11]);          princ_str("))",VV[11]);
610          V95= cdr((V95));          V95= cdr((V95));
611          V96= car((V95));          V96= car((V95));
612          goto T350;}          goto T366;}
613  T346:;  goto T362;
614    T362:;
615          princ_str("){",VV[11]);          princ_str("){",VV[11]);
616          goto T336;          goto T352;
617  T338:;  goto T354;
618    T354:;
619          princ_str("\n   if((",VV[11]);          princ_str("\n   if((",VV[11]);
620          (void)((*(LnkLI32))(car((V73))));          (void)((*(LnkLI32))(car((V73))));
621          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 542  T338:; Line 625  T338:;
625          object V98;          object V98;
626          V97= cdr((V73));          V97= cdr((V73));
627          V98= car((V97));          V98= car((V97));
628  T377:;  goto T393;
629    T393:;
630          if(!(endp((V97)))){          if(!(endp((V97)))){
631          goto T378;}          goto T394;}
632          goto T373;          goto T389;
633  T378:;  goto T394;
634    T394:;
635          princ_str("||(",VV[11]);          princ_str("||(",VV[11]);
636          (void)((*(LnkLI32))((V98)));          (void)((*(LnkLI32))((V98)));
637          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 554  T378:; Line 639  T378:;
639          princ_str("))==Cnil",VV[11]);          princ_str("))==Cnil",VV[11]);
640          V97= cdr((V97));          V97= cdr((V97));
641          V98= car((V97));          V98= car((V97));
642          goto T377;}          goto T393;}
643  T373:;  goto T389;
644    T389:;
645          princ_str("){",VV[11]);          princ_str("){",VV[11]);
646  T336:;  goto T352;
647    T352:;
648          (void)((VFUN_NARGS=2,(*(LnkLI33))((V72),VV[13])));          (void)((VFUN_NARGS=2,(*(LnkLI33))((V72),VV[13])));
649          princ_char(125,VV[11]);          princ_char(125,VV[11]);
650          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
# Line 571  T336:; Line 658  T336:;
658          bds_unwind1;          bds_unwind1;
659          bds_unwind1;          bds_unwind1;
660          VMR9(V99)}}          VMR9(V99)}}
661            base[0]=base[0];
662            return Cnil;
663  }  }
664  /*      local entry for function C2MAPCAN       */  /*      local entry for function C2MAPCAN       */
665    
# Line 579  static object LI10(V103,V104,V105) Line 668  static object LI10(V103,V104,V105)
668  object V103;object V104;register object V105;  object V103;object V104;register object V105;
669  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
670          bds_check;          bds_check;
671    goto TTL;
672  TTL:;  TTL:;
673          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],symbol_value(VV[4]));
674          bds_bind(VV[5],small_fixnum(0));          bds_bind(VV[5],small_fixnum(0));
# Line 596  TTL:; Line 686  TTL:;
686          object V112= (V105);          object V112= (V105);
687          if(endp(V112)){          if(endp(V112)){
688          V109= Cnil;          V109= Cnil;
689          goto T410;}          goto T426;}
690          base[2]=V111=MMcons(Cnil,Cnil);          base[2]=V111=MMcons(Cnil,Cnil);
691  T411:;  goto T427;
692    T427:;
693          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
694          (V111->c.c_car)= list(2,VV[8],symbol_value(VV[9]));          (V111->c.c_car)= list(2,VV[8],symbol_value(VV[9]));
695          if(endp(V112=MMcdr(V112))){          if(endp(V112=MMcdr(V112))){
696          V109= base[2];          V109= base[2];
697          goto T410;}          goto T426;}
698          V111=MMcdr(V111)=MMcons(Cnil,Cnil);          V111=MMcdr(V111)=MMcons(Cnil,Cnil);
699          goto T411;}          goto T427;}
700  T410:;  goto T426;
701    T426:;
702          V110= Cnil;          V110= Cnil;
703          V110= (*(LnkLI29))((V103));          V110= (*(LnkLI29))((V103));
704          base[2]= make_fixnum(length((V105)));          base[2]= make_fixnum(length((V105)));
# Line 625  T410:; Line 717  T410:;
717          object V117;          object V117;
718          V116= (V109);          V116= (V109);
719          V117= car((V116));          V117= car((V116));
720  T430:;  goto T446;
721    T446:;
722          if(!(endp((V116)))){          if(!(endp((V116)))){
723          goto T431;}          goto T447;}
724          goto T426;          goto T442;
725  T431:;  goto T447;
726    T447:;
727          princ_str("\n   object ",VV[11]);          princ_str("\n   object ",VV[11]);
728          (void)((*(LnkLI32))((V117)));          (void)((*(LnkLI32))((V117)));
729          princ_str("= ",VV[11]);          princ_str("= ",VV[11]);
# Line 640  T431:; Line 734  T431:;
734          V105= cdr((V105));}          V105= cdr((V105));}
735          V116= cdr((V116));          V116= cdr((V116));
736          V117= car((V116));          V117= car((V116));
737          goto T430;}          goto T446;}
738  T426:;  goto T442;
739    T442:;
740          if((symbol_value(VV[12]))==Cnil){          if((symbol_value(VV[12]))==Cnil){
741          goto T452;}          goto T468;}
742          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
743          (void)((*(LnkLI32))(car((V109))));          (void)((*(LnkLI32))(car((V109))));
744          princ_char(41,VV[11]);          princ_char(41,VV[11]);
# Line 651  T426:; Line 746  T426:;
746          object V120;          object V120;
747          V119= cdr((V109));          V119= cdr((V109));
748          V120= car((V119));          V120= car((V119));
749  T462:;  goto T478;
750    T478:;
751          if(!(endp((V119)))){          if(!(endp((V119)))){
752          goto T463;}          goto T479;}
753          goto T458;          goto T474;
754  T463:;  goto T479;
755    T479:;
756          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
757          (void)((*(LnkLI32))((V120)));          (void)((*(LnkLI32))((V120)));
758          princ_char(41,VV[11]);          princ_char(41,VV[11]);
759          V119= cdr((V119));          V119= cdr((V119));
760          V120= car((V119));          V120= car((V119));
761          goto T462;}          goto T478;}
762  T458:;  goto T474;
763    T474:;
764          princ_str("){",VV[11]);          princ_str("){",VV[11]);
765          goto T450;          goto T466;
766  T452:;  goto T468;
767    T468:;
768          princ_str("\n   if(",VV[11]);          princ_str("\n   if(",VV[11]);
769          (void)((*(LnkLI32))(car((V109))));          (void)((*(LnkLI32))(car((V109))));
770          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
# Line 673  T452:; Line 772  T452:;
772          object V122;          object V122;
773          V121= cdr((V109));          V121= cdr((V109));
774          V122= car((V121));          V122= car((V121));
775  T485:;  goto T501;
776    T501:;
777          if(!(endp((V121)))){          if(!(endp((V121)))){
778          goto T486;}          goto T502;}
779          goto T481;          goto T497;
780  T486:;  goto T502;
781    T502:;
782          princ_str("||",VV[11]);          princ_str("||",VV[11]);
783          (void)((*(LnkLI32))((V122)));          (void)((*(LnkLI32))((V122)));
784          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
785          V121= cdr((V121));          V121= cdr((V121));
786          V122= car((V121));          V122= car((V121));
787          goto T485;}          goto T501;}
788  T481:;  goto T497;
789    T497:;
790          princ_str("){",VV[11]);          princ_str("){",VV[11]);
791  T450:;  goto T466;
792    T466:;
793          (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));          (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
794          princ_char(125,VV[11]);          princ_char(125,VV[11]);
795          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
# Line 695  T450:; Line 798  T450:;
798          (void)((*(LnkLI32))((V108)));          (void)((*(LnkLI32))((V108)));
799          princ_str("=MMcons(Cnil,Cnil);",VV[11]);          princ_str("=MMcons(Cnil,Cnil);",VV[11]);
800          if((cdr((V106)))==Cnil){          if((cdr((V106)))==Cnil){
801          goto T509;}          goto T525;}
802            princ_str("\ngoto T",VV[11]);
803            (void)((*(LnkLI32))(car((V106))));
804            princ_char(59,VV[11]);
805          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
806          (void)((*(LnkLI32))(car((V106))));          (void)((*(LnkLI32))(car((V106))));
807          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
808  T509:;  goto T525;
809    T525:;
810          bds_bind(VV[14],list(2,VV[21],cadr((V108))));          bds_bind(VV[14],list(2,VV[21],cadr((V108))));
811          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));
812          bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));          bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));
813          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));
814          if(((V104))==Cnil){          if(((V104))==Cnil){
815          goto T523;}          goto T543;}
816          {object V124;          {object V124;
817          object V125= (V109);          object V125= (V109);
818          if(endp(V125)){          if(endp(V125)){
819          V123= Cnil;          V123= Cnil;
820          goto T521;}          goto T541;}
821          base[5]=V124=MMcons(Cnil,Cnil);          base[5]=V124=MMcons(Cnil,Cnil);
822  T525:;{object V127;  goto T545;
823    T545:;{object V127;
824          V127= symbol_value(VV[19]);          V127= symbol_value(VV[19]);
825          (V124->c.c_car)= list(3,VV[18],V127,list(2,VV[15],cadr((V125->c.c_car))));}          (V124->c.c_car)= list(3,VV[18],V127,list(2,VV[15],cadr((V125->c.c_car))));}
826          if(endp(V125=MMcdr(V125))){          if(endp(V125=MMcdr(V125))){
827          V123= base[5];          V123= base[5];
828          goto T521;}          goto T541;}
829          V124=MMcdr(V124)=MMcons(Cnil,Cnil);          V124=MMcdr(V124)=MMcons(Cnil,Cnil);
830          goto T525;}          goto T545;}
831  T523:;  goto T543;
832    T543:;
833          {object V128;          {object V128;
834          object V129= (V109);          object V129= (V109);
835          if(endp(V129)){          if(endp(V129)){
836          V123= Cnil;          V123= Cnil;
837          goto T521;}          goto T541;}
838          base[5]=V128=MMcons(Cnil,Cnil);          base[5]=V128=MMcons(Cnil,Cnil);
839  T527:;  goto T547;
840    T547:;
841          (V128->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V129->c.c_car));          (V128->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V129->c.c_car));
842          if(endp(V129=MMcdr(V129))){          if(endp(V129=MMcdr(V129))){
843          V123= base[5];          V123= base[5];
844          goto T521;}          goto T541;}
845          V128=MMcdr(V128)=MMcons(Cnil,Cnil);          V128=MMcdr(V128)=MMcons(Cnil,Cnil);
846          goto T527;}          goto T547;}
847  T521:;  goto T541;
848    T541:;
849          (void)((VFUN_NARGS=3,(*(LnkLI34))((V103),V123,(V110))));          (void)((VFUN_NARGS=3,(*(LnkLI34))((V103),V123,(V110))));
850          if((cdr((VV[16]->s.s_dbind)))==Cnil){          if((cdr((VV[16]->s.s_dbind)))==Cnil){
851          bds_unwind1;          bds_unwind1;
852          bds_unwind1;          bds_unwind1;
853          bds_unwind1;          bds_unwind1;
854          goto T515;}          goto T535;}
855            princ_str("\ngoto T",VV[11]);
856            (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
857            princ_char(59,VV[11]);
858          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
859          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));
860          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
861          bds_unwind1;          bds_unwind1;
862          bds_unwind1;          bds_unwind1;
863          bds_unwind1;          bds_unwind1;
864  T515:;  goto T535;
865    T535:;
866          if((symbol_value(VV[12]))==Cnil){          if((symbol_value(VV[12]))==Cnil){
867          goto T536;}          goto T560;}
868          princ_str("\n   while(!endp(MMcdr(",VV[11]);          princ_str("\n   while(!endp(MMcdr(",VV[11]);
869          (void)((*(LnkLI32))((V108)));          (void)((*(LnkLI32))((V108)));
870          princ_str(")))",VV[11]);          princ_str(")))",VV[11]);
# Line 766  T515:; Line 881  T515:;
881          object V132;          object V132;
882          V131= cdr((V109));          V131= cdr((V109));
883          V132= car((V131));          V132= car((V131));
884  T556:;  goto T580;
885    T580:;
886          if(!(endp((V131)))){          if(!(endp((V131)))){
887          goto T557;}          goto T581;}
888          goto T552;          goto T576;
889  T557:;  goto T581;
890    T581:;
891          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
892          (void)((*(LnkLI32))((V132)));          (void)((*(LnkLI32))((V132)));
893          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 778  T557:; Line 895  T557:;
895          princ_str("))",VV[11]);          princ_str("))",VV[11]);
896          V131= cdr((V131));          V131= cdr((V131));
897          V132= car((V131));          V132= car((V131));
898          goto T556;}          goto T580;}
899  T552:;  goto T576;
900    T576:;
901          princ_str("){",VV[11]);          princ_str("){",VV[11]);
902          goto T534;          goto T558;
903  T536:;  goto T560;
904    T560:;
905          princ_str("\n   while(MMcdr(",VV[11]);          princ_str("\n   while(MMcdr(",VV[11]);
906          (void)((*(LnkLI32))((V108)));          (void)((*(LnkLI32))((V108)));
907          princ_str(")!=Cnil)",VV[11]);          princ_str(")!=Cnil)",VV[11]);
# Line 799  T536:; Line 918  T536:;
918          object V134;          object V134;
919          V133= cdr((V109));          V133= cdr((V109));
920          V134= car((V133));          V134= car((V133));
921  T591:;  goto T615;
922    T615:;
923          if(!(endp((V133)))){          if(!(endp((V133)))){
924          goto T592;}          goto T616;}
925          goto T587;          goto T611;
926  T592:;  goto T616;
927    T616:;
928          princ_str("||(",VV[11]);          princ_str("||(",VV[11]);
929          (void)((*(LnkLI32))((V134)));          (void)((*(LnkLI32))((V134)));
930          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
# Line 811  T592:; Line 932  T592:;
932          princ_str("))==Cnil",VV[11]);          princ_str("))==Cnil",VV[11]);
933          V133= cdr((V133));          V133= cdr((V133));
934          V134= car((V133));          V134= car((V133));
935          goto T591;}          goto T615;}
936  T587:;  goto T611;
937    T611:;
938          princ_str("){",VV[11]);          princ_str("){",VV[11]);
939  T534:;  goto T558;
940    T558:;
941          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
942          (void)((*(LnkLI32))((V107)));          (void)((*(LnkLI32))((V107)));
943          princ_char(61,VV[11]);          princ_char(61,VV[11]);
# Line 833  T534:; Line 956  T534:;
956          bds_unwind1;          bds_unwind1;
957          bds_unwind1;          bds_unwind1;
958          VMR10(V135)}}          VMR10(V135)}}
959            base[0]=base[0];
960            return Cnil;
961  }  }
962  /*      local entry for function PUSH-CHANGED-VARS      */  /*      local entry for function PUSH-CHANGED-VARS      */
963    
# Line 840  static object LI11(V138,V139) Line 965  static object LI11(V138,V139)
965    
966  object V138;object V139;  object V138;object V139;
967  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
968    goto TTL;
969  TTL:;  TTL:;
970          {register object V140;          {register object V140;
971          register object V141;          register object V141;
# Line 849  TTL:; Line 975  TTL:;
975          register object V143;          register object V143;
976          V142= (V138);          V142= (V138);
977          V143= car((V142));          V143= car((V142));
978  T630:;  goto T654;
979    T654:;
980          if(!(endp((V142)))){          if(!(endp((V142)))){
981          goto T631;}          goto T655;}
982          {object V144 = reverse((V140));          {object V144 = reverse((V140));
983          VMR11(V144)}          VMR11(V144)}
984  T631:;  goto T655;
985    T655:;
986          if(!(type_of((V143))==t_cons)){          if(!(type_of((V143))==t_cons)){
987          goto T637;}          goto T661;}
988          if(!((car((V143)))==(VV[22]))){          if(!((car((V143)))==(VV[22]))){
989          goto T637;}          goto T661;}
990          if(((*(LnkLI36))(cadr((V143)),(V141)))==Cnil){          if(((*(LnkLI36))(cadr((V143)),(V141)))==Cnil){
991          goto T637;}          goto T661;}
992          {register object V145;          {register object V145;
993          V145= list(2,VV[7],(*(LnkLI28))());          V145= list(2,VV[7],(*(LnkLI28))());
994          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
# Line 869  T631:; Line 997  T631:;
997          (void)((*(LnkLI32))((V143)));          (void)((*(LnkLI32))((V143)));
998          princ_char(59,VV[11]);          princ_char(59,VV[11]);
999          V140= make_cons((V145),(V140));          V140= make_cons((V145),(V140));
1000          goto T635;}          goto T659;}
1001  T637:;  goto T661;
1002    T661:;
1003          V140= make_cons((V143),(V140));          V140= make_cons((V143),(V140));
1004  T635:;  goto T659;
1005    T659:;
1006          V142= cdr((V142));          V142= cdr((V142));
1007          V143= car((V142));          V143= car((V142));
1008          goto T630;}}          goto T654;}}
1009            base[0]=base[0];
1010            return Cnil;
1011  }  }
1012  static object  LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],&LnkLI36,2,ap);} /* ARGS-INFO-CHANGED-VARS */  static object  LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],(void **)&LnkLI36,2,ap);} /* ARGS-INFO-CHANGED-VARS */
1013  static object  LnkTLI35(){return call_proc0(VV[35],&LnkLI35);} /* CLOSE-INLINE-BLOCKS */  static object  LnkTLI35(){return call_proc0(VV[35],(void **)&LnkLI35);} /* CLOSE-INLINE-BLOCKS */
1014  static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[34],&LnkLI34,ap);} /* C2FUNCALL */  static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[34],(void **)&LnkLI34,ap);} /* C2FUNCALL */
1015  static object  LnkTLI33(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[33],&LnkLI33,ap);} /* UNWIND-EXIT */  static object  LnkTLI33(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[33],(void **)&LnkLI33,ap);} /* UNWIND-EXIT */
1016  static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],&LnkLI32,1,ap);} /* WT1 */  static object  LnkTLI32(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[32],(void **)&LnkLI32,1,ap);} /* WT1 */
1017  static object  LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],&LnkLI31,ap);} /* INLINE-ARGS */  static object  LnkTLI31(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[31],(void **)&LnkLI31,ap);} /* INLINE-ARGS */
1018  static object  LnkTLI30(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[30],&LnkLI30,2,ap);} /* PUSH-CHANGED-VARS */  static object  LnkTLI30(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[30],(void **)&LnkLI30,2,ap);} /* PUSH-CHANGED-VARS */
1019  static object  LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[29],&LnkLI29,1,ap);} /* SAVE-FUNOB */  static object  LnkTLI29(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[29],(void **)&LnkLI29,1,ap);} /* SAVE-FUNOB */
1020  static object  LnkTLI28(){return call_proc0(VV[28],&LnkLI28);} /* VS-PUSH */  static object  LnkTLI28(){return call_proc0(VV[28],(void **)&LnkLI28);} /* VS-PUSH */
1021  static object  LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],&LnkLI27,2,ap);} /* C1ARGS */  static object  LnkTLI27(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[27],(void **)&LnkLI27,2,ap);} /* C1ARGS */
1022  static LnkT26(){ call_or_link(VV[26],&Lnk26);} /* COPY-INFO */  static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* COPY-INFO */
1023  static object  LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],&LnkLI25,1,ap);} /* C1FUNOB */  static object  LnkTLI25(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[25],(void **)&LnkLI25,1,ap);} /* C1FUNOB */
1024  static object  LnkTLI24(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[24],&LnkLI24,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI24(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[24],(void **)&LnkLI24,3,ap);} /* TOO-FEW-ARGS */
1025  static object  LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[23],&LnkLI23,3,ap);} /* C1MAP-FUNCTIONS */  static object  LnkTLI23(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[23],(void **)&LnkLI23,3,ap);} /* C1MAP-FUNCTIONS */
1026    
1027  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
1028  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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