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

Diff of /gcl/cmpnew/cmpmulti.c

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

revision 1.8 by camm, Sun Feb 9 22:35:14 2003 UTC revision 1.9 by camm, Wed Feb 26 22:21:35 2003 UTC
# Line 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          {object V3;          {object V3;
14          object V4;          object V4;
# Line 17  TTL:; Line 17  TTL:;
17          if(!(endp_prop((V2)))){          if(!(endp_prop((V2)))){
18          goto T3;}          goto T3;}
19          (void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI38))(VV[0],small_fixnum(1),small_fixnum(0)));
20  goto T3;          goto T3;
21  T3:;  T3:;
22          if(!(endp_prop(cdr((V2))))){          if(!(endp_prop(cdr((V2))))){
23          goto T7;}          goto T7;}
24          {object V5 = (*(LnkLI39))((V2));          {object V5 = (*(LnkLI39))((V2));
25          VMR1(V5)}          VMR1(V5)}
26  goto T7;          goto T7;
27  T7:;  T7:;
28          V4= (*(LnkLI40))(car((V2)));          V4= (*(LnkLI40))(car((V2)));
29          base[0]= cadr((V4));          base[0]= cadr((V4));
# Line 44  static object LI2(V9,V10) Line 44  static object LI2(V9,V10)
44  register object V9;object V10;  register object V9;object V10;
45  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
46          bds_check;          bds_check;
47  goto TTL;          goto TTL;
48  TTL:;  TTL:;
49          {register object V11;          {register object V11;
50          register object V12;          register object V12;
# Line 60  TTL:; Line 60  TTL:;
60          {object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11)));          {object V14 = (VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11)));
61          bds_unwind1;          bds_unwind1;
62          VMR2(V14)}          VMR2(V14)}
63  goto T19;          goto T19;
64  T19:;  T19:;
65          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));
66          V12= symbol_value(VV[5]);          V12= symbol_value(VV[5]);
# Line 75  T19:; Line 75  T19:;
75          register object V16;          register object V16;
76          V15= (V10);          V15= (V10);
77          V16= car((V15));          V16= car((V15));
78  goto T41;          goto T41;
79  T41:;  T41:;
80          if(!(endp_prop((V15)))){          if(!(endp_prop((V15)))){
81          goto T42;}          goto T42;}
82          goto T37;          goto T37;
83  goto T42;          goto T42;
84  T42:;  T42:;
85          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
86          V17= (*(LnkLI47))((V16),(V12));          V17= (*(LnkLI47))((V16),(V12));
# Line 94  T42:; Line 94  T42:;
94          V15= cdr((V15));          V15= cdr((V15));
95          V16= car((V15));          V16= car((V15));
96          goto T41;}          goto T41;}
97  goto T37;          goto T37;
98  T37:;  T37:;
99          princ_str("\n   vs_base=base+",VV[6]);          princ_str("\n   vs_base=base+",VV[6]);
100          (void)((*(LnkLI46))((VV[1]->s.s_dbind)));          (void)((*(LnkLI46))((VV[1]->s.s_dbind)));
# Line 116  static object LI3(V20) Line 116  static object LI3(V20)
116    
117  register object V20;  register object V20;
118  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
119  goto TTL;          goto TTL;
120  TTL:;  TTL:;
121          {object V21;          {object V21;
122          object V22;          object V22;
# Line 125  TTL:; Line 125  TTL:;
125          if(!(endp_prop((V20)))){          if(!(endp_prop((V20)))){
126          goto T72;}          goto T72;}
127          (void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI38))(VV[8],small_fixnum(1),small_fixnum(0)));
128  goto T72;          goto T72;
129  T72:;  T72:;
130          V22= (*(LnkLI49))(car((V20)),(V21));          V22= (*(LnkLI49))(car((V20)),(V21));
131          V20= (*(LnkLI42))(cdr((V20)),(V21));          V20= (*(LnkLI42))(cdr((V20)),(V21));
# Line 141  static object LI4(V26,V27) Line 141  static object LI4(V26,V27)
141  object V26;object V27;  object V26;object V27;
142  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
143          bds_check;          bds_check;
144  goto TTL;          goto TTL;
145  TTL:;  TTL:;
146          {object V28;          {object V28;
147          register object V29;          register object V29;
# Line 168  TTL:; Line 168  TTL:;
168          register object V32;          register object V32;
169          V31= (V27);          V31= (V27);
170          V32= car((V31));          V32= car((V31));
171  goto T99;          goto T99;
172  T99:;  T99:;
173          if(!(endp_prop((V31)))){          if(!(endp_prop((V31)))){
174          goto T100;}          goto T100;}
175          goto T95;          goto T95;
176  goto T100;          goto T100;
177  T100:;  T100:;
178          bds_bind(VV[2],VV[10]);          bds_bind(VV[2],VV[10]);
179          V33= (*(LnkLI47))((V32),(V29));          V33= (*(LnkLI47))((V32),(V29));
# Line 181  T100:; Line 181  T100:;
181          V31= cdr((V31));          V31= cdr((V31));
182          V32= car((V31));          V32= car((V31));
183          goto T99;}          goto T99;}
184  goto T95;          goto T95;
185  T95:;  T95:;
186          princ_str("\n   vs_base=V",VV[6]);          princ_str("\n   vs_base=V",VV[6]);
187          (void)((*(LnkLI46))((V28)));          (void)((*(LnkLI46))((V28)));
# Line 192  T95:; Line 192  T95:;
192          goto T118;}          goto T118;}
193          V34= car((V30));          V34= car((V30));
194          goto T116;          goto T116;
195  goto T118;          goto T118;
196  T118:;  T118:;
197          V34= Cnil;          V34= Cnil;
198  goto T116;          goto T116;
199  T116:;  T116:;
200          {object V35 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,V34));          {object V35 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,V34));
201          VMR4(V35)}}          VMR4(V35)}}
# Line 208  static object LI5(V37) Line 208  static object LI5(V37)
208    
209  register object V37;  register object V37;
210  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
211  goto TTL;          goto TTL;
212  TTL:;  TTL:;
213          {object V38;          {object V38;
214          V38= (VFUN_NARGS=0,(*(LnkLI48))());          V38= (VFUN_NARGS=0,(*(LnkLI48))());
# Line 227  TTL:; Line 227  TTL:;
227          if(!(type_of((V39))!=t_cons)){          if(!(type_of((V39))!=t_cons)){
228          goto T133;}          goto T133;}
229          goto T131;          goto T131;
230  goto T133;          goto T133;
231  T133:;  T133:;
232          if(type_of((V39))==t_cons){          if(type_of((V39))==t_cons){
233          goto T135;}          goto T135;}
234          goto T122;          goto T122;
235  goto T135;          goto T135;
236  T135:;  T135:;
237          if((cdr((V39)))==Cnil){          if((cdr((V39)))==Cnil){
238          goto T137;}          goto T137;}
239          goto T122;          goto T122;
240  goto T137;          goto T137;
241  T137:;  T137:;
242          if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){          if(!((((VV[12])==(car((V39)))?Ct:Cnil))==Cnil)){
243          goto T122;}}          goto T122;}}
244  goto T131;          goto T131;
245  T131:;  T131:;
246  goto T121;          goto T121;
247  T121:;  T121:;
248          {object V40 = (*(LnkLI52))(car((V37)));          {object V40 = (*(LnkLI52))(car((V37)));
249          VMR5(V40)}          VMR5(V40)}
250  goto T122;          goto T122;
251  T122:;  T122:;
252          V37= (*(LnkLI42))((V37),(V38));          V37= (*(LnkLI42))((V37),(V38));
253          {object V41 = list(3,VV[13],(V38),(V37));          {object V41 = list(3,VV[13],(V38),(V37));
# Line 262  static object LI6(V43) Line 262  static object LI6(V43)
262  register object V43;  register object V43;
263  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
264          bds_check;          bds_check;
265  goto TTL;          goto TTL;
266  TTL:;  TTL:;
267          {object V44;          {object V44;
268          V44= symbol_value(VV[1]);          V44= symbol_value(VV[1]);
# Line 276  TTL:; Line 276  TTL:;
276          if(!((VV[16])==(car(symbol_value(VV[15]))))){          if(!((VV[16])==(car(symbol_value(VV[15]))))){
277          goto T142;}          goto T142;}
278          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15])))));          (void)((VFUN_NARGS=2,(*(LnkLI53))(VV[17],cadr(symbol_value(VV[15])))));
279  goto T142;          goto T142;
280  T142:;  T142:;
281          if(((V43))!=Cnil){          if(((V43))!=Cnil){
282          goto T153;}          goto T153;}
# Line 286  T142:; Line 286  T142:;
286          setq(VV[7],Ct);          setq(VV[7],Ct);
287          princ_str("\n   vs_base[0]=Cnil;",VV[6]);          princ_str("\n   vs_base[0]=Cnil;",VV[6]);
288          goto T151;          goto T151;
289  goto T153;          goto T153;
290  T153:;  T153:;
291          {register object V45;          {register object V45;
292          register object V46;          register object V46;
293          V45= (V43);          V45= (V43);
294          V46= car((V45));          V46= car((V45));
295  goto T166;          goto T166;
296  T166:;  T166:;
297          if(!(endp_prop((V45)))){          if(!(endp_prop((V45)))){
298          goto T167;}          goto T167;}
299          goto T162;          goto T162;
300  goto T167;          goto T167;
301  T167:;  T167:;
302          base[2]= list(2,VV[18],(*(LnkLI54))());          base[2]= list(2,VV[18],(*(LnkLI54))());
303          bds_bind(VV[2],base[2]);          bds_bind(VV[2],base[2]);
# Line 306  T167:; Line 306  T167:;
306          V45= cdr((V45));          V45= cdr((V45));
307          V46= car((V45));          V46= car((V45));
308          goto T166;}          goto T166;}
309  goto T162;          goto T162;
310  T162:;  T162:;
311          princ_str("\n   vs_top=(vs_base=base+",VV[6]);          princ_str("\n   vs_top=(vs_base=base+",VV[6]);
312          (void)((*(LnkLI46))((V44)));          (void)((*(LnkLI46))((V44)));
# Line 315  T162:; Line 315  T162:;
315          (void)((*(LnkLI46))(/* INLINE-ARGS */V48));          (void)((*(LnkLI46))(/* INLINE-ARGS */V48));
316          princ_char(59,VV[6]);          princ_char(59,VV[6]);
317          setq(VV[7],Ct);          setq(VV[7],Ct);
318  goto T151;          goto T151;
319  T151:;  T151:;
320          V49 = make_fixnum((long)length((V43)));          V49 = make_fixnum((long)length((V43)));
321          V50= make_cons(VV[13],V49);          V50= make_cons(VV[13],V49);
# Line 331  static object LI7(V53) Line 331  static object LI7(V53)
331    
332  object V53;  object V53;
333  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
334  goto TTL;          goto TTL;
335  TTL:;  TTL:;
336          {object V54;          {object V54;
337          register object V55;          register object V55;
# Line 341  TTL:; Line 341  TTL:;
341          goto T188;}          goto T188;}
342          if(!(endp_prop(cdr((V53))))){          if(!(endp_prop(cdr((V53))))){
343          goto T187;}          goto T187;}
344  goto T188;          goto T188;
345  T188:;  T188:;
346          (void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0)));          (void)((*(LnkLI38))(VV[19],small_fixnum(2),small_fixnum(0)));
347  goto T187;          goto T187;
348  T187:;  T187:;
349          if(endp_prop(cddr((V53)))){          if(endp_prop(cddr((V53)))){
350          goto T192;}          goto T192;}
351          V56 = make_fixnum((long)length((V53)));          V56 = make_fixnum((long)length((V53)));
352          (void)((*(LnkLI55))(VV[19],small_fixnum(2),V56));          (void)((*(LnkLI55))(VV[19],small_fixnum(2),V56));
353  goto T192;          goto T192;
354  T192:;  T192:;
355          {register object V57;          {register object V57;
356          register object V58;          register object V58;
357          V57= car((V53));          V57= car((V53));
358          V58= car((V57));          V58= car((V57));
359  goto T199;          goto T199;
360  T199:;  T199:;
361          if(!(endp_prop((V57)))){          if(!(endp_prop((V57)))){
362          goto T200;}          goto T200;}
363          goto T195;          goto T195;
364  goto T200;          goto T200;
365  T200:;  T200:;
366          if(type_of((V58))==t_symbol){          if(type_of((V58))==t_symbol){
367          goto T204;}          goto T204;}
368          (void)((VFUN_NARGS=2,(*(LnkLI56))(VV[20],(V58))));          (void)((VFUN_NARGS=2,(*(LnkLI56))(VV[20],(V58))));
369  goto T204;          goto T204;
370  T204:;  T204:;
371          base[3]= (V58);          base[3]= (V58);
372          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 375  T204:; Line 375  T204:;
375          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
376          goto T207;}          goto T207;}
377          (void)((VFUN_NARGS=2,(*(LnkLI56))(VV[21],(V58))));          (void)((VFUN_NARGS=2,(*(LnkLI56))(VV[21],(V58))));
378  goto T207;          goto T207;
379  T207:;  T207:;
380          V58= (*(LnkLI57))((V58));          V58= (*(LnkLI57))((V58));
381          {register object V59;          {register object V59;
# Line 392  T207:; Line 392  T207:;
392          V57= cdr((V57));          V57= cdr((V57));
393          V58= car((V57));          V58= car((V57));
394          goto T199;}          goto T199;}
395  goto T195;          goto T195;
396  T195:;  T195:;
397          V64= reverse((V55));          V64= reverse((V55));
398          {object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(cadr((V53)),(V54)));          {object V65 = list(4,VV[19],(V54),/* INLINE-ARGS */V64,(*(LnkLI49))(cadr((V53)),(V54)));
# Line 406  static object LI8(V68,V69) Line 406  static object LI8(V68,V69)
406    
407  object V68;object V69;  object V68;object V69;
408  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
409  goto TTL;          goto TTL;
410  TTL:;  TTL:;
411          if((cdr((V68)))!=Cnil){          if((cdr((V68)))!=Cnil){
412          goto T225;}          goto T225;}
413          {object V70 = Cnil;          {object V70 = Cnil;
414          VMR8(V70)}          VMR8(V70)}
415  goto T225;          goto T225;
416  T225:;  T225:;
417          if((car((V69)))==(VV[23])){          if((car((V69)))==(VV[23])){
418          goto T227;}          goto T227;}
419          {object V71 = Cnil;          {object V71 = Cnil;
420          VMR8(V71)}          VMR8(V71)}
421  goto T227;          goto T227;
422  T227:;  T227:;
423          {object V72;          {object V72;
424          V72= caddr((V69));          V72= caddr((V69));
# Line 431  T227:; Line 431  T227:;
431          if(type_of((V73))==t_cons){          if(type_of((V73))==t_cons){
432          goto T236;}          goto T236;}
433          goto T231;          goto T231;
434  goto T236;          goto T236;
435  T236:;  T236:;
436          if(((equal((V73),VV[25])?Ct:Cnil))==Cnil){          if(((equal((V73),VV[25])?Ct:Cnil))==Cnil){
437          goto T238;}          goto T238;}
438          goto T231;          goto T231;
439  goto T238;          goto T238;
440  T238:;  T238:;
441          if(!((cdr((V73)))==Cnil)){          if(!((cdr((V73)))==Cnil)){
442          goto T231;}}          goto T231;}}
443          {object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72)));          {object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72)));
444          VMR8(V74)}          VMR8(V74)}
445  goto T231;          goto T231;
446  T231:;  T231:;
447          {object V75 = Cnil;          {object V75 = Cnil;
448          VMR8(V75)}}          VMR8(V75)}}
# Line 455  static object LI9(V78,V79) Line 455  static object LI9(V78,V79)
455  register object V78;object V79;  register object V78;object V79;
456  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
457          bds_check;          bds_check;
458  goto TTL;          goto TTL;
459  TTL:;  TTL:;
460          {object V80;          {object V80;
461          V80= Cnil;          V80= Cnil;
# Line 469  TTL:; Line 469  TTL:;
469          if(symbol_value(VV[27])==Cnil){          if(symbol_value(VV[27])==Cnil){
470          goto T245;}          goto T245;}
471          (void)((*(LnkLI59))(Cnil,car((V80))));          (void)((*(LnkLI59))(Cnil,car((V80))));
472  goto T245;          goto T245;
473  T245:;  T245:;
474          {register object V81;          {register object V81;
475          V81= (V78);          V81= (V78);
476  goto T248;          goto T248;
477  T248:;  T248:;
478          if(!(endp_prop((V81)))){          if(!(endp_prop((V81)))){
479          goto T249;}          goto T249;}
480          goto T246;          goto T246;
481  goto T249;          goto T249;
482  T249:;  T249:;
483          {register object V82;          {register object V82;
484          V82= car((V81));          V82= car((V81));
# Line 487  T249:; Line 487  T249:;
487          if(endp_prop(cdr((V81)))){          if(endp_prop(cdr((V81)))){
488          goto T258;}          goto T258;}
489          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
490  goto T258;          goto T258;
491  T258:;  T258:;
492          princ_str("\n   }else{",VV[6]);          princ_str("\n   }else{",VV[6]);
493          (void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82))));          (void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82))));
494          princ_char(125,VV[6]);}          princ_char(125,VV[6]);}
495          V81= cdr((V81));          V81= cdr((V81));
496          goto T248;}          goto T248;}
497  goto T246;          goto T246;
498  T246:;  T246:;
499          if(((V78))!=Cnil){          if(((V78))!=Cnil){
500          goto T270;}          goto T270;}
501          princ_str("\n   if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]);          princ_str("\n   if(vs_base=vs_top){vs_base[0]=Cnil;vs_top=vs_base+1;}",VV[6]);
502          {object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));          {object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));
503          VMR9(V83)}          VMR9(V83)}
504  goto T270;          goto T270;
505  T270:;  T270:;
506          if((symbol_value(VV[28]))==(VV[29])){          if((symbol_value(VV[28]))==(VV[29])){
507          goto T274;}          goto T274;}
508          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
509          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
510  goto T274;          goto T274;
511  T274:;  T274:;
512          V84= make_cons(VV[30],car((V78)));          V84= make_cons(VV[30],car((V78)));
513          {object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84));          {object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84));
# Line 522  static object LI10(V87) Line 522  static object LI10(V87)
522  object V87;  object V87;
523  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
524          bds_check;          bds_check;
525  goto TTL;          goto TTL;
526  TTL:;  TTL:;
527          {object V88;          {object V88;
528          register object V89;          register object V89;
# Line 547  TTL:; Line 547  TTL:;
547          goto T288;}          goto T288;}
548          if(!(endp_prop(cdr((V87))))){          if(!(endp_prop(cdr((V87))))){
549          goto T287;}          goto T287;}
550  goto T288;          goto T288;
551  T288:;  T288:;
552          V97 = make_fixnum((long)length((V87)));          V97 = make_fixnum((long)length((V87)));
553          (void)((*(LnkLI38))(VV[32],small_fixnum(2),V97));          (void)((*(LnkLI38))(VV[32],small_fixnum(2),V97));
554  goto T287;          goto T287;
555  T287:;  T287:;
556          base[2]= cddr((V87));          base[2]= cddr((V87));
557          base[3]= Cnil;          base[3]= Cnil;
# Line 587  T287:; Line 587  T287:;
587          register object V99;          register object V99;
588          V98= car((V87));          V98= car((V87));
589          V99= car((V98));          V99= car((V98));
590  goto T301;          goto T301;
591  T301:;  T301:;
592          if(!(endp_prop((V98)))){          if(!(endp_prop((V98)))){
593          goto T302;}          goto T302;}
594          goto T297;          goto T297;
595  goto T302;          goto T302;
596  T302:;  T302:;
597          {object V100;          {object V100;
598          V100= (*(LnkLI64))((V99),(V92),(V93),(V94));          V100= (*(LnkLI64))((V99),(V92),(V93),(V94));
# Line 601  T302:; Line 601  T302:;
601          V98= cdr((V98));          V98= cdr((V98));
602          V99= car((V98));          V99= car((V98));
603          goto T301;}          goto T301;}
604  goto T297;          goto T297;
605  T297:;  T297:;
606          V91= (*(LnkLI49))(cadr((V87)),(V88));          V91= (*(LnkLI49))(cadr((V87)),(V88));
607          {register object V103;          {register object V103;
608          object V104;          object V104;
609          V103= reverse((V89));          V103= reverse((V89));
610          V104= car((V103));          V104= car((V103));
611  goto T322;          goto T322;
612  T322:;  T322:;
613          if(!(endp_prop((V103)))){          if(!(endp_prop((V103)))){
614          goto T323;}          goto T323;}
615          goto T318;          goto T318;
616  goto T323;          goto T323;
617  T323:;  T323:;
618          (VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind));          (VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind));
619          V103= cdr((V103));          V103= cdr((V103));
620          V104= car((V103));          V104= car((V103));
621          goto T322;}          goto T322;}
622  goto T318;          goto T318;
623  T318:;  T318:;
624          (void)((*(LnkLI65))((V90),(V94),(V93)));          (void)((*(LnkLI65))((V90),(V94),(V93)));
625          V95= (*(LnkLI66))((V96),(V95));          V95= (*(LnkLI66))((V96),(V95));
# Line 630  T318:; Line 630  T318:;
630          object V108;          object V108;
631          V107= (V89);          V107= (V89);
632          V108= car((V107));          V108= car((V107));
633  goto T343;          goto T343;
634  T343:;  T343:;
635          if(!(endp_prop((V107)))){          if(!(endp_prop((V107)))){
636          goto T344;}          goto T344;}
637          goto T339;          goto T339;
638  goto T344;          goto T344;
639  T344:;  T344:;
640          (void)((*(LnkLI68))((V108)));          (void)((*(LnkLI68))((V108)));
641          V107= cdr((V107));          V107= cdr((V107));
642          V108= car((V107));          V108= car((V107));
643          goto T343;}          goto T343;}
644  goto T339;          goto T339;
645  T339:;  T339:;
646          {object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95));          {object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95));
647          bds_unwind1;          bds_unwind1;
# Line 656  static object LI11(V113,V114,V115) Line 656  static object LI11(V113,V114,V115)
656  object V113;object V114;object V115;  object V113;object V114;object V115;
657  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
658          bds_check;          bds_check;
659  goto TTL;          goto TTL;
660  TTL:;  TTL:;
661          {object V116;          {object V116;
662          register object V117;          register object V117;
# Line 673  TTL:; Line 673  TTL:;
673          register object V120;          register object V120;
674          V119= (V113);          V119= (V113);
675          V120= car((V119));          V120= car((V119));
676  goto T362;          goto T362;
677  T362:;  T362:;
678          if(!(endp_prop((V119)))){          if(!(endp_prop((V119)))){
679          goto T363;}          goto T363;}
680          goto T358;          goto T358;
681  goto T363;          goto T363;
682  T363:;  T363:;
683          {object V121;          {object V121;
684          V121= (*(LnkLI69))((V120));          V121= (*(LnkLI69))((V120));
# Line 694  T363:; Line 694  T363:;
694          goto T377;}          goto T377;}
695          princ_char(123,VV[6]);          princ_char(123,VV[6]);
696          V116= Ct;          V116= Ct;
697  goto T377;          goto T377;
698  T377:;  T377:;
699          base[5]= (V120);          base[5]= (V120);
700          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
701          (void) (*Lnk70)();          (void) (*Lnk70)();
702          vs_top=sup;          vs_top=sup;
703          goto T367;}          goto T367;}
704  goto T370;          goto T370;
705  T370:;  T370:;
706          V123= (*(LnkLI54))();          V123= (*(LnkLI54))();
707          (void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));}          (void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));}
708  goto T367;          goto T367;
709  T367:;  T367:;
710          V119= cdr((V119));          V119= cdr((V119));
711          V120= car((V119));          V120= car((V119));
712          goto T362;}          goto T362;}
713  goto T358;          goto T358;
714  T358:;  T358:;
715          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
716          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
# Line 721  T358:; Line 721  T358:;
721          if(symbol_value(VV[27])==Cnil){          if(symbol_value(VV[27])==Cnil){
722          goto T392;}          goto T392;}
723          (void)((*(LnkLI59))(Cnil,car((V118))));          (void)((*(LnkLI59))(Cnil,car((V118))));
724  goto T392;          goto T392;
725  T392:;  T392:;
726          bds_bind(VV[34],(VV[34]->s.s_dbind));          bds_bind(VV[34],(VV[34]->s.s_dbind));
727          bds_bind(VV[33],(VV[33]->s.s_dbind));          bds_bind(VV[33],(VV[33]->s.s_dbind));
728          bds_bind(VV[35],(VV[35]->s.s_dbind));          bds_bind(VV[35],(VV[35]->s.s_dbind));
729          {register object V124;          {register object V124;
730          V124= (V113);          V124= (V113);
731  goto T395;          goto T395;
732  T395:;  T395:;
733          if(!(endp_prop((V124)))){          if(!(endp_prop((V124)))){
734          goto T396;}          goto T396;}
# Line 736  T395:; Line 736  T395:;
736          bds_unwind1;          bds_unwind1;
737          bds_unwind1;          bds_unwind1;
738          goto T393;          goto T393;
739  goto T396;          goto T396;
740  T396:;  T396:;
741          {object V125;          {object V125;
742          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));
# Line 755  T396:; Line 755  T396:;
755          if(endp_prop(cdr((V124)))){          if(endp_prop(cdr((V124)))){
756          goto T415;}          goto T415;}
757          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
758  goto T415;          goto T415;
759  T415:;  T415:;
760          V124= cdr((V124));          V124= cdr((V124));
761          goto T395;}          goto T395;}
762  goto T393;          goto T393;
763  T393:;  T393:;
764          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
765          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
# Line 777  T393:; Line 777  T393:;
777          object V128;          object V128;
778          V127= (V113);          V127= (V113);
779          V128= car((V127));          V128= car((V127));
780  goto T439;          goto T439;
781  T439:;  T439:;
782          if(!(endp_prop((V127)))){          if(!(endp_prop((V127)))){
783          goto T440;}          goto T440;}
784          goto T435;          goto T435;
785  goto T440;          goto T440;
786  T440:;  T440:;
787          if((cdr(car((V117))))==Cnil){          if((cdr(car((V117))))==Cnil){
788          goto T444;}          goto T444;}
789          princ_str("\ngoto T",VV[6]);          princ_str("\n   goto T",VV[6]);
790          (void)((*(LnkLI46))(car(car((V117)))));          (void)((*(LnkLI46))(car(car((V117)))));
791          princ_char(59,VV[6]);          princ_char(59,VV[6]);
792          princ_str("\nT",VV[6]);          princ_str("\nT",VV[6]);
793          (void)((*(LnkLI46))(car(car((V117)))));          (void)((*(LnkLI46))(car(car((V117)))));
794          princ_str(":;",VV[6]);          princ_str(":;",VV[6]);
795  goto T444;          goto T444;
796  T444:;  T444:;
797          {object V129;          {object V129;
798          V129= car((V117));          V129= car((V117));
# Line 801  T444:; Line 801  T444:;
801          V127= cdr((V127));          V127= cdr((V127));
802          V128= car((V127));          V128= car((V127));
803          goto T439;}          goto T439;}
804  goto T435;          goto T435;
805  T435:;  T435:;
806          if((cdr((V126)))==Cnil){          if((cdr((V126)))==Cnil){
807          goto T424;}          goto T424;}
808          princ_str("\ngoto T",VV[6]);          princ_str("\n   goto T",VV[6]);
809          (void)((*(LnkLI46))(car((V126))));          (void)((*(LnkLI46))(car((V126))));
810          princ_char(59,VV[6]);          princ_char(59,VV[6]);
811          princ_str("\nT",VV[6]);          princ_str("\nT",VV[6]);
812          (void)((*(LnkLI46))(car((V126))));          (void)((*(LnkLI46))(car((V126))));
813          princ_str(":;",VV[6]);}          princ_str(":;",VV[6]);}
814  goto T424;          goto T424;
815  T424:;  T424:;
816          base[4]= (V115);          base[4]= (V115);
817          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 826  T424:; Line 826  T424:;
826          bds_unwind1;          bds_unwind1;
827          bds_unwind1;          bds_unwind1;
828          VMR11(V130)}          VMR11(V130)}
829  goto T476;          goto T476;
830  T476:;  T476:;
831          {object V131 = Cnil;          {object V131 = Cnil;
832          bds_unwind1;          bds_unwind1;

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

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