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

Diff of /gcl/cmpnew/cmpvar.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 53  static object LI2(V13,V14,V15,V16) Line 53  static object LI2(V13,V14,V15,V16)
53    
54  register object V13;object V14;object V15;object V16;  register object V13;object V14;object V15;object V16;
55  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
56  goto TTL;          goto TTL;
57  TTL:;  TTL:;
58          {register object V17;          {register object V17;
59          V17= Cnil;          V17= Cnil;
# Line 62  TTL:; Line 62  TTL:;
62          if(type_of((V13))==t_symbol){          if(type_of((V13))==t_symbol){
63          goto T12;}          goto T12;}
64          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[2],(V13))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[2],(V13))));
65  goto T12;          goto T12;
66  T12:;  T12:;
67          base[0]= (V13);          base[0]= (V13);
68          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 71  T12:; Line 71  T12:;
71          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
72          goto T15;}          goto T15;}
73          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[3],(V13))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[3],(V13))));
74  goto T15;          goto T15;
75  T15:;  T15:;
76          {register object x= (V13),V19= (V14);          {register object x= (V13),V19= (V14);
77          while(!endp(V19))          while(!endp(V19))
# Line 84  T15:; Line 84  T15:;
84          vs_top=sup;          vs_top=sup;
85          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
86          goto T21;}          goto T21;}
87  goto T20;          goto T20;
88  T20:;  T20:;
89          (void)(structure_set((V18),VV[0],1,VV[4]));          (void)(structure_set((V18),VV[0],1,VV[4]));
90          V20= (*(LnkLI68))((V13));          V20= (*(LnkLI68))((V13));
# Line 96  T20:; Line 96  T20:;
96          goto T32;          goto T32;
97          }else V21=V21->c.c_cdr;          }else V21=V21->c.c_cdr;
98          V17= Cnil;}          V17= Cnil;}
99  goto T32;          goto T32;
100  T32:;  T32:;
101          if(((V17))==Cnil){          if(((V17))==Cnil){
102          goto T30;}          goto T30;}
103          (void)(structure_set((V18),VV[0],5,cdr((V17))));          (void)(structure_set((V18),VV[0],5,cdr((V17))));
104          goto T28;          goto T28;
105  goto T30;          goto T30;
106  T30:;  T30:;
107          V17= get((V13),VV[5],Cnil);          V17= get((V13),VV[5],Cnil);
108          if(((V17))==Cnil){          if(((V17))==Cnil){
109          goto T28;}          goto T28;}
110          (void)(structure_set((V18),VV[0],5,(V17)));          (void)(structure_set((V18),VV[0],5,(V17)));
111  goto T28;          goto T28;
112  T28:;  T28:;
113          setq(VV[6],Ct);          setq(VV[6],Ct);
114          goto T19;          goto T19;
115  goto T21;          goto T21;
116  T21:;  T21:;
117          {register object V22;          {register object V22;
118          register object V23;          register object V23;
119          V22= (V16);          V22= (V16);
120          V23= car((V22));          V23= car((V22));
121  goto T41;          goto T41;
122  T41:;  T41:;
123          if(!(endp_prop((V22)))){          if(!(endp_prop((V22)))){
124          goto T42;}          goto T42;}
125          goto T37;          goto T37;
126  goto T42;          goto T42;
127  T42:;  T42:;
128          if(!((car((V23)))==((V13)))){          if(!((car((V23)))==((V13)))){
129          goto T46;}          goto T46;}
# Line 131  T42:; Line 131  T42:;
131          if((V24!= VV[7]))goto T49;          if((V24!= VV[7]))goto T49;
132          (void)(structure_set((V18),VV[0],4,VV[7]));          (void)(structure_set((V18),VV[0],4,VV[7]));
133          goto T46;          goto T46;
134  goto T49;          goto T49;
135  T49:;  T49:;
136          if((V24!= VV[69]))goto T50;          if((V24!= VV[69]))goto T50;
137          V25= structure_ref((V18),VV[0],6);          V25= structure_ref((V18),VV[0],6);
138          V26= number_plus(/* INLINE-ARGS */V25,small_fixnum(100));          V26= number_plus(/* INLINE-ARGS */V25,small_fixnum(100));
139          (void)(structure_set((V18),VV[0],6,/* INLINE-ARGS */V26));          (void)(structure_set((V18),VV[0],6,/* INLINE-ARGS */V26));
140          goto T46;          goto T46;
141  goto T50;          goto T50;
142  T50:;  T50:;
143          (void)(structure_set((V18),VV[0],5,cdr((V23))));}          (void)(structure_set((V18),VV[0],5,cdr((V23))));}
144  goto T46;          goto T46;
145  T46:;  T46:;
146          V22= cdr((V22));          V22= cdr((V22));
147          V23= car((V22));          V23= car((V22));
148          goto T41;}          goto T41;}
149  goto T37;          goto T37;
150  T37:;  T37:;
151          base[0]= VV[8];          base[0]= VV[8];
152          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 155  T37:; Line 155  T37:;
155          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
156          goto T57;}          goto T57;}
157          goto T56;          goto T56;
158  goto T57;          goto T57;
159  T57:;  T57:;
160          if(symbol_value(VV[8])==Cnil){          if(symbol_value(VV[8])==Cnil){
161          goto T56;}          goto T56;}
# Line 163  T57:; Line 163  T57:;
163          if(!((/* INLINE-ARGS */V27)==Cnil)){          if(!((/* INLINE-ARGS */V27)==Cnil)){
164          goto T62;}          goto T62;}
165          goto T60;          goto T60;
166  goto T62;          goto T62;
167  T62:;  T62:;
168          V28= structure_ref((V18),VV[0],5);          V28= structure_ref((V18),VV[0],5);
169          if((Ct)==(/* INLINE-ARGS */V28)){          if((Ct)==(/* INLINE-ARGS */V28)){
170          goto T60;}          goto T60;}
171          goto T56;          goto T56;
172  goto T60;          goto T60;
173  T60:;  T60:;
174          (void)(structure_set((V18),VV[0],4,VV[7]));          (void)(structure_set((V18),VV[0],4,VV[7]));
175  goto T56;          goto T56;
176  T56:;  T56:;
177          (void)(structure_set((V18),VV[0],1,VV[9]));          (void)(structure_set((V18),VV[0],1,VV[9]));
178  goto T19;          goto T19;
179  T19:;  T19:;
180          {register object x= (V13),V29= (V15);          {register object x= (V13),V29= (V15);
181          while(!endp(V29))          while(!endp(V29))
# Line 183  T19:; Line 183  T19:;
183          goto T66;          goto T66;
184          }else V29=V29->c.c_cdr;          }else V29=V29->c.c_cdr;
185          goto T64;}          goto T64;}
186  goto T66;          goto T66;
187  T66:;  T66:;
188          (void)(structure_set((V18),VV[0],2,VV[10]));          (void)(structure_set((V18),VV[0],2,VV[10]));
189  goto T64;          goto T64;
190  T64:;  T64:;
191          {object V30 = (V18);          {object V30 = (V18);
192          VMR2(V30)}}}          VMR2(V30)}}}
# Line 199  static object LI3(V32) Line 199  static object LI3(V32)
199    
200  register object V32;  register object V32;
201  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
202  goto TTL;          goto TTL;
203  TTL:;  TTL:;
204          V33= structure_ref((V32),VV[0],1);          V33= structure_ref((V32),VV[0],1);
205          if(!((/* INLINE-ARGS */V33)==(VV[9]))){          if(!((/* INLINE-ARGS */V33)==(VV[9]))){
# Line 211  TTL:; Line 211  TTL:;
211          V34= structure_ref((V32),VV[0],0);          V34= structure_ref((V32),VV[0],0);
212          {object V35 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],/* INLINE-ARGS */V34));          {object V35 = (VFUN_NARGS=2,(*(LnkLI70))(VV[11],/* INLINE-ARGS */V34));
213          VMR3(V35)}          VMR3(V35)}
214  goto T68;          goto T68;
215  T68:;  T68:;
216          {object V36 = Cnil;          {object V36 = Cnil;
217          VMR3(V36)}          VMR3(V36)}
# Line 223  static object LI4(V38) Line 223  static object LI4(V38)
223    
224  object V38;  object V38;
225  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
226  goto TTL;          goto TTL;
227  TTL:;  TTL:;
228          {object V39;          {object V39;
229          object V40;          object V40;
# Line 248  static object LI5(V48) Line 248  static object LI5(V48)
248    
249  register object V48;  register object V48;
250  {        VMB5 VMS5 VMV5  {        VMB5 VMS5 VMV5
251  goto TTL;          goto TTL;
252  TTL:;  TTL:;
253          {register object V49;          {register object V49;
254          register object V50;          register object V50;
# Line 258  TTL:; Line 258  TTL:;
258          register object V52;          register object V52;
259          V51= symbol_value(VV[13]);          V51= symbol_value(VV[13]);
260          V52= car((V51));          V52= car((V51));
261  goto T85;          goto T85;
262  T85:;  T85:;
263          if(!(endp_prop((V51)))){          if(!(endp_prop((V51)))){
264          goto T86;}          goto T86;}
# Line 273  T85:; Line 273  T85:;
273          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
274          goto T93;}          goto T93;}
275          (void)((*(LnkLI74))((V48)));          (void)((*(LnkLI74))((V48)));
276  goto T93;          goto T93;
277  T93:;  T93:;
278          V54= (*(LnkLI68))((V48));{object V56;          V54= (*(LnkLI68))((V48));{object V56;
279          V56= get((V48),VV[5],Cnil);          V56= get((V48),VV[5],Cnil);
280          if(V56==Cnil)goto T100;          if(V56==Cnil)goto T100;
281          V55= V56;          V55= V56;
282          goto T99;          goto T99;
283  goto T100;          goto T100;
284  T100:;}  T100:;}
285          V55= Ct;          V55= Ct;
286  goto T99;          goto T99;
287  T99:;  T99:;
288          V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55));          V53= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V48),VV[14],VV[15],VV[16],/* INLINE-ARGS */V54,VV[17],V55));
289          setq(VV[18],make_cons(V53,symbol_value(VV[18])));          setq(VV[18],make_cons(V53,symbol_value(VV[18])));
290  goto T90;          goto T90;
291  T90:;  T90:;
292          {object V58 = list(2,(V53),(V49));          {object V58 = list(2,(V53),(V49));
293          VMR5(V58)}}          VMR5(V58)}}
294  goto T86;          goto T86;
295  T86:;  T86:;
296          if(!(((V52))==(VV[19]))){          if(!(((V52))==(VV[19]))){
297          goto T106;}          goto T106;}
298          V49= Ct;          V49= Ct;
299          goto T104;          goto T104;
300  goto T106;          goto T106;
301  T106:;  T106:;
302          if(!(((V52))==(VV[20]))){          if(!(((V52))==(VV[20]))){
303          goto T110;}          goto T110;}
304          V50= Ct;          V50= Ct;
305          goto T104;          goto T104;
306  goto T110;          goto T110;
307  T110:;  T110:;
308          V59= structure_ref((V52),VV[0],0);          V59= structure_ref((V52),VV[0],0);
309          if(!((/* INLINE-ARGS */V59)==((V48)))){          if(!((/* INLINE-ARGS */V59)==((V48)))){
# Line 313  T110:; Line 313  T110:;
313          goto T115;}          goto T115;}
314          (void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48))));          (void)((VFUN_NARGS=2,(*(LnkLI70))(VV[21],(V48))));
315          (void)(structure_set((V52),VV[0],2,Ct));          (void)(structure_set((V52),VV[0],2,Ct));
316  goto T115;          goto T115;
317  T115:;  T115:;
318          if(((V49))==Cnil){          if(((V49))==Cnil){
319          goto T121;}          goto T121;}
320          (void)(structure_set((V52),VV[0],3,Ct));          (void)(structure_set((V52),VV[0],3,Ct));
321          goto T119;          goto T119;
322  goto T121;          goto T121;
323  T121:;  T121:;
324          if(((V50))==Cnil){          if(((V50))==Cnil){
325          goto T124;}          goto T124;}
# Line 327  T121:; Line 327  T121:;
327          if(!((/* INLINE-ARGS */V61)==(VV[9]))){          if(!((/* INLINE-ARGS */V61)==(VV[9]))){
328          goto T126;}          goto T126;}
329          (void)(structure_set((V52),VV[0],4,VV[22]));          (void)(structure_set((V52),VV[0],4,VV[22]));
330  goto T126;          goto T126;
331  T126:;  T126:;
332          (void)(structure_set((V52),VV[0],2,Ct));          (void)(structure_set((V52),VV[0],2,Ct));
333          goto T119;          goto T119;
334  goto T124;          goto T124;
335  T124:;  T124:;
336          (void)(structure_set((V52),VV[0],2,Ct));          (void)(structure_set((V52),VV[0],2,Ct));
337          {long V62= fix(structure_ref((V52),VV[0],6));          {long V62= fix(structure_ref((V52),VV[0],6));
338          V63 = make_fixnum((long)(1)+(/* INLINE-ARGS */V62));          V63 = make_fixnum((long)(1)+(/* INLINE-ARGS */V62));
339          (void)(structure_set((V52),VV[0],6,V63));}          (void)(structure_set((V52),VV[0],6,V63));}
340  goto T119;          goto T119;
341  T119:;  T119:;
342          {object V64 = list(2,(V52),(V49));          {object V64 = list(2,(V52),(V49));
343          VMR5(V64)}          VMR5(V64)}
344  goto T104;          goto T104;
345  T104:;  T104:;
346          V51= cdr((V51));          V51= cdr((V51));
347          V52= car((V51));          V52= car((V51));
# Line 355  static object LI6(V66) Line 355  static object LI6(V66)
355    
356  register object V66;  register object V66;
357  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
358  goto TTL;          goto TTL;
359  TTL:;  TTL:;
360          V67= structure_ref((V66),VV[0],1);          V67= structure_ref((V66),VV[0],1);
361          if(!((/* INLINE-ARGS */V67)==(VV[9]))){          if(!((/* INLINE-ARGS */V67)==(VV[9]))){
# Line 370  TTL:; Line 370  TTL:;
370          goto T143;}          goto T143;}
371          {object V70 = VV[7];          {object V70 = VV[7];
372          VMR6(V70)}          VMR6(V70)}
373  goto T143;          goto T143;
374  T143:;  T143:;
375          {register object V71;          {register object V71;
376          V71= structure_ref((V66),VV[0],5);          V71= structure_ref((V66),VV[0],5);
# Line 378  T143:; Line 378  T143:;
378          goto T147;}          goto T147;}
379          {object V72 = VV[23];          {object V72 = VV[23];
380          VMR6(V72)}          VMR6(V72)}
381  goto T147;          goto T147;
382  T147:;  T147:;
383          if(((*(LnkLI75))(VV[24],(V71)))==Cnil){          if(((*(LnkLI75))(VV[24],(V71)))==Cnil){
384          goto T150;}          goto T150;}
385          {object V73 = VV[24];          {object V73 = VV[24];
386          VMR6(V73)}          VMR6(V73)}
387  goto T150;          goto T150;
388  T150:;  T150:;
389          if(((*(LnkLI75))(VV[25],(V71)))==Cnil){          if(((*(LnkLI75))(VV[25],(V71)))==Cnil){
390          goto T153;}          goto T153;}
391          {object V74 = VV[25];          {object V74 = VV[25];
392          VMR6(V74)}          VMR6(V74)}
393  goto T153;          goto T153;
394  T153:;  T153:;
395          if(((*(LnkLI75))(VV[26],(V71)))==Cnil){          if(((*(LnkLI75))(VV[26],(V71)))==Cnil){
396          goto T156;}          goto T156;}
397          {object V75 = VV[26];          {object V75 = VV[26];
398          VMR6(V75)}          VMR6(V75)}
399  goto T156;          goto T156;
400  T156:;  T156:;
401          if(((*(LnkLI75))(VV[27],(V71)))==Cnil){          if(((*(LnkLI75))(VV[27],(V71)))==Cnil){
402          goto T159;}          goto T159;}
403          {object V76 = VV[27];          {object V76 = VV[27];
404          VMR6(V76)}          VMR6(V76)}
405  goto T159;          goto T159;
406  T159:;  T159:;
407          {object V77;          {object V77;
408          base[0]= VV[8];          base[0]= VV[8];
# Line 413  T159:; Line 413  T159:;
413          goto T162;}          goto T162;}
414          V77= Cnil;          V77= Cnil;
415          goto T161;          goto T161;
416  goto T162;          goto T162;
417  T162:;  T162:;
418          if(symbol_value(VV[8])==Cnil){          if(symbol_value(VV[8])==Cnil){
419          V77= Cnil;          V77= Cnil;
420          goto T161;}          goto T161;}
421          V77= VV[7];          V77= VV[7];
422  goto T161;          goto T161;
423  T161:;  T161:;
424          if(((V77))==Cnil){          if(((V77))==Cnil){
425          goto T166;}          goto T166;}
426          {object V78 = (V77);          {object V78 = (V77);
427          VMR6(V78)}          VMR6(V78)}
428  goto T166;          goto T166;
429  T166:;  T166:;
430          {object V79 = Cnil;          {object V79 = Cnil;
431          VMR6(V79)}}}          VMR6(V79)}}}
432  goto T136;          goto T136;
433  T136:;  T136:;
434          {object V80 = Cnil;          {object V80 = Cnil;
435          VMR6(V80)}          VMR6(V80)}
# Line 442  static object LI7(V82) Line 442  static object LI7(V82)
442    
443  object V82;  object V82;
444  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
445  goto TTL;          goto TTL;
446  TTL:;  TTL:;
447          V83= make_cons(VV[0],(V82));          V83= make_cons(VV[0],(V82));
448          {object V84 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V83,Cnil,VV[28]));          {object V84 = (VFUN_NARGS=3,(*(LnkLI76))(/* INLINE-ARGS */V83,Cnil,VV[28]));
# Line 455  static object LI8(V86) Line 455  static object LI8(V86)
455    
456  object V86;  object V86;
457  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
458  goto TTL;          goto TTL;
459  TTL:;  TTL:;
460          {object V87 = (VFUN_NARGS=3,(*(LnkLI76))((V86),Cnil,VV[28]));          {object V87 = (VFUN_NARGS=3,(*(LnkLI76))((V86),Cnil,VV[28]));
461          VMR8(V87)}          VMR8(V87)}
# Line 467  static object LI9(V89) Line 467  static object LI9(V89)
467    
468  object V89;  object V89;
469  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
470  goto TTL;          goto TTL;
471  TTL:;  TTL:;
472          {object V90;          {object V90;
473          V90= Cnil;          V90= Cnil;
# Line 475  TTL:; Line 475  TTL:;
475          object V92;          object V92;
476          V91= symbol_value(VV[29]);          V91= symbol_value(VV[29]);
477          V92= car((V91));          V92= car((V91));
478  goto T173;          goto T173;
479  T173:;  T173:;
480          if(!(endp_prop((V91)))){          if(!(endp_prop((V91)))){
481          goto T174;}          goto T174;}
482          goto T169;          goto T169;
483  goto T174;          goto T174;
484  T174:;  T174:;
485          if(!((car((V92)))==(VV[30]))){          if(!((car((V92)))==(VV[30]))){
486          goto T178;}          goto T178;}
# Line 489  T174:; Line 489  T174:;
489          register object V94;          register object V94;
490          V93= symbol_value(VV[29]);          V93= symbol_value(VV[29]);
491          V94= car((V93));          V94= car((V93));
492  goto T187;          goto T187;
493  T187:;  T187:;
494          if(!(endp_prop((V93)))){          if(!(endp_prop((V93)))){
495          goto T188;}          goto T188;}
496          goto T183;          goto T183;
497  goto T188;          goto T188;
498  T188:;  T188:;
499          if(!((car((V94)))==(VV[31]))){          if(!((car((V94)))==(VV[31]))){
500          goto T192;}          goto T192;}
# Line 504  T188:; Line 504  T188:;
504          V96= VV[30];          V96= VV[30];
505          if(type_of((V95))!=t_cons)FEwrong_type_argument(Scons,(V95));          if(type_of((V95))!=t_cons)FEwrong_type_argument(Scons,(V95));
506          ((V95))->c.c_car = (V96);}          ((V95))->c.c_car = (V96);}
507  goto T192;          goto T192;
508  T192:;  T192:;
509          V93= cdr((V93));          V93= cdr((V93));
510          V94= car((V93));          V94= car((V93));
511          goto T187;}          goto T187;}
512  goto T183;          goto T183;
513  T183:;  T183:;
514          goto T169;          goto T169;
515  goto T178;          goto T178;
516  T178:;  T178:;
517          V91= cdr((V91));          V91= cdr((V91));
518          V92= car((V91));          V92= car((V91));
519          goto T173;}          goto T173;}
520  goto T169;          goto T169;
521  T169:;  T169:;
522          setq(VV[29],Cnil);          setq(VV[29],Cnil);
523          if(((V90))==Cnil){          if(((V90))==Cnil){
# Line 526  T169:; Line 526  T169:;
526          object V98;          object V98;
527          V97= (V89);          V97= (V89);
528          V98= car((V97));          V98= car((V97));
529  goto T216;          goto T216;
530  T216:;  T216:;
531          if(!(endp_prop((V97)))){          if(!(endp_prop((V97)))){
532          goto T217;}          goto T217;}
533          {object V99 = Cnil;          {object V99 = Cnil;
534          VMR9(V99)}          VMR9(V99)}
535  goto T217;          goto T217;
536  T217:;  T217:;
537          V100= structure_ref((V98),VV[0],1);          V100= structure_ref((V98),VV[0],1);
538          if(!((/* INLINE-ARGS */V100)==(VV[32]))){          if(!((/* INLINE-ARGS */V100)==(VV[32]))){
539          goto T221;}          goto T221;}
540          (void)(structure_set((V98),VV[0],1,VV[9]));          (void)(structure_set((V98),VV[0],1,VV[9]));
541  goto T221;          goto T221;
542  T221:;  T221:;
543          V97= cdr((V97));          V97= cdr((V97));
544          V98= car((V97));          V98= car((V97));
545          goto T216;}          goto T216;}
546  goto T211;          goto T211;
547  T211:;  T211:;
548          {object V101 = Cnil;          {object V101 = Cnil;
549          VMR9(V101)}}          VMR9(V101)}}
# Line 556  static object LI10(V105,V106,V107) Line 556  static object LI10(V105,V106,V107)
556    
557  object V105;object V106;object V107;  object V105;object V106;object V107;
558  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
559  goto TTL;          goto TTL;
560  TTL:;  TTL:;
561          {register object V108;          {register object V108;
562          V108= small_fixnum(0);          V108= small_fixnum(0);
# Line 564  TTL:; Line 564  TTL:;
564          register object V110;          register object V110;
565          V109= (V105);          V109= (V105);
566          V110= car((V109));          V110= car((V109));
567  goto T234;          goto T234;
568  T234:;  T234:;
569          if(!(endp_prop((V109)))){          if(!(endp_prop((V109)))){
570          goto T235;}          goto T235;}
571          goto T230;          goto T230;
572  goto T235;          goto T235;
573  T235:;  T235:;
574          V111= structure_ref((V110),VV[0],1);          V111= structure_ref((V110),VV[0],1);
575          if(!((/* INLINE-ARGS */V111)==(VV[32]))){          if(!((/* INLINE-ARGS */V111)==(VV[32]))){
# Line 583  T235:; Line 583  T235:;
583          V115= structure_ref((V110),VV[0],4);          V115= structure_ref((V110),VV[0],4);
584          (void)(structure_set((V110),VV[0],2,/* INLINE-ARGS */V115));          (void)(structure_set((V110),VV[0],2,/* INLINE-ARGS */V115));
585          goto T239;          goto T239;
586  goto T243;          goto T243;
587  T243:;  T243:;
588          (void)(structure_set((V110),VV[0],2,(V108)));          (void)(structure_set((V110),VV[0],2,(V108)));
589          (void)(structure_set((V110),VV[0],4,(V108)));          (void)(structure_set((V110),VV[0],4,(V108)));
590          V108= number_plus((V108),small_fixnum(1));          V108= number_plus((V108),small_fixnum(1));
591  goto T239;          goto T239;
592  T239:;  T239:;
593          V109= cdr((V109));          V109= cdr((V109));
594          V110= car((V109));          V110= car((V109));
595          goto T234;}          goto T234;}
596  goto T230;          goto T230;
597  T230:;  T230:;
598          if(!(number_compare((V108),small_fixnum(0))>0)){          if(!(number_compare((V108),small_fixnum(0))>0)){
599          goto T255;}          goto T255;}
# Line 602  T230:; Line 602  T230:;
602          princ_str("\n   object base0[",VV[34]);          princ_str("\n   object base0[",VV[34]);
603          (void)((*(LnkLI77))((V108)));          (void)((*(LnkLI77))((V108)));
604          princ_str("];",VV[34]);          princ_str("];",VV[34]);
605  goto T258;          goto T258;
606  T258:;  T258:;
607          setq(VV[36],make_cons(VV[35],symbol_value(VV[36])));          setq(VV[36],make_cons(VV[35],symbol_value(VV[36])));
608          princ_str("\n   DCnames",VV[34]);          princ_str("\n   DCnames",VV[34]);
609          (void)((*(LnkLI77))((V106)));          (void)((*(LnkLI77))((V106)));
610          princ_str("",VV[34]);          princ_str("",VV[34]);
611  goto T255;          goto T255;
612  T255:;  T255:;
613          {object V117 = (V108);          {object V117 = (V108);
614          VMR10(V117)}}          VMR10(V117)}}
# Line 621  static object LI11(V119) Line 621  static object LI11(V119)
621    
622  object V119;  object V119;
623  {        VMB11 VMS11 VMV11  {        VMB11 VMS11 VMV11
624  goto TTL;          goto TTL;
625  TTL:;{object V120;  TTL:;{object V120;
626          base[0]= (V119);          base[0]= (V119);
627          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 630  TTL:;{object V120; Line 630  TTL:;{object V120;
630          V120= vs_base[0];          V120= vs_base[0];
631          if(V120==Cnil)goto T270;          if(V120==Cnil)goto T270;
632          goto T269;          goto T269;
633  goto T270;          goto T270;
634  T270:;}  T270:;}
635          (void)((*(LnkLI79))());          (void)((*(LnkLI79))());
636  goto T269;          goto T269;
637  T269:;  T269:;
638          princ_str("base0[",VV[34]);          princ_str("base0[",VV[34]);
639          (void)((*(LnkLI77))((V119)));          (void)((*(LnkLI77))((V119)));
# Line 649  static object LI12(V124,V125) Line 649  static object LI12(V124,V125)
649    
650  register object V124;object V125;  register object V124;object V125;
651  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
652  goto TTL;          goto TTL;
653  TTL:;  TTL:;
654          V127= structure_ref((V124),VV[0],1);          V127= structure_ref((V124),VV[0],1);
655          {object V126= /* INLINE-ARGS */V127;          {object V126= /* INLINE-ARGS */V127;
# Line 659  TTL:; Line 659  TTL:;
659          V128= structure_ref((V124),VV[0],3);          V128= structure_ref((V124),VV[0],3);
660          {object V129 = (*(LnkLI80))(/* INLINE-ARGS */V128);          {object V129 = (*(LnkLI80))(/* INLINE-ARGS */V128);
661          VMR12(V129)}          VMR12(V129)}
662  goto T278;          goto T278;
663  T278:;  T278:;
664          if((structure_ref((V124),VV[0],3))==Cnil){          if((structure_ref((V124),VV[0],3))==Cnil){
665          goto T281;}          goto T281;}
666          V130= structure_ref((V124),VV[0],2);          V130= structure_ref((V124),VV[0],2);
667          {object V131 = (*(LnkLI81))(/* INLINE-ARGS */V130);          {object V131 = (*(LnkLI81))(/* INLINE-ARGS */V130);
668          VMR12(V131)}          VMR12(V131)}
669  goto T281;          goto T281;
670  T281:;  T281:;
671          V132= structure_ref((V124),VV[0],2);          V132= structure_ref((V124),VV[0],2);
672          if(!((Ct)==(/* INLINE-ARGS */V132))){          if(!((Ct)==(/* INLINE-ARGS */V132))){
# Line 681  T281:; Line 681  T281:;
681          goto T284;}          goto T284;}
682          (void)(structure_set((V124),VV[0],1,VV[7]));          (void)(structure_set((V124),VV[0],1,VV[7]));
683          goto TTL;          goto TTL;
684  goto T284;          goto T284;
685  T284:;  T284:;
686          V135= structure_ref((V124),VV[0],2);          V135= structure_ref((V124),VV[0],2);
687          {object V136 = (*(LnkLI82))(/* INLINE-ARGS */V135);          {object V136 = (*(LnkLI82))(/* INLINE-ARGS */V135);
688          VMR12(V136)}          VMR12(V136)}
689  goto T276;          goto T276;
690  T276:;  T276:;
691          if((V126!= VV[4]))goto T296;          if((V126!= VV[4]))goto T296;
692          princ_str("(VV[",VV[34]);          princ_str("(VV[",VV[34]);
# Line 695  T276:; Line 695  T276:;
695          princ_str("]->s.s_dbind)",VV[34]);          princ_str("]->s.s_dbind)",VV[34]);
696          {object V138 = Cnil;          {object V138 = Cnil;
697          VMR12(V138)}          VMR12(V138)}
698  goto T296;          goto T296;
699  T296:;  T296:;
700          if((V126!= VV[83]))goto T300;          if((V126!= VV[83]))goto T300;
701          V139= structure_ref((V124),VV[0],4);          V139= structure_ref((V124),VV[0],4);
702          (void)((*(LnkLI77))(/* INLINE-ARGS */V139));          (void)((*(LnkLI77))(/* INLINE-ARGS */V139));
703          {object V140 = Cnil;          {object V140 = Cnil;
704          VMR12(V140)}          VMR12(V140)}
705  goto T300;          goto T300;
706  T300:;  T300:;
707          if((V126!= VV[32]))goto T302;          if((V126!= VV[32]))goto T302;
708          V141= structure_ref((V124),VV[0],4);          V141= structure_ref((V124),VV[0],4);
709          {object V142 = (*(LnkLI84))(/* INLINE-ARGS */V141);          {object V142 = (*(LnkLI84))(/* INLINE-ARGS */V141);
710          VMR12(V142)}          VMR12(V142)}
711  goto T302;          goto T302;
712  T302:;  T302:;
713          if((V126!= VV[15]))goto T303;          if((V126!= VV[15]))goto T303;
714          if((symbol_value(VV[37]))==Cnil){          if((symbol_value(VV[37]))==Cnil){
# Line 719  T302:; Line 719  T302:;
719          princ_str("])",VV[34]);          princ_str("])",VV[34]);
720          {object V144 = Cnil;          {object V144 = Cnil;
721          VMR12(V144)}          VMR12(V144)}
722  goto T305;          goto T305;
723  T305:;  T305:;
724          princ_str("(VV[",VV[34]);          princ_str("(VV[",VV[34]);
725          V145= structure_ref((V124),VV[0],4);          V145= structure_ref((V124),VV[0],4);
# Line 727  T305:; Line 727  T305:;
727          princ_str("]->s.s_dbind)",VV[34]);          princ_str("]->s.s_dbind)",VV[34]);
728          {object V146 = Cnil;          {object V146 = Cnil;
729          VMR12(V146)}          VMR12(V146)}
730  goto T303;          goto T303;
731  T303:;  T303:;
732          V148= structure_ref((V124),VV[0],1);          V148= structure_ref((V124),VV[0],1);
733          {object V147= /* INLINE-ARGS */V148;          {object V147= /* INLINE-ARGS */V148;
# Line 735  T303:; Line 735  T303:;
735          if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){          if(!(number_compare(small_fixnum(0),symbol_value(VV[38]))==0)){
736          goto T315;}          goto T315;}
737          princ_str("CMP",VV[34]);          princ_str("CMP",VV[34]);
738  goto T315;          goto T315;
739  T315:;  T315:;
740          princ_str("make_fixnum",VV[34]);          princ_str("make_fixnum",VV[34]);
741          goto T313;          goto T313;
742  goto T314;          goto T314;
743  T314:;  T314:;
744          if((V147!= VV[24]))goto T320;          if((V147!= VV[24]))goto T320;
745          princ_str("make_integer",VV[34]);          princ_str("make_integer",VV[34]);
746          goto T313;          goto T313;
747  goto T320;          goto T320;
748  T320:;  T320:;
749          if((V147!= VV[25]))goto T322;          if((V147!= VV[25]))goto T322;
750          princ_str("code_char",VV[34]);          princ_str("code_char",VV[34]);
751          goto T313;          goto T313;
752  goto T322;          goto T322;
753  T322:;  T322:;
754          if((V147!= VV[26]))goto T324;          if((V147!= VV[26]))goto T324;
755          princ_str("make_longfloat",VV[34]);          princ_str("make_longfloat",VV[34]);
756          goto T313;          goto T313;
757  goto T324;          goto T324;
758  T324:;  T324:;
759          if((V147!= VV[27]))goto T326;          if((V147!= VV[27]))goto T326;
760          princ_str("make_shortfloat",VV[34]);          princ_str("make_shortfloat",VV[34]);
761          goto T313;          goto T313;
762  goto T326;          goto T326;
763  T326:;  T326:;
764          if((V147!= VV[7]))goto T328;          if((V147!= VV[7]))goto T328;
765          goto T313;          goto T313;
766  goto T328;          goto T328;
767  T328:;  T328:;
768          (void)((*(LnkLI85))());}          (void)((*(LnkLI85))());}
769  goto T313;          goto T313;
770  T313:;  T313:;
771          princ_str("(V",VV[34]);          princ_str("(V",VV[34]);
772          V149= structure_ref((V124),VV[0],4);          V149= structure_ref((V124),VV[0],4);
# Line 783  static object LI13(V154,V155,V156) Line 783  static object LI13(V154,V155,V156)
783  register object V154;register object V155;object V156;  register object V154;register object V155;object V156;
784  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
785          bds_check;          bds_check;
786  goto TTL;          goto TTL;
787  TTL:;  TTL:;
788          if(!(type_of((V154))==t_cons)){          if(!(type_of((V154))==t_cons)){
789          goto T332;}          goto T332;}
# Line 793  TTL:; Line 793  TTL:;
793          goto T332;}          goto T332;}
794          if((caddr((V154)))==((V156))){          if((caddr((V154)))==((V156))){
795          goto T333;}          goto T333;}
796  goto T332;          goto T332;
797  T332:;  T332:;
798          V158= structure_ref((V155),VV[0],1);          V158= structure_ref((V155),VV[0],1);
799          {object V157= /* INLINE-ARGS */V158;          {object V157= /* INLINE-ARGS */V158;
# Line 804  T332:; Line 804  T332:;
804          V159= structure_ref((V155),VV[0],3);          V159= structure_ref((V155),VV[0],3);
805          (void)((*(LnkLI80))(/* INLINE-ARGS */V159));          (void)((*(LnkLI80))(/* INLINE-ARGS */V159));
806          goto T343;          goto T343;
807  goto T345;          goto T345;
808  T345:;  T345:;
809          if((structure_ref((V155),VV[0],3))==Cnil){          if((structure_ref((V155),VV[0],3))==Cnil){
810          goto T348;}          goto T348;}
811          V160= structure_ref((V155),VV[0],2);          V160= structure_ref((V155),VV[0],2);
812          (void)((*(LnkLI81))(/* INLINE-ARGS */V160));          (void)((*(LnkLI81))(/* INLINE-ARGS */V160));
813          goto T343;          goto T343;
814  goto T348;          goto T348;
815  T348:;  T348:;
816          V161= structure_ref((V155),VV[0],2);          V161= structure_ref((V155),VV[0],2);
817          (void)((*(LnkLI82))(/* INLINE-ARGS */V161));          (void)((*(LnkLI82))(/* INLINE-ARGS */V161));
818  goto T343;          goto T343;
819  T343:;  T343:;
820          princ_str("= ",VV[34]);          princ_str("= ",VV[34]);
821          (void)((*(LnkLI77))((V154)));          (void)((*(LnkLI77))((V154)));
822          princ_char(59,VV[34]);          princ_char(59,VV[34]);
823          {object V162 = Cnil;          {object V162 = Cnil;
824          VMR13(V162)}          VMR13(V162)}
825  goto T341;          goto T341;
826  T341:;  T341:;
827          if((V157!= VV[4]))goto T353;          if((V157!= VV[4]))goto T353;
828          princ_str("\n   (VV[",VV[34]);          princ_str("\n   (VV[",VV[34]);
# Line 833  T341:; Line 833  T341:;
833          princ_char(59,VV[34]);          princ_char(59,VV[34]);
834          {object V164 = Cnil;          {object V164 = Cnil;
835          VMR13(V164)}          VMR13(V164)}
836  goto T353;          goto T353;
837  T353:;  T353:;
838          if((V157!= VV[15]))goto T359;          if((V157!= VV[15]))goto T359;
839          if((symbol_value(VV[37]))==Cnil){          if((symbol_value(VV[37]))==Cnil){
# Line 846  T353:; Line 846  T353:;
846          princ_str(");",VV[34]);          princ_str(");",VV[34]);
847          {object V166 = Cnil;          {object V166 = Cnil;
848          VMR13(V166)}          VMR13(V166)}
849  goto T361;          goto T361;
850  T361:;  T361:;
851          princ_str("\n   (VV[",VV[34]);          princ_str("\n   (VV[",VV[34]);
852          V167= structure_ref((V155),VV[0],4);          V167= structure_ref((V155),VV[0],4);
# Line 856  T361:; Line 856  T361:;
856          princ_char(59,VV[34]);          princ_char(59,VV[34]);
857          {object V168 = Cnil;          {object V168 = Cnil;
858          VMR13(V168)}          VMR13(V168)}
859  goto T359;          goto T359;
860  T359:;  T359:;
861          if((V157!= VV[32]))goto T373;          if((V157!= VV[32]))goto T373;
862          princ_str("\n   ",VV[34]);          princ_str("\n   ",VV[34]);
# Line 867  T359:; Line 867  T359:;
867          princ_char(59,VV[34]);          princ_char(59,VV[34]);
868          {object V170 = Cnil;          {object V170 = Cnil;
869          VMR13(V170)}          VMR13(V170)}
870  goto T373;          goto T373;
871  T373:;  T373:;
872          if((V157!= VV[24]))goto T380;          if((V157!= VV[24]))goto T380;
873          {object V171;          {object V171;
# Line 876  T373:; Line 876  T373:;
876          goto T382;}          goto T382;}
877          V171= Cnil;          V171= Cnil;
878          goto T381;          goto T381;
879  goto T382;          goto T382;
880  T382:;  T382:;
881          V171= car((V154));          V171= car((V154));
882  goto T381;          goto T381;
883  T381:;  T381:;
884          V172= structure_ref((V155),VV[0],4);          V172= structure_ref((V155),VV[0],4);
885          {object V173= (V171);          {object V173= (V171);
# Line 895  T381:; Line 895  T381:;
895          (void) (*Lnk87)();          (void) (*Lnk87)();
896          vs_top=sup;          vs_top=sup;
897          goto T385;          goto T385;
898  goto T386;          goto T386;
899  T386:;  T386:;
900          if((V173!= VV[88]))goto T395;          if((V173!= VV[88]))goto T395;
901          princ_str("\n   ISETQ_FIX(V",VV[34]);          princ_str("\n   ISETQ_FIX(V",VV[34]);
# Line 905  T386:; Line 905  T386:;
905          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
906          (void)((*(LnkLI77))(caddr((V154))));          (void)((*(LnkLI77))(caddr((V154))));
907          goto T385;          goto T385;
908  goto T395;          goto T395;
909  T395:;  T395:;
910          if((V173!= VV[0]))goto T402;          if((V173!= VV[0]))goto T402;
911          V175= structure_ref(cadr((V154)),VV[0],1);          V175= structure_ref(cadr((V154)),VV[0],1);
# Line 919  T395:; Line 919  T395:;
919          V176= structure_ref(cadr((V154)),VV[0],4);          V176= structure_ref(cadr((V154)),VV[0],4);
920          (void)((*(LnkLI77))(/* INLINE-ARGS */V176));          (void)((*(LnkLI77))(/* INLINE-ARGS */V176));
921          goto T385;          goto T385;
922  goto T403;          goto T403;
923  T403:;  T403:;
924          if((V174!= VV[23]))goto T410;          if((V174!= VV[23]))goto T410;
925          princ_str("ISETQ_FIX(V",VV[34]);          princ_str("ISETQ_FIX(V",VV[34]);
# Line 930  T403:; Line 930  T403:;
930          V177= structure_ref(cadr((V154)),VV[0],4);          V177= structure_ref(cadr((V154)),VV[0],4);
931          (void)((*(LnkLI77))(/* INLINE-ARGS */V177));          (void)((*(LnkLI77))(/* INLINE-ARGS */V177));
932          goto T385;          goto T385;
933  goto T410;          goto T410;
934  T410:;  T410:;
935          princ_str("SETQ_IO(V",VV[34]);          princ_str("SETQ_IO(V",VV[34]);
936          (void)((*(LnkLI77))((V172)));          (void)((*(LnkLI77))((V172)));
# Line 939  T410:; Line 939  T410:;
939          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
940          (void)((*(LnkLI77))((V154)));          (void)((*(LnkLI77))((V154)));
941          goto T385;}          goto T385;}
942  goto T402;          goto T402;
943  T402:;  T402:;
944          if((V173!= VV[54]))goto T423;          if((V173!= VV[54]))goto T423;
945          princ_str("SETQ_IO(V",VV[34]);          princ_str("SETQ_IO(V",VV[34]);
# Line 949  T402:; Line 949  T402:;
949          princ_str("alloc,",VV[34]);          princ_str("alloc,",VV[34]);
950          (void)((*(LnkLI77))((V154)));          (void)((*(LnkLI77))((V154)));
951          goto T385;          goto T385;
952  goto T423;          goto T423;
953  T423:;  T423:;
954          bds_bind(VV[39],small_fixnum(0));          bds_bind(VV[39],small_fixnum(0));
955          bds_bind(VV[40],symbol_value(VV[40]));          bds_bind(VV[40],symbol_value(VV[40]));
# Line 973  T423:; Line 973  T423:;
973          bds_unwind1;          bds_unwind1;
974          {object V179 = Cnil;          {object V179 = Cnil;
975          VMR13(V179)}}          VMR13(V179)}}
976  goto T385;          goto T385;
977  T385:;  T385:;
978          princ_str(");",VV[34]);          princ_str(");",VV[34]);
979          {object V180 = Cnil;          {object V180 = Cnil;
980          VMR13(V180)}}          VMR13(V180)}}
981  goto T380;          goto T380;
982  T380:;  T380:;
983          princ_str("\n   V",VV[34]);          princ_str("\n   V",VV[34]);
984          V181= structure_ref((V155),VV[0],4);          V181= structure_ref((V155),VV[0],4);
# Line 992  T380:; Line 992  T380:;
992          (void) (*Lnk92)();          (void) (*Lnk92)();
993          vs_top=sup;          vs_top=sup;
994          goto T449;          goto T449;
995  goto T450;          goto T450;
996  T450:;  T450:;
997          if((V182!= VV[25]))goto T452;          if((V182!= VV[25]))goto T452;
998          base[0]= (V154);          base[0]= (V154);
# Line 1000  T450:; Line 1000  T450:;
1000          (void) (*Lnk93)();          (void) (*Lnk93)();
1001          vs_top=sup;          vs_top=sup;
1002          goto T449;          goto T449;
1003  goto T452;          goto T452;
1004  T452:;  T452:;
1005          if((V182!= VV[26]))goto T454;          if((V182!= VV[26]))goto T454;
1006          base[0]= (V154);          base[0]= (V154);
# Line 1008  T452:; Line 1008  T452:;
1008          (void) (*Lnk94)();          (void) (*Lnk94)();
1009          vs_top=sup;          vs_top=sup;
1010          goto T449;          goto T449;
1011  goto T454;          goto T454;
1012  T454:;  T454:;
1013          if((V182!= VV[27]))goto T456;          if((V182!= VV[27]))goto T456;
1014          base[0]= (V154);          base[0]= (V154);
# Line 1016  T454:; Line 1016  T454:;
1016          (void) (*Lnk95)();          (void) (*Lnk95)();
1017          vs_top=sup;          vs_top=sup;
1018          goto T449;          goto T449;
1019  goto T456;          goto T456;
1020  T456:;  T456:;
1021          if((V182!= VV[7]))goto T458;          if((V182!= VV[7]))goto T458;
1022          base[0]= (V154);          base[0]= (V154);
# Line 1024  T456:; Line 1024  T456:;
1024          (void) (*Lnk96)();          (void) (*Lnk96)();
1025          vs_top=sup;          vs_top=sup;
1026          goto T449;          goto T449;
1027  goto T458;          goto T458;
1028  T458:;  T458:;
1029          (void)((*(LnkLI85))());}          (void)((*(LnkLI85))());}
1030  goto T449;          goto T449;
1031  T449:;  T449:;
1032          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1033          {object V184 = Cnil;          {object V184 = Cnil;
1034          VMR13(V184)}}          VMR13(V184)}}
1035  goto T333;          goto T333;
1036  T333:;  T333:;
1037          {object V185 = Cnil;          {object V185 = Cnil;
1038          VMR13(V185)}          VMR13(V185)}
# Line 1045  static object LI14(V187) Line 1045  static object LI14(V187)
1045    
1046  register object V187;  register object V187;
1047  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1048  goto TTL;          goto TTL;
1049  TTL:;  TTL:;
1050          {register object V188;          {register object V188;
1051          register object V189;          register object V189;
1052          V188= symbol_value(VV[18]);          V188= symbol_value(VV[18]);
1053          V189= car((V188));          V189= car((V188));
1054  goto T464;          goto T464;
1055  T464:;  T464:;
1056          if(!(endp_prop((V188)))){          if(!(endp_prop((V188)))){
1057          goto T465;}          goto T465;}
1058          {object V190 = Cnil;          {object V190 = Cnil;
1059          VMR14(V190)}          VMR14(V190)}
1060  goto T465;          goto T465;
1061  T465:;  T465:;
1062          V191= structure_ref((V189),VV[0],0);          V191= structure_ref((V189),VV[0],0);
1063          if(!((/* INLINE-ARGS */V191)==((V187)))){          if(!((/* INLINE-ARGS */V191)==((V187)))){
1064          goto T469;}          goto T469;}
1065          {object V192 = (V189);          {object V192 = (V189);
1066          VMR14(V192)}          VMR14(V192)}
1067  goto T469;          goto T469;
1068  T469:;  T469:;
1069          V188= cdr((V188));          V188= cdr((V188));
1070          V189= car((V188));          V189= car((V188));
# Line 1078  static object LI15(V194) Line 1078  static object LI15(V194)
1078    
1079  object V194;  object V194;
1080  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1081  goto TTL;          goto TTL;
1082  TTL:;  TTL:;
1083          {register object V195;          {register object V195;
1084          register object V196;          register object V196;
1085          V195= (V194);          V195= (V194);
1086          V196= car((V195));          V196= car((V195));
1087  goto T480;          goto T480;
1088  T480:;  T480:;
1089          if(!(endp_prop((V195)))){          if(!(endp_prop((V195)))){
1090          goto T481;}          goto T481;}
1091          {object V197 = Cnil;          {object V197 = Cnil;
1092          VMR15(V197)}          VMR15(V197)}
1093  goto T481;          goto T481;
1094  T481:;  T481:;
1095          {register object V198;          {register object V198;
1096          V199= (*(LnkLI68))((V196));          V199= (*(LnkLI68))((V196));
# Line 1100  T481:; Line 1100  T481:;
1100          goto T490;}          goto T490;}
1101          V200= (V201);          V200= (V201);
1102          goto T487;          goto T487;
1103  goto T490;          goto T490;
1104  T490:;  T490:;
1105          V200= Ct;}          V200= Ct;}
1106  goto T487;          goto T487;
1107  T487:;  T487:;
1108          V198= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V196),VV[14],VV[15],VV[16],/* INLINE-ARGS */V199,VV[17],V200));          V198= (VFUN_NARGS=8,(*(LnkLI66))(VV[1],(V196),VV[14],VV[15],VV[16],/* INLINE-ARGS */V199,VV[17],V200));
1109          setq(VV[13],make_cons((V198),symbol_value(VV[13])));}          setq(VV[13],make_cons((V198),symbol_value(VV[13])));}
# Line 1119  static object LI16(V203) Line 1119  static object LI16(V203)
1119    
1120  register object V203;  register object V203;
1121  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
1122  goto TTL;          goto TTL;
1123  TTL:;  TTL:;
1124          if(!(endp_prop((V203)))){          if(!(endp_prop((V203)))){
1125          goto T499;}          goto T499;}
1126          {object V204 = (*(LnkLI97))();          {object V204 = (*(LnkLI97))();
1127          VMR16(V204)}          VMR16(V204)}
1128  goto T499;          goto T499;
1129  T499:;  T499:;
1130          if(!(endp_prop(cdr((V203))))){          if(!(endp_prop(cdr((V203))))){
1131          goto T502;}          goto T502;}
1132          {object V205 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1));          {object V205 = (*(LnkLI98))(VV[43],small_fixnum(2),small_fixnum(1));
1133          VMR16(V205)}          VMR16(V205)}
1134  goto T502;          goto T502;
1135  T502:;  T502:;
1136          if(!(endp_prop(cddr((V203))))){          if(!(endp_prop(cddr((V203))))){
1137          goto T505;}          goto T505;}
1138          {object V206 = (*(LnkLI99))(car((V203)),cadr((V203)));          {object V206 = (*(LnkLI99))(car((V203)),cadr((V203)));
1139          VMR16(V206)}          VMR16(V206)}
1140  goto T505;          goto T505;
1141  T505:;  T505:;
1142          {register object V207;          {register object V207;
1143          register object V208;          register object V208;
1144          V207= (V203);          V207= (V203);
1145          V208= Cnil;          V208= Cnil;
1146  goto T508;          goto T508;
1147  T508:;  T508:;
1148          if(!(endp_prop((V207)))){          if(!(endp_prop((V207)))){
1149          goto T509;}          goto T509;}
# Line 1151  T508:; Line 1151  T508:;
1151          V210= make_cons(VV[44],/* INLINE-ARGS */V209);          V210= make_cons(VV[44],/* INLINE-ARGS */V209);
1152          {object V211 = (*(LnkLI100))(/* INLINE-ARGS */V210);          {object V211 = (*(LnkLI100))(/* INLINE-ARGS */V210);
1153          VMR16(V211)}          VMR16(V211)}
1154  goto T509;          goto T509;
1155  T509:;  T509:;
1156          if(!(endp_prop(cdr((V207))))){          if(!(endp_prop(cdr((V207))))){
1157          goto T513;}          goto T513;}
1158          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V207)))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[45],car((V207)))));
1159  goto T513;          goto T513;
1160  T513:;  T513:;
1161          {register object V212;          {register object V212;
1162          V212= list(3,VV[43],car((V207)),cadr((V207)));          V212= list(3,VV[43],car((V207)),cadr((V207)));
# Line 1172  static object LI17(V215,V216) Line 1172  static object LI17(V215,V216)
1172    
1173  register object V215;object V216;  register object V215;object V216;
1174  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
1175  goto TTL;          goto TTL;
1176  TTL:;  TTL:;
1177          {register object V217;          {register object V217;
1178          register object V218;          register object V218;
# Line 1185  TTL:; Line 1185  TTL:;
1185          if(type_of((V215))==t_symbol){          if(type_of((V215))==t_symbol){
1186          goto T526;}          goto T526;}
1187          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V215))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[46],(V215))));
1188  goto T526;          goto T526;
1189  T526:;  T526:;
1190          base[1]= (V215);          base[1]= (V215);
1191          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1194  T526:; Line 1194  T526:;
1194          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1195          goto T529;}          goto T529;}
1196          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V215))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[47],(V215))));
1197  goto T529;          goto T529;
1198  T529:;  T529:;
1199          V220= (*(LnkLI72))((V215));          V220= (*(LnkLI72))((V215));
1200          {object V221;          {object V221;
# Line 1211  T529:; Line 1211  T529:;
1211          if(((V218))!=Cnil){          if(((V218))!=Cnil){
1212          goto T543;}          goto T543;}
1213          (void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V215),(V216))));          (void)((VFUN_NARGS=3,(*(LnkLI70))(VV[48],(V215),(V216))));
1214  goto T543;          goto T543;
1215  T543:;  T543:;
1216          V227= structure_ref(cadr((V219)),VV[12],2);          V227= structure_ref(cadr((V219)),VV[12],2);
1217          if(((V218))==(/* INLINE-ARGS */V227)){          if(((V218))==(/* INLINE-ARGS */V227)){
# Line 1224  T543:; Line 1224  T543:;
1224          V228= vs_base[0];          V228= vs_base[0];
1225          (void)(structure_set((V228),VV[12],2,(V218)));          (void)(structure_set((V228),VV[12],2,(V218)));
1226          V219= listA(3,car((V219)),(V228),cddr((V219)));}          V219= listA(3,car((V219)),(V228),cddr((V219)));}
1227  goto T546;          goto T546;
1228  T546:;  T546:;
1229          (void)(structure_set((V217),VV[12],2,(V218)));          (void)(structure_set((V217),VV[12],2,(V218)));
1230          {object V229 = list(4,VV[43],(V217),(V220),(V219));          {object V229 = list(4,VV[43],(V217),(V220),(V219));
# Line 1239  static object LI18(V232,V233) Line 1239  static object LI18(V232,V233)
1239  object V232;object V233;  object V232;object V233;
1240  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
1241          bds_check;          bds_check;
1242  goto TTL;          goto TTL;
1243  TTL:;  TTL:;
1244          base[0]= make_cons(VV[0],(V232));          base[0]= make_cons(VV[0],(V232));
1245          bds_bind(VV[49],base[0]);          bds_bind(VV[49],base[0]);
# Line 1249  TTL:; Line 1249  TTL:;
1249          if((V235!= VV[105]))goto T556;          if((V235!= VV[105]))goto T556;
1250          {object V236 = (*(LnkLI106))(caddr((V233)));          {object V236 = (*(LnkLI106))(caddr((V233)));
1251          VMR18(V236)}          VMR18(V236)}
1252  goto T556;          goto T556;
1253  T556:;  T556:;
1254          V237= make_cons(VV[0],(V232));          V237= make_cons(VV[0],(V232));
1255          {object V238 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V237));          {object V238 = (VFUN_NARGS=1,(*(LnkLI76))(/* INLINE-ARGS */V237));
# Line 1263  static object LI19(V240) Line 1263  static object LI19(V240)
1263    
1264  register object V240;  register object V240;
1265  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1266  goto TTL;          goto TTL;
1267  TTL:;  TTL:;
1268          {object V241;          {object V241;
1269          object V242;          object V242;
# Line 1275  TTL:; Line 1275  TTL:;
1275          goto T561;}          goto T561;}
1276          if(!(endp_prop(cdr((V240))))){          if(!(endp_prop(cdr((V240))))){
1277          goto T560;}          goto T560;}
1278  goto T561;          goto T561;
1279  T561:;  T561:;
1280          V244 = make_fixnum((long)length((V240)));          V244 = make_fixnum((long)length((V240)));
1281          (void)((*(LnkLI98))(VV[50],small_fixnum(2),V244));          (void)((*(LnkLI98))(VV[50],small_fixnum(2),V244));
1282  goto T560;          goto T560;
1283  T560:;  T560:;
1284          V241= (*(LnkLI107))(car((V240)),(V243));          V241= (*(LnkLI107))(car((V240)),(V243));
1285          V242= (*(LnkLI107))(cadr((V240)),(V243));          V242= (*(LnkLI107))(cadr((V240)),(V243));
# Line 1295  static object LI20(V249,V250,V251) Line 1295  static object LI20(V249,V250,V251)
1295  object V249;object V250;object V251;  object V249;object V250;object V251;
1296  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1297          bds_check;          bds_check;
1298  goto TTL;          goto TTL;
1299  TTL:;  TTL:;
1300          {object V252;          {object V252;
1301          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));          setq(VV[51],number_plus(symbol_value(VV[51]),small_fixnum(1)));
# Line 1326  TTL:; Line 1326  TTL:;
1326          goto T594;}          goto T594;}
1327          princ_str("\n   if(type_of(MMcar(symbols))!=t_symbol)",VV[34]);          princ_str("\n   if(type_of(MMcar(symbols))!=t_symbol)",VV[34]);
1328          princ_str("\n   FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]);          princ_str("\n   FEinvalid_variable(\"~s is not a symbol.\",MMcar(symbols));",VV[34]);
1329  goto T594;          goto T594;
1330  T594:;  T594:;
1331          princ_str("\n   if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]);          princ_str("\n   if(endp(values))bds_bind(MMcar(symbols),OBJNULL);",VV[34]);
1332          princ_str("\n   else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]);          princ_str("\n   else{bds_bind(MMcar(symbols),MMcar(values));",VV[34]);
# Line 1350  static object LI21(V256) Line 1350  static object LI21(V256)
1350    
1351  object V256;  object V256;
1352  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
1353  goto TTL;          goto TTL;
1354  TTL:;  TTL:;
1355          {object V257;          {object V257;
1356          register object V258;          register object V258;
# Line 1360  TTL:; Line 1360  TTL:;
1360          V259= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55]));          V259= (VFUN_NARGS=2,(*(LnkLI71))(VV[17],VV[55]));
1361          {register object V260;          {register object V260;
1362          V260= (V256);          V260= (V256);
1363  goto T615;          goto T615;
1364  T615:;  T615:;
1365          if(!(endp_prop((V260)))){          if(!(endp_prop((V260)))){
1366          goto T616;}          goto T616;}
1367          goto T613;          goto T613;
1368  goto T616;          goto T616;
1369  T616:;  T616:;
1370          if(type_of(car((V260)))==t_symbol){          if(type_of(car((V260)))==t_symbol){
1371          goto T620;}          goto T620;}
1372          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V260)))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[56],car((V260)))));
1373  goto T620;          goto T620;
1374  T620:;  T620:;
1375          base[1]= car((V260));          base[1]= car((V260));
1376          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 1379  T620:; Line 1379  T620:;
1379          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1380          goto T623;}          goto T623;}
1381          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V260)))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[57],car((V260)))));
1382  goto T623;          goto T623;
1383  T623:;  T623:;
1384          if(!(endp_prop(cdr((V260))))){          if(!(endp_prop(cdr((V260))))){
1385          goto T627;}          goto T627;}
1386          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V260)))));          (void)((VFUN_NARGS=2,(*(LnkLI67))(VV[58],car((V260)))));
1387  goto T627;          goto T627;
1388  T627:;  T627:;
1389          {register object V261;          {register object V261;
1390          register object V262;          register object V262;
# Line 1405  T627:; Line 1405  T627:;
1405          V267= vs_base[0];          V267= vs_base[0];
1406          (void)(structure_set((V267),VV[12],2,(V263)));          (void)(structure_set((V267),VV[12],2,(V263)));
1407          V262= listA(3,car((V262)),(V267),cddr((V262)));}          V262= listA(3,car((V262)),(V267),cddr((V262)));}
1408  goto T634;          goto T634;
1409  T634:;  T634:;
1410          V257= make_cons(V261,(V257));          V257= make_cons(V261,(V257));
1411          V258= make_cons(V262,(V258));          V258= make_cons(V262,(V258));
# Line 1420  T634:; Line 1420  T634:;
1420          (void)((*(LnkLI101))((V259),cadar((V258))));}          (void)((*(LnkLI101))((V259),cadar((V258))));}
1421          V260= cddr((V260));          V260= cddr((V260));
1422          goto T615;}          goto T615;}
1423  goto T613;          goto T613;
1424  T613:;  T613:;
1425          V274= reverse((V257));          V274= reverse((V257));
1426          {object V275 = list(4,VV[59],(V259),/* INLINE-ARGS */V274,reverse((V258)));          {object V275 = list(4,VV[59],(V259),/* INLINE-ARGS */V274,reverse((V258)));
# Line 1435  static object LI22(V278,V279) Line 1435  static object LI22(V278,V279)
1435  object V278;register object V279;  object V278;register object V279;
1436  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1437          bds_check;          bds_check;
1438  goto TTL;          goto TTL;
1439  TTL:;  TTL:;
1440          {register object V280;          {register object V280;
1441          object V281;          object V281;
# Line 1446  TTL:; Line 1446  TTL:;
1446          register object V283;          register object V283;
1447          V282= (V278);          V282= (V278);
1448          V283= car((V282));          V283= car((V282));
1449  goto T658;          goto T658;
1450  T658:;  T658:;
1451          if(!(endp_prop((V282)))){          if(!(endp_prop((V282)))){
1452          goto T659;}          goto T659;}
1453          goto T654;          goto T654;
1454  goto T659;          goto T659;
1455  T659:;  T659:;
1456          if(((*(LnkLI111))(car((V283)),cdr((V279))))!=Cnil){          if(((*(LnkLI111))(car((V283)),cdr((V279))))!=Cnil){
1457          goto T664;}          goto T664;}
1458          if(((*(LnkLI112))(car((V283)),cdr((V279))))==Cnil){          if(((*(LnkLI112))(car((V283)),cdr((V279))))==Cnil){
1459          goto T665;}          goto T665;}
1460  goto T664;          goto T664;
1461  T664:;  T664:;
1462          {object V284= caar((V279));          {object V284= caar((V279));
1463          if((V284!= VV[105]))goto T669;          if((V284!= VV[105]))goto T669;
# Line 1465  T664:; Line 1465  T664:;
1465          V285= make_cons((V283),caddar((V279)));          V285= make_cons((V283),caddar((V279)));
1466          V280= make_cons((V285),(V280));          V280= make_cons((V285),(V280));
1467          goto T663;}          goto T663;}
1468  goto T669;          goto T669;
1469  T669:;  T669:;
1470          V287= structure_ref(car((V283)),VV[0],1);          V287= structure_ref(car((V283)),VV[0],1);
1471          {register object x= /* INLINE-ARGS */V287,V286= VV[60];          {register object x= /* INLINE-ARGS */V287,V286= VV[60];
# Line 1474  T669:; Line 1474  T669:;
1474          goto T674;          goto T674;
1475          }else V286=V286->c.c_cdr;          }else V286=V286->c.c_cdr;
1476          goto T673;}          goto T673;}
1477  goto T674;          goto T674;
1478  T674:;  T674:;
1479          {object V288;          {object V288;
1480          object V289;          object V289;
# Line 1499  T674:; Line 1499  T674:;
1499          V294= make_cons((V283),(V290));          V294= make_cons((V283),(V290));
1500          V280= make_cons((V294),(V280));          V280= make_cons((V294),(V280));
1501          goto T663;}}          goto T663;}}
1502  goto T673;          goto T673;
1503  T673:;  T673:;
1504          base[2]= list(2,VV[54],(*(LnkLI109))());          base[2]= list(2,VV[54],(*(LnkLI109))());
1505          bds_bind(VV[49],base[2]);          bds_bind(VV[49],base[2]);
# Line 1509  T673:; Line 1509  T673:;
1509          V280= make_cons((V295),(V280));          V280= make_cons((V295),(V280));
1510          bds_unwind1;          bds_unwind1;
1511          goto T663;}}          goto T663;}}
1512  goto T665;          goto T665;
1513  T665:;  T665:;
1514          base[2]= make_cons(VV[0],(V283));          base[2]= make_cons(VV[0],(V283));
1515          bds_bind(VV[49],base[2]);          bds_bind(VV[49],base[2]);
1516          V296= (*(LnkLI104))(car((V279)));          V296= (*(LnkLI104))(car((V279)));
1517          bds_unwind1;          bds_unwind1;
1518  goto T663;          goto T663;
1519  T663:;  T663:;
1520          {object V297;          {object V297;
1521          V297= car((V279));          V297= car((V279));
# Line 1523  T663:; Line 1523  T663:;
1523          V282= cdr((V282));          V282= cdr((V282));
1524          V283= car((V282));          V283= car((V282));
1525          goto T658;}          goto T658;}
1526  goto T654;          goto T654;
1527  T654:;  T654:;
1528          {register object V298;          {register object V298;
1529          register object V299;          register object V299;
1530          V298= (V280);          V298= (V280);
1531          V299= car((V298));          V299= car((V298));
1532  goto T709;          goto T709;
1533  T709:;  T709:;
1534          if(!(endp_prop((V298)))){          if(!(endp_prop((V298)))){
1535          goto T710;}          goto T710;}
1536          goto T705;          goto T705;
1537  goto T710;          goto T710;
1538  T710:;  T710:;
1539          (void)((*(LnkLI42))(cdr((V299)),caar((V299)),cadar((V299))));          (void)((*(LnkLI42))(cdr((V299)),caar((V299)),cadar((V299))));
1540          V298= cdr((V298));          V298= cdr((V298));
1541          V299= car((V298));          V299= car((V298));
1542          goto T709;}          goto T709;}
1543  goto T705;          goto T705;
1544  T705:;  T705:;
1545          {object V301;          {object V301;
1546          V301= small_fixnum(0);          V301= small_fixnum(0);
1547  goto T723;          goto T723;
1548  T723:;  T723:;
1549          if(!(number_compare((V301),V281)>=0)){          if(!(number_compare((V301),V281)>=0)){
1550          goto T724;}          goto T724;}
1551          goto T720;          goto T720;
1552  goto T724;          goto T724;
1553  T724:;  T724:;
1554          princ_char(125,VV[34]);          princ_char(125,VV[34]);
1555          V301= one_plus((V301));          V301= one_plus((V301));
1556          goto T723;}          goto T723;}
1557  goto T720;          goto T720;
1558  T720:;  T720:;
1559          {object V302 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil));          {object V302 = (VFUN_NARGS=1,(*(LnkLI76))(Cnil));
1560          bds_unwind1;          bds_unwind1;
# Line 1572  static void L23() Line 1572  static void L23()
1572          check_arg(1);          check_arg(1);
1573          V303=(base[0]);          V303=(base[0]);
1574          vs_top=sup;          vs_top=sup;
1575  goto TTL;          goto TTL;
1576  TTL:;  TTL:;
1577          base[1]= (V303);          base[1]= (V303);
1578          base[2]= VV[0];          base[2]= VV[0];
# Line 1587  TTL:; Line 1587  TTL:;
1587          if(!((/* INLINE-ARGS */V305)==(VV[24]))){          if(!((/* INLINE-ARGS */V305)==(VV[24]))){
1588          goto T739;}          goto T739;}
1589          princ_str("IDECL(",VV[34]);          princ_str("IDECL(",VV[34]);
1590  goto T739;          goto T739;
1591  T739:;  T739:;
1592          (void)((*(LnkLI77))(symbol_value(VV[61])));          (void)((*(LnkLI77))(symbol_value(VV[61])));
1593          V306= (*(LnkLI69))((V303));          V306= (*(LnkLI69))((V303));
# Line 1605  T739:; Line 1605  T739:;
1605          princ_str("space,V",VV[34]);          princ_str("space,V",VV[34]);
1606          (void)((*(LnkLI77))((V304)));          (void)((*(LnkLI77))((V304)));
1607          princ_str("alloc)",VV[34]);          princ_str("alloc)",VV[34]);
1608  goto T749;          goto T749;
1609  T749:;  T749:;
1610          princ_char(59,VV[34]);          princ_char(59,VV[34]);
1611          base[1]= Cnil;          base[1]= Cnil;
1612          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1613          return;}          return;}
1614  goto T734;          goto T734;
1615  T734:;  T734:;
1616          base[1]= (*(LnkLI79))();          base[1]= (*(LnkLI79))();
1617          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;

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