/[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.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 "cmpmulti.h"  #include "cmpmulti.h"
4  init_cmpmulti(){do_init(VV);}  void init_cmpmulti(){do_init(VV);}
5  /*      local entry for function C1MULTIPLE-VALUE-CALL  */  /*      local entry for function C1MULTIPLE-VALUE-CALL  */
6    
7  static object LI1(V2)  static object LI1(V2)
8    
9  register object V2;  register object V2;
10  {        VMB1 VMS1 VMV1  {        VMB1 VMS1 VMV1
11    goto TTL;
12  TTL:;  TTL:;
13          {object V3;          {object V3;
14          object V4;          object V4;
# Line 16  TTL:; Line 17  TTL:;
17          if(!(endp((V2)))){          if(!(endp((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;
21  T3:;  T3:;
22          if(!(endp(cdr((V2))))){          if(!(endp(cdr((V2))))){
23          goto T7;}          goto T7;}
24          {object V5 = (*(LnkLI39))((V2));          {object V5 = (*(LnkLI39))((V2));
25          VMR1(V5)}          VMR1(V5)}
26    goto T7;
27  T7:;  T7:;
28          V4= (*(LnkLI40))(car((V2)));          V4= (*(LnkLI40))(car((V2)));
29          base[0]= cadr((V4));          base[0]= cadr((V4));
# Line 31  T7:; Line 34  T7:;
34          V2= (*(LnkLI42))(cdr((V2)),(V3));          V2= (*(LnkLI42))(cdr((V2)),(V3));
35          {object V6 = list(4,VV[0],(V3),(V4),(V2));          {object V6 = list(4,VV[0],(V3),(V4),(V2));
36          VMR1(V6)}}          VMR1(V6)}}
37            base[0]=base[0];
38            return Cnil;
39  }  }
40  /*      local entry for function C2MULTIPLE-VALUE-CALL  */  /*      local entry for function C2MULTIPLE-VALUE-CALL  */
41    
# Line 39  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;
48  TTL:;  TTL:;
49          {register object V11;          {register object V11;
50          register object V12;          register object V12;
# Line 54  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;
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 68  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;
79  T41:;  T41:;
80          if(!(endp((V15)))){          if(!(endp((V15)))){
81          goto T42;}          goto T42;}
82          goto T37;          goto T37;
83    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 85  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;
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 97  T37:; Line 107  T37:;
107          {object V18 = Cnil;          {object V18 = Cnil;
108          bds_unwind1;          bds_unwind1;
109          VMR2(V18)}}          VMR2(V18)}}
110            base[0]=base[0];
111            return Cnil;
112  }  }
113  /*      local entry for function C1MULTIPLE-VALUE-PROG1 */  /*      local entry for function C1MULTIPLE-VALUE-PROG1 */
114    
# Line 104  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;
120  TTL:;  TTL:;
121          {object V21;          {object V21;
122          object V22;          object V22;
# Line 112  TTL:; Line 125  TTL:;
125          if(!(endp((V20)))){          if(!(endp((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;
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));
132          {object V23 = list(4,VV[8],(V21),(V22),(V20));          {object V23 = list(4,VV[8],(V21),(V22),(V20));
133          VMR3(V23)}}          VMR3(V23)}}
134            base[0]=base[0];
135            return Cnil;
136  }  }
137  /*      local entry for function C2MULTIPLE-VALUE-PROG1 */  /*      local entry for function C2MULTIPLE-VALUE-PROG1 */
138    
# Line 125  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;
145  TTL:;  TTL:;
146          {object V28;          {object V28;
147          register object V29;          register object V29;
# Line 151  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;
172  T99:;  T99:;
173          if(!(endp((V31)))){          if(!(endp((V31)))){
174          goto T100;}          goto T100;}
175          goto T95;          goto T95;
176    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 162  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;
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 172  T95:; Line 192  T95:;
192          goto T118;}          goto T118;}
193          V34= car((V30));          V34= car((V30));
194          goto T116;          goto T116;
195    goto T118;
196  T118:;  T118:;
197          V34= Cnil;          V34= Cnil;
198    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)}}
202            base[0]=base[0];
203            return Cnil;
204  }  }
205  /*      local entry for function C1VALUES       */  /*      local entry for function C1VALUES       */
206    
# Line 184  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;
212  TTL:;  TTL:;
213          {object V38;          {object V38;
214          V38= (VFUN_NARGS=0,(*(LnkLI48))());          V38= (VFUN_NARGS=0,(*(LnkLI48))());
# Line 202  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;
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;
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;
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;
245  T131:;  T131:;
246    goto T121;
247  T121:;  T121:;
248          {object V40 = (*(LnkLI52))(car((V37)));          {object V40 = (*(LnkLI52))(car((V37)));
249          VMR5(V40)}          VMR5(V40)}
250    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));
254          VMR5(V41)}}          VMR5(V41)}}
255            base[0]=base[0];
256            return Cnil;
257  }  }
258  /*      local entry for function C2VALUES       */  /*      local entry for function C2VALUES       */
259    
# Line 229  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;
266  TTL:;  TTL:;
267          {object V44;          {object V44;
268          V44= symbol_value(VV[1]);          V44= symbol_value(VV[1]);
# Line 242  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;
280  T142:;  T142:;
281          if(((V43))!=Cnil){          if(((V43))!=Cnil){
282          goto T153;}          goto T153;}
# Line 251  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;
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;
296  T166:;  T166:;
297          if(!(endp((V45)))){          if(!(endp((V45)))){
298          goto T167;}          goto T167;}
299          goto T162;          goto T162;
300    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 268  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;
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 276  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;
319  T151:;  T151:;
320          V49 = make_fixnum(length((V43)));          V49 = make_fixnum(length((V43)));
321          V50= make_cons(VV[13],V49);          V50= make_cons(VV[13],V49);
322          {object V51 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,/* INLINE-ARGS */V50));          {object V51 = (VFUN_NARGS=3,(*(LnkLI50))(VV[11],Cnil,/* INLINE-ARGS */V50));
323          bds_unwind1;          bds_unwind1;
324          VMR6(V51)}}          VMR6(V51)}}
325            base[0]=base[0];
326            return Cnil;
327  }  }
328  /*      local entry for function C1MULTIPLE-VALUE-SETQ  */  /*      local entry for function C1MULTIPLE-VALUE-SETQ  */
329    
# Line 289  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;
335  TTL:;  TTL:;
336          {register object V54;          {register object V54;
337          register object V55;          register object V55;
# Line 298  TTL:; Line 341  TTL:;
341          goto T188;}          goto T188;}
342          if(!(endp(cdr((V53))))){          if(!(endp(cdr((V53))))){
343          goto T187;}          goto T187;}
344    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;
348  T187:;  T187:;
349          if(endp(cddr((V53)))){          if(endp(cddr((V53)))){
350          goto T192;}          goto T192;}
351          V56 = make_fixnum(length((V53)));          V56 = make_fixnum(length((V53)));
352          (void)((*(LnkLI55))(VV[19],small_fixnum(2),V56));          (void)((*(LnkLI55))(VV[19],small_fixnum(2),V56));
353    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;
360  T199:;  T199:;
361          if(!(endp((V57)))){          if(!(endp((V57)))){
362          goto T200;}          goto T200;}
363          goto T195;          goto T195;
364    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;
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 326  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;
379  T207:;  T207:;
380          V58= (*(LnkLI57))((V58));          V58= (*(LnkLI57))((V58));
381          V55= make_cons((V58),(V55));          V55= make_cons((V58),(V55));
# Line 339  T207:; Line 389  T207:;
389          V57= cdr((V57));          V57= cdr((V57));
390          V58= car((V57));          V58= car((V57));
391          goto T199;}          goto T199;}
392    goto T195;
393  T195:;  T195:;
394          V63= reverse((V55));          V63= reverse((V55));
395          {object V64 = list(4,VV[19],(V54),/* INLINE-ARGS */V63,(*(LnkLI49))(cadr((V53)),(V54)));          {object V64 = list(4,VV[19],(V54),/* INLINE-ARGS */V63,(*(LnkLI49))(cadr((V53)),(V54)));
396          VMR7(V64)}}          VMR7(V64)}}
397            base[0]=base[0];
398            return Cnil;
399  }  }
400  /*      local entry for function MULTIPLE-VALUE-CHECK   */  /*      local entry for function MULTIPLE-VALUE-CHECK   */
401    
# Line 350  static object LI8(V67,V68) Line 403  static object LI8(V67,V68)
403    
404  object V67;object V68;  object V67;object V68;
405  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
406    goto TTL;
407  TTL:;  TTL:;
408          if((cdr((V67)))!=Cnil){          if((cdr((V67)))!=Cnil){
409          goto T223;}          goto T223;}
410          {object V69 = Cnil;          {object V69 = Cnil;
411          VMR8(V69)}          VMR8(V69)}
412    goto T223;
413  T223:;  T223:;
414          if((car((V68)))==(VV[23])){          if((car((V68)))==(VV[23])){
415          goto T225;}          goto T225;}
416          {object V70 = Cnil;          {object V70 = Cnil;
417          VMR8(V70)}          VMR8(V70)}
418    goto T225;
419  T225:;  T225:;
420          {object V71;          {object V71;
421          V71= caddr((V68));          V71= caddr((V68));
# Line 372  T225:; Line 428  T225:;
428          if(type_of((V72))==t_cons){          if(type_of((V72))==t_cons){
429          goto T234;}          goto T234;}
430          goto T229;          goto T229;
431    goto T234;
432  T234:;  T234:;
433          if(((equal((V72),VV[25])?Ct:Cnil))==Cnil){          if(((equal((V72),VV[25])?Ct:Cnil))==Cnil){
434          goto T236;}          goto T236;}
435          goto T229;          goto T229;
436    goto T236;
437  T236:;  T236:;
438          if(!((cdr((V72)))==Cnil)){          if(!((cdr((V72)))==Cnil)){
439          goto T229;}}          goto T229;}}
440          {object V73 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V71)));          {object V73 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V71)));
441          VMR8(V73)}          VMR8(V73)}
442    goto T229;
443  T229:;  T229:;
444          {object V74 = Cnil;          {object V74 = Cnil;
445          VMR8(V74)}}          VMR8(V74)}}
446            return Cnil;
447  }  }
448  /*      local entry for function C2MULTIPLE-VALUE-SETQ  */  /*      local entry for function C2MULTIPLE-VALUE-SETQ  */
449    
# Line 392  static object LI9(V77,V78) Line 452  static object LI9(V77,V78)
452  register object V77;object V78;  register object V77;object V78;
453  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
454          bds_check;          bds_check;
455    goto TTL;
456  TTL:;  TTL:;
457          {object V79;          {object V79;
458          V79= Cnil;          V79= Cnil;
# Line 405  TTL:; Line 466  TTL:;
466          if(symbol_value(VV[27])==Cnil){          if(symbol_value(VV[27])==Cnil){
467          goto T243;}          goto T243;}
468          (void)((*(LnkLI59))(Cnil,car((V79))));          (void)((*(LnkLI59))(Cnil,car((V79))));
469    goto T243;
470  T243:;  T243:;
471          {register object V80;          {register object V80;
472          V80= (V77);          V80= (V77);
473    goto T246;
474  T246:;  T246:;
475          if(!(endp((V80)))){          if(!(endp((V80)))){
476          goto T247;}          goto T247;}
477          goto T244;          goto T244;
478    goto T247;
479  T247:;  T247:;
480          {register object V81;          {register object V81;
481          V81= car((V80));          V81= car((V80));
# Line 420  T247:; Line 484  T247:;
484          if(endp(cdr((V80)))){          if(endp(cdr((V80)))){
485          goto T256;}          goto T256;}
486          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
487    goto T256;
488  T256:;  T256:;
489          princ_str("\n   }else{",VV[6]);          princ_str("\n   }else{",VV[6]);
490          (void)((*(LnkLI60))(Cnil,car((V81)),cadr((V81))));          (void)((*(LnkLI60))(Cnil,car((V81)),cadr((V81))));
491          princ_char(125,VV[6]);}          princ_char(125,VV[6]);}
492          V80= cdr((V80));          V80= cdr((V80));
493          goto T246;}          goto T246;}
494    goto T244;
495  T244:;  T244:;
496          if(((V77))!=Cnil){          if(((V77))!=Cnil){
497          goto T268;}          goto T268;}
498          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]);
499          {object V82 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));          {object V82 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));
500          VMR9(V82)}          VMR9(V82)}
501    goto T268;
502  T268:;  T268:;
503          if((symbol_value(VV[28]))==(VV[29])){          if((symbol_value(VV[28]))==(VV[29])){
504          goto T272;}          goto T272;}
505          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
506          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
507    goto T272;
508  T272:;  T272:;
509          V83= make_cons(VV[30],car((V77)));          V83= make_cons(VV[30],car((V77)));
510          {object V84 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V83));          {object V84 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V83));
511          VMR9(V84)}}          VMR9(V84)}}
512            base[0]=base[0];
513            return Cnil;
514  }  }
515  /*      local entry for function C1MULTIPLE-VALUE-BIND  */  /*      local entry for function C1MULTIPLE-VALUE-BIND  */
516    
# Line 449  static object LI10(V86) Line 519  static object LI10(V86)
519  object V86;  object V86;
520  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
521          bds_check;          bds_check;
522    goto TTL;
523  TTL:;  TTL:;
524          {object V87;          {object V87;
525          register object V88;          register object V88;
# Line 473  TTL:; Line 544  TTL:;
544          goto T286;}          goto T286;}
545          if(!(endp(cdr((V86))))){          if(!(endp(cdr((V86))))){
546          goto T285;}          goto T285;}
547    goto T286;
548  T286:;  T286:;
549          V96 = make_fixnum(length((V86)));          V96 = make_fixnum(length((V86)));
550          (void)((*(LnkLI38))(VV[32],small_fixnum(2),V96));          (void)((*(LnkLI38))(VV[32],small_fixnum(2),V96));
551    goto T285;
552  T285:;  T285:;
553          base[2]= cddr((V86));          base[2]= cddr((V86));
554          base[3]= Cnil;          base[3]= Cnil;
# Line 511  T285:; Line 584  T285:;
584          register object V98;          register object V98;
585          V97= car((V86));          V97= car((V86));
586          V98= car((V97));          V98= car((V97));
587    goto T299;
588  T299:;  T299:;
589          if(!(endp((V97)))){          if(!(endp((V97)))){
590          goto T300;}          goto T300;}
591          goto T295;          goto T295;
592    goto T300;
593  T300:;  T300:;
594          {object V99;          {object V99;
595          V99= (*(LnkLI64))((V98),(V91),(V92),(V93));          V99= (*(LnkLI64))((V98),(V91),(V92),(V93));
# Line 523  T300:; Line 598  T300:;
598          V97= cdr((V97));          V97= cdr((V97));
599          V98= car((V97));          V98= car((V97));
600          goto T299;}          goto T299;}
601    goto T295;
602  T295:;  T295:;
603          V90= (*(LnkLI49))(cadr((V86)),(V87));          V90= (*(LnkLI49))(cadr((V86)),(V87));
604          {register object V100;          {register object V100;
605          object V101;          object V101;
606          V100= reverse((V88));          V100= reverse((V88));
607          V101= car((V100));          V101= car((V100));
608    goto T320;
609  T320:;  T320:;
610          if(!(endp((V100)))){          if(!(endp((V100)))){
611          goto T321;}          goto T321;}
612          goto T316;          goto T316;
613    goto T321;
614  T321:;  T321:;
615          (VV[31]->s.s_dbind)= make_cons((V101),(VV[31]->s.s_dbind));          (VV[31]->s.s_dbind)= make_cons((V101),(VV[31]->s.s_dbind));
616          V100= cdr((V100));          V100= cdr((V100));
617          V101= car((V100));          V101= car((V100));
618          goto T320;}          goto T320;}
619    goto T316;
620  T316:;  T316:;
621          (void)((*(LnkLI65))((V89),(V93),(V92)));          (void)((*(LnkLI65))((V89),(V93),(V92)));
622          V94= (*(LnkLI66))((V95),(V94));          V94= (*(LnkLI66))((V95),(V94));
# Line 548  T316:; Line 627  T316:;
627          object V104;          object V104;
628          V103= (V88);          V103= (V88);
629          V104= car((V103));          V104= car((V103));
630    goto T341;
631  T341:;  T341:;
632          if(!(endp((V103)))){          if(!(endp((V103)))){
633          goto T342;}          goto T342;}
634          goto T337;          goto T337;
635    goto T342;
636  T342:;  T342:;
637          (void)((*(LnkLI68))((V104)));          (void)((*(LnkLI68))((V104)));
638          V103= cdr((V103));          V103= cdr((V103));
639          V104= car((V103));          V104= car((V103));
640          goto T341;}          goto T341;}
641    goto T337;
642  T337:;  T337:;
643          {object V105 = list(5,VV[32],(V87),reverse((V88)),(V90),(V94));          {object V105 = list(5,VV[32],(V87),reverse((V88)),(V90),(V94));
644          bds_unwind1;          bds_unwind1;
645          VMR10(V105)}}          VMR10(V105)}}
646            base[0]=base[0];
647            return Cnil;
648  }  }
649  /*      local entry for function C2MULTIPLE-VALUE-BIND  */  /*      local entry for function C2MULTIPLE-VALUE-BIND  */
650    
# Line 569  static object LI11(V109,V110,V111) Line 653  static object LI11(V109,V110,V111)
653  object V109;object V110;object V111;  object V109;object V110;object V111;
654  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
655          bds_check;          bds_check;
656    goto TTL;
657  TTL:;  TTL:;
658          {object V112;          {object V112;
659          register object V113;          register object V113;
# Line 585  TTL:; Line 670  TTL:;
670          register object V116;          register object V116;
671          V115= (V109);          V115= (V109);
672          V116= car((V115));          V116= car((V115));
673    goto T360;
674  T360:;  T360:;
675          if(!(endp((V115)))){          if(!(endp((V115)))){
676          goto T361;}          goto T361;}
677          goto T356;          goto T356;
678    goto T361;
679  T361:;  T361:;
680          {object V117;          {object V117;
681          V117= (*(LnkLI69))((V116));          V117= (*(LnkLI69))((V116));
# Line 604  T361:; Line 691  T361:;
691          goto T375;}          goto T375;}
692          princ_char(123,VV[6]);          princ_char(123,VV[6]);
693          V112= Ct;          V112= Ct;
694    goto T375;
695  T375:;  T375:;
696          base[5]= (V116);          base[5]= (V116);
697          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
698          (void) (*Lnk70)();          (void) (*Lnk70)();
699          vs_top=sup;          vs_top=sup;
700          goto T365;}          goto T365;}
701    goto T368;
702  T368:;  T368:;
703          V119= (*(LnkLI54))();          V119= (*(LnkLI54))();
704          (void)(structure_set((V116),VV[30],2,/* INLINE-ARGS */V119));}          (void)(structure_set((V116),VV[30],2,/* INLINE-ARGS */V119));}
705    goto T365;
706  T365:;  T365:;
707          V115= cdr((V115));          V115= cdr((V115));
708          V116= car((V115));          V116= car((V115));
709          goto T360;}          goto T360;}
710    goto T356;
711  T356:;  T356:;
712          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
713          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
# Line 627  T356:; Line 718  T356:;
718          if(symbol_value(VV[27])==Cnil){          if(symbol_value(VV[27])==Cnil){
719          goto T390;}          goto T390;}
720          (void)((*(LnkLI59))(Cnil,car((V114))));          (void)((*(LnkLI59))(Cnil,car((V114))));
721    goto T390;
722  T390:;  T390:;
723          bds_bind(VV[34],(VV[34]->s.s_dbind));          bds_bind(VV[34],(VV[34]->s.s_dbind));
724          bds_bind(VV[33],(VV[33]->s.s_dbind));          bds_bind(VV[33],(VV[33]->s.s_dbind));
725          bds_bind(VV[35],(VV[35]->s.s_dbind));          bds_bind(VV[35],(VV[35]->s.s_dbind));
726          {register object V120;          {register object V120;
727          V120= (V109);          V120= (V109);
728    goto T393;
729  T393:;  T393:;
730          if(!(endp((V120)))){          if(!(endp((V120)))){
731          goto T394;}          goto T394;}
# Line 640  T393:; Line 733  T393:;
733          bds_unwind1;          bds_unwind1;
734          bds_unwind1;          bds_unwind1;
735          goto T391;          goto T391;
736    goto T394;
737  T394:;  T394:;
738          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));
739          V121= make_cons(symbol_value(VV[36]),Cnil);          V121= make_cons(symbol_value(VV[36]),Cnil);
# Line 657  T394:; Line 751  T394:;
751          if(endp(cdr((V120)))){          if(endp(cdr((V120)))){
752          goto T412;}          goto T412;}
753          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
754    goto T412;
755  T412:;  T412:;
756          V120= cdr((V120));          V120= cdr((V120));
757          goto T393;}          goto T393;}
758    goto T391;
759  T391:;  T391:;
760          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
761          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
# Line 677  T391:; Line 773  T391:;
773          object V124;          object V124;
774          V123= (V109);          V123= (V109);
775          V124= car((V123));          V124= car((V123));
776    goto T436;
777  T436:;  T436:;
778          if(!(endp((V123)))){          if(!(endp((V123)))){
779          goto T437;}          goto T437;}
780          goto T432;          goto T432;
781    goto T437;
782  T437:;  T437:;
783          if((cdr(car((V113))))==Cnil){          if((cdr(car((V113))))==Cnil){
784          goto T441;}          goto T441;}
785            princ_str("\ngoto T",VV[6]);
786            (void)((*(LnkLI46))(car(car((V113)))));
787            princ_char(59,VV[6]);
788          princ_str("\nT",VV[6]);          princ_str("\nT",VV[6]);
789          (void)((*(LnkLI46))(car(car((V113)))));          (void)((*(LnkLI46))(car(car((V113)))));
790          princ_str(":;",VV[6]);          princ_str(":;",VV[6]);
791    goto T441;
792  T441:;  T441:;
793          {object V125;          {object V125;
794          V125= car((V113));          V125= car((V113));
# Line 695  T441:; Line 797  T441:;
797          V123= cdr((V123));          V123= cdr((V123));
798          V124= car((V123));          V124= car((V123));
799          goto T436;}          goto T436;}
800    goto T432;
801  T432:;  T432:;
802          if((cdr((V122)))==Cnil){          if((cdr((V122)))==Cnil){
803          goto T421;}          goto T421;}
804            princ_str("\ngoto T",VV[6]);
805            (void)((*(LnkLI46))(car((V122))));
806            princ_char(59,VV[6]);
807          princ_str("\nT",VV[6]);          princ_str("\nT",VV[6]);
808          (void)((*(LnkLI46))(car((V122))));          (void)((*(LnkLI46))(car((V122))));
809          princ_str(":;",VV[6]);}          princ_str(":;",VV[6]);}
810    goto T421;
811  T421:;  T421:;
812          base[4]= (V111);          base[4]= (V111);
813          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
814          (void) (*Lnk72)();          (void) (*Lnk72)();
815          vs_top=sup;          vs_top=sup;
816          if(((V112))==Cnil){          if(((V112))==Cnil){
817          goto T465;}          goto T473;}
818          princ_char(125,VV[6]);          princ_char(125,VV[6]);
819          {object V126 = Cnil;          {object V126 = Cnil;
820          bds_unwind1;          bds_unwind1;
# Line 715  T421:; Line 822  T421:;
822          bds_unwind1;          bds_unwind1;
823          bds_unwind1;          bds_unwind1;
824          VMR11(V126)}          VMR11(V126)}
825  T465:;  goto T473;
826    T473:;
827          {object V127 = Cnil;          {object V127 = Cnil;
828          bds_unwind1;          bds_unwind1;
829          bds_unwind1;          bds_unwind1;
830          bds_unwind1;          bds_unwind1;
831          bds_unwind1;          bds_unwind1;
832          VMR11(V127)}}          VMR11(V127)}}
833            base[0]=base[0];
834            return Cnil;
835  }  }
836  static LnkT72(){ call_or_link(VV[72],&Lnk72);} /* C2EXPR */  static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* C2EXPR */
837  static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],&LnkLI71,2,ap);} /* C2BIND-LOC */  static object  LnkTLI71(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[71],(void **)&LnkLI71,2,ap);} /* C2BIND-LOC */
838  static LnkT70(){ call_or_link(VV[70],&Lnk70);} /* WT-VAR-DECL */  static void LnkT70(){ call_or_link(VV[70],(void **)&Lnk70);} /* WT-VAR-DECL */
839  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,1,ap);} /* C2VAR-KIND */  static object  LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],(void **)&LnkLI69,1,ap);} /* C2VAR-KIND */
840  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,1,ap);} /* CHECK-VREF */  static object  LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],(void **)&LnkLI68,1,ap);} /* CHECK-VREF */
841  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,2,ap);} /* ADD-INFO */  static object  LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],(void **)&LnkLI67,2,ap);} /* ADD-INFO */
842  static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],&LnkLI66,2,ap);} /* C1DECL-BODY */  static object  LnkTLI66(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[66],(void **)&LnkLI66,2,ap);} /* C1DECL-BODY */
843  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,3,ap);} /* CHECK-VDECL */  static object  LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],(void **)&LnkLI65,3,ap);} /* CHECK-VDECL */
844  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],&LnkLI64,4,ap);} /* C1MAKE-VAR */  static object  LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[64],(void **)&LnkLI64,4,ap);} /* C1MAKE-VAR */
845  static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],&LnkLI63,1,ap);} /* C1ADD-GLOBALS */  static object  LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],(void **)&LnkLI63,1,ap);} /* C1ADD-GLOBALS */
846  static LnkT62(){ call_or_link(VV[62],&Lnk62);} /* C1BODY */  static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* C1BODY */
847  static object  LnkTLI61(){return call_proc0(VV[61],&LnkLI61);} /* RESET-TOP */  static object  LnkTLI61(){return call_proc0(VV[61],(void **)&LnkLI61);} /* RESET-TOP */
848  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,3,ap);} /* SET-VAR */  static object  LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],(void **)&LnkLI60,3,ap);} /* SET-VAR */
849  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* RECORD-CALL-INFO */  static object  LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* RECORD-CALL-INFO */
850  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,2,ap);} /* MULTIPLE-VALUE-CHECK */  static object  LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,2,ap);} /* MULTIPLE-VALUE-CHECK */
851  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* C1VREF */  static object  LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* C1VREF */
852  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[56],&LnkLI56,ap);} /* CMPERR */  static object  LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[56],(void **)&LnkLI56,ap);} /* CMPERR */
853  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,3,ap);} /* TOO-MANY-ARGS */  static object  LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],(void **)&LnkLI55,3,ap);} /* TOO-MANY-ARGS */
854  static object  LnkTLI54(){return call_proc0(VV[54],&LnkLI54);} /* VS-PUSH */  static object  LnkTLI54(){return call_proc0(VV[54],(void **)&LnkLI54);} /* VS-PUSH */
855  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[53],&LnkLI53,ap);} /* CMPWARN */  static object  LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[53],(void **)&LnkLI53,ap);} /* CMPWARN */
856  static object  LnkTLI52(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[52],&LnkLI52,1,ap);} /* C1EXPR */  static object  LnkTLI52(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[52],(void **)&LnkLI52,1,ap);} /* C1EXPR */
857  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* GET-RETURN-TYPE */  static object  LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],(void **)&LnkLI51,1,ap);} /* GET-RETURN-TYPE */
858  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],&LnkLI50,ap);} /* UNWIND-EXIT */  static object  LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[50],(void **)&LnkLI50,ap);} /* UNWIND-EXIT */
859  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],&LnkLI49,2,ap);} /* C1EXPR* */  static object  LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[49],(void **)&LnkLI49,2,ap);} /* C1EXPR* */
860  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],&LnkLI48,ap);} /* MAKE-INFO */  static object  LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],(void **)&LnkLI48,ap);} /* MAKE-INFO */
861  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,2,ap);} /* C2EXPR-TOP* */  static object  LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],(void **)&LnkLI47,2,ap);} /* C2EXPR-TOP* */
862  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,1,ap);} /* WT1 */  static object  LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],(void **)&LnkLI46,1,ap);} /* WT1 */
863  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],&LnkLI45,ap);} /* C2FUNCALL */  static object  LnkTLI45(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[45],(void **)&LnkLI45,ap);} /* C2FUNCALL */
864  static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],&LnkLI44,1,ap);} /* C2EXPR* */  static object  LnkTLI44(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[44],(void **)&LnkLI44,1,ap);} /* C2EXPR* */
865  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,1,ap);} /* SAVE-FUNOB */  static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],(void **)&LnkLI43,1,ap);} /* SAVE-FUNOB */
866  static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],&LnkLI42,2,ap);} /* C1ARGS */  static object  LnkTLI42(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[42],(void **)&LnkLI42,2,ap);} /* C1ARGS */
867  static LnkT41(){ call_or_link(VV[41],&Lnk41);} /* COPY-INFO */  static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* COPY-INFO */
868  static object  LnkTLI40(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[40],&LnkLI40,1,ap);} /* C1FUNOB */  static object  LnkTLI40(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[40],(void **)&LnkLI40,1,ap);} /* C1FUNOB */
869  static object  LnkTLI39(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[39],&LnkLI39,1,ap);} /* C1FUNCALL */  static object  LnkTLI39(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[39],(void **)&LnkLI39,1,ap);} /* C1FUNCALL */
870  static object  LnkTLI38(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[38],&LnkLI38,3,ap);} /* TOO-FEW-ARGS */  static object  LnkTLI38(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[38],(void **)&LnkLI38,3,ap);} /* TOO-FEW-ARGS */
871    
872  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
873  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