/[gcl]/gcl/lsp/setf.c
ViewVC logotype

Diff of /gcl/lsp/setf.c

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

revision 1.3 by camm, Fri Jul 12 22:00:49 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "setf.h"  #include "setf.h"
4  init_setf(){do_init(VV);}  void init_setf(){do_init(VV);}
5  /*      macro definition for DEFSETF    */  /*      macro definition for DEFSETF    */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 25  static L1() Line 25  static L1()
25          vs_top=sup;          vs_top=sup;
26          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
27          goto T2;}          goto T2;}
28    goto T1;
29  T1:;  T1:;
30          V2= list(2,VV[3],base[2]);          V2= list(2,VV[3],base[2]);
31          V3= list(4,VV[2],/* INLINE-ARGS */V2,list(2,VV[3],car(base[3])),VV[4]);          V3= list(4,VV[2],/* INLINE-ARGS */V2,list(2,VV[3],car(base[3])),VV[4]);
# Line 39  T1:; Line 40  T1:;
40          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
41          Lerror();          Lerror();
42          vs_top=sup;          vs_top=sup;
43    goto T13;
44  T13:;  T13:;
45          if(endp(cddr(base[3]))){          if(endp(cddr(base[3]))){
46          goto T17;}          goto T17;}
# Line 46  T13:; Line 48  T13:;
48          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
49          Lerror();          Lerror();
50          vs_top=sup;          vs_top=sup;
51    goto T17;
52  T17:;  T17:;
53          V7= cadr(base[3]);          V7= cadr(base[3]);
54          goto T9;          goto T9;
55    goto T11;
56  T11:;  T11:;
57          V7= Cnil;          V7= Cnil;
58    goto T9;
59  T9:;  T9:;
60          V8= list(4,VV[2],/* INLINE-ARGS */V6,V7,VV[10]);          V8= list(4,VV[2],/* INLINE-ARGS */V6,V7,VV[10]);
61          base[4]= list(7,VV[0],VV[1],/* INLINE-ARGS */V3,/* INLINE-ARGS */V4,/* INLINE-ARGS */V5,/* INLINE-ARGS */V8,list(2,VV[3],base[2]));          base[4]= list(7,VV[0],VV[1],/* INLINE-ARGS */V3,/* INLINE-ARGS */V4,/* INLINE-ARGS */V5,/* INLINE-ARGS */V8,list(2,VV[3],base[2]));
62          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
63          return;          return;
64    goto T2;
65  T2:;  T2:;
66          base[4]= cadr(base[3]);          base[4]= cadr(base[3]);
67          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 68  T2:; Line 74  T2:;
74          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
75          Lerror();          Lerror();
76          vs_top=sup;          vs_top=sup;
77    goto T21;
78  T21:;  T21:;
79          V10= list(2,VV[3],base[2]);          V10= list(2,VV[3],base[2]);
80          V11= list(4,VV[2],/* INLINE-ARGS */V10,list(2,VV[3],base[3]),VV[13]);          V11= list(4,VV[2],/* INLINE-ARGS */V10,list(2,VV[3],base[3]),VV[13]);
# Line 82  T21:; Line 89  T21:;
89  }  }
90  /*      macro definition for DEFINE-SETF-METHOD */  /*      macro definition for DEFINE-SETF-METHOD */
91    
92  static L2()  static void L2()
93  {register object *base=vs_base;  {register object *base=vs_base;
94          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
95          vs_reserve(VM2);          vs_reserve(VM2);
# Line 114  static L2() Line 121  static L2()
121          goto T37;}          goto T37;}
122          base[4]= make_cons(base[5],base[4]);          base[4]= make_cons(base[5],base[4]);
123          goto T35;          goto T35;
124    goto T37;
125  T37:;  T37:;
126          vs_base=vs_top;          vs_base=vs_top;
127          Lgensym();          Lgensym();
# Line 122  T37:; Line 130  T37:;
130          base[4]= make_cons(V18,base[4]);          base[4]= make_cons(V18,base[4]);
131          V19= list(2,VV[17],list(2,VV[18],car(base[4])));          V19= list(2,VV[17],list(2,VV[18],car(base[4])));
132          base[6]= make_cons(/* INLINE-ARGS */V19,base[6]);          base[6]= make_cons(/* INLINE-ARGS */V19,base[6]);
133    goto T35;
134  T35:;  T35:;
135          V20= list(2,VV[3],base[2]);          V20= list(2,VV[3],base[2]);
136          V21= list(4,VV[2],/* INLINE-ARGS */V20,list(2,VV[20],listA(3,VV[21],base[4],base[6])),VV[22]);          V21= list(4,VV[2],/* INLINE-ARGS */V20,list(2,VV[20],listA(3,VV[21],base[4],base[6])),VV[22]);
# Line 136  T35:; Line 145  T35:;
145  }  }
146  /*      function definition for GET-SETF-METHOD */  /*      function definition for GET-SETF-METHOD */
147    
148  static L3()  static void L3()
149  {register object *base=vs_base;  {register object *base=vs_base;
150          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
151          vs_reserve(VM3);          vs_reserve(VM3);
# Line 150  static L3() Line 159  static L3()
159          V28=(base[1]);          V28=(base[1]);
160          vs_top=sup;          vs_top=sup;
161          goto T45;          goto T45;
162    goto T44;
163  T44:;  T44:;
164          V28= Cnil;          V28= Cnil;
165    goto T45;
166  T45:;  T45:;
167          {object V29;          {object V29;
168          object V30;          object V30;
# Line 178  T45:; Line 189  T45:;
189          V33= vs_base[0];          V33= vs_base[0];
190          vs_top=sup;          vs_top=sup;
191          goto T55;          goto T55;
192    goto T50;
193  T50:;  T50:;
194          V29= Cnil;          V29= Cnil;
195    goto T51;
196  T51:;  T51:;
197          V30= Cnil;          V30= Cnil;
198    goto T52;
199  T52:;  T52:;
200          V31= Cnil;          V31= Cnil;
201    goto T53;
202  T53:;  T53:;
203          V32= Cnil;          V32= Cnil;
204    goto T54;
205  T54:;  T54:;
206          V33= Cnil;          V33= Cnil;
207    goto T55;
208  T55:;  T55:;
209          base[2]= (V31);          base[2]= (V31);
210          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 200  T55:; Line 217  T55:;
217          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
218          Lerror();          Lerror();
219          vs_top=sup;          vs_top=sup;
220    goto T56;
221  T56:;  T56:;
222          base[2]= (V29);          base[2]= (V29);
223          base[3]= (V30);          base[3]= (V30);
# Line 212  T56:; Line 230  T56:;
230  }  }
231  /*      function definition for GET-SETF-METHOD-MULTIPLE-VALUE  */  /*      function definition for GET-SETF-METHOD-MULTIPLE-VALUE  */
232    
233  static L4()  static void L4()
234  {register object *base=vs_base;  {register object *base=vs_base;
235          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
236          vs_reserve(VM4);          vs_reserve(VM4);
# Line 226  static L4() Line 244  static L4()
244          V36=(base[1]);          V36=(base[1]);
245          vs_top=sup;          vs_top=sup;
246          goto T68;          goto T68;
247    goto T67;
248  T67:;  T67:;
249          V36= Cnil;          V36= Cnil;
250    goto T68;
251  T68:;  T68:;
252          {register object V37;          {register object V37;
253          V37= Cnil;          V37= Cnil;
# Line 245  T68:; Line 265  T68:;
265          base[6]= (V35);          base[6]= (V35);
266          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
267          return;}          return;}
268    goto T72;
269  T72:;  T72:;
270          if(!(type_of((V35))==t_cons)){          if(!(type_of((V35))==t_cons)){
271          goto T80;}          goto T80;}
272          if(type_of(car((V35)))==t_symbol){          if(type_of(car((V35)))==t_symbol){
273          goto T81;}          goto T81;}
274    goto T80;
275  T80:;  T80:;
276          base[2]= VV[28];          base[2]= VV[28];
277          base[3]= (V35);          base[3]= (V35);
278          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
279          Lerror();          Lerror();
280          return;          return;
281    goto T81;
282  T81:;  T81:;
283          if(((V36))==Cnil){          if(((V36))==Cnil){
284          goto T88;}          goto T88;}
# Line 266  T81:; Line 289  T81:;
289          goto T92;          goto T92;
290          }else V39=V39->c.c_cdr;          }else V39=V39->c.c_cdr;
291          V37= Cnil;}          V37= Cnil;}
292    goto T92;
293  T92:;  T92:;
294          if(((V37))==Cnil){          if(((V37))==Cnil){
295          goto T88;}          goto T88;}
# Line 282  T92:; Line 306  T92:;
306          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
307          Lerror();          Lerror();
308          vs_top=sup;          vs_top=sup;
309    goto T97;
310  T97:;  T97:;
311          base[2]= (V37);          base[2]= (V37);
312          base[3]= (V36);          base[3]= (V36);
313          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
314          (void) (*Lnk95)();          (void) (*Lnk95)();
315          return;          return;
316    goto T88;
317  T88:;  T88:;
318          if((get(car((V35)),VV[30],Cnil))==Cnil){          if((get(car((V35)),VV[30],Cnil))==Cnil){
319          goto T105;}          goto T105;}
# Line 301  T88:; Line 327  T88:;
327          vs_base=base+3;}          vs_base=base+3;}
328          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
329          return;          return;
330    goto T105;
331  T105:;  T105:;
332          if((get(car((V35)),VV[31],Cnil))!=Cnil){          if((get(car((V35)),VV[31],Cnil))!=Cnil){
333          goto T110;}          goto T110;}
334          V37= get(car((V35)),VV[32],Cnil);          V37= get(car((V35)),VV[32],Cnil);
335          if(((V37))==Cnil){          if(((V37))==Cnil){
336          goto T111;}          goto T111;}
337    goto T110;
338  T110:;  T110:;
339          {register object V41;          {register object V41;
340          object V42;          object V42;
# Line 316  T110:; Line 344  T110:;
344          V41= Cnil;          V41= Cnil;
345          goto T116;}          goto T116;}
346          base[2]=V43=MMcons(Cnil,Cnil);          base[2]=V43=MMcons(Cnil,Cnil);
347    goto T117;
348  T117:;  T117:;
349          vs_base=vs_top;          vs_base=vs_top;
350          Lgensym();          Lgensym();
# Line 326  T117:; Line 355  T117:;
355          goto T116;}          goto T116;}
356          V43=MMcdr(V43)=MMcons(Cnil,Cnil);          V43=MMcdr(V43)=MMcons(Cnil,Cnil);
357          goto T117;}          goto T117;}
358    goto T116;
359  T116:;  T116:;
360          vs_base=vs_top;          vs_base=vs_top;
361          Lgensym();          Lgensym();
# Line 338  T116:; Line 368  T116:;
368          goto T125;}          goto T125;}
369          base[5]= (*(LnkLI96))(car((V41)),car((V37)),cdr((V37)),(V42));          base[5]= (*(LnkLI96))(car((V41)),car((V37)),cdr((V37)),(V42));
370          goto T123;          goto T123;
371    goto T125;
372  T125:;  T125:;
373          V46= get(car((V35)),VV[31],Cnil);          V46= get(car((V35)),VV[31],Cnil);
374          V47= make_cons((V42),Cnil);          V47= make_cons((V42),Cnil);
375          V48= append((V41),/* INLINE-ARGS */V47);          V48= append((V41),/* INLINE-ARGS */V47);
376          base[5]= make_cons(V46,/* INLINE-ARGS */V48);          base[5]= make_cons(V46,/* INLINE-ARGS */V48);
377    goto T123;
378  T123:;  T123:;
379          base[6]= make_cons(car((V35)),(V41));          base[6]= make_cons(car((V35)),(V41));
380          vs_top=(vs_base=base+2)+5;          vs_top=(vs_base=base+2)+5;
381          return;}          return;}
382    goto T111;
383  T111:;  T111:;
384          if((get(car((V35)),VV[33],Cnil))==Cnil){          if((get(car((V35)),VV[33],Cnil))==Cnil){
385          goto T130;}          goto T130;}
# Line 360  T111:; Line 393  T111:;
393          V49= Cnil;          V49= Cnil;
394          goto T132;}          goto T132;}
395          base[6]=V53=MMcons(Cnil,Cnil);          base[6]=V53=MMcons(Cnil,Cnil);
396    goto T133;
397  T133:;  T133:;
398          vs_base=vs_top;          vs_base=vs_top;
399          Lgensym();          Lgensym();
# Line 370  T133:; Line 404  T133:;
404          goto T132;}          goto T132;}
405          V53=MMcdr(V53)=MMcons(Cnil,Cnil);          V53=MMcdr(V53)=MMcons(Cnil,Cnil);
406          goto T133;}          goto T133;}
407    goto T132;
408  T132:;  T132:;
409          vs_base=vs_top;          vs_base=vs_top;
410          Lgensym();          Lgensym();
# Line 399  T132:; Line 434  T132:;
434          base[10]= make_cons(car((V35)),(V49));          base[10]= make_cons(car((V35)),(V49));
435          vs_top=(vs_base=base+6)+5;          vs_top=(vs_base=base+6)+5;
436          return;}          return;}
437    goto T130;
438  T130:;  T130:;
439          base[2]= car((V35));          base[2]= car((V35));
440          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 414  T130:; Line 450  T130:;
450          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
451          (void) (*Lnk95)();          (void) (*Lnk95)();
452          return;          return;
453    goto T148;
454  T148:;  T148:;
455          base[2]= VV[34];          base[2]= VV[34];
456          base[3]= (V35);          base[3]= (V35);
# Line 424  T148:; Line 461  T148:;
461  }  }
462  /*      macro definition for PUT-AUX    */  /*      macro definition for PUT-AUX    */
463    
464  static L5()  static void L5()
465  {register object *base=vs_base;  {register object *base=vs_base;
466          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
467          vs_reserve(VM5);          vs_reserve(VM5);
# Line 449  static L5() Line 486  static L5()
486  }  }
487  /*      function definition for G1027   */  /*      function definition for G1027   */
488    
489  static L6()  static void L6()
490  {register object *base=vs_base;  {register object *base=vs_base;
491          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
492          vs_reserve(VM6);          vs_reserve(VM6);
# Line 467  static L6() Line 504  static L6()
504          V63=(base[3]);          V63=(base[3]);
505          vs_top=sup;          vs_top=sup;
506          goto T158;          goto T158;
507    goto T157;
508  T157:;  T157:;
509          V63= Cnil;          V63= Cnil;
510    goto T158;
511  T158:;  T158:;
512          {object V64;          {object V64;
513          object V65;          object V65;
# Line 495  T158:; Line 534  T158:;
534          V68= vs_base[0];          V68= vs_base[0];
535          vs_top=sup;          vs_top=sup;
536          goto T168;          goto T168;
537    goto T163;
538  T163:;  T163:;
539          V64= Cnil;          V64= Cnil;
540    goto T164;
541  T164:;  T164:;
542          V65= Cnil;          V65= Cnil;
543    goto T165;
544  T165:;  T165:;
545          V66= Cnil;          V66= Cnil;
546    goto T166;
547  T166:;  T166:;
548          V67= Cnil;          V67= Cnil;
549    goto T167;
550  T167:;  T167:;
551          V68= Cnil;          V68= Cnil;
552    goto T168;
553  T168:;  T168:;
554          {object V69;          {object V69;
555          object V70;          object V70;
# Line 531  T168:; Line 576  T168:;
576  }  }
577  /*      function definition for G1029   */  /*      function definition for G1029   */
578    
579  static L7()  static void L7()
580  {register object *base=vs_base;  {register object *base=vs_base;
581          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
582          vs_reserve(VM7);          vs_reserve(VM7);
# Line 543  static L7() Line 588  static L7()
588          V76=(base[1]);          V76=(base[1]);
589          V77=(base[2]);          V77=(base[2]);
590          vs_top=sup;          vs_top=sup;
591    goto TTL;
592  TTL:;  TTL:;
593          {object V78;          {object V78;
594          object V79;          object V79;
# Line 569  TTL:; Line 615  TTL:;
615          V82= vs_base[0];          V82= vs_base[0];
616          vs_top=sup;          vs_top=sup;
617          goto T184;          goto T184;
618    goto T179;
619  T179:;  T179:;
620          V78= Cnil;          V78= Cnil;
621    goto T180;
622  T180:;  T180:;
623          V79= Cnil;          V79= Cnil;
624    goto T181;
625  T181:;  T181:;
626          V80= Cnil;          V80= Cnil;
627    goto T182;
628  T182:;  T182:;
629          V81= Cnil;          V81= Cnil;
630    goto T183;
631  T183:;  T183:;
632          V82= Cnil;          V82= Cnil;
633    goto T184;
634  T184:;  T184:;
635          {object V83;          {object V83;
636          vs_base=vs_top;          vs_base=vs_top;
# Line 598  T184:; Line 650  T184:;
650  }  }
651  /*      function definition for G1031   */  /*      function definition for G1031   */
652    
653  static L8()  static void L8()
654  {register object *base=vs_base;  {register object *base=vs_base;
655          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
656          vs_reserve(VM8);          vs_reserve(VM8);
# Line 620  static L8() Line 672  static L8()
672          goto T195;}          goto T195;}
673          if(!((car((V87)))==(VV[3]))){          if(!((car((V87)))==(VV[3]))){
674          goto T192;}          goto T192;}
675    goto T195;
676  T195:;  T195:;
677          if(!(type_of(cadr((V87)))==t_symbol)){          if(!(type_of(cadr((V87)))==t_symbol)){
678          goto T192;}          goto T192;}
679          if((cddr((V87)))==Cnil){          if((cddr((V87)))==Cnil){
680          goto T191;}          goto T191;}
681    goto T192;
682  T192:;  T192:;
683          base[3]= VV[40];          base[3]= VV[40];
684          base[4]= (V87);          base[4]= (V87);
685          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
686          Lerror();          Lerror();
687          vs_top=sup;          vs_top=sup;
688    goto T191;
689  T191:;  T191:;
690          {register object V89;          {register object V89;
691          object V90;          object V90;
# Line 657  T191:; Line 712  T191:;
712          V93= vs_base[0];          V93= vs_base[0];
713          vs_top=sup;          vs_top=sup;
714          goto T212;          goto T212;
715    goto T207;
716  T207:;  T207:;
717          V89= Cnil;          V89= Cnil;
718    goto T208;
719  T208:;  T208:;
720          V90= Cnil;          V90= Cnil;
721    goto T209;
722  T209:;  T209:;
723          V91= Cnil;          V91= Cnil;
724    goto T210;
725  T210:;  T210:;
726          V92= Cnil;          V92= Cnil;
727    goto T211;
728  T211:;  T211:;
729          V93= Cnil;          V93= Cnil;
730    goto T212;
731  T212:;  T212:;
732          base[3]= (V92);          base[3]= (V92);
733          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 688  T212:; Line 749  T212:;
749          base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));          base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));
750          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
751          return;          return;
752    goto T214;
753  T214:;  T214:;
754          base[4]= (V92);          base[4]= (V92);
755          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 738  T214:; Line 800  T214:;
800          base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));          base[7]= listA(3,VV[41],list(2,VV[20],cadr((V87))),cdr((V93)));
801          vs_top=(vs_base=base+3)+5;          vs_top=(vs_base=base+3)+5;
802          return;          return;
803    goto T226;
804  T226:;  T226:;
805          base[3]= VV[44];          base[3]= VV[44];
806          base[4]= (V87);          base[4]= (V87);
# Line 748  T226:; Line 811  T226:;
811  }  }
812  /*      function definition for G1032   */  /*      function definition for G1032   */
813    
814  static L9()  static void L9()
815  {register object *base=vs_base;  {register object *base=vs_base;
816          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
817          vs_reserve(VM9);          vs_reserve(VM9);
# Line 760  static L9() Line 823  static L9()
823          V109=(base[1]);          V109=(base[1]);
824          V110=(base[2]);          V110=(base[2]);
825          vs_top=sup;          vs_top=sup;
826    goto TTL;
827  TTL:;  TTL:;
828          {object V111;          {object V111;
829          object V112;          object V112;
# Line 786  TTL:; Line 850  TTL:;
850          V115= vs_base[0];          V115= vs_base[0];
851          vs_top=sup;          vs_top=sup;
852          goto T256;          goto T256;
853    goto T251;
854  T251:;  T251:;
855          V111= Cnil;          V111= Cnil;
856    goto T252;
857  T252:;  T252:;
858          V112= Cnil;          V112= Cnil;
859    goto T253;
860  T253:;  T253:;
861          V113= Cnil;          V113= Cnil;
862    goto T254;
863  T254:;  T254:;
864          V114= Cnil;          V114= Cnil;
865    goto T255;
866  T255:;  T255:;
867          V115= Cnil;          V115= Cnil;
868    goto T256;
869  T256:;  T256:;
870          {object V116;          {object V116;
871          object V117;          object V117;
# Line 821  T256:; Line 891  T256:;
891  }  }
892  /*      function definition for G1034   */  /*      function definition for G1034   */
893    
894  static L10()  static void L10()
895  {register object *base=vs_base;  {register object *base=vs_base;
896          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
897          vs_reserve(VM10);          vs_reserve(VM10);
# Line 833  static L10() Line 903  static L10()
903          V121=(base[1]);          V121=(base[1]);
904          V122=(base[2]);          V122=(base[2]);
905          vs_top=sup;          vs_top=sup;
906    goto TTL;
907  TTL:;  TTL:;
908          {object V123;          {object V123;
909          object V124;          object V124;
# Line 859  TTL:; Line 930  TTL:;
930          V127= vs_base[0];          V127= vs_base[0];
931          vs_top=sup;          vs_top=sup;
932          goto T273;          goto T273;
933    goto T268;
934  T268:;  T268:;
935          V123= Cnil;          V123= Cnil;
936    goto T269;
937  T269:;  T269:;
938          V124= Cnil;          V124= Cnil;
939    goto T270;
940  T270:;  T270:;
941          V125= Cnil;          V125= Cnil;
942    goto T271;
943  T271:;  T271:;
944          V126= Cnil;          V126= Cnil;
945    goto T272;
946  T272:;  T272:;
947          V127= Cnil;          V127= Cnil;
948    goto T273;
949  T273:;  T273:;
950          {object V128;          {object V128;
951          object V129;          object V129;
# Line 894  T273:; Line 971  T273:;
971  }  }
972  /*      function definition for G1036   */  /*      function definition for G1036   */
973    
974  static L11()  static void L11()
975  {register object *base=vs_base;  {register object *base=vs_base;
976          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
977          vs_reserve(VM11);          vs_reserve(VM11);
# Line 906  static L11() Line 983  static L11()
983          V133=(base[1]);          V133=(base[1]);
984          V134=(base[2]);          V134=(base[2]);
985          vs_top=sup;          vs_top=sup;
986    goto TTL;
987  TTL:;  TTL:;
988          {object V135;          {object V135;
989          object V136;          object V136;
# Line 932  TTL:; Line 1010  TTL:;
1010          V139= vs_base[0];          V139= vs_base[0];
1011          vs_top=sup;          vs_top=sup;
1012          goto T290;          goto T290;
1013    goto T285;
1014  T285:;  T285:;
1015          V135= Cnil;          V135= Cnil;
1016    goto T286;
1017  T286:;  T286:;
1018          V136= Cnil;          V136= Cnil;
1019    goto T287;
1020  T287:;  T287:;
1021          V137= Cnil;          V137= Cnil;
1022    goto T288;
1023  T288:;  T288:;
1024          V138= Cnil;          V138= Cnil;
1025    goto T289;
1026  T289:;  T289:;
1027          V139= Cnil;          V139= Cnil;
1028    goto T290;
1029  T290:;  T290:;
1030          {object V140;          {object V140;
1031          object V141;          object V141;
# Line 971  static object LI12(V147,V148,V149) Line 1055  static object LI12(V147,V148,V149)
1055    
1056  register object V147;register object V148;register object V149;  register object V147;register object V148;register object V149;
1057  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1058    goto TTL;
1059  TTL:;  TTL:;
1060          {register object V150;          {register object V150;
1061          V150= Cnil;          V150= Cnil;
# Line 983  TTL:; Line 1068  TTL:;
1068          V148= list(3,VV[39],cadr((V147)),(V148));          V148= list(3,VV[39],cadr((V147)),(V148));
1069          V147= (V151);}          V147= (V151);}
1070          goto TTL;          goto TTL;
1071    goto T300;
1072  T300:;  T300:;
1073          if(!(type_of((V147))==t_symbol)){          if(!(type_of((V147))==t_symbol)){
1074          goto T309;}          goto T309;}
1075          {object V152 = list(3,VV[27],(V147),(V148));          {object V152 = list(3,VV[27],(V147),(V148));
1076          VMR12(V152)}          VMR12(V152)}
1077    goto T309;
1078  T309:;  T309:;
1079          if(!(type_of((V147))==t_cons)){          if(!(type_of((V147))==t_cons)){
1080          goto T312;}          goto T312;}
# Line 1012  T309:; Line 1099  T309:;
1099          if(((V150))==Cnil){          if(((V150))==Cnil){
1100          goto T312;}          goto T312;}
1101          goto TTL;          goto TTL;
1102    goto T312;
1103  T312:;  T312:;
1104          if(!(type_of(car((V147)))==t_symbol)){          if(!(type_of(car((V147)))==t_symbol)){
1105          goto T329;}          goto T329;}
# Line 1023  T312:; Line 1111  T312:;
1111          V155= append(/* INLINE-ARGS */V153,/* INLINE-ARGS */V154);          V155= append(/* INLINE-ARGS */V153,/* INLINE-ARGS */V154);
1112          {object V156 = make_cons((V150),/* INLINE-ARGS */V155);          {object V156 = make_cons((V150),/* INLINE-ARGS */V155);
1113          VMR12(V156)}          VMR12(V156)}
1114    goto T329;
1115  T329:;  T329:;
1116          if(!(type_of(car((V147)))==t_symbol)){          if(!(type_of(car((V147)))==t_symbol)){
1117          goto T335;}          goto T335;}
# Line 1031  T329:; Line 1120  T329:;
1120          goto T335;}          goto T335;}
1121          {object V157 = (*(LnkLI96))(cadr((V147)),car((V150)),cdr((V150)),(V148));          {object V157 = (*(LnkLI96))(cadr((V147)),car((V150)),cdr((V150)),(V148));
1122          VMR12(V157)}          VMR12(V157)}
1123    goto T335;
1124  T335:;  T335:;
1125          {object V158;          {object V158;
1126          object V159;          object V159;
# Line 1057  T335:; Line 1147  T335:;
1147          V162= vs_base[0];          V162= vs_base[0];
1148          vs_top=sup;          vs_top=sup;
1149          goto T349;          goto T349;
1150    goto T344;
1151  T344:;  T344:;
1152          V158= Cnil;          V158= Cnil;
1153    goto T345;
1154  T345:;  T345:;
1155          V159= Cnil;          V159= Cnil;
1156    goto T346;
1157  T346:;  T346:;
1158          V160= Cnil;          V160= Cnil;
1159    goto T347;
1160  T347:;  T347:;
1161          V161= Cnil;          V161= Cnil;
1162    goto T348;
1163  T348:;  T348:;
1164          V162= Cnil;          V162= Cnil;
1165    goto T349;
1166  T349:;  T349:;
1167          V167= append((V158),(V160));          V167= append((V158),(V160));
1168          V168= make_cons((V148),Cnil);          V168= make_cons((V148),Cnil);
# Line 1078  T349:; Line 1174  T349:;
1174          V163= Cnil;          V163= Cnil;
1175          goto T350;}          goto T350;}
1176          base[0]=V164=MMcons(Cnil,Cnil);          base[0]=V164=MMcons(Cnil,Cnil);
1177    goto T351;
1178  T351:;  T351:;
1179          (V164->c.c_car)= list(2,(V165->c.c_car),(V166->c.c_car));          (V164->c.c_car)= list(2,(V165->c.c_car),(V166->c.c_car));
1180          if(endp(V165=MMcdr(V165))||endp(V166=MMcdr(V166))){          if(endp(V165=MMcdr(V165))||endp(V166=MMcdr(V166))){
# Line 1085  T351:; Line 1182  T351:;
1182          goto T350;}          goto T350;}
1183          V164=MMcdr(V164)=MMcons(Cnil,Cnil);          V164=MMcdr(V164)=MMcons(Cnil,Cnil);
1184          goto T351;}          goto T351;}
1185    goto T350;
1186  T350:;  T350:;
1187          {object V170 = list(3,VV[51],V163,(V161));          {object V170 = list(3,VV[51],V163,(V161));
1188          VMR12(V170)}}}          VMR12(V170)}}}
1189            base[0]=base[0];
1190            return Cnil;
1191  }  }
1192  /*      local entry for function SETF-STRUCTURE-ACCESS  */  /*      local entry for function SETF-STRUCTURE-ACCESS  */
1193    
# Line 1095  static object LI13(V175,V176,V177,V178) Line 1195  static object LI13(V175,V176,V177,V178)
1195    
1196  object V175;object V176;object V177;object V178;  object V175;object V176;object V177;object V178;
1197  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1198    goto TTL;
1199  TTL:;  TTL:;
1200          {object V179= (V176);          {object V179= (V176);
1201          if((V179!= VV[43]))goto T353;          if((V179!= VV[43]))goto T353;
1202          {object V180 = list(4,VV[52],(V175),(V177),(V178));          {object V180 = list(4,VV[52],(V175),(V177),(V178));
1203          VMR13(V180)}          VMR13(V180)}
1204    goto T353;
1205  T353:;  T353:;
1206          if((V179!= VV[98]))goto T354;          if((V179!= VV[98]))goto T354;
1207          {object V181 = list(4,VV[53],(V175),(V177),(V178));          {object V181 = list(4,VV[53],(V175),(V177),(V178));
1208          VMR13(V181)}          VMR13(V181)}
1209    goto T354;
1210  T354:;  T354:;
1211          {object V182 = list(5,VV[54],(V175),list(2,VV[3],(V176)),(V177),(V178));          {object V182 = list(5,VV[54],(V175),list(2,VV[3],(V176)),(V177),(V178));
1212          VMR13(V182)}}          VMR13(V182)}}
1213            return Cnil;
1214  }  }
1215  /*      local entry for function SETF-EXPAND    */  /*      local entry for function SETF-EXPAND    */
1216    
# Line 1114  static object LI14(V185,V186) Line 1218  static object LI14(V185,V186)
1218    
1219  register object V185;object V186;  register object V185;object V186;
1220  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1221    goto TTL;
1222  TTL:;  TTL:;
1223          if(!(endp((V185)))){          if(!(endp((V185)))){
1224          goto T356;}          goto T356;}
1225          {object V187 = Cnil;          {object V187 = Cnil;
1226          VMR14(V187)}          VMR14(V187)}
1227    goto T356;
1228  T356:;  T356:;
1229          if(!(endp(cdr((V185))))){          if(!(endp(cdr((V185))))){
1230          goto T359;}          goto T359;}
# Line 1129  T356:; Line 1235  T356:;
1235          vs_top=sup;          vs_top=sup;
1236          {object V188 = vs_base[0];          {object V188 = vs_base[0];
1237          VMR14(V188)}          VMR14(V188)}
1238    goto T359;
1239  T359:;  T359:;
1240          V189= (*(LnkLI99))(car((V185)),cadr((V185)),(V186));          V189= (*(LnkLI99))(car((V185)),cadr((V185)),(V186));
1241          V190= (*(LnkLI100))(cddr((V185)),(V186));          V190= (*(LnkLI100))(cddr((V185)),(V186));
1242          {object V191 = make_cons(/* INLINE-ARGS */V189,/* INLINE-ARGS */V190);          {object V191 = make_cons(/* INLINE-ARGS */V189,/* INLINE-ARGS */V190);
1243          VMR14(V191)}          VMR14(V191)}
1244            base[0]=base[0];
1245            return Cnil;
1246  }  }
1247  /*      local entry for function SETF-HELPER    */  /*      local entry for function SETF-HELPER    */
1248    
# Line 1141  static object LI15(V194,V195) Line 1250  static object LI15(V194,V195)
1250    
1251  register object V194;object V195;  register object V194;object V195;
1252  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1253    goto TTL;
1254  TTL:;  TTL:;
1255          V194= cdr((V194));          V194= cdr((V194));
1256          if(!(endp((V194)))){          if(!(endp((V194)))){
1257          goto T366;}          goto T366;}
1258          {object V196 = Cnil;          {object V196 = Cnil;
1259          VMR15(V196)}          VMR15(V196)}
1260    goto T366;
1261  T366:;  T366:;
1262          if(!(endp(cdr((V194))))){          if(!(endp(cdr((V194))))){
1263          goto T369;}          goto T369;}
# Line 1157  T366:; Line 1268  T366:;
1268          vs_top=sup;          vs_top=sup;
1269          {object V197 = vs_base[0];          {object V197 = vs_base[0];
1270          VMR15(V197)}          VMR15(V197)}
1271    goto T369;
1272  T369:;  T369:;
1273          if(!(endp(cddr((V194))))){          if(!(endp(cddr((V194))))){
1274          goto T374;}          goto T374;}
1275          {object V198 = (*(LnkLI99))(car((V194)),cadr((V194)),(V195));          {object V198 = (*(LnkLI99))(car((V194)),cadr((V194)),(V195));
1276          VMR15(V198)}          VMR15(V198)}
1277    goto T374;
1278  T374:;  T374:;
1279          V199= (*(LnkLI100))((V194),(V195));          V199= (*(LnkLI100))((V194),(V195));
1280          {object V200 = make_cons(VV[57],/* INLINE-ARGS */V199);          {object V200 = make_cons(VV[57],/* INLINE-ARGS */V199);
1281          VMR15(V200)}          VMR15(V200)}
1282            base[0]=base[0];
1283            return Cnil;
1284  }  }
1285  /*      macro definition for PSETF      */  /*      macro definition for PSETF      */
1286    
1287  static L16()  static void L16()
1288  {register object *base=vs_base;  {register object *base=vs_base;
1289          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
1290          vs_reserve(VM16);          vs_reserve(VM16);
# Line 1182  static L16() Line 1297  static L16()
1297          base[3]= Cnil;          base[3]= Cnil;
1298          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1299          return;          return;
1300    goto T377;
1301  T377:;  T377:;
1302          if(!(endp(cdr(base[2])))){          if(!(endp(cdr(base[2])))){
1303          goto T380;}          goto T380;}
# Line 1190  T377:; Line 1306  T377:;
1306          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1307          Lerror();          Lerror();
1308          return;          return;
1309    goto T380;
1310  T380:;  T380:;
1311          if(!(endp(cddr(base[2])))){          if(!(endp(cddr(base[2])))){
1312          goto T385;}          goto T385;}
# Line 1197  T380:; Line 1314  T380:;
1314          base[3]= list(3,VV[57],/* INLINE-ARGS */V202,Cnil);          base[3]= list(3,VV[57],/* INLINE-ARGS */V202,Cnil);
1315          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1316          return;          return;
1317    goto T385;
1318  T385:;  T385:;
1319          {register object V203;          {register object V203;
1320          register object V204;          register object V204;
# Line 1204  T385:; Line 1322  T385:;
1322          V203= base[2];          V203= base[2];
1323          V204= Cnil;          V204= Cnil;
1324          V205= Cnil;          V205= Cnil;
1325    goto T388;
1326  T388:;  T388:;
1327          if(!(endp((V203)))){          if(!(endp((V203)))){
1328          goto T389;}          goto T389;}
# Line 1211  T388:; Line 1330  T388:;
1330          base[3]= listA(3,VV[51],(V204),append(/* INLINE-ARGS */V206,VV[59]));          base[3]= listA(3,VV[51],(V204),append(/* INLINE-ARGS */V206,VV[59]));
1331          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1332          return;          return;
1333    goto T389;
1334  T389:;  T389:;
1335          if(!(endp(cdr((V203))))){          if(!(endp(cdr((V203))))){
1336          goto T393;}          goto T393;}
# Line 1219  T389:; Line 1339  T389:;
1339          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1340          Lerror();          Lerror();
1341          vs_top=sup;          vs_top=sup;
1342    goto T393;
1343  T393:;  T393:;
1344          {register object V207;          {register object V207;
1345          register object V208;          register object V208;
# Line 1245  T393:; Line 1366  T393:;
1366          V211= vs_base[0];          V211= vs_base[0];
1367          vs_top=sup;          vs_top=sup;
1368          goto T407;          goto T407;
1369    goto T402;
1370  T402:;  T402:;
1371          V207= Cnil;          V207= Cnil;
1372    goto T403;
1373  T403:;  T403:;
1374          V208= Cnil;          V208= Cnil;
1375    goto T404;
1376  T404:;  T404:;
1377          V209= Cnil;          V209= Cnil;
1378    goto T405;
1379  T405:;  T405:;
1380          V210= Cnil;          V210= Cnil;
1381    goto T406;
1382  T406:;  T406:;
1383          V211= Cnil;          V211= Cnil;
1384    goto T407;
1385  T407:;  T407:;
1386          V205= make_cons((V210),(V205));          V205= make_cons((V210),(V205));
1387          V216= append((V207),(V209));          V216= append((V207),(V209));
# Line 1267  T407:; Line 1394  T407:;
1394          V212= Cnil;          V212= Cnil;
1395          goto T411;}          goto T411;}
1396          base[3]=V213=MMcons(Cnil,Cnil);          base[3]=V213=MMcons(Cnil,Cnil);
1397    goto T412;
1398  T412:;  T412:;
1399          (V213->c.c_car)= list(2,(V214->c.c_car),(V215->c.c_car));          (V213->c.c_car)= list(2,(V214->c.c_car),(V215->c.c_car));
1400          if(endp(V214=MMcdr(V214))||endp(V215=MMcdr(V215))){          if(endp(V214=MMcdr(V214))||endp(V215=MMcdr(V215))){
# Line 1274  T412:; Line 1402  T412:;
1402          goto T411;}          goto T411;}
1403          V213=MMcdr(V213)=MMcons(Cnil,Cnil);          V213=MMcdr(V213)=MMcons(Cnil,Cnil);
1404          goto T412;}          goto T412;}
1405    goto T411;
1406  T411:;  T411:;
1407          V204= nconc((V204),V212);}          V204= nconc((V204),V212);}
1408          V203= cddr((V203));          V203= cddr((V203));
# Line 1281  T411:; Line 1410  T411:;
1410  }  }
1411  /*      macro definition for SHIFTF     */  /*      macro definition for SHIFTF     */
1412    
1413  static L17()  static void L17()
1414  {register object *base=vs_base;  {register object *base=vs_base;
1415          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1416          vs_reserve(VM17);          vs_reserve(VM17);
# Line 1304  static L17() Line 1433  static L17()
1433          V222= Cnil;          V222= Cnil;
1434          V223= Cnil;          V223= Cnil;
1435          V225= Cnil;          V225= Cnil;
1436    goto T419;
1437  T419:;  T419:;
1438          if(!(endp(cdr((V220))))){          if(!(endp(cdr((V220))))){
1439          goto T420;}          goto T420;}
# Line 1320  T419:; Line 1450  T419:;
1450          base[5]= Cnil;          base[5]= Cnil;
1451          goto T432;}          goto T432;}
1452          base[6]=V228=MMcons(Cnil,Cnil);          base[6]=V228=MMcons(Cnil,Cnil);
1453    goto T433;
1454  T433:;  T433:;
1455          (V228->c.c_car)= list(2,(V229->c.c_car),(V230->c.c_car));          (V228->c.c_car)= list(2,(V229->c.c_car),(V230->c.c_car));
1456          if(endp(V229=MMcdr(V229))||endp(V230=MMcdr(V230))){          if(endp(V229=MMcdr(V229))||endp(V230=MMcdr(V230))){
# Line 1327  T433:; Line 1458  T433:;
1458          goto T432;}          goto T432;}
1459          V228=MMcdr(V228)=MMcons(Cnil,Cnil);          V228=MMcdr(V228)=MMcons(Cnil,Cnil);
1460          goto T433;}          goto T433;}
1461    goto T432;
1462  T432:;  T432:;
1463          base[7]= (V222);          base[7]= (V222);
1464          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
# Line 1343  T432:; Line 1475  T432:;
1475          base[3]= listA(3,VV[51],V226,append((V223),/* INLINE-ARGS */V233));          base[3]= listA(3,VV[51],V226,append((V223),/* INLINE-ARGS */V233));
1476          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1477          return;          return;
1478    goto T420;
1479  T420:;  T420:;
1480          {register object V234;          {register object V234;
1481          register object V235;          register object V235;
# Line 1369  T420:; Line 1502  T420:;
1502          V238= vs_base[0];          V238= vs_base[0];
1503          vs_top=sup;          vs_top=sup;
1504          goto T448;          goto T448;
1505    goto T443;
1506  T443:;  T443:;
1507          V234= Cnil;          V234= Cnil;
1508    goto T444;
1509  T444:;  T444:;
1510          V235= Cnil;          V235= Cnil;
1511    goto T445;
1512  T445:;  T445:;
1513          V236= Cnil;          V236= Cnil;
1514    goto T446;
1515  T446:;  T446:;
1516          V237= Cnil;          V237= Cnil;
1517    goto T447;
1518  T447:;  T447:;
1519          V238= Cnil;          V238= Cnil;
1520    goto T448;
1521  T448:;  T448:;
1522          {object V240;          {object V240;
1523          object V241= (V234);          object V241= (V234);
# Line 1387  T448:; Line 1526  T448:;
1526          V239= Cnil;          V239= Cnil;
1527          goto T451;}          goto T451;}
1528          base[3]=V240=MMcons(Cnil,Cnil);          base[3]=V240=MMcons(Cnil,Cnil);
1529    goto T452;
1530  T452:;  T452:;
1531          (V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car));          (V240->c.c_car)= list(2,(V241->c.c_car),(V242->c.c_car));
1532          if(endp(V241=MMcdr(V241))||endp(V242=MMcdr(V242))){          if(endp(V241=MMcdr(V241))||endp(V242=MMcdr(V242))){
# Line 1394  T452:; Line 1534  T452:;
1534          goto T451;}          goto T451;}
1535          V240=MMcdr(V240)=MMcons(Cnil,Cnil);          V240=MMcdr(V240)=MMcons(Cnil,Cnil);
1536          goto T452;}          goto T452;}
1537    goto T451;
1538  T451:;  T451:;
1539          V221= nconc((V221),V239);          V221= nconc((V221),V239);
1540          V222= make_cons(car((V236)),(V222));          V222= make_cons(car((V236)),(V222));
# Line 1404  T451:; Line 1545  T451:;
1545  }  }
1546  /*      macro definition for ROTATEF    */  /*      macro definition for ROTATEF    */
1547    
1548  static L18()  static void L18()
1549  {register object *base=vs_base;  {register object *base=vs_base;
1550          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
1551          vs_reserve(VM18);          vs_reserve(VM18);
# Line 1422  static L18() Line 1563  static L18()
1563          V246= Cnil;          V246= Cnil;
1564          V247= Cnil;          V247= Cnil;
1565          V248= Cnil;          V248= Cnil;
1566    goto T463;
1567  T463:;  T463:;
1568          if(!(endp((V244)))){          if(!(endp((V244)))){
1569          goto T464;}          goto T464;}
# Line 1436  T463:; Line 1578  T463:;
1578          base[4]= Cnil;          base[4]= Cnil;
1579          goto T475;}          goto T475;}
1580          base[5]=V250=MMcons(Cnil,Cnil);          base[5]=V250=MMcons(Cnil,Cnil);
1581    goto T476;
1582  T476:;  T476:;
1583          (V250->c.c_car)= list(2,(V251->c.c_car),(V252->c.c_car));          (V250->c.c_car)= list(2,(V251->c.c_car),(V252->c.c_car));
1584          if(endp(V251=MMcdr(V251))||endp(V252=MMcdr(V252))){          if(endp(V251=MMcdr(V251))||endp(V252=MMcdr(V252))){
# Line 1443  T476:; Line 1586  T476:;
1586          goto T475;}          goto T475;}
1587          V250=MMcdr(V250)=MMcons(Cnil,Cnil);          V250=MMcdr(V250)=MMcons(Cnil,Cnil);
1588          goto T476;}          goto T476;}
1589    goto T475;
1590  T475:;  T475:;
1591          base[6]= (V246);          base[6]= (V246);
1592          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
# Line 1458  T475:; Line 1602  T475:;
1602          base[3]= listA(3,VV[51],V249,append((V247),VV[61]));          base[3]= listA(3,VV[51],V249,append((V247),VV[61]));
1603          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1604          return;          return;
1605    goto T464;
1606  T464:;  T464:;
1607          {register object V255;          {register object V255;
1608          register object V256;          register object V256;
# Line 1484  T464:; Line 1629  T464:;
1629          V259= vs_base[0];          V259= vs_base[0];
1630          vs_top=sup;          vs_top=sup;
1631          goto T491;          goto T491;
1632    goto T486;
1633  T486:;  T486:;
1634          V255= Cnil;          V255= Cnil;
1635    goto T487;
1636  T487:;  T487:;
1637          V256= Cnil;          V256= Cnil;
1638    goto T488;
1639  T488:;  T488:;
1640          V257= Cnil;          V257= Cnil;
1641    goto T489;
1642  T489:;  T489:;
1643          V258= Cnil;          V258= Cnil;
1644    goto T490;
1645  T490:;  T490:;
1646          V259= Cnil;          V259= Cnil;
1647    goto T491;
1648  T491:;  T491:;
1649          {object V261;          {object V261;
1650          object V262= (V255);          object V262= (V255);
# Line 1502  T491:; Line 1653  T491:;
1653          V260= Cnil;          V260= Cnil;
1654          goto T494;}          goto T494;}
1655          base[3]=V261=MMcons(Cnil,Cnil);          base[3]=V261=MMcons(Cnil,Cnil);
1656    goto T495;
1657  T495:;  T495:;
1658          (V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car));          (V261->c.c_car)= list(2,(V262->c.c_car),(V263->c.c_car));
1659          if(endp(V262=MMcdr(V262))||endp(V263=MMcdr(V263))){          if(endp(V262=MMcdr(V262))||endp(V263=MMcdr(V263))){
# Line 1509  T495:; Line 1661  T495:;
1661          goto T494;}          goto T494;}
1662          V261=MMcdr(V261)=MMcons(Cnil,Cnil);          V261=MMcdr(V261)=MMcons(Cnil,Cnil);
1663          goto T495;}          goto T495;}
1664    goto T494;
1665  T494:;  T494:;
1666          V245= nconc((V245),V260);          V245= nconc((V245),V260);
1667          V246= make_cons(car((V257)),(V246));          V246= make_cons(car((V257)),(V246));
# Line 1519  T494:; Line 1672  T494:;
1672  }  }
1673  /*      macro definition for DEFINE-MODIFY-MACRO        */  /*      macro definition for DEFINE-MODIFY-MACRO        */
1674    
1675  static L19()  static void L19()
1676  {register object *base=vs_base;  {register object *base=vs_base;
1677          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1678          vs_reserve(VM19);          vs_reserve(VM19);
# Line 1546  static L19() Line 1699  static L19()
1699          register object V267;          register object V267;
1700          V266= base[3];          V266= base[3];
1701          V267= Cnil;          V267= Cnil;
1702    goto T508;
1703  T508:;  T508:;
1704          if(((V266))!=Cnil){          if(((V266))!=Cnil){
1705          goto T509;}          goto T509;}
1706          V268= list(2,VV[3],base[4]);          V268= list(2,VV[3],base[4]);
1707          V265= listA(4,VV[43],/* INLINE-ARGS */V268,VV[62],nreverse((V267)));          V265= listA(4,VV[43],/* INLINE-ARGS */V268,VV[62],nreverse((V267)));
1708          goto T506;          goto T506;
1709    goto T509;
1710  T509:;  T509:;
1711          if((car((V266)))==(VV[63])){          if((car((V266)))==(VV[63])){
1712          goto T513;}          goto T513;}
# Line 1562  T509:; Line 1717  T509:;
1717          V271= make_cons(cadr((V266)),Cnil);          V271= make_cons(cadr((V266)),Cnil);
1718          V265= listA(4,VV[65],/* INLINE-ARGS */V269,VV[62],append(/* INLINE-ARGS */V270,/* INLINE-ARGS */V271));          V265= listA(4,VV[65],/* INLINE-ARGS */V269,VV[62],append(/* INLINE-ARGS */V270,/* INLINE-ARGS */V271));
1719          goto T506;          goto T506;
1720    goto T516;
1721  T516:;  T516:;
1722          if(!(type_of(car((V266)))==t_symbol)){          if(!(type_of(car((V266)))==t_symbol)){
1723          goto T520;}          goto T520;}
1724          V267= make_cons(car((V266)),(V267));          V267= make_cons(car((V266)),(V267));
1725          goto T513;          goto T513;
1726    goto T520;
1727  T520:;  T520:;
1728          V267= make_cons(caar((V266)),(V267));          V267= make_cons(caar((V266)),(V267));
1729    goto T513;
1730  T513:;  T513:;
1731          V266= cdr((V266));          V266= cdr((V266));
1732          goto T508;}          goto T508;}
1733    goto T506;
1734  T506:;  T506:;
1735          V272= listA(4,VV[67],VV[68],VV[69],base[3]);          V272= listA(4,VV[67],VV[68],VV[69],base[3]);
1736          if((base[5])==Cnil){          if((base[5])==Cnil){
1737          goto T529;}          goto T529;}
1738          V273= make_cons(base[5],Cnil);          V273= make_cons(base[5],Cnil);
1739          goto T527;          goto T527;
1740    goto T529;
1741  T529:;  T529:;
1742          V273= Cnil;          V273= Cnil;
1743    goto T527;
1744  T527:;  T527:;
1745          V274= list(3,VV[70],VV[71],list(3,VV[72],base[2],list(3,VV[36],VV[73],list(4,VV[43],VV[74],VV[69],(V265)))));          V274= list(3,VV[70],VV[71],list(3,VV[72],base[2],list(3,VV[36],VV[73],list(4,VV[43],VV[74],VV[69],(V265)))));
1746          V275= list(2,/* INLINE-ARGS */V274,list(4,VV[75],VV[76],VV[77],list(4,VV[43],VV[78],list(4,VV[79],VV[80],VV[81],list(3,VV[42],VV[82],list(2,VV[43],(V265)))),VV[83])));          V275= list(2,/* INLINE-ARGS */V274,list(4,VV[75],VV[76],VV[77],list(4,VV[43],VV[78],list(4,VV[79],VV[80],VV[81],list(3,VV[42],VV[82],list(2,VV[43],(V265)))),VV[83])));
# Line 1589  T527:; Line 1750  T527:;
1750  }  }
1751  /*      macro definition for REMF       */  /*      macro definition for REMF       */
1752    
1753  static L20()  static void L20()
1754  {register object *base=vs_base;  {register object *base=vs_base;
1755          register object *sup=base+VM20; VC20          register object *sup=base+VM20; VC20
1756          vs_reserve(VM20);          vs_reserve(VM20);
# Line 1628  static L20() Line 1789  static L20()
1789          V281= vs_base[0];          V281= vs_base[0];
1790          vs_top=sup;          vs_top=sup;
1791          goto T539;          goto T539;
1792    goto T534;
1793  T534:;  T534:;
1794          V277= Cnil;          V277= Cnil;
1795    goto T535;
1796  T535:;  T535:;
1797          V278= Cnil;          V278= Cnil;
1798    goto T536;
1799  T536:;  T536:;
1800          V279= Cnil;          V279= Cnil;
1801    goto T537;
1802  T537:;  T537:;
1803          V280= Cnil;          V280= Cnil;
1804    goto T538;
1805  T538:;  T538:;
1806          V281= Cnil;          V281= Cnil;
1807    goto T539;
1808  T539:;  T539:;
1809          {object V283;          {object V283;
1810          object V284= (V277);          object V284= (V277);
# Line 1646  T539:; Line 1813  T539:;
1813          V282= Cnil;          V282= Cnil;
1814          goto T540;}          goto T540;}
1815          base[4]=V283=MMcons(Cnil,Cnil);          base[4]=V283=MMcons(Cnil,Cnil);
1816    goto T541;
1817  T541:;  T541:;
1818          (V283->c.c_car)= list(2,(V284->c.c_car),(V285->c.c_car));          (V283->c.c_car)= list(2,(V284->c.c_car),(V285->c.c_car));
1819          if(endp(V284=MMcdr(V284))||endp(V285=MMcdr(V285))){          if(endp(V284=MMcdr(V284))||endp(V285=MMcdr(V285))){
# Line 1653  T541:; Line 1821  T541:;
1821          goto T540;}          goto T540;}
1822          V283=MMcdr(V283)=MMcons(Cnil,Cnil);          V283=MMcdr(V283)=MMcons(Cnil,Cnil);
1823          goto T541;}          goto T541;}
1824    goto T540;
1825  T540:;  T540:;
1826          V286= list(2,car((V279)),VV[84]);          V286= list(2,car((V279)),VV[84]);
1827          base[4]= list(3,VV[51],V282,list(5,VV[75],/* INLINE-ARGS */V286,list(3,VV[85],(V281),base[3]),(V280),VV[84]));          base[4]= list(3,VV[51],V282,list(5,VV[75],/* INLINE-ARGS */V286,list(3,VV[85],(V281),base[3]),(V280),VV[84]));
# Line 1661  T540:; Line 1830  T540:;
1830  }  }
1831  /*      macro definition for INCF       */  /*      macro definition for INCF       */
1832    
1833  static L21()  static void L21()
1834  {register object *base=vs_base;  {register object *base=vs_base;
1835          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1836          vs_reserve(VM21);          vs_reserve(VM21);
# Line 1682  static L21() Line 1851  static L21()
1851          base[4]= list(3,VV[27],base[2],list(3,VV[86],base[2],base[3]));          base[4]= list(3,VV[27],base[2],list(3,VV[86],base[2],base[3]));
1852          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1853          return;          return;
1854    goto T544;
1855  T544:;  T544:;
1856          {object V289;          {object V289;
1857          object V290;          object V290;
# Line 1708  T544:; Line 1878  T544:;
1878          V293= vs_base[0];          V293= vs_base[0];
1879          vs_top=sup;          vs_top=sup;
1880          goto T555;          goto T555;
1881    goto T550;
1882  T550:;  T550:;
1883          V289= Cnil;          V289= Cnil;
1884    goto T551;
1885  T551:;  T551:;
1886          V290= Cnil;          V290= Cnil;
1887    goto T552;
1888  T552:;  T552:;
1889          V291= Cnil;          V291= Cnil;
1890    goto T553;
1891  T553:;  T553:;
1892          V292= Cnil;          V292= Cnil;
1893    goto T554;
1894  T554:;  T554:;
1895          V293= Cnil;          V293= Cnil;
1896    goto T555;
1897  T555:;  T555:;
1898          V298= append((V289),(V291));          V298= append((V289),(V291));
1899          V299= list(3,VV[86],(V293),base[3]);          V299= list(3,VV[86],(V293),base[3]);
# Line 1730  T555:; Line 1906  T555:;
1906          V294= Cnil;          V294= Cnil;
1907          goto T556;}          goto T556;}
1908          base[4]=V295=MMcons(Cnil,Cnil);          base[4]=V295=MMcons(Cnil,Cnil);
1909    goto T557;
1910  T557:;  T557:;
1911          (V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car));          (V295->c.c_car)= list(2,(V296->c.c_car),(V297->c.c_car));
1912          if(endp(V296=MMcdr(V296))||endp(V297=MMcdr(V297))){          if(endp(V296=MMcdr(V296))||endp(V297=MMcdr(V297))){
# Line 1737  T557:; Line 1914  T557:;
1914          goto T556;}          goto T556;}
1915          V295=MMcdr(V295)=MMcons(Cnil,Cnil);          V295=MMcdr(V295)=MMcons(Cnil,Cnil);
1916          goto T557;}          goto T557;}
1917    goto T556;
1918  T556:;  T556:;
1919          base[4]= list(3,VV[51],V294,(V292));          base[4]= list(3,VV[51],V294,(V292));
1920          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1744  T556:; Line 1922  T556:;
1922  }  }
1923  /*      macro definition for DECF       */  /*      macro definition for DECF       */
1924    
1925  static L22()  static void L22()
1926  {register object *base=vs_base;  {register object *base=vs_base;
1927          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
1928          vs_reserve(VM22);          vs_reserve(VM22);
# Line 1765  static L22() Line 1943  static L22()
1943          base[4]= list(3,VV[27],base[2],list(3,VV[87],base[2],base[3]));          base[4]= list(3,VV[27],base[2],list(3,VV[87],base[2],base[3]));
1944          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1945          return;          return;
1946    goto T560;
1947  T560:;  T560:;
1948          {object V304;          {object V304;
1949          object V305;          object V305;
# Line 1791  T560:; Line 1970  T560:;
1970          V308= vs_base[0];          V308= vs_base[0];
1971          vs_top=sup;          vs_top=sup;
1972          goto T571;          goto T571;
1973    goto T566;
1974  T566:;  T566:;
1975          V304= Cnil;          V304= Cnil;
1976    goto T567;
1977  T567:;  T567:;
1978          V305= Cnil;          V305= Cnil;
1979    goto T568;
1980  T568:;  T568:;
1981          V306= Cnil;          V306= Cnil;
1982    goto T569;
1983  T569:;  T569:;
1984          V307= Cnil;          V307= Cnil;
1985    goto T570;
1986  T570:;  T570:;
1987          V308= Cnil;          V308= Cnil;
1988    goto T571;
1989  T571:;  T571:;
1990          V313= append((V304),(V306));          V313= append((V304),(V306));
1991          V314= list(3,VV[87],(V308),base[3]);          V314= list(3,VV[87],(V308),base[3]);
# Line 1813  T571:; Line 1998  T571:;
1998          V309= Cnil;          V309= Cnil;
1999          goto T572;}          goto T572;}
2000          base[4]=V310=MMcons(Cnil,Cnil);          base[4]=V310=MMcons(Cnil,Cnil);
2001    goto T573;
2002  T573:;  T573:;
2003          (V310->c.c_car)= list(2,(V311->c.c_car),(V312->c.c_car));          (V310->c.c_car)= list(2,(V311->c.c_car),(V312->c.c_car));
2004          if(endp(V311=MMcdr(V311))||endp(V312=MMcdr(V312))){          if(endp(V311=MMcdr(V311))||endp(V312=MMcdr(V312))){
# Line 1820  T573:; Line 2006  T573:;
2006          goto T572;}          goto T572;}
2007          V310=MMcdr(V310)=MMcons(Cnil,Cnil);          V310=MMcdr(V310)=MMcons(Cnil,Cnil);
2008          goto T573;}          goto T573;}
2009    goto T572;
2010  T572:;  T572:;
2011          base[4]= list(3,VV[51],V309,(V307));          base[4]= list(3,VV[51],V309,(V307));
2012          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1827  T572:; Line 2014  T572:;
2014  }  }
2015  /*      macro definition for PUSH       */  /*      macro definition for PUSH       */
2016    
2017  static L23()  static void L23()
2018  {register object *base=vs_base;  {register object *base=vs_base;
2019          register object *sup=base+VM23; VC23          register object *sup=base+VM23; VC23
2020          vs_reserve(VM23);          vs_reserve(VM23);
# Line 1846  static L23() Line 2033  static L23()
2033          base[4]= list(3,VV[27],base[3],list(3,VV[88],base[2],base[3]));          base[4]= list(3,VV[27],base[3],list(3,VV[88],base[2],base[3]));
2034          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2035          return;          return;
2036    goto T575;
2037  T575:;  T575:;
2038          {object V318;          {object V318;
2039          object V319;          object V319;
# Line 1872  T575:; Line 2060  T575:;
2060          V322= vs_base[0];          V322= vs_base[0];
2061          vs_top=sup;          vs_top=sup;
2062          goto T586;          goto T586;
2063    goto T581;
2064  T581:;  T581:;
2065          V318= Cnil;          V318= Cnil;
2066    goto T582;
2067  T582:;  T582:;
2068          V319= Cnil;          V319= Cnil;
2069    goto T583;
2070  T583:;  T583:;
2071          V320= Cnil;          V320= Cnil;
2072    goto T584;
2073  T584:;  T584:;
2074          V321= Cnil;          V321= Cnil;
2075    goto T585;
2076  T585:;  T585:;
2077          V322= Cnil;          V322= Cnil;
2078    goto T586;
2079  T586:;  T586:;
2080          V327= append((V318),(V320));          V327= append((V318),(V320));
2081          V328= list(3,VV[88],base[2],(V322));          V328= list(3,VV[88],base[2],(V322));
# Line 1894  T586:; Line 2088  T586:;
2088          V323= Cnil;          V323= Cnil;
2089          goto T587;}          goto T587;}
2090          base[4]=V324=MMcons(Cnil,Cnil);          base[4]=V324=MMcons(Cnil,Cnil);
2091    goto T588;
2092  T588:;  T588:;
2093          (V324->c.c_car)= list(2,(V325->c.c_car),(V326->c.c_car));          (V324->c.c_car)= list(2,(V325->c.c_car),(V326->c.c_car));
2094          if(endp(V325=MMcdr(V325))||endp(V326=MMcdr(V326))){          if(endp(V325=MMcdr(V325))||endp(V326=MMcdr(V326))){
# Line 1901  T588:; Line 2096  T588:;
2096          goto T587;}          goto T587;}
2097          V324=MMcdr(V324)=MMcons(Cnil,Cnil);          V324=MMcdr(V324)=MMcons(Cnil,Cnil);
2098          goto T588;}          goto T588;}
2099    goto T587;
2100  T587:;  T587:;
2101          base[4]= list(3,VV[51],V323,(V321));          base[4]= list(3,VV[51],V323,(V321));
2102          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
# Line 1908  T587:; Line 2104  T587:;
2104  }  }
2105  /*      macro definition for PUSHNEW    */  /*      macro definition for PUSHNEW    */
2106    
2107  static L24()  static void L24()
2108  {register object *base=vs_base;  {register object *base=vs_base;
2109          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
2110          vs_reserve(VM24);          vs_reserve(VM24);
# Line 1927  static L24() Line 2123  static L24()
2123          base[5]= list(3,VV[27],base[3],listA(4,VV[89],base[2],base[3],base[4]));          base[5]= list(3,VV[27],base[3],listA(4,VV[89],base[2],base[3],base[4]));
2124          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
2125          return;          return;
2126    goto T590;
2127  T590:;  T590:;
2128          {object V332;          {object V332;
2129          object V333;          object V333;
# Line 1953  T590:; Line 2150  T590:;
2150          V336= vs_base[0];          V336= vs_base[0];
2151          vs_top=sup;          vs_top=sup;
2152          goto T601;          goto T601;
2153    goto T596;
2154  T596:;  T596:;
2155          V332= Cnil;          V332= Cnil;
2156    goto T597;
2157  T597:;  T597:;
2158          V333= Cnil;          V333= Cnil;
2159    goto T598;
2160  T598:;  T598:;
2161          V334= Cnil;          V334= Cnil;
2162    goto T599;
2163  T599:;  T599:;
2164          V335= Cnil;          V335= Cnil;
2165    goto T600;
2166  T600:;  T600:;
2167          V336= Cnil;          V336= Cnil;
2168    goto T601;
2169  T601:;  T601:;
2170          V341= append((V332),(V334));          V341= append((V332),(V334));
2171          V342= listA(4,VV[89],base[2],(V336),base[4]);          V342= listA(4,VV[89],base[2],(V336),base[4]);
# Line 1975  T601:; Line 2178  T601:;
2178          V337= Cnil;          V337= Cnil;
2179          goto T602;}          goto T602;}
2180          base[5]=V338=MMcons(Cnil,Cnil);          base[5]=V338=MMcons(Cnil,Cnil);
2181    goto T603;
2182  T603:;  T603:;
2183          (V338->c.c_car)= list(2,(V339->c.c_car),(V340->c.c_car));          (V338->c.c_car)= list(2,(V339->c.c_car),(V340->c.c_car));
2184          if(endp(V339=MMcdr(V339))||endp(V340=MMcdr(V340))){          if(endp(V339=MMcdr(V339))||endp(V340=MMcdr(V340))){
# Line 1982  T603:; Line 2186  T603:;
2186          goto T602;}          goto T602;}
2187          V338=MMcdr(V338)=MMcons(Cnil,Cnil);          V338=MMcdr(V338)=MMcons(Cnil,Cnil);
2188          goto T603;}          goto T603;}
2189    goto T602;
2190  T602:;  T602:;
2191          base[5]= list(3,VV[51],V337,(V335));          base[5]= list(3,VV[51],V337,(V335));
2192          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 1989  T602:; Line 2194  T602:;
2194  }  }
2195  /*      macro definition for POP        */  /*      macro definition for POP        */
2196    
2197  static L25()  static void L25()
2198  {register object *base=vs_base;  {register object *base=vs_base;
2199          register object *sup=base+VM25; VC25          register object *sup=base+VM25; VC25
2200          vs_reserve(VM25);          vs_reserve(VM25);
# Line 2012  static L25() Line 2217  static L25()
2217          base[3]= list(4,VV[36],/* INLINE-ARGS */V348,list(3,VV[27],base[2],list(2,VV[91],base[2])),(V346));          base[3]= list(4,VV[36],/* INLINE-ARGS */V348,list(3,VV[27],base[2],list(2,VV[91],base[2])),(V346));
2218          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2219          return;}          return;}
2220    goto T605;
2221  T605:;  T605:;
2222          {object V349;          {object V349;
2223          object V350;          object V350;
# Line 2038  T605:; Line 2244  T605:;
2244          V353= vs_base[0];          V353= vs_base[0];
2245          vs_top=sup;          vs_top=sup;
2246          goto T617;          goto T617;
2247    goto T612;
2248  T612:;  T612:;
2249          V349= Cnil;          V349= Cnil;
2250    goto T613;
2251  T613:;  T613:;
2252          V350= Cnil;          V350= Cnil;
2253    goto T614;
2254  T614:;  T614:;
2255          V351= Cnil;          V351= Cnil;
2256    goto T615;
2257  T615:;  T615:;
2258          V352= Cnil;          V352= Cnil;
2259    goto T616;
2260  T616:;  T616:;
2261          V353= Cnil;          V353= Cnil;
2262    goto T617;
2263  T617:;  T617:;
2264          V358= append((V349),(V351));          V358= append((V349),(V351));
2265          V359= list(2,VV[91],(V353));          V359= list(2,VV[91],(V353));
# Line 2060  T617:; Line 2272  T617:;
2272          V354= Cnil;          V354= Cnil;
2273          goto T618;}          goto T618;}
2274          base[3]=V355=MMcons(Cnil,Cnil);          base[3]=V355=MMcons(Cnil,Cnil);
2275    goto T619;
2276  T619:;  T619:;
2277          (V355->c.c_car)= list(2,(V356->c.c_car),(V357->c.c_car));          (V355->c.c_car)= list(2,(V356->c.c_car),(V357->c.c_car));
2278          if(endp(V356=MMcdr(V356))||endp(V357=MMcdr(V357))){          if(endp(V356=MMcdr(V356))||endp(V357=MMcdr(V357))){
# Line 2067  T619:; Line 2280  T619:;
2280          goto T618;}          goto T618;}
2281          V355=MMcdr(V355)=MMcons(Cnil,Cnil);          V355=MMcdr(V355)=MMcons(Cnil,Cnil);
2282          goto T619;}          goto T619;}
2283    goto T618;
2284  T618:;  T618:;
2285          base[3]= list(3,VV[51],V354,list(3,VV[92],list(2,VV[90],(V353)),(V352)));          base[3]= list(3,VV[51],V354,list(3,VV[92],list(2,VV[90],(V353)),(V352)));
2286          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2287          return;}          return;}
2288  }  }
2289  static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* SETF-EXPAND */  static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],(void **)&LnkLI100,2,ap);} /* SETF-EXPAND */
2290  static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],&LnkLI99,3,ap);} /* SETF-EXPAND-1 */  static object  LnkTLI99(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[99],(void **)&LnkLI99,3,ap);} /* SETF-EXPAND-1 */
2291  static LnkT97(){ call_or_link(VV[97],&Lnk97);} /* GET-SETF-METHOD */  static void LnkT97(){ call_or_link(VV[97],(void **)&Lnk97);} /* GET-SETF-METHOD */
2292  static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,4,ap);} /* SETF-STRUCTURE-ACCESS */  static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,4,ap);} /* SETF-STRUCTURE-ACCESS */
2293  static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* GET-SETF-METHOD-MULTIPLE-VALUE */  static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* GET-SETF-METHOD-MULTIPLE-VALUE */
2294  static LnkT94(){ call_or_link(VV[94],&Lnk94);} /* GET-&ENVIRONMENT */  static void LnkT94(){ call_or_link(VV[94],(void **)&Lnk94);} /* GET-&ENVIRONMENT */
2295  static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[93],&LnkLI93,1,ap);} /* FIND-DOCUMENTATION */  static object  LnkTLI93(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[93],(void **)&LnkLI93,1,ap);} /* FIND-DOCUMENTATION */
2296    
2297  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2298  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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