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

Diff of /gcl/cmpnew/gcl_cmpmulti.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:18 2003 UTC
# Line 14  TTL:; Line 14  TTL:;
14          object V4;          object V4;
15          V3= Cnil;          V3= Cnil;
16          V4= Cnil;          V4= Cnil;
17          if(!(endp_prop((V2)))){          if(!(((V2))==Cnil)){
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(!((CMPcdr((V2)))==Cnil)){
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))(CMPcar((V2)));
29          base[0]= cadr((V4));          base[0]= CMPcadr((V4));
30          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
31          (void) (*Lnk41)();          (void) (*Lnk41)();
32          vs_top=sup;          vs_top=sup;
33          V3= vs_base[0];          V3= vs_base[0];
34          V2= (*(LnkLI42))(cdr((V2)),(V3));          V2= (*(LnkLI42))(CMPcdr((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];          base[0]=base[0];
# Line 48  register object V9;object V10; Line 48  register object V9;object V10;
48  TTL:;  TTL:;
49          {register object V11;          {register object V11;
50          register object V12;          register object V12;
51          bds_bind(VV[1],symbol_value(VV[1]));          bds_bind(VV[1],(VV[1]->s.s_dbind));
52          V11= Cnil;          V11= Cnil;
53          V12= Cnil;          V12= Cnil;
54          if(!(endp_prop(cdr((V10))))){          if(!((CMPcdr((V10)))==Cnil)){
55          goto T19;}          goto T19;}
56          V11= (*(LnkLI43))((V9));          V11= (*(LnkLI43))((V9));
57          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
58          V13= (*(LnkLI44))(car((V10)));          V13= (*(LnkLI44))(CMPcar((V10)));
59          bds_unwind1;          bds_unwind1;
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)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
66          V12= symbol_value(VV[5]);          V12= (VV[5]->s.s_dbind);
67          V11= (*(LnkLI43))((V9));          V11= (*(LnkLI43))((V9));
68          princ_str("\n   {object *V",VV[6]);          princ_str("\n   {object *V",VV[6]);
69          (void)((*(LnkLI46))((V12)));          (void)((*(LnkLI46))((V12)));
70          princ_str("=base+",VV[6]);          princ_str("=base+",VV[6]);
71          (void)((*(LnkLI46))((VV[1]->s.s_dbind)));          (void)((*(LnkLI46))((VV[1]->s.s_dbind)));
72          princ_char(59,VV[6]);          princ_char(59,VV[6]);
73          setq(VV[7],Ct);          (VV[7]->s.s_dbind)= Ct;
74          {register object V15;          {register object V15;
75          register object V16;          register object V16;
76          V15= (V10);          V15= (V10);
77          V16= car((V15));          V16= CMPcar((V15));
78          goto T41;          goto T41;
79  T41:;  T41:;
80          if(!(endp_prop((V15)))){          if(!(((V15))==Cnil)){
81          goto T42;}          goto T42;}
82          goto T37;          goto T37;
83          goto T42;          goto T42;
# Line 91  T42:; Line 91  T42:;
91          princ_str("[0]=vs_base[0];V",VV[6]);          princ_str("[0]=vs_base[0];V",VV[6]);
92          (void)((*(LnkLI46))((V12)));          (void)((*(LnkLI46))((V12)));
93          princ_str("++;vs_base++;}",VV[6]);          princ_str("++;vs_base++;}",VV[6]);
94          V15= cdr((V15));          V15= CMPcdr((V15));
95          V16= car((V15));          V16= CMPcar((V15));
96          goto T41;}          goto T41;}
97          goto T37;          goto T37;
98  T37:;  T37:;
# Line 101  T37:; Line 101  T37:;
101          princ_str(";vs_top=V",VV[6]);          princ_str(";vs_top=V",VV[6]);
102          (void)((*(LnkLI46))((V12)));          (void)((*(LnkLI46))((V12)));
103          princ_char(59,VV[6]);          princ_char(59,VV[6]);
104          setq(VV[7],Ct);          (VV[7]->s.s_dbind)= Ct;
105          (void)((VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))));          (void)((VFUN_NARGS=3,(*(LnkLI45))((V9),VV[4],(V11))));
106          princ_char(125,VV[6]);          princ_char(125,VV[6]);
107          {object V18 = Cnil;          {object V18 = Cnil;
# Line 122  TTL:; Line 122  TTL:;
122          object V22;          object V22;
123          V21= (VFUN_NARGS=0,(*(LnkLI48))());          V21= (VFUN_NARGS=0,(*(LnkLI48))());
124          V22= Cnil;          V22= Cnil;
125          if(!(endp_prop((V20)))){          if(!(((V20))==Cnil)){
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))(CMPcar((V20)),(V21));
131          V20= (*(LnkLI42))(cdr((V20)),(V21));          V20= (*(LnkLI42))(CMPcdr((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];          base[0]=base[0];
# Line 146  TTL:; Line 146  TTL:;
146          {object V28;          {object V28;
147          register object V29;          register object V29;
148          object V30;          object V30;
149          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
150          V28= symbol_value(VV[5]);          V28= (VV[5]->s.s_dbind);
151          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
152          V29= symbol_value(VV[5]);          V29= (VV[5]->s.s_dbind);
153          V30= Cnil;          V30= Cnil;
154          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
155          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
# Line 167  TTL:; Line 167  TTL:;
167          {register object V31;          {register object V31;
168          register object V32;          register object V32;
169          V31= (V27);          V31= (V27);
170          V32= car((V31));          V32= CMPcar((V31));
171          goto T99;          goto T99;
172  T99:;  T99:;
173          if(!(endp_prop((V31)))){          if(!(((V31))==Cnil)){
174          goto T100;}          goto T100;}
175          goto T95;          goto T95;
176          goto T100;          goto T100;
# Line 178  T100:; Line 178  T100:;
178          bds_bind(VV[2],VV[10]);          bds_bind(VV[2],VV[10]);
179          V33= (*(LnkLI47))((V32),(V29));          V33= (*(LnkLI47))((V32),(V29));
180          bds_unwind1;          bds_unwind1;
181          V31= cdr((V31));          V31= CMPcdr((V31));
182          V32= car((V31));          V32= CMPcar((V31));
183          goto T99;}          goto T99;}
184          goto T95;          goto T95;
185  T95:;  T95:;
# Line 190  T95:; Line 190  T95:;
190          princ_str(";}",VV[6]);          princ_str(";}",VV[6]);
191          if(((V30))==Cnil){          if(((V30))==Cnil){
192          goto T118;}          goto T118;}
193          V34= car((V30));          V34= CMPcar((V30));
194          goto T116;          goto T116;
195          goto T118;          goto T118;
196  T118:;  T118:;
# Line 214  TTL:; Line 214  TTL:;
214          V38= (VFUN_NARGS=0,(*(LnkLI48))());          V38= (VFUN_NARGS=0,(*(LnkLI48))());
215          if(((V37))==Cnil){          if(((V37))==Cnil){
216          goto T122;}          goto T122;}
217          if((cdr((V37)))!=Cnil){          if((CMPcdr((V37)))!=Cnil){
218          goto T122;}          goto T122;}
219          if(!(type_of(car((V37)))==t_cons)){          if(!(type_of(CMPcar((V37)))==t_cons)){
220          goto T121;}          goto T121;}
221          if(!(type_of(caar((V37)))==t_symbol)){          if(!(type_of(CMPcaar((V37)))==t_symbol)){
222          goto T122;}          goto T122;}
223          {register object V39;          {register object V39;
224          V39= (*(LnkLI51))(caar((V37)));          V39= (*(LnkLI51))(CMPcaar((V37)));
225          if((V39)==Cnil){          if((V39)==Cnil){
226          goto T122;}          goto T122;}
227          if(!(type_of((V39))!=t_cons)){          if(!(type_of((V39))!=t_cons)){
# Line 234  T133:; Line 234  T133:;
234          goto T122;          goto T122;
235          goto T135;          goto T135;
236  T135:;  T135:;
237          if((cdr((V39)))==Cnil){          if((CMPcdr((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])==(CMPcar((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))(CMPcar((V37)));
249          VMR5(V40)}          VMR5(V40)}
250          goto T122;          goto T122;
251  T122:;  T122:;
# Line 265  register object V43; Line 265  register object V43;
265          goto TTL;          goto TTL;
266  TTL:;  TTL:;
267          {object V44;          {object V44;
268          V44= symbol_value(VV[1]);          V44= (VV[1]->s.s_dbind);
269          bds_bind(VV[1],symbol_value(VV[1]));          bds_bind(VV[1],(VV[1]->s.s_dbind));
270          if(!((symbol_value(VV[2]))==(VV[14]))){          if(!(((VV[2]->s.s_dbind))==(VV[14]))){
271          goto T142;}          goto T142;}
272          if((cdr((V43)))==Cnil){          if((CMPcdr((V43)))==Cnil){
273          goto T142;}          goto T142;}
274          if(!(type_of(symbol_value(VV[15]))==t_cons)){          if(!(type_of((VV[15]->s.s_dbind))==t_cons)){
275          goto T142;}          goto T142;}
276          if(!((VV[16])==(car(symbol_value(VV[15]))))){          if(!((VV[16])==(CMPcar((VV[15]->s.s_dbind))))){
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],CMPcadr((VV[15]->s.s_dbind)))));
279          goto T142;          goto T142;
280  T142:;  T142:;
281          if(((V43))!=Cnil){          if(((V43))!=Cnil){
# Line 283  T142:; Line 283  T142:;
283          princ_str("\n   vs_base=vs_top=base+",VV[6]);          princ_str("\n   vs_base=vs_top=base+",VV[6]);
284          (void)((*(LnkLI46))((V44)));          (void)((*(LnkLI46))((V44)));
285          princ_char(59,VV[6]);          princ_char(59,VV[6]);
286          setq(VV[7],Ct);          (VV[7]->s.s_dbind)= 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;
# Line 291  T153:; Line 291  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= CMPcar((V45));
295          goto T166;          goto T166;
296  T166:;  T166:;
297          if(!(endp_prop((V45)))){          if(!(((V45))==Cnil)){
298          goto T167;}          goto T167;}
299          goto T162;          goto T162;
300          goto T167;          goto T167;
# Line 303  T167:; Line 303  T167:;
303          bds_bind(VV[2],base[2]);          bds_bind(VV[2],base[2]);
304          V47= (*(LnkLI44))((V46));          V47= (*(LnkLI44))((V46));
305          bds_unwind1;          bds_unwind1;
306          V45= cdr((V45));          V45= CMPcdr((V45));
307          V46= car((V45));          V46= CMPcar((V45));
308          goto T166;}          goto T166;}
309          goto T162;          goto T162;
310  T162:;  T162:;
# Line 314  T162:; Line 314  T162:;
314          V48= number_minus((VV[1]->s.s_dbind),(V44));          V48= number_minus((VV[1]->s.s_dbind),(V44));
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);          (VV[7]->s.s_dbind)= Ct;
318          goto T151;          goto T151;
319  T151:;  T151:;
320          V49 = make_fixnum((long)length((V43)));          V49 = CMPmake_fixnum((long)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;
# Line 337  TTL:; Line 337  TTL:;
337          register object V55;          register object V55;
338          V54= (VFUN_NARGS=0,(*(LnkLI48))());          V54= (VFUN_NARGS=0,(*(LnkLI48))());
339          V55= Cnil;          V55= Cnil;
340          if(endp_prop((V53))){          if(((V53))==Cnil){
341          goto T188;}          goto T188;}
342          if(!(endp_prop(cdr((V53))))){          if(!((CMPcdr((V53)))==Cnil)){
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((CMPcddr((V53)))==Cnil){
350          goto T192;}          goto T192;}
351          V56 = make_fixnum((long)length((V53)));          V56 = CMPmake_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= CMPcar((V53));
358          V58= car((V57));          V58= CMPcar((V57));
359          goto T199;          goto T199;
360  T199:;  T199:;
361          if(!(endp_prop((V57)))){          if(!(((V57))==Cnil)){
362          goto T200;}          goto T200;}
363          goto T195;          goto T195;
364          goto T200;          goto T200;
# Line 384  T207:; Line 384  T207:;
384          {register object V60;          {register object V60;
385          register object V61;          register object V61;
386          register object V62;          register object V62;
387          V60= car((V58));          V60= CMPcar((V58));
388          V61= (V54);          V61= (V54);
389          V63= structure_ref((V61),VV[22],0);          V62= make_cons((V60),STREF(object,(V61),0));
390          V62= make_cons((V60),/* INLINE-ARGS */V63);          V63= Ct;
391          (void)(structure_set((V61),VV[22],0,(V62)));}          STSET(object,(V61),0, (V62));
392          V57= cdr((V57));          (void)((V62));}
393          V58= car((V57));          V57= CMPcdr((V57));
394            V58= CMPcar((V57));
395          goto T199;}          goto T199;}
396          goto T195;          goto T195;
397  T195:;  T195:;
398          V64= reverse((V55));          V64= reverse((V55));
399          {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))(CMPcadr((V53)),(V54)));
400          VMR7(V65)}}          VMR7(V65)}}
401          base[0]=base[0];          base[0]=base[0];
402          return Cnil;          return Cnil;
# Line 408  object V68;object V69; Line 409  object V68;object V69;
409  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
410          goto TTL;          goto TTL;
411  TTL:;  TTL:;
412          if((cdr((V68)))!=Cnil){          if((CMPcdr((V68)))!=Cnil){
413          goto T225;}          goto T225;}
414          {object V70 = Cnil;          {object V70 = Cnil;
415          VMR8(V70)}          VMR8(V70)}
416          goto T225;          goto T225;
417  T225:;  T225:;
418          if((car((V69)))==(VV[23])){          if((CMPcar((V69)))==(VV[23])){
419          goto T227;}          goto T227;}
420          {object V71 = Cnil;          {object V71 = Cnil;
421          VMR8(V71)}          VMR8(V71)}
422          goto T227;          goto T227;
423  T227:;  T227:;
424          {object V72;          {object V72;
425          V72= caddr((V69));          V72= CMPcaddr((V69));
426          if(!(type_of((V72))==t_symbol)){          if(!(type_of((V72))==t_symbol)){
427          goto T231;}          goto T231;}
428          {register object V73;          {register object V73;
429          V73= get((V72),VV[24],Cnil);          {object V74 =((V72))->s.s_plist;
430             object ind= VV[24];
431            while(V74!=Cnil){
432            if(V74->c.c_car==ind){
433            V73= (V74->c.c_cdr->c.c_car);
434            goto T235;
435            }else V74=V74->c.c_cdr->c.c_cdr;}
436            V73= Cnil;}
437            goto T235;
438    T235:;
439          if((V73)==Cnil){          if((V73)==Cnil){
440          goto T231;}          goto T231;}
441          if(type_of((V73))==t_cons){          if(type_of((V73))==t_cons){
# Line 438  T236:; Line 448  T236:;
448          goto T231;          goto T231;
449          goto T238;          goto T238;
450  T238:;  T238:;
451          if(!((cdr((V73)))==Cnil)){          if(!((CMPcdr((V73)))==Cnil)){
452          goto T231;}}          goto T231;}}
453          {object V74 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72)));          {object V75 = (VFUN_NARGS=2,(*(LnkLI53))(VV[26],(V72)));
454          VMR8(V74)}          VMR8(V75)}
455          goto T231;          goto T231;
456  T231:;  T231:;
457          {object V75 = Cnil;          {object V76 = Cnil;
458          VMR8(V75)}}          VMR8(V76)}}
459          return Cnil;          return Cnil;
460  }  }
461  /*      local entry for function C2MULTIPLE-VALUE-SETQ  */  /*      local entry for function C2MULTIPLE-VALUE-SETQ  */
462    
463  static object LI9(V78,V79)  static object LI9(V79,V80)
464    
465  register object V78;object V79;  register object V79;object V80;
466  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
467          bds_check;          bds_check;
468          goto TTL;          goto TTL;
469  TTL:;  TTL:;
470          {object V80;          {object V81;
471          V80= Cnil;          V81= Cnil;
472          (void)((*(LnkLI58))((V78),(V79)));          (void)((*(LnkLI58))((V79),(V80)));
473          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
474          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
475          (void)((*(LnkLI44))((V79)));          (void)((*(LnkLI44))((V80)));
476          V80= (VV[9]->s.s_dbind);          V81= (VV[9]->s.s_dbind);
477          bds_unwind1;          bds_unwind1;
478          bds_unwind1;          bds_unwind1;
479          if(symbol_value(VV[27])==Cnil){          if((VV[27]->s.s_dbind)==Cnil){
480          goto T245;}          goto T245;}
481          (void)((*(LnkLI59))(Cnil,car((V80))));          base[0]= Cnil;
482            base[1]= CMPcar((V81));
483            vs_top=(vs_base=base+0)+2;
484            (void) (*Lnk59)();
485            vs_top=sup;
486          goto T245;          goto T245;
487  T245:;  T245:;
         {register object V81;  
         V81= (V78);  
         goto T248;  
 T248:;  
         if(!(endp_prop((V81)))){  
         goto T249;}  
         goto T246;  
         goto T249;  
 T249:;  
488          {register object V82;          {register object V82;
489          V82= car((V81));          V82= (V79);
490            goto T250;
491    T250:;
492            if(!(((V82))==Cnil)){
493            goto T251;}
494            goto T248;
495            goto T251;
496    T251:;
497            {register object V83;
498            V83= CMPcar((V82));
499          princ_str("\n   if(vs_base<vs_top){",VV[6]);          princ_str("\n   if(vs_base<vs_top){",VV[6]);
500          (void)((*(LnkLI60))(VV[11],car((V82)),cadr((V82))));          (void)((*(LnkLI60))(VV[11],CMPcar((V83)),CMPcadr((V83))));
501          if(endp_prop(cdr((V81)))){          if((CMPcdr((V82)))==Cnil){
502          goto T258;}          goto T260;}
503          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
504          goto T258;          goto T260;
505  T258:;  T260:;
506          princ_str("\n   }else{",VV[6]);          princ_str("\n   }else{",VV[6]);
507          (void)((*(LnkLI60))(Cnil,car((V82)),cadr((V82))));          (void)((*(LnkLI60))(Cnil,CMPcar((V83)),CMPcadr((V83))));
508          princ_char(125,VV[6]);}          princ_char(125,VV[6]);}
509          V81= cdr((V81));          V82= CMPcdr((V82));
510          goto T248;}          goto T250;}
511          goto T246;          goto T248;
512  T246:;  T248:;
513          if(((V78))!=Cnil){          if(((V79))!=Cnil){
514          goto T270;}          goto T272;}
515          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]);
516          {object V83 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));          {object V84 = (VFUN_NARGS=1,(*(LnkLI50))(VV[11]));
517          VMR9(V83)}          VMR9(V84)}
518          goto T270;          goto T272;
519  T270:;  T272:;
520          if((symbol_value(VV[28]))==(VV[29])){          if(((VV[28]->s.s_dbind))==(VV[29])){
521          goto T274;}          goto T276;}
522          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
523          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
524          goto T274;          goto T276;
525  T274:;  T276:;
526          V84= make_cons(VV[30],car((V78)));          V85= make_cons(VV[30],CMPcar((V79)));
527          {object V85 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V84));          {object V86 = (VFUN_NARGS=1,(*(LnkLI50))(/* INLINE-ARGS */V85));
528          VMR9(V85)}}          VMR9(V86)}}
529          base[0]=base[0];          base[0]=base[0];
530          return Cnil;          return Cnil;
531  }  }
532  /*      local entry for function C1MULTIPLE-VALUE-BIND  */  /*      local entry for function C1MULTIPLE-VALUE-BIND  */
533    
534  static object LI10(V87)  static object LI10(V88)
535    
536  object V87;  object V88;
537  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
538          bds_check;          bds_check;
539          goto TTL;          goto TTL;
540  TTL:;  TTL:;
541          {object V88;          {object V89;
         register object V89;  
542          register object V90;          register object V90;
543          object V91;          register object V91;
544          object V92;          object V92;
545          object V93;          object V93;
546          object V94;          object V94;
547          object V95;          object V95;
548          object V96;          object V96;
549          V88= (VFUN_NARGS=0,(*(LnkLI48))());          object V97;
550          V89= Cnil;          V89= (VFUN_NARGS=0,(*(LnkLI48))());
551          V90= Cnil;          V90= Cnil;
552          V91= Cnil;          V91= Cnil;
553          V92= Cnil;          V92= Cnil;
# Line 542  TTL:; Line 555  TTL:;
555          V94= Cnil;          V94= Cnil;
556          V95= Cnil;          V95= Cnil;
557          V96= Cnil;          V96= Cnil;
558          bds_bind(VV[31],symbol_value(VV[31]));          V97= Cnil;
559          if(endp_prop((V87))){          bds_bind(VV[31],(VV[31]->s.s_dbind));
560          goto T288;}          if(((V88))==Cnil){
561          if(!(endp_prop(cdr((V87))))){          goto T290;}
562          goto T287;}          if(!((CMPcdr((V88)))==Cnil)){
563          goto T288;          goto T289;}
564  T288:;          goto T290;
565          V97 = make_fixnum((long)length((V87)));  T290:;
566          (void)((*(LnkLI38))(VV[32],small_fixnum(2),V97));          V98 = CMPmake_fixnum((long)length((V88)));
567          goto T287;          (void)((*(LnkLI38))(VV[32],small_fixnum(2),V98));
568  T287:;          goto T289;
569          base[2]= cddr((V87));  T289:;
570            base[2]= CMPcddr((V88));
571          base[3]= Cnil;          base[3]= Cnil;
572          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
573          (void) (*Lnk62)();          (void) (*Lnk62)();
574          if(vs_base<vs_top){          if(vs_base<vs_top){
575          V95= vs_base[0];          V96= vs_base[0];
576          vs_base++;          vs_base++;
577          }else{          }else{
578          V95= Cnil;}          V96= Cnil;}
579          if(vs_base<vs_top){          if(vs_base<vs_top){
580          V92= vs_base[0];          V93= vs_base[0];
581          vs_base++;          vs_base++;
582          }else{          }else{
583          V92= Cnil;}          V93= Cnil;}
584          if(vs_base<vs_top){          if(vs_base<vs_top){
585          V94= vs_base[0];          V95= vs_base[0];
586          vs_base++;          vs_base++;
587          }else{          }else{
588          V94= Cnil;}          V95= Cnil;}
589          if(vs_base<vs_top){          if(vs_base<vs_top){
590          V93= vs_base[0];          V94= vs_base[0];
591          vs_base++;          vs_base++;
592          }else{          }else{
593          V93= Cnil;}          V94= Cnil;}
594          if(vs_base<vs_top){          if(vs_base<vs_top){
595          V96= vs_base[0];          V97= vs_base[0];
596          }else{          }else{
597          V96= Cnil;}          V97= Cnil;}
598          vs_top=sup;          vs_top=sup;
599          (void)((*(LnkLI63))((V92)));          (void)((*(LnkLI63))((V93)));
600          {register object V98;          {register object V99;
601          register object V99;          register object V100;
602          V98= car((V87));          V99= CMPcar((V88));
603          V99= car((V98));          V100= CMPcar((V99));
604          goto T301;          goto T303;
605  T301:;  T303:;
606          if(!(endp_prop((V98)))){          if(!(((V99))==Cnil)){
607          goto T302;}          goto T304;}
608          goto T297;          goto T299;
609          goto T302;          goto T304;
610  T302:;  T304:;
611          {object V100;          {object V101;
612          V100= (*(LnkLI64))((V99),(V92),(V93),(V94));          V101= (*(LnkLI64))((V100),(V93),(V94),(V95));
613          V90= make_cons(V99,(V90));          V91= make_cons(V100,(V91));
614          V89= make_cons(V100,(V89));}          V90= make_cons(V101,(V90));}
615          V98= cdr((V98));          V99= CMPcdr((V99));
616          V99= car((V98));          V100= CMPcar((V99));
617          goto T301;}          goto T303;}
618          goto T297;          goto T299;
619  T297:;  T299:;
620          V91= (*(LnkLI49))(cadr((V87)),(V88));          V92= (*(LnkLI49))(CMPcadr((V88)),(V89));
621          {register object V103;          {register object V104;
622          object V104;          object V105;
623          V103= reverse((V89));          V104= reverse((V90));
624          V104= car((V103));          V105= CMPcar((V104));
625          goto T322;          goto T324;
626  T322:;  T324:;
627          if(!(endp_prop((V103)))){          if(!(((V104))==Cnil)){
628          goto T323;}          goto T325;}
629          goto T318;          goto T320;
630          goto T323;          goto T325;
631  T323:;  T325:;
632          (VV[31]->s.s_dbind)= make_cons(V104,(VV[31]->s.s_dbind));          (VV[31]->s.s_dbind)= make_cons(V105,(VV[31]->s.s_dbind));
633          V103= cdr((V103));          V104= CMPcdr((V104));
634          V104= car((V103));          V105= CMPcar((V104));
635          goto T322;}          goto T324;}
636          goto T318;          goto T320;
637  T318:;  T320:;
638          (void)((*(LnkLI65))((V90),(V94),(V93)));          (void)((*(LnkLI65))((V91),(V95),(V94)));
639          V95= (*(LnkLI66))((V96),(V95));          V96= (*(LnkLI66))((V97),(V96));
640          (void)((*(LnkLI67))((V88),cadr((V95))));          (void)((*(LnkLI67))((V89),CMPcadr((V96))));
641          V106= structure_ref(cadr((V95)),VV[22],2);          V107= Ct;
642          (void)(structure_set((V88),VV[22],2,/* INLINE-ARGS */V106));          STSET(object,(V89),8, STREF(object,CMPcadr((V96)),8));
643          {register object V107;          (void)(STREF(object,CMPcadr((V96)),8));
644          object V108;          {register object V108;
645          V107= (V89);          object V109;
646          V108= car((V107));          V108= (V90);
647          goto T343;          V109= CMPcar((V108));
648  T343:;          goto T345;
649          if(!(endp_prop((V107)))){  T345:;
650          goto T344;}          if(!(((V108))==Cnil)){
651          goto T339;          goto T346;}
652          goto T344;          goto T341;
653  T344:;          goto T346;
654          (void)((*(LnkLI68))((V108)));  T346:;
655          V107= cdr((V107));          (void)((*(LnkLI68))((V109)));
656          V108= car((V107));          V108= CMPcdr((V108));
657          goto T343;}          V109= CMPcar((V108));
658          goto T339;          goto T345;}
659  T339:;          goto T341;
660          {object V109 = list(5,VV[32],(V88),reverse((V89)),(V91),(V95));  T341:;
661            {object V110 = list(5,VV[32],(V89),reverse((V90)),(V92),(V96));
662          bds_unwind1;          bds_unwind1;
663          VMR10(V109)}}          VMR10(V110)}}
664          base[0]=base[0];          base[0]=base[0];
665          return Cnil;          return Cnil;
666  }  }
667  /*      local entry for function C2MULTIPLE-VALUE-BIND  */  /*      local entry for function C2MULTIPLE-VALUE-BIND  */
668    
669  static object LI11(V113,V114,V115)  static object LI11(V114,V115,V116)
670    
671  object V113;object V114;object V115;  object V114;object V115;object V116;
672  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
673          bds_check;          bds_check;
674          goto TTL;          goto TTL;
675  TTL:;  TTL:;
676          {object V116;          {object V117;
677          register object V117;          register object V118;
678          object V118;          object V119;
         V116= Cnil;  
679          V117= Cnil;          V117= Cnil;
         bds_bind(VV[33],symbol_value(VV[33]));  
         bds_bind(VV[1],symbol_value(VV[1]));  
         bds_bind(VV[34],symbol_value(VV[34]));  
         bds_bind(VV[35],symbol_value(VV[35]));  
680          V118= Cnil;          V118= Cnil;
681          (void)((*(LnkLI58))((V113),(V114)));          bds_bind(VV[33],(VV[33]->s.s_dbind));
682          {register object V119;          bds_bind(VV[1],(VV[1]->s.s_dbind));
683          register object V120;          bds_bind(VV[34],(VV[34]->s.s_dbind));
684          V119= (V113);          bds_bind(VV[35],(VV[35]->s.s_dbind));
685          V120= car((V119));          V119= Cnil;
686          goto T362;          (void)((*(LnkLI58))((V114),(V115)));
687  T362:;          {register object V120;
688          if(!(endp_prop((V119)))){          register object V121;
689          goto T363;}          V120= (V114);
690          goto T358;          V121= CMPcar((V120));
691          goto T363;          goto T364;
692  T363:;  T364:;
693          {object V121;          if(!(((V120))==Cnil)){
694          V121= (*(LnkLI69))((V120));          goto T365;}
695          if(((V121))==Cnil){          goto T360;
696          goto T370;}          goto T365;
697    T365:;
698          {object V122;          {object V122;
699          setq(VV[5],number_plus(symbol_value(VV[5]),small_fixnum(1)));          V122= (*(LnkLI69))((V121));
700          V122= symbol_value(VV[5]);          if(((V122))==Cnil){
701          (void)(structure_set((V120),VV[30],1,(V121)));          goto T372;}
702          (void)(structure_set((V120),VV[30],4,(V122)));          {object V123;
703            (VV[5]->s.s_dbind)= number_plus((VV[5]->s.s_dbind),small_fixnum(1));
704            V123= (VV[5]->s.s_dbind);
705            V124= Ct;
706            STSET(object,(V121),4, (V122));
707            (void)((V122));
708            V125= Ct;
709            STSET(object,(V121),16, (V123));
710            (void)((V123));
711          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
712          if(((V116))!=Cnil){          if(((V117))!=Cnil){
713          goto T377;}          goto T379;}
714          princ_char(123,VV[6]);          princ_char(123,VV[6]);
715          V116= Ct;          V117= Ct;
716          goto T377;          goto T379;
717  T377:;  T379:;
718          base[5]= (V120);          (void)((*(LnkLI70))((V121)));
719          vs_top=(vs_base=base+5)+1;          goto T369;}
720          (void) (*Lnk70)();          goto T372;
721          vs_top=sup;  T372:;
722          goto T367;}          V126= (*(LnkLI54))();
723          goto T370;          V127= Ct;
724  T370:;          STSET(object,(V121),8, /* INLINE-ARGS */V126);
725          V123= (*(LnkLI54))();          (void)(/* INLINE-ARGS */V126);}
726          (void)(structure_set((V120),VV[30],2,/* INLINE-ARGS */V123));}          goto T369;
727          goto T367;  T369:;
728  T367:;          V120= CMPcdr((V120));
729          V119= cdr((V119));          V121= CMPcar((V120));
730          V120= car((V119));          goto T364;}
731          goto T362;}          goto T360;
732          goto T358;  T360:;
 T358:;  
733          bds_bind(VV[2],VV[3]);          bds_bind(VV[2],VV[3]);
734          bds_bind(VV[9],Cnil);          bds_bind(VV[9],Cnil);
735          (void)((*(LnkLI44))((V114)));          (void)((*(LnkLI44))((V115)));
736          V118= (VV[9]->s.s_dbind);          V119= (VV[9]->s.s_dbind);
737          bds_unwind1;          bds_unwind1;
738          bds_unwind1;          bds_unwind1;
739          if(symbol_value(VV[27])==Cnil){          if((VV[27]->s.s_dbind)==Cnil){
740          goto T392;}          goto T393;}
741          (void)((*(LnkLI59))(Cnil,car((V118))));          base[4]= Cnil;
742          goto T392;          base[5]= CMPcar((V119));
743  T392:;          vs_top=(vs_base=base+4)+2;
744            (void) (*Lnk59)();
745            vs_top=sup;
746            goto T393;
747    T393:;
748          bds_bind(VV[34],(VV[34]->s.s_dbind));          bds_bind(VV[34],(VV[34]->s.s_dbind));
749          bds_bind(VV[33],(VV[33]->s.s_dbind));          bds_bind(VV[33],(VV[33]->s.s_dbind));
750          bds_bind(VV[35],(VV[35]->s.s_dbind));          bds_bind(VV[35],(VV[35]->s.s_dbind));
751          {register object V124;          {register object V128;
752          V124= (V113);          V128= (V114);
753          goto T395;          goto T398;
754  T395:;  T398:;
755          if(!(endp_prop((V124)))){          if(!(((V128))==Cnil)){
756          goto T396;}          goto T399;}
757          bds_unwind1;          bds_unwind1;
758          bds_unwind1;          bds_unwind1;
759          bds_unwind1;          bds_unwind1;
         goto T393;  
760          goto T396;          goto T396;
761  T396:;          goto T399;
762          {object V125;  T399:;
763          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));          {object V129;
764          V125= make_cons(symbol_value(VV[36]),Cnil);          (VV[36]->s.s_dbind)= number_plus((VV[36]->s.s_dbind),small_fixnum(1));
765          V117= make_cons((V125),(V117));}          V129= make_cons((VV[36]->s.s_dbind),Cnil);
766            V118= make_cons((V129),(V118));}
767          princ_str("\n   if(vs_base>=vs_top){",VV[6]);          princ_str("\n   if(vs_base>=vs_top){",VV[6]);
768          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
769          if(type_of(car((V117)))!=t_cons)FEwrong_type_argument(Scons,car((V117)));          (CMPcar((V118)))->c.c_cdr = Ct;
770          (car((V117)))->c.c_cdr = Ct;          (void)(CMPcar((V118)));
         (void)(car((V117)));  
771          princ_str("goto T",VV[6]);          princ_str("goto T",VV[6]);
772          (void)((*(LnkLI46))(car(car((V117)))));          (void)((*(LnkLI46))(CMPcar(CMPcar((V118)))));
773          princ_char(59,VV[6]);          princ_char(59,VV[6]);
774          princ_char(125,VV[6]);          princ_char(125,VV[6]);
775          (void)((*(LnkLI71))(car((V124)),VV[37]));          (void)((*(LnkLI71))(CMPcar((V128)),VV[37]));
776          if(endp_prop(cdr((V124)))){          if((CMPcdr((V128)))==Cnil){
777          goto T415;}          goto T418;}
778          princ_str("\n   vs_base++;",VV[6]);          princ_str("\n   vs_base++;",VV[6]);
779          goto T415;          goto T418;
780  T415:;  T418:;
781          V124= cdr((V124));          V128= CMPcdr((V128));
782          goto T395;}          goto T398;}
783          goto T393;          goto T396;
784  T393:;  T396:;
785          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
786          (void)((*(LnkLI61))());          (void)((*(LnkLI61))());
787          {object V126;          {object V130;
788          setq(VV[36],number_plus(symbol_value(VV[36]),small_fixnum(1)));          (VV[36]->s.s_dbind)= number_plus((VV[36]->s.s_dbind),small_fixnum(1));
789          V126= make_cons(symbol_value(VV[36]),Cnil);          V130= make_cons((VV[36]->s.s_dbind),Cnil);
790          princ_str("\n   ",VV[6]);          princ_str("\n   ",VV[6]);
791          if(type_of((V126))!=t_cons)FEwrong_type_argument(Scons,(V126));          ((V130))->c.c_cdr = Ct;
         ((V126))->c.c_cdr = Ct;  
792          princ_str("goto T",VV[6]);          princ_str("goto T",VV[6]);
793          (void)((*(LnkLI46))(car((V126))));          (void)((*(LnkLI46))(CMPcar((V130))));
794          princ_char(59,VV[6]);          princ_char(59,VV[6]);
795          V117= reverse((V117));          V118= reverse((V118));
796          {register object V127;          {register object V131;
797          object V128;          object V132;
798          V127= (V113);          V131= (V114);
799          V128= car((V127));          V132= CMPcar((V131));
800          goto T439;          goto T442;
801  T439:;  T442:;
802          if(!(endp_prop((V127)))){          if(!(((V131))==Cnil)){
803          goto T440;}          goto T443;}
804          goto T435;          goto T438;
805          goto T440;          goto T443;
806  T440:;  T443:;
807          if((cdr(car((V117))))==Cnil){          if((CMPcdr(CMPcar((V118))))==Cnil){
808          goto T444;}          goto T447;}
809          princ_str("\n   goto T",VV[6]);          princ_str("\n   goto T",VV[6]);
810          (void)((*(LnkLI46))(car(car((V117)))));          (void)((*(LnkLI46))(CMPcar(CMPcar((V118)))));
811          princ_char(59,VV[6]);          princ_char(59,VV[6]);
812          princ_str("\nT",VV[6]);          princ_str("\nT",VV[6]);
813          (void)((*(LnkLI46))(car(car((V117)))));          (void)((*(LnkLI46))(CMPcar(CMPcar((V118)))));
814          princ_str(":;",VV[6]);          princ_str(":;",VV[6]);
815          goto T444;          goto T447;
816  T444:;  T447:;
817          {object V129;          {object V133;
818          V129= car((V117));          V133= CMPcar((V118));
819          V117= cdr((V117));}          V118= CMPcdr((V118));}
820          (void)((*(LnkLI71))((V128),Cnil));          (void)((*(LnkLI71))((V132),Cnil));
821          V127= cdr((V127));          V131= CMPcdr((V131));
822          V128= car((V127));          V132= CMPcar((V131));
823          goto T439;}          goto T442;}
824          goto T435;          goto T438;
825  T435:;  T438:;
826          if((cdr((V126)))==Cnil){          if((CMPcdr((V130)))==Cnil){
827          goto T424;}          goto T427;}
828          princ_str("\n   goto T",VV[6]);          princ_str("\n   goto T",VV[6]);
829          (void)((*(LnkLI46))(car((V126))));          (void)((*(LnkLI46))(CMPcar((V130))));
830          princ_char(59,VV[6]);          princ_char(59,VV[6]);
831          princ_str("\nT",VV[6]);          princ_str("\nT",VV[6]);
832          (void)((*(LnkLI46))(car((V126))));          (void)((*(LnkLI46))(CMPcar((V130))));
833          princ_str(":;",VV[6]);}          princ_str(":;",VV[6]);}
834          goto T424;          goto T427;
835  T424:;  T427:;
836          base[4]= (V115);          base[4]= (V116);
837          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
838          (void) (*Lnk72)();          (void) (*Lnk72)();
839          vs_top=sup;          vs_top=sup;
840          if(((V116))==Cnil){          if(((V117))==Cnil){
841          goto T476;}          goto T479;}
842          princ_char(125,VV[6]);          princ_char(125,VV[6]);
843          {object V130 = Cnil;          {object V134 = Cnil;
844          bds_unwind1;          bds_unwind1;
845          bds_unwind1;          bds_unwind1;
846          bds_unwind1;          bds_unwind1;
847          bds_unwind1;          bds_unwind1;
848          VMR11(V130)}          VMR11(V134)}
849          goto T476;          goto T479;
850  T476:;  T479:;
851          {object V131 = Cnil;          {object V135 = Cnil;
852          bds_unwind1;          bds_unwind1;
853          bds_unwind1;          bds_unwind1;
854          bds_unwind1;          bds_unwind1;
855          bds_unwind1;          bds_unwind1;
856          VMR11(V131)}}          VMR11(V135)}}
857          base[0]=base[0];          base[0]=base[0];
858          return Cnil;          return Cnil;
859  }  }
860  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* C2EXPR */  static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* C2EXPR */
861  static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */  static object  LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
862  static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* WT-VAR-DECL */  static object  LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[70],(void **)(void *)&LnkLI70,1,first,ap);va_end(ap);return V1;} /* WT-VAR-DECL */
863  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */  static object  LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
864  static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */  static object  LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */
865  static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */  static object  LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
# Line 850  static object  LnkTLI63(object first,... Line 870  static object  LnkTLI63(object first,...
870  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* C1BODY */  static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* C1BODY */
871  static object  LnkTLI61(){return call_proc0(VV[61],(void **)(void *)&LnkLI61);} /* RESET-TOP */  static object  LnkTLI61(){return call_proc0(VV[61],(void **)(void *)&LnkLI61);} /* RESET-TOP */
872  static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,3,first,ap);va_end(ap);return V1;} /* SET-VAR */  static object  LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,3,first,ap);va_end(ap);return V1;} /* SET-VAR */
873  static object  LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */  static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* RECORD-CALL-INFO */
874  static object  LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* MULTIPLE-VALUE-CHECK */  static object  LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* MULTIPLE-VALUE-CHECK */
875  static object  LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C1VREF */  static object  LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C1VREF */
876  static object  LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[56],(void **)(void *)&LnkLI56,first,ap);va_end(ap);return V1;} /* CMPERR */  static object  LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[56],(void **)(void *)&LnkLI56,first,ap);va_end(ap);return V1;} /* CMPERR */

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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