/[gcl]/gcl/pcl/pcl_braid.c
ViewVC logotype

Diff of /gcl/pcl/pcl_braid.c

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

revision 1.6 by camm, Tue Oct 7 21:07:35 2003 UTC revision 1.7 by camm, Thu Oct 23 15:30:11 2003 UTC
# Line 27  T1:; Line 27  T1:;
27          goto T2;          goto T2;
28  T2:;  T2:;
29          {object V5;          {object V5;
30          V5= (*(LnkLI169))();          V5= (*(LnkLI178))();
31          V6 = (V5);          V6= Ct;
32          V7 = (V2);          STSET(object,(V5),0, (V2));
33          V8= Ct;          (void)((V2));
         STSET(object,V6,0, V7);  
         (void)(V7);  
         V9 = (V5);  
34          if(((V4))==Cnil){          if(((V4))==Cnil){
35          goto T9;}          goto T9;}
36          base[0]= (V3);          base[0]= (V3);
37          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
38          Lcopy_seq();          Lcopy_seq();
39          vs_top=sup;          vs_top=sup;
40          V10= vs_base[0];          V7= vs_base[0];
41          goto T7;          goto T7;
42          goto T9;          goto T9;
43  T9:;  T9:;
# Line 48  T9:; Line 45  T9:;
45          base[1]= VV[2];          base[1]= VV[2];
46          base[2]= (VV[0]->s.s_dbind);          base[2]= (VV[0]->s.s_dbind);
47          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
48          (void) (*Lnk170)();          (void) (*Lnk179)();
49          vs_top=sup;          vs_top=sup;
50          V10= vs_base[0];          V7= vs_base[0];
51          goto T7;          goto T7;
52  T7:;  T7:;
53          V11= Ct;          V8= Ct;
54          STSET(object,V9,4, V10);          STSET(object,(V5),4, V7);
55          (void)(V10);          (void)(V7);
56          {object V12 = (V5);          {object V9 = (V5);
57          VMR1(V12)}}          VMR1(V9)}}
58          va_end(ap);          va_end(ap);
59          base[0]=base[0];          base[0]=base[0];
60          return Cnil;}          return Cnil;}
# Line 70  static void L2() Line 67  static void L2()
67          vs_check;          vs_check;
68          check_arg(2);          check_arg(2);
69          vs_top=sup;          vs_top=sup;
70          {object V13=base[0]->c.c_cdr;          {object V10=base[0]->c.c_cdr;
71          if(endp(V13))invalid_macro_call();          if(endp(V10))invalid_macro_call();
72          base[2]= (V13->c.c_car);          base[2]= (V10->c.c_car);
73          V13=V13->c.c_cdr;          V10=V10->c.c_cdr;
74          if(endp(V13)){          if(endp(V10)){
75          base[3]= Cnil;          base[3]= Cnil;
76          } else {          } else {
77          base[3]= (V13->c.c_car);          base[3]= (V10->c.c_car);
78          V13=V13->c.c_cdr;}          V10=V10->c.c_cdr;}
79          if(endp(V13)){          if(endp(V10)){
80          base[4]= Cnil;          base[4]= Cnil;
81          } else {          } else {
82          base[4]= (V13->c.c_car);          base[4]= (V10->c.c_car);
83          V13=V13->c.c_cdr;}          V10=V10->c.c_cdr;}
84          if(!endp(V13))invalid_macro_call();}          if(!endp(V10))invalid_macro_call();}
85          V14= list(2,VV[4],list(2,VV[5],base[2]));          V11= list(2,VV[4],list(2,VV[5],base[2]));
86          V15= make_cons(/* INLINE-ARGS */V14,Cnil);          V12= make_cons(/* INLINE-ARGS */V11,Cnil);
87          if((base[3])==Cnil){          if((base[3])==Cnil){
88          goto T19;}          goto T19;}
89          V16= list(4,VV[6],base[3],list(2,VV[7],base[4]),VV[8]);          V13= list(4,VV[6],base[3],list(2,VV[7],base[4]),VV[8]);
90          goto T17;          goto T17;
91          goto T19;          goto T19;
92  T19:;  T19:;
93          V16= VV[9];          V13= VV[9];
94          goto T17;          goto T17;
95  T17:;  T17:;
96          base[5]= list(3,VV[3],/* INLINE-ARGS */V15,V16);          base[5]= list(3,VV[3],/* INLINE-ARGS */V12,V13);
97          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
98          return;          return;
99  }  }
100  /*      local entry for function ALLOCATE-FUNCALLABLE-INSTANCE  */  /*      local entry for function ALLOCATE-FUNCALLABLE-INSTANCE  */
101    
102  static object LI3(object V17,object first,...)  static object LI3(object V14,object first,...)
103  {        {      
104          va_list ap;          va_list ap;
105          int narg = VFUN_NARGS; VMB3 VMS3 VMV3          int narg = VFUN_NARGS; VMB3 VMS3 VMV3
106          {object V18;          {object V15;
107          object V19;          object V16;
108          object V20;          object V17;
109          va_start(ap,first);          va_start(ap,first);
110          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
111          V18= V17;          V15= V14;
112          narg = narg - 1;          narg = narg - 1;
113          if (narg <= 0) goto T21;          if (narg <= 0) goto T21;
114          else {          else {
115          V19= first;}          V16= first;}
116          V20= Ct;          V17= Ct;
117          --narg; goto T22;          --narg; goto T22;
118          goto T21;          goto T21;
119  T21:;  T21:;
120          V19= Cnil;          V16= Cnil;
121          V20= Cnil;          V17= Cnil;
122          goto T22;          goto T22;
123  T22:;  T22:;
124          base[0]= (*(LnkLI171))();          base[0]= (*(LnkLI180))();
125          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
126          V21 = (base[0]->c.c_car);          V18=
         V22=  
127          make_cclosure_new(LC45,Cnil,base[0],Cdata);          make_cclosure_new(LC45,Cnil,base[0],Cdata);
128          (void)((*(LnkLI172))(V21,V22));          (void)((*(LnkLI181))((base[0]->c.c_car),V18));
129            {object V19;
130            V19= ((base[0]->c.c_car))->cc.cc_turbo[13];
131            ((V19))->c.c_car = V15;}
132            {object V21;
133            object V22;
134            V21= ((base[0]->c.c_car))->cc.cc_turbo[12];
135          {object V23;          {object V23;
136          V23= ((base[0]->c.c_car))->cc.cc_turbo[13];          V23= ((V15))->v.v_self[12];
137          ((V23))->c.c_car = V18;}          if(((V17))==Cnil){
         {object V25;  
         object V26;  
         V25= ((base[0]->c.c_car))->cc.cc_turbo[12];  
         {object V27;  
         V27= ((V18))->v.v_self[12];  
         if(((V20))==Cnil){  
138          goto T35;}          goto T35;}
139          base[3]= (V19);          base[3]= (V16);
140          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
141          Lcopy_seq();          Lcopy_seq();
142          vs_top=sup;          vs_top=sup;
143          V26= vs_base[0];          V22= vs_base[0];
144          goto T32;          goto T32;
145          goto T35;          goto T35;
146  T35:;  T35:;
147          base[3]= (V27);          base[3]= (V23);
148          base[4]= VV[2];          base[4]= VV[2];
149          base[5]= (VV[0]->s.s_dbind);          base[5]= (VV[0]->s.s_dbind);
150          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
151          (void) (*Lnk170)();          (void) (*Lnk179)();
152          vs_top=sup;          vs_top=sup;
153          V26= vs_base[0];}          V22= vs_base[0];}
154          goto T32;          goto T32;
155  T32:;  T32:;
156          ((V25))->c.c_car = (V26);}          ((V21))->c.c_car = (V22);}
157          {object V28 = (base[0]->c.c_car);          {object V24 = (base[0]->c.c_car);
158          VMR3(V28)}          VMR3(V24)}
159          va_end(ap);          va_end(ap);
160          base[0]=base[0];          base[0]=base[0];
161          return Cnil;}          return Cnil;}
162          }          }
163  /*      local entry for function ALLOCATE-STRUCTURE-INSTANCE    */  /*      local entry for function ALLOCATE-STRUCTURE-INSTANCE    */
164    
165  static object LI4(object V29,object first,...)  static object LI4(object V25,object first,...)
166  {        {      
167          va_list ap;          va_list ap;
168          int narg = VFUN_NARGS; VMB4 VMS4 VMV4          int narg = VFUN_NARGS; VMB4 VMS4 VMV4
169          {object V30;          {object V26;
170          object V31;          object V27;
171          object V32;          object V28;
172          va_start(ap,first);          va_start(ap,first);
173          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
174          V30= V29;          V26= V25;
175          narg = narg - 1;          narg = narg - 1;
176          if (narg <= 0) goto T42;          if (narg <= 0) goto T42;
177          else {          else {
178          V31= first;}          V27= first;}
179          V32= Ct;          V28= Ct;
180          --narg; goto T43;          --narg; goto T43;
181          goto T42;          goto T42;
182  T42:;  T42:;
183          V31= Cnil;          V27= Cnil;
184          V32= Cnil;          V28= Cnil;
185          goto T43;          goto T43;
186  T43:;  T43:;
187          {object V33;          {object V29;
188          object V34;          object V30;
189          V33= ((V30))->v.v_self[11];          V29= ((V26))->v.v_self[11];
190          base[2]= (V33);          base[2]= (V29);
191          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
192          (void) (*Lnk174)(Lclptr174);          (void) (*Lnk183)(Lclptr183);
193          vs_top=sup;          vs_top=sup;
194          V34= vs_base[0];          V30= vs_base[0];
195          if(((V34))==Cnil){          if(((V30))==Cnil){
196          goto T49;}          goto T49;}
197          {object V35;          {object V31;
198          register object V36;          register object V32;
199          V35= (          V31= (
200          (type_of((V34)) == t_sfun ?(*(((V34))->sfn.sfn_self)):          (type_of((V30)) == t_sfun ?(*(((V30))->sfn.sfn_self)):
201          (fcall.argd=0,type_of((V34))==t_vfun) ?          (fcall.argd=0,type_of((V30))==t_vfun) ?
202          (*(((V34))->sfn.sfn_self)):          (*(((V30))->sfn.sfn_self)):
203          (fcall.fun=((V34)),fcalln))());          (fcall.fun=((V30)),fcalln))());
204          base[2]= (V33);          base[2]= (V29);
205          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
206          (void) (*Lnk175)(Lclptr175);          (void) (*Lnk184)(Lclptr184);
207          vs_top=sup;          vs_top=sup;
208          V36= vs_base[0];          V32= vs_base[0];
209          if(((V32))==Cnil){          if(((V28))==Cnil){
210          goto T54;}          goto T54;}
211          {long V37;          {long V33;
212          register long V38;          register long V34;
213          V37= (long)length((V31));          V33= (long)length((V27));
214          V38= 0;          V34= 0;
215          goto T60;          goto T60;
216  T60:;  T60:;
217          if(!((V38)>=(V37))){          if(!((V34)>=(V33))){
218          goto T61;}          goto T61;}
219          goto T54;          goto T54;
220          goto T61;          goto T61;
221  T61:;  T61:;
222          {register object V39;          {register object V35;
223          {register object V40;          {register object V36;
224          V40= CMPcar((V36));          V36= CMPcar((V32));
225          V36= CMPcdr((V36));          V32= CMPcdr((V32));
226          V39= (V40);}          V35= (V36);}
227          {register object V41;          {register object V37;
228          register object V42;          register object V38;
229          register object V43;          register object V39;
230          register object V44;          register object V40;
231          V41= (V33);          V37= (V29);
232          V42= (V35);          V38= (V31);
233          V43= (V39);          V39= (V35);
234          V44= ((V31))->v.v_self[V38];          V40= ((V27))->v.v_self[V34];
235          V45= ({object _tmp=get(VV[176],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[176])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[176])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V41= ({object _tmp=get(VV[185],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[185])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[185])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V46 = (V44);  
         V47 = (V41);  
         V48 = (V42);  
         V49 = (V43);  
236          (void)((          (void)((
237          V50 = V45,          V42 = V41,
238          (type_of(V50) == t_sfun ?(*((V50)->sfn.sfn_self)):          (type_of(V42) == t_sfun ?(*((V42)->sfn.sfn_self)):
239          (fcall.argd=4,type_of(V50)==t_vfun) ?          (fcall.argd=4,type_of(V42)==t_vfun) ?
240          (*((V50)->sfn.sfn_self)):          (*((V42)->sfn.sfn_self)):
241          (fcall.fun=(V50),fcalln))(V46,V47,V48,V49)));}}          (fcall.fun=(V42),fcalln))((V40),(V37),(V38),(V39))));}}
242          V38= (long)(V38)+1;          V34= (long)(V34)+1;
243          goto T60;}          goto T60;}
244          goto T54;          goto T54;
245  T54:;  T54:;
246          {object V51 = (V35);          {object V43 = (V31);
247          VMR4(V51)}}          VMR4(V43)}}
248          goto T49;          goto T49;
249  T49:;  T49:;
250          base[2]= VV[11];          base[2]= VV[11];
251          base[4]= (V33);          base[4]= (V29);
252          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
253          (void) (*Lnk177)(Lclptr177);          (void) (*Lnk186)(Lclptr186);
254          vs_top=sup;          vs_top=sup;
255          base[3]= vs_base[0];          base[3]= vs_base[0];
256          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
257          Lerror();          Lerror();
258          vs_top=sup;          vs_top=sup;
259          {object V52 = vs_base[0];          {object V44 = vs_base[0];
260          VMR4(V52)}}          VMR4(V44)}}
261          va_end(ap);          va_end(ap);
262          base[0]=base[0];          base[0]=base[0];
263          return Cnil;}          return Cnil;}
# Line 278  static void L5() Line 270  static void L5()
270          vs_check;          vs_check;
271          check_arg(2);          check_arg(2);
272          vs_top=sup;          vs_top=sup;
273          {object V53=base[0]->c.c_cdr;          {object V45=base[0]->c.c_cdr;
274          base[2]= V53;}          base[2]= V45;}
275          {object V55;          {object V47;
276          object V56= base[2];          object V48= base[2];
277          if(V56==Cnil){          if(V48==Cnil){
278          V54= Cnil;          V46= Cnil;
279          goto T80;}          goto T80;}
280          base[3]=V55=MMcons(Cnil,Cnil);          base[3]=V47=MMcons(Cnil,Cnil);
281          goto T81;          goto T81;
282  T81:;  T81:;
283          {register object V57;          {register object V49;
284          V57= (V56->c.c_car);          V49= (V48->c.c_car);
285          {object V58;          {object V50;
286          base[5]= Cnil;          base[5]= Cnil;
287          base[6]= VV[13];          base[6]= VV[13];
288          base[7]= (V57);          base[7]= (V49);
289          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
290          Lformat();          Lformat();
291          vs_top=sup;          vs_top=sup;
# Line 302  T81:; Line 294  T81:;
294          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
295          Lintern();          Lintern();
296          vs_top=sup;          vs_top=sup;
297          V58= vs_base[0];          V50= vs_base[0];
298          V59 = (V58);          if(!(((V49))==(VV[16]))){
         if(!(((V57))==(VV[16]))){  
299          goto T91;}          goto T91;}
300          V60= VV[17];          V51= VV[17];
301          goto T89;          goto T89;
302          goto T91;          goto T91;
303  T91:;  T91:;
304          V60= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V57))));          V51= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V49))));
305          goto T89;          goto T89;
306  T89:;  T89:;
307          V61 = (V57);          if(!(((V49))==(VV[16]))){
         if(!(((V57))==(VV[16]))){  
308          goto T95;}          goto T95;}
309          V62= VV[22];          V52= VV[22];
310          goto T93;          goto T93;
311          goto T95;          goto T95;
312  T95:;  T95:;
313          V62= VV[23];          V52= VV[23];
314          goto T93;          goto T93;
315  T93:;  T93:;
316          V63= list(2,VV[21],V62);          V53= list(2,VV[21],V52);
317          V64= list(2,VV[24],(V58));          V54= list(2,VV[24],(V50));
318          V65 = (V57);          (V47->c.c_car)= list(9,VV[15],(V50),V51,(V49),/* INLINE-ARGS */V53,/* INLINE-ARGS */V54,(V49),list(2,VV[25],list(2,VV[20],(V49))),(V49));}}
319          V66 = (V57);          if((V48=MMcdr(V48))==Cnil){
320          (V55->c.c_car)= list(9,VV[15],V59,V60,V61,/* INLINE-ARGS */V63,/* INLINE-ARGS */V64,V65,list(2,VV[25],list(2,VV[20],(V57))),V66);}}          V46= base[3];
         if((V56=MMcdr(V56))==Cnil){  
         V54= base[3];  
321          goto T80;}          goto T80;}
322          V55=MMcdr(V55)=MMcons(Cnil,Cnil);          V47=MMcdr(V47)=MMcons(Cnil,Cnil);
323          goto T81;}          goto T81;}
324          goto T80;          goto T80;
325  T80:;  T80:;
326          base[3]= make_cons(VV[12],V54);          base[3]= make_cons(VV[12],V46);
327          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
328          return;          return;
329  }  }
# Line 347  static object LI6() Line 335  static object LI6()
335          bds_check;          bds_check;
336          goto TTL;          goto TTL;
337  TTL:;  TTL:;
338          {object V68;          {object V56;
339          V68= (VFUN_NARGS=1,(*(LnkLI178))(VV[26]));          V56= (VFUN_NARGS=1,(*(LnkLI187))(VV[26]));
340          {object V70;          {object V58;
341          V70= VV[179];          V58= VV[188];
342          V71= ({object _tmp=get(VV[180],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[180])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[180])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V59= ({object _tmp=get(VV[189],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[189])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[189])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V72 = (V70);  
         V73 = V68;  
343          (void)((          (void)((
344          V74 = V71,          V60 = V59,
345          (type_of(V74) == t_sfun ?(*((V74)->sfn.sfn_self)):          (type_of(V60) == t_sfun ?(*((V60)->sfn.sfn_self)):
346          (fcall.argd=2,type_of(V74)==t_vfun) ?          (fcall.argd=2,type_of(V60)==t_vfun) ?
347          (*((V74)->sfn.sfn_self)):          (*((V60)->sfn.sfn_self)):
348          (fcall.fun=(V74),fcalln))(V72,V73)));}          (fcall.fun=(V60),fcalln))((V58),V56)));}
349          (void)((*(LnkLI181))(VV[26],(V68)));}          (void)((*(LnkLI190))(VV[26],(V56)));}
350          {object V75;          {object V61;
351            object V62;
352            object V63;
353            object V64;
354            object V65;
355            object V66;
356            object V67;
357            object V68;
358            object V69;
359            object V70;
360            object V71;
361            object V72;
362            object V73;
363            object V74;
364            object V75;
365          object V76;          object V76;
366          object V77;          object V77;
367          object V78;          object V78;
         object V79;  
         object V80;  
         object V81;  
         object V82;  
         object V83;  
         object V84;  
         object V85;  
         object V86;  
         object V87;  
         object V88;  
         object V89;  
         object V90;  
         object V91;  
         object V92;  
368          bds_bind(VV[27],Cnil);          bds_bind(VV[27],Cnil);
369            V61= Cnil;
370            V62= Cnil;
371            V63= Cnil;
372            V64= Cnil;
373            V65= Cnil;
374            V66= Cnil;
375            V67= Cnil;
376            V68= Cnil;
377            V69= Cnil;
378            V70= Cnil;
379            V71= Cnil;
380            V72= Cnil;
381            V73= Cnil;
382            V74= Cnil;
383          V75= Cnil;          V75= Cnil;
384          V76= Cnil;          V76= Cnil;
385          V77= Cnil;          V77= Cnil;
386          V78= Cnil;          V78= Cnil;
387          V79= Cnil;          V79 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28]));
388          V80= Cnil;          V61= (VFUN_NARGS=1,(*(LnkLI18))(V79));
389          V81= Cnil;          V62= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
390          V82= Cnil;          (void)(((V61))->v.v_self[11]= ((V62)));
391          V83= Cnil;          V82= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V84= Cnil;  
         V85= Cnil;  
         V86= Cnil;  
         V87= Cnil;  
         V88= Cnil;  
         V89= Cnil;  
         V90= Cnil;  
         V91= Cnil;  
         V92= Cnil;  
         V93 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28]));  
         V75= (VFUN_NARGS=1,(*(LnkLI18))(V93));  
         V76= (VFUN_NARGS=1,(*(LnkLI21))((V75)));  
         (void)(((V75))->v.v_self[11]= ((V76)));  
         V96= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});  
         V97 = V76;  
         V98 = VV[28];  
392          (void)((          (void)((
393          V99 = V96,          V83 = V82,
394          (type_of(V99) == t_sfun ?(*((V99)->sfn.sfn_self)):          (type_of(V83) == t_sfun ?(*((V83)->sfn.sfn_self)):
395          (fcall.argd=2,type_of(V99)==t_vfun) ?          (fcall.argd=2,type_of(V83)==t_vfun) ?
396          (*((V99)->sfn.sfn_self)):          (*((V83)->sfn.sfn_self)):
397          (fcall.fun=(V99),fcalln))(V97,V98)));          (fcall.fun=(V83),fcalln))(V62,VV[28])));
398          V100 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29]));          V84 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29]));
399          V77= (VFUN_NARGS=1,(*(LnkLI18))(V100));          V63= (VFUN_NARGS=1,(*(LnkLI18))(V84));
400          V78= (VFUN_NARGS=1,(*(LnkLI21))((V75)));          V64= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
401          (void)(((V77))->v.v_self[11]= ((V78)));          (void)(((V63))->v.v_self[11]= ((V64)));
402          V103= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V87= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V104 = V78;  
         V105 = VV[29];  
403          (void)((          (void)((
404          V106 = V103,          V88 = V87,
405          (type_of(V106) == t_sfun ?(*((V106)->sfn.sfn_self)):          (type_of(V88) == t_sfun ?(*((V88)->sfn.sfn_self)):
406          (fcall.argd=2,type_of(V106)==t_vfun) ?          (fcall.argd=2,type_of(V88)==t_vfun) ?
407          (*((V106)->sfn.sfn_self)):          (*((V88)->sfn.sfn_self)):
408          (fcall.fun=(V106),fcalln))(V104,V105)));          (fcall.fun=(V88),fcalln))(V64,VV[29])));
409          V107 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30]));          V89 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30]));
410          V79= (VFUN_NARGS=1,(*(LnkLI18))(V107));          V65= (VFUN_NARGS=1,(*(LnkLI18))(V89));
411          V80= (VFUN_NARGS=1,(*(LnkLI21))((V75)));          V66= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
412          (void)(((V79))->v.v_self[11]= ((V80)));          (void)(((V65))->v.v_self[11]= ((V66)));
413          V110= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V92= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V111 = V80;  
         V112 = VV[30];  
414          (void)((          (void)((
415          V113 = V110,          V93 = V92,
416          (type_of(V113) == t_sfun ?(*((V113)->sfn.sfn_self)):          (type_of(V93) == t_sfun ?(*((V93)->sfn.sfn_self)):
417          (fcall.argd=2,type_of(V113)==t_vfun) ?          (fcall.argd=2,type_of(V93)==t_vfun) ?
418          (*((V113)->sfn.sfn_self)):          (*((V93)->sfn.sfn_self)):
419          (fcall.fun=(V113),fcalln))(V111,V112)));          (fcall.fun=(V93),fcalln))(V66,VV[30])));
420          V114 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31]));          V94 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31]));
421          V81= (VFUN_NARGS=1,(*(LnkLI18))(V114));          V67= (VFUN_NARGS=1,(*(LnkLI18))(V94));
422          V82= (VFUN_NARGS=1,(*(LnkLI21))((V75)));          V68= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
423          (void)(((V81))->v.v_self[11]= ((V82)));          (void)(((V67))->v.v_self[11]= ((V68)));
424          V117= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V97= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V118 = V82;  
         V119 = VV[31];  
425          (void)((          (void)((
426          V120 = V117,          V98 = V97,
427          (type_of(V120) == t_sfun ?(*((V120)->sfn.sfn_self)):          (type_of(V98) == t_sfun ?(*((V98)->sfn.sfn_self)):
428          (fcall.argd=2,type_of(V120)==t_vfun) ?          (fcall.argd=2,type_of(V98)==t_vfun) ?
429          (*((V120)->sfn.sfn_self)):          (*((V98)->sfn.sfn_self)):
430          (fcall.fun=(V120),fcalln))(V118,V119)));          (fcall.fun=(V98),fcalln))(V68,VV[31])));
431          V121 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32]));          V99 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32]));
432          V83= (VFUN_NARGS=1,(*(LnkLI18))(V121));          V69= (VFUN_NARGS=1,(*(LnkLI18))(V99));
433          V84= (VFUN_NARGS=1,(*(LnkLI21))((V75)));          V70= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
434          (void)(((V83))->v.v_self[11]= ((V84)));          (void)(((V69))->v.v_self[11]= ((V70)));
435          V124= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V102= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V125 = V84;  
         V126 = VV[32];  
436          (void)((          (void)((
437          V127 = V124,          V103 = V102,
438          (type_of(V127) == t_sfun ?(*((V127)->sfn.sfn_self)):          (type_of(V103) == t_sfun ?(*((V103)->sfn.sfn_self)):
439          (fcall.argd=2,type_of(V127)==t_vfun) ?          (fcall.argd=2,type_of(V103)==t_vfun) ?
440          (*((V127)->sfn.sfn_self)):          (*((V103)->sfn.sfn_self)):
441          (fcall.fun=(V127),fcalln))(V125,V126)));          (fcall.fun=(V103),fcalln))(V70,VV[32])));
442          V128 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33]));          V104 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33]));
443          V85= (VFUN_NARGS=1,(*(LnkLI18))(V128));          V71= (VFUN_NARGS=1,(*(LnkLI18))(V104));
444          V86= (VFUN_NARGS=1,(*(LnkLI21))((V75)));          V72= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
445          (void)(((V85))->v.v_self[11]= ((V86)));          (void)(((V71))->v.v_self[11]= ((V72)));
446          V131= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V107= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V132 = V86;  
         V133 = VV[33];  
447          (void)((          (void)((
448          V134 = V131,          V108 = V107,
449          (type_of(V134) == t_sfun ?(*((V134)->sfn.sfn_self)):          (type_of(V108) == t_sfun ?(*((V108)->sfn.sfn_self)):
450          (fcall.argd=2,type_of(V134)==t_vfun) ?          (fcall.argd=2,type_of(V108)==t_vfun) ?
451          (*((V134)->sfn.sfn_self)):          (*((V108)->sfn.sfn_self)):
452          (fcall.fun=(V134),fcalln))(V132,V133)));          (fcall.fun=(V108),fcalln))(V72,VV[33])));
453          V135 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34]));          V109 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34]));
454          V87= (VFUN_NARGS=1,(*(LnkLI18))(V135));          V73= (VFUN_NARGS=1,(*(LnkLI18))(V109));
455          V88= (VFUN_NARGS=1,(*(LnkLI21))((V75)));          V74= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
456          (void)(((V87))->v.v_self[11]= ((V88)));          (void)(((V73))->v.v_self[11]= ((V74)));
457          V138= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V112= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V139 = V88;  
         V140 = VV[34];  
458          (void)((          (void)((
459          V141 = V138,          V113 = V112,
460          (type_of(V141) == t_sfun ?(*((V141)->sfn.sfn_self)):          (type_of(V113) == t_sfun ?(*((V113)->sfn.sfn_self)):
461          (fcall.argd=2,type_of(V141)==t_vfun) ?          (fcall.argd=2,type_of(V113)==t_vfun) ?
462          (*((V141)->sfn.sfn_self)):          (*((V113)->sfn.sfn_self)):
463          (fcall.fun=(V141),fcalln))(V139,V140)));          (fcall.fun=(V113),fcalln))(V74,VV[34])));
464          V142 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35]));          V114 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35]));
465          V89= (VFUN_NARGS=1,(*(LnkLI18))(V142));          V75= (VFUN_NARGS=1,(*(LnkLI18))(V114));
466          V90= (VFUN_NARGS=1,(*(LnkLI21))((V75)));          V76= (VFUN_NARGS=1,(*(LnkLI21))((V61)));
467          (void)(((V89))->v.v_self[11]= ((V90)));          (void)(((V75))->v.v_self[11]= ((V76)));
468          V145= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V117= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V146 = V90;  
         V147 = VV[35];  
469          (void)((          (void)((
470          V148 = V145,          V118 = V117,
471          (type_of(V148) == t_sfun ?(*((V148)->sfn.sfn_self)):          (type_of(V118) == t_sfun ?(*((V118)->sfn.sfn_self)):
472          (fcall.argd=2,type_of(V148)==t_vfun) ?          (fcall.argd=2,type_of(V118)==t_vfun) ?
473          (*((V148)->sfn.sfn_self)):          (*((V118)->sfn.sfn_self)):
474          (fcall.fun=(V148),fcalln))(V146,V147)));          (fcall.fun=(V118),fcalln))(V76,VV[35])));
475          V91= (VV[17]->s.s_dbind);          V77= (VV[17]->s.s_dbind);
476          V92= (VFUN_NARGS=1,(*(LnkLI21))((V77)));          V78= (VFUN_NARGS=1,(*(LnkLI21))((V63)));
477          (void)(((V91))->v.v_self[11]= ((V92)));          (void)(((V77))->v.v_self[11]= ((V78)));
478          V151= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V121= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V152 = V92;  
         V153 = VV[16];  
479          (void)((          (void)((
480          V154 = V151,          V122 = V121,
481          (type_of(V154) == t_sfun ?(*((V154)->sfn.sfn_self)):          (type_of(V122) == t_sfun ?(*((V122)->sfn.sfn_self)):
482          (fcall.argd=2,type_of(V154)==t_vfun) ?          (fcall.argd=2,type_of(V122)==t_vfun) ?
483          (*((V154)->sfn.sfn_self)):          (*((V122)->sfn.sfn_self)):
484          (fcall.fun=(V154),fcalln))(V152,V153)));          (fcall.fun=(V122),fcalln))(V78,VV[16])));
485          {object V155;          {object V123;
486          object V156;          object V124;
487          V155= (VV[36]->s.s_dbind);          V123= (VV[36]->s.s_dbind);
488          V156= CMPcar((V155));          V124= CMPcar((V123));
489          goto T187;          goto T187;
490  T187:;  T187:;
491          if(!(((V155))==Cnil)){          if(!(((V123))==Cnil)){
492          goto T188;}          goto T188;}
493          goto T183;          goto T183;
494          goto T188;          goto T188;
495  T188:;  T188:;
496          {object V157;          {object V125;
497          object V158;          object V126;
498          object V159;          object V127;
499          object V160;          object V128;
500          V157= (*(LnkLI182))((V156));          V125= (*(LnkLI191))((V124));
501          V158= (*(LnkLI183))((V156));          V126= (*(LnkLI192))((V124));
502          {object V161= (V158);          {object V130= V126;
503          if((V161!= VV[30]))goto T196;          if((V130!= VV[30]))goto T196;
504          V159= (V79);          V127= (V65);
505          goto T195;          goto T195;
506          goto T196;          goto T196;
507  T196:;  T196:;
508          if((V161!= VV[28]))goto T197;          if((V130!= VV[28]))goto T197;
509          V159= (V75);          V127= (V61);
510          goto T195;          goto T195;
511          goto T197;          goto T197;
512  T197:;  T197:;
513          if((V161!= VV[29]))goto T198;          if((V130!= VV[29]))goto T198;
514          V159= (V77);          V127= (V63);
515          goto T195;          goto T195;
516          goto T198;          goto T198;
517  T198:;  T198:;
518          if((V161!= VV[31]))goto T199;          if((V130!= VV[31]))goto T199;
519          V159= (V81);          V127= (V67);
520          goto T195;          goto T195;
521          goto T199;          goto T199;
522  T199:;  T199:;
523          if((V161!= VV[32]))goto T200;          if((V130!= VV[32]))goto T200;
524          V159= (V83);          V127= (V69);
525          goto T195;          goto T195;
526          goto T200;          goto T200;
527  T200:;  T200:;
528          FEerror("The ECASE key value ~s is illegal.",1,V161);          base[6]= VV[37];
529          V159= Cnil;          base[7]= VV[38];
530          goto T195;}          base[8]= VV[39];
531            base[9]= VV[40];
532            base[10]= V126;
533            base[11]= VV[41];
534            base[12]= VV[42];
535            base[13]= VV[43];
536            base[14]= VV[44];
537            vs_top=(vs_base=base+6)+9;
538            (void) (*Lnk193)();
539            vs_top=sup;
540            V127= vs_base[0];}
541          goto T195;          goto T195;
542  T195:;{object V162;  T195:;{object V131;
543          V162= (VFUN_NARGS=2,(*(LnkLI25))((V157),Cnil));          V131= (VFUN_NARGS=2,(*(LnkLI25))((V125),Cnil));
544          if(V162==Cnil)goto T202;          if(V131==Cnil)goto T211;
545          V160= V162;          V128= V131;
546          goto T201;          goto T210;
547          goto T202;          goto T211;
548  T202:;}  T211:;}
549          V160= (VFUN_NARGS=1,(*(LnkLI21))((V159)));          V128= (VFUN_NARGS=1,(*(LnkLI21))((V127)));
550          goto T201;          goto T210;
551  T201:;  T210:;
552          if(((V158))==(VV[28])){          if(((V126))==(VV[28])){
553          goto T205;}          goto T214;}
554          if(!(((V158))==(VV[29]))){          if(!(((V126))==(VV[29]))){
555          goto T204;}          goto T213;}
556          goto T205;          goto T214;
557  T205:;  T214:;
558          (void)((*(LnkLI184))((V157)));          (void)((*(LnkLI194))((V125)));
559          goto T204;          goto T213;
560  T204:;  T213:;
561          V165= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V134= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V166 = V160;  
         V167 = V157;  
562          (void)((          (void)((
563          V168 = V165,          V135 = V134,
564          (type_of(V168) == t_sfun ?(*((V168)->sfn.sfn_self)):          (type_of(V135) == t_sfun ?(*((V135)->sfn.sfn_self)):
565          (fcall.argd=2,type_of(V168)==t_vfun) ?          (fcall.argd=2,type_of(V135)==t_vfun) ?
566          (*((V168)->sfn.sfn_self)):          (*((V135)->sfn.sfn_self)):
567          (fcall.fun=(V168),fcalln))(V166,V167)));}          (fcall.fun=(V135),fcalln))(V128,V125)));}
568          V155= CMPcdr((V155));          V123= CMPcdr((V123));
569          V156= CMPcar((V155));          V124= CMPcar((V123));
570          goto T187;}          goto T187;}
571          goto T183;          goto T183;
572  T183:;  T183:;
573          {object V169;          {object V136;
574          register object V170;          register object V137;
575          V169= (VV[36]->s.s_dbind);          V136= (VV[36]->s.s_dbind);
576          V170= CMPcar((V169));          V137= CMPcar((V136));
577          goto T219;          goto T228;
578  T219:;  T228:;
579          if(!(((V169))==Cnil)){          if(!(((V136))==Cnil)){
580          goto T220;}          goto T229;}
581          goto T215;          goto T224;
582          goto T220;          goto T229;
583  T220:;  T229:;
584          {register object V171;          {register object V138;
585          register object V172;          register object V139;
586          object V173;          object V140;
587          object V174;          object V141;
588          object V175;          object V142;
589          object V176;          object V143;
590          V171= (*(LnkLI182))((V170));          V138= (*(LnkLI191))((V137));
591          V172= (*(LnkLI183))((V170));          V139= (*(LnkLI192))((V137));
592          V173= (*(LnkLI185))((V170));          V140= (*(LnkLI195))((V137));
593          V174= (*(LnkLI186))((V170));          V141= (*(LnkLI196))((V137));
594          V175= (*(LnkLI187))((V170));          V142= (*(LnkLI197))((V137));
595          V176= (*(LnkLI188))((V170));          V143= (*(LnkLI198))((V137));
596          {object V177;          {object V144;
597          base[2]= (V176);          base[2]= (V143);
598          base[3]= VV[37];          base[3]= VV[45];
599          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
600          Lgetf();          Lgetf();
601          vs_top=sup;          vs_top=sup;
602          V177= vs_base[0];          V144= vs_base[0];
603          {register object V178;          {register object V145;
604          object V179;          object V146;
605          object V180;          object V147;
606          object V181;          object V148;
607          base[2]= (V171);          base[2]= (V138);
608          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
609          (void) (*Lnk189)();          (void) (*Lnk199)();
610          if(vs_base>=vs_top){vs_top=sup;goto T236;}          if(vs_base>=vs_top){vs_top=sup;goto T245;}
611          V178= vs_base[0];          V145= vs_base[0];
612          vs_base++;          vs_base++;
613          if(vs_base>=vs_top){vs_top=sup;goto T237;}          if(vs_base>=vs_top){vs_top=sup;goto T246;}
614          V179= vs_base[0];          V146= vs_base[0];
615          vs_base++;          vs_base++;
616          if(vs_base>=vs_top){vs_top=sup;goto T238;}          if(vs_base>=vs_top){vs_top=sup;goto T247;}
617          V180= vs_base[0];          V147= vs_base[0];
618          vs_base++;          vs_base++;
619          if(vs_base>=vs_top){vs_top=sup;goto T239;}          if(vs_base>=vs_top){vs_top=sup;goto T248;}
620          V181= vs_base[0];          V148= vs_base[0];
621          vs_top=sup;          vs_top=sup;
622          goto T240;          goto T249;
623          goto T236;          goto T245;
624  T236:;  T245:;
625          V178= Cnil;          V145= Cnil;
626          goto T237;          goto T246;
627  T237:;  T246:;
628          V179= Cnil;          V146= Cnil;
         goto T238;  
 T238:;  
         V180= Cnil;  
         goto T239;  
 T239:;  
         V181= Cnil;  
         goto T240;  
 T240:;  
         {register object V182;  
         register object V183;  
         object V184;  
         V182= (VFUN_NARGS=1,(*(LnkLI25))((V171)));  
         if(!(((V182))==((V80)))){  
         goto T244;}  
         V183= (V79);  
         goto T242;  
         goto T244;  
 T244:;  
         if(!(((V182))==((V76)))){  
         goto T247;}  
         V183= (V75);  
         goto T242;  
629          goto T247;          goto T247;
630  T247:;  T247:;
631          if(!(((V182))==((V78)))){          V147= Cnil;
632          goto T250;}          goto T248;
633          V183= (V77);  T248:;
634          goto T242;          V148= Cnil;
635          goto T250;          goto T249;
636  T250:;  T249:;
637          if(!(((V182))==((V86)))){          {register object V149;
638            register object V150;
639            object V151;
640            V149= (VFUN_NARGS=1,(*(LnkLI25))((V138)));
641            if(!(((V149))==((V66)))){
642          goto T253;}          goto T253;}
643          V183= (V85);          V150= (V65);
644          goto T242;          goto T251;
645          goto T253;          goto T253;
646  T253:;  T253:;
647          if(!(((V182))==((V88)))){          if(!(((V149))==((V62)))){
648          goto T256;}          goto T256;}
649          V183= (V87);          V150= (V61);
650          goto T242;          goto T251;
651          goto T256;          goto T256;
652  T256:;  T256:;
653          if(!(((V182))==((V82)))){          if(!(((V149))==((V64)))){
654          goto T259;}          goto T259;}
655          V183= (V81);          V150= (V63);
656          goto T242;          goto T251;
657          goto T259;          goto T259;
658  T259:;  T259:;
659          if(!(((V182))==((V84)))){          if(!(((V149))==((V72)))){
660          goto T262;}          goto T262;}
661          V183= (V83);          V150= (V71);
662          goto T242;          goto T251;
663          goto T262;          goto T262;
664  T262:;  T262:;
665          if(!(((V182))==((V90)))){          if(!(((V149))==((V74)))){
666          goto T265;}          goto T265;}
667          V183= (V89);          V150= (V73);
668          goto T242;          goto T251;
669          goto T265;          goto T265;
670  T265:;  T265:;
671          if(!(((V182))==((V92)))){          if(!(((V149))==((V68)))){
672          goto T268;}          goto T268;}
673          V183= (V91);          V150= (V67);
674          goto T242;          goto T251;
675          goto T268;          goto T268;
676  T268:;  T268:;
677          V185 = CMPmake_fixnum((long)length((V178)));          if(!(((V149))==((V70)))){
         V183= (VFUN_NARGS=2,(*(LnkLI18))(V185,(V182)));  
         goto T242;  
 T242:;  
         V184= Cnil;  
         if(!(((V171))==(Ct))){  
678          goto T271;}          goto T271;}
679          (VV[38]->s.s_dbind)= (V183);          V150= (V69);
680            goto T251;
681          goto T271;          goto T271;
682  T271:;  T271:;
683            if(!(((V149))==((V76)))){
684            goto T274;}
685            V150= (V75);
686            goto T251;
687            goto T274;
688    T274:;
689            if(!(((V149))==((V78)))){
690            goto T277;}
691            V150= (V77);
692            goto T251;
693            goto T277;
694    T277:;
695            V152 = CMPmake_fixnum((long)length((V145)));
696            V150= (VFUN_NARGS=2,(*(LnkLI18))(V152,(V149)));
697            goto T251;
698    T251:;
699            V151= Cnil;
700            if(!(((V138))==(Ct))){
701            goto T280;}
702            (VV[46]->s.s_dbind)= (V150);
703            goto T280;
704    T280:;
705          base[6]= Cnil;          base[6]= Cnil;
706          base[7]= VV[39];          base[7]= VV[47];
707          base[8]= symbol_name((V171));          base[8]= symbol_name((V138));
708          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
709          Lformat();          Lformat();
710          vs_top=sup;          vs_top=sup;
# Line 738  T271:; Line 714  T271:;
714          Lintern();          Lintern();
715          vs_top=sup;          vs_top=sup;
716          base[4]= vs_base[0];          base[4]= vs_base[0];
717          base[5]= (V182);          base[5]= (V149);
718          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
719          Lset();          Lset();
720          vs_top=sup;          vs_top=sup;
721          {register object V186;          {register object V153;
722          object V187;          object V154;
723          V186= (V178);          V153= (V145);
724          V187= CMPcar((V186));          V154= CMPcar((V153));
725          goto T287;          goto T296;
726  T287:;  T296:;
727          if(!(((V186))==Cnil)){          if(!(((V153))==Cnil)){
728          goto T288;}          goto T297;}
729          goto T283;          goto T292;
730          goto T288;          goto T297;
731  T288:;  T297:;
732          base[5]= (V187);          base[5]= (V154);
733          base[6]= VV[40];          base[6]= VV[48];
734          base[7]= VV[41];          base[7]= VV[49];
735          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
736          Lgetf();          Lgetf();
737          vs_top=sup;          vs_top=sup;
738          V188= vs_base[0];          V155= vs_base[0];
739          if((V188)==(VV[41])){          if((V155)==(VV[49])){
740          goto T292;}          goto T301;}
741          base[5]= VV[42];          base[5]= VV[50];
742          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
743          Lerror();          Lerror();
744          vs_top=sup;          vs_top=sup;
745            goto T301;
746    T301:;
747            V153= CMPcdr((V153));
748            V154= CMPcar((V153));
749            goto T296;}
750          goto T292;          goto T292;
751  T292:;  T292:;
752          V186= CMPcdr((V186));          base[5]=VV[200]->s.s_gfdef;
753          V187= CMPcar((V186));          {object V157;
754          goto T287;}          object V158= (V145);
755          goto T283;          if(V158==Cnil){
756  T283:;          V156= Cnil;
757          V189 = (V183);          goto T316;}
758          base[5]=VV[190]->s.s_gfdef;          base[4]=V157=MMcons(Cnil,Cnil);
759          {object V191;          goto T317;
760          object V192= (V178);  T317:;
761          if(V192==Cnil){          base[6]= (V158->c.c_car);
         V190= Cnil;  
         goto T307;}  
         base[4]=V191=MMcons(Cnil,Cnil);  
         goto T308;  
 T308:;  
         base[6]= (V192->c.c_car);  
762          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
763          (void) (*Lnk190)();          (void) (*Lnk200)();
764          vs_top=sup;          vs_top=sup;
765          (V191->c.c_car)= vs_base[0];          (V157->c.c_car)= vs_base[0];
766          if((V192=MMcdr(V192))==Cnil){          if((V158=MMcdr(V158))==Cnil){
767          V190= base[4];          V156= base[4];
768          goto T307;}          goto T316;}
769          V191=MMcdr(V191)=MMcons(Cnil,Cnil);          V157=MMcdr(V157)=MMcons(Cnil,Cnil);
770          goto T308;}          goto T317;}
771          goto T307;          goto T316;
772  T307:;  T316:;
773          (void)((V189)->v.v_self[9]= (V190));          (void)(((V150))->v.v_self[9]= (V156));
774          (void)(((V183))->v.v_self[10]= (Cnil));          (void)(((V150))->v.v_self[10]= (Cnil));
775          if(!(((V172))==(VV[29]))){          if(!(((V139))==(VV[29]))){
776          goto T314;}          goto T323;}
777          V184= (VFUN_NARGS=1,(*(LnkLI191))((V183)));          V151= (VFUN_NARGS=1,(*(LnkLI201))((V150)));
         goto T312;  
         goto T314;  
 T314:;  
         V184= (VFUN_NARGS=1,(*(LnkLI21))((V183)));  
         goto T312;  
 T312:;  
         V175= (*(LnkLI192))((V171),(V182),(V175),(V85),Cnil);  
         V178= (*(LnkLI192))((V171),(V182),(V178),(V87),Ct);  
         {object V193= (V172);  
         if((V193!= VV[28])  
         && (V193!= VV[29]))goto T320;  
         (void)((VFUN_NARGS=14,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183),(V184),(V175),(V178),(V177),(V180))));  
         goto T224;  
         goto T320;  
 T320:;  
         if((V193!= VV[31]))goto T321;  
         (void)((VFUN_NARGS=10,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183),(V184))));  
         goto T224;  
778          goto T321;          goto T321;
 T321:;  
         if((V193!= VV[30]))goto T322;  
         (void)((VFUN_NARGS=10,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183),(V184))));  
         goto T224;  
         goto T322;  
 T322:;  
         if((V193!= VV[32]))goto T323;  
         (void)((VFUN_NARGS=9,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183))));  
         goto T224;  
779          goto T323;          goto T323;
780  T323:;}}}}}  T323:;
781            V151= (VFUN_NARGS=1,(*(LnkLI21))((V150)));
782            goto T321;
783    T321:;
784            V142= (*(LnkLI202))((V138),(V149),(V142),(V71),Cnil);
785            V145= (*(LnkLI202))((V138),(V149),(V145),(V73),Ct);
786            {object V159= (V139);
787            if((V159!= VV[28])
788            && (V159!= VV[29]))goto T329;
789            (void)((VFUN_NARGS=14,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150),(V151),(V142),(V145),(V144),(V147))));
790            goto T233;
791            goto T329;
792    T329:;
793            if((V159!= VV[31]))goto T330;
794            (void)((VFUN_NARGS=10,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150),(V151))));
795            goto T233;
796            goto T330;
797    T330:;
798            if((V159!= VV[30]))goto T331;
799            (void)((VFUN_NARGS=10,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150),(V151))));
800            goto T233;
801            goto T331;
802    T331:;
803            if((V159!= VV[32]))goto T332;
804            (void)((VFUN_NARGS=9,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150))));
805            goto T233;
806            goto T332;
807    T332:;}}}}}
808            goto T233;
809    T233:;
810            V136= CMPcdr((V136));
811            V137= CMPcar((V136));
812            goto T228;}
813          goto T224;          goto T224;
814  T224:;  T224:;
815          V169= CMPcdr((V169));          {object V160;
816          V170= CMPcar((V169));          object V161;
817          goto T219;}          V160= (VFUN_NARGS=1,(*(LnkLI25))(VV[51]));
818          goto T215;          if(type_of(V160)==t_structure){
819  T215:;          goto T344;}
820          {object V194;          goto T342;
821          object V195;          goto T344;
822          V194= (VFUN_NARGS=1,(*(LnkLI25))(VV[43]));  T344:;
823          if(type_of(V194)==t_structure){          if(!(((V160)->str.str_def)==(VV[52]))){
824          goto T335;}          goto T342;}
825          goto T333;          V162= STREF(object,(V160),4);
826          goto T335;          goto T340;
827  T335:;          goto T342;
828          if(!(((V194)->str.str_def)==(VV[44]))){  T342:;{object V164;
829          goto T333;}          V164= (VV[53]->s.s_dbind);
         V196= STREF(object,(V194),4);  
         goto T331;  
         goto T333;  
 T333:;{object V198;  
         V198= (VV[45]->s.s_dbind);  
830          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
831          base[5]= (V194);          base[5]= (V160);
832          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
833          (void) (*Lnk194)();          (void) (*Lnk204)();
834          vs_top=sup;          vs_top=sup;
835          V199= vs_base[0];          V165= vs_base[0];
836          if(!((V198)==(CMPcar(V199)))){          if(!((V164)==(CMPcar(V165)))){
837          goto T338;}}          goto T347;}}
838          V196= CMPcar(((V194))->cc.cc_turbo[12]);          V162= CMPcar(((V160))->cc.cc_turbo[12]);
839          goto T331;          goto T340;
840          goto T338;          goto T347;
841  T338:;  T347:;
842          base[4]= VV[46];          base[4]= VV[54];
843          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
844          Lerror();          Lerror();
845          vs_top=sup;          vs_top=sup;
846          V196= vs_base[0];          V162= vs_base[0];
847          goto T331;          goto T340;
848  T331:;  T340:;
849          V200= (*(LnkLI195))(VV[28],VV[47]);          V166= (*(LnkLI205))(VV[28],VV[55]);
850          V195= (V196)->v.v_self[fix(/* INLINE-ARGS */V200)];          V161= (V162)->v.v_self[fix(/* INLINE-ARGS */V166)];
851          base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V195)));          base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V161)));
852          base[4]= VV[48];          base[4]= VV[56];
853          vs_base=vs_top;          vs_base=vs_top;
854          (void) (*Lnk196)();          (void) (*Lnk206)();
855          vs_top=sup;          vs_top=sup;
856          base[5]= vs_base[0];          base[5]= vs_base[0];
857          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
858          L7(base);          L7(base);
859          vs_top=sup;          vs_top=sup;
860          base[4]= VV[49];          base[4]= VV[57];
861          base[5]= VV[50];          base[5]= VV[58];
862          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
863          L7(base);          L7(base);
864          vs_top=sup;          vs_top=sup;
865          base[4]= VV[51];          base[4]= VV[59];
866          base[5]= VV[52];          base[5]= VV[60];
867          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
868          L7(base);          L7(base);
869          vs_top=sup;          vs_top=sup;
870          base[4]= VV[53];          base[4]= VV[61];
871          base[5]= Cnil;          base[5]= Cnil;
872          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
873          L7(base);          L7(base);
874          vs_top=sup;          vs_top=sup;
875          (VV[54]->s.s_dbind)= base[3];          (VV[62]->s.s_dbind)= base[3];
876          {object V201 = (VV[54]->s.s_dbind);          {object V167 = (VV[62]->s.s_dbind);
877          bds_unwind1;          bds_unwind1;
878          VMR6(V201)}}}          VMR6(V167)}}}
879          base[0]=base[0];          base[0]=base[0];
880          return Cnil;          return Cnil;
881  }  }
882  /*      local entry for function BOOTSTRAP-INITIALIZE-CLASS     */  /*      local entry for function BOOTSTRAP-INITIALIZE-CLASS     */
883    
884  static object LI8(object V210,object V209,object V208,object V207,object V206,object V205,object V204,object V203,object V202,object first,...)  static object LI8(object V176,object V175,object V174,object V173,object V172,object V171,object V170,object V169,object V168,object first,...)
885  {        {      
886          va_list ap;          va_list ap;
887          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
888          {register object V211;          {register object V177;
889          object V212;          object V178;
890          object V213;          object V179;
891          object V214;          object V180;
892          object V215;          object V181;
893          object V216;          register object V182;
894          object V217;          register object V183;
895          object V218;          object V184;
896          object V219;          object V185;
897          object V220;          object V186;
898          object V221;          register object V187;
899          object V222;          register object V188;
900          va_start(ap,first);          va_start(ap,first);
901          if(narg <9) too_few_arguments();          if(narg <9) too_few_arguments();
902          base[0]= V210;          base[0]= V176;
903          base[1]= V209;          base[1]= V175;
904          V211= V208;          V177= V174;
905          V212= V207;          V178= V173;
906          V213= V206;          V179= V172;
907          V214= V205;          V180= V171;
908          V215= V204;          V181= V170;
909          V216= V203;          V182= V169;
910          V217= V202;          V183= V168;
911          narg = narg - 9;          narg = narg - 9;
912          if (narg <= 0) goto T358;          if (narg <= 0) goto T367;
913          else {          else {
914          V218= first;}          V184= first;}
915          if (--narg <= 0) goto T359;          if (--narg <= 0) goto T368;
916          else {          else {
917          V219= va_arg(ap,object);}          V185= va_arg(ap,object);}
918          if (--narg <= 0) goto T360;          if (--narg <= 0) goto T369;
919          else {          else {
920          V220= va_arg(ap,object);}          V186= va_arg(ap,object);}
921          if (--narg <= 0) goto T361;          if (--narg <= 0) goto T370;
922          else {          else {
923          V221= va_arg(ap,object);}          V187= va_arg(ap,object);}
924          if (--narg <= 0) goto T362;          if (--narg <= 0) goto T371;
925          else {          else {
926          V222= va_arg(ap,object);}          V188= va_arg(ap,object);}
927          --narg; goto T363;          --narg; goto T372;
928          goto T358;          goto T367;
929  T358:;  T367:;
930          V218= Cnil;          V184= Cnil;
931          goto T359;          goto T368;
932  T359:;  T368:;
933          V219= Cnil;          V185= Cnil;
934          goto T360;          goto T369;
935  T360:;  T369:;
936          V220= Cnil;          V186= Cnil;
937          goto T361;          goto T370;
938  T361:;  T370:;
939          V221= Cnil;          V187= Cnil;
940          goto T362;          goto T371;
941  T362:;  T371:;
942          V222= Cnil;          V188= Cnil;
943          goto T363;          goto T372;
944  T363:;  T372:;
945          base[14]= VV[55];          base[14]= VV[63];
946          base[15]= (V211);          base[15]= (V177);
947          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
948          L10(base);          L10(base);
949          vs_top=sup;          vs_top=sup;
950          base[14]= VV[48];          base[14]= VV[56];
951          base[15]= (V213);          base[15]= (V179);
952          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
953          L10(base);          L10(base);
954          vs_top=sup;          vs_top=sup;
955          base[14]= VV[49];          base[14]= VV[57];
956          V223 = base[1];          V189= (VFUN_NARGS=1,(*(LnkLI25))(Ct));
957          V224= (VFUN_NARGS=1,(*(LnkLI25))(Ct));          if(!((base[1])==(/* INLINE-ARGS */V189))){
958          if(!((V223)==(/* INLINE-ARGS */V224))){          goto T388;}
         goto T379;}  
959          base[15]= Ct;          base[15]= Ct;
960          goto T377;          goto T386;
961          goto T379;          goto T388;
962  T379:;  T388:;
963          base[15]= list(2,VV[26],base[1]);          base[15]= list(2,VV[26],base[1]);
964          goto T377;          goto T386;
965  T377:;  T386:;
966          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
967          L10(base);          L10(base);
968          vs_top=sup;          vs_top=sup;
969          base[14]= VV[35];          base[14]= VV[35];
970          {object V225;          {object V190;
971          V225= (VFUN_NARGS=1,(*(LnkLI21))((V212)));          V190= (VFUN_NARGS=1,(*(LnkLI21))((V178)));
972          V226= list(2,VV[56],base[1]);          V191= list(2,VV[64],base[1]);
973          (void)((*(LnkLI197))(VV[35],(V225),VV[49],/* INLINE-ARGS */V226));          (void)((*(LnkLI207))(VV[35],(V190),VV[57],/* INLINE-ARGS */V191));
974          (void)((*(LnkLI197))(VV[35],(V225),VV[57],base[1]));          (void)((*(LnkLI207))(VV[35],(V190),VV[65],base[1]));
975          base[15]= (V225);}          base[15]= (V190);}
976          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
977          L10(base);          L10(base);
978          vs_top=sup;          vs_top=sup;
979          base[14]= VV[58];          base[14]= VV[66];
980          base[16]= (V216);          base[16]= (V182);
981          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
982          L9(base);          L9(base);
983          vs_top=sup;          vs_top=sup;
# Line 1011  T377:; Line 985  T377:;
985          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
986          L10(base);          L10(base);
987          vs_top=sup;          vs_top=sup;
988          base[14]= VV[59];          base[14]= VV[67];
989          base[16]= CMPcdr((V216));          base[16]= CMPcdr((V182));
990          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
991          L9(base);          L9(base);
992          vs_top=sup;          vs_top=sup;
# Line 1020  T377:; Line 994  T377:;
994          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
995          L10(base);          L10(base);
996          vs_top=sup;          vs_top=sup;
997          base[14]= VV[60];          base[14]= VV[68];
998          base[15]= Cnil;          base[15]= Cnil;
999          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1000          L10(base);          L10(base);
1001          vs_top=sup;          vs_top=sup;
1002          base[14]= VV[61];          base[14]= VV[69];
1003          base[16]= (V214);          base[16]= (V180);
1004          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
1005          L9(base);          L9(base);
1006          vs_top=sup;          vs_top=sup;
# Line 1034  T377:; Line 1008  T377:;
1008          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1009          L10(base);          L10(base);
1010          vs_top=sup;          vs_top=sup;
1011          base[14]= VV[62];          base[14]= VV[70];
1012          base[16]= (V215);          base[16]= (V181);
1013          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
1014          L9(base);          L9(base);
1015          vs_top=sup;          vs_top=sup;
# Line 1043  T377:; Line 1017  T377:;
1017          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1018          L10(base);          L10(base);
1019          vs_top=sup;          vs_top=sup;
1020          base[14]= VV[63];          base[14]= VV[71];
1021          base[15]= make_cons(Cnil,Cnil);          base[15]= make_cons(Cnil,Cnil);
1022          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1023          L10(base);          L10(base);
1024          vs_top=sup;          vs_top=sup;
1025          base[14]= VV[47];          base[14]= VV[55];
1026          base[15]= (V217);          base[15]= (V183);
1027          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1028          L10(base);          L10(base);
1029          vs_top=sup;          vs_top=sup;
1030          base[14]= VV[64];{object V227;          base[14]= VV[72];{object V192;
1031          {register object x= (V211),V229= (VV[65]->s.s_dbind);          {register object x= (V177),V194= (VV[73]->s.s_dbind);
1032          while(V229!=Cnil)          while(V194!=Cnil)
1033          if(eql(x,V229->c.c_car->c.c_car) &&V229->c.c_car != Cnil){          if(eql(x,V194->c.c_car->c.c_car) &&V194->c.c_car != Cnil){
1034          V228= (V229->c.c_car);          V193= (V194->c.c_car);
1035          goto T417;          goto T426;
1036          }else V229=V229->c.c_cdr;          }else V194=V194->c.c_cdr;
1037          V228= Cnil;}          V193= Cnil;}
1038          goto T417;          goto T426;
1039  T417:;  T426:;
1040          V227= CMPcadr(V228);          V192= CMPcadr(V193);
1041          if(V227==Cnil)goto T415;          if(V192==Cnil)goto T424;
1042          base[15]= V227;          base[15]= V192;
1043          goto T414;          goto T423;
1044          goto T415;          goto T424;
1045  T415:;}  T424:;}
1046          base[16]= (V211);          base[16]= (V177);
1047          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
1048          (void) (*Lnk198)();          (void) (*Lnk208)();
1049          vs_top=sup;          vs_top=sup;
1050          base[15]= vs_base[0];          base[15]= vs_base[0];
1051          goto T414;          goto T423;
1052  T414:;  T423:;
1053          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1054          L10(base);          L10(base);
1055          vs_top=sup;          vs_top=sup;
1056          base[14]= VV[66];          base[14]= VV[74];
1057          if((V221)==Cnil){          if((V187)==Cnil){
1058          V230= Cnil;          V195= Cnil;
1059          goto T422;}          goto T431;}
1060          V230= list(2,VV[67],(V221));          V195= list(2,VV[75],(V187));
1061          goto T422;          goto T431;
1062  T422:;  T431:;
1063          if((V222)==Cnil){          if((V188)==Cnil){
1064          V231= Cnil;          V196= Cnil;
1065          goto T423;}          goto T432;}
1066          V231= list(2,VV[68],(V222));          V196= list(2,VV[76],(V188));
1067          goto T423;          goto T432;
1068  T423:;  T432:;
1069          base[15]= append(V230,V231);          base[15]= append(V195,V196);
1070          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1071          L10(base);          L10(base);
1072          vs_top=sup;          vs_top=sup;
1073          {register object x= base[0],V232= VV[69];          {register object x= base[0],V197= VV[77];
1074          while(V232!=Cnil)          while(V197!=Cnil)
1075          if(x==(V232->c.c_car)){          if(x==(V197->c.c_car)){
1076          goto T426;          goto T435;
1077          }else V232=V232->c.c_cdr;          }else V197=V197->c.c_cdr;
1078          goto T424;}          goto T433;}
1079          goto T426;          goto T435;
1080  T426:;  T435:;
1081          base[14]= VV[70];          base[14]= VV[78];
1082          base[15]= (V219);          base[15]= (V185);
1083          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1084          L10(base);          L10(base);
1085          vs_top=sup;          vs_top=sup;
1086          base[14]= VV[71];          base[14]= VV[79];
1087          base[15]= (V220);          base[15]= (V186);
1088          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1089          L10(base);          L10(base);
1090          vs_top=sup;          vs_top=sup;
1091          base[14]= VV[72];          base[14]= VV[80];
1092          base[15]= Cnil;          base[15]= Cnil;
1093          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1094          L10(base);          L10(base);
1095          vs_top=sup;          vs_top=sup;
1096          goto T424;          goto T433;
1097  T424:;  T433:;
1098          if(!((base[0])==(VV[32]))){          if(!((base[0])==(VV[32]))){
1099          goto T437;}          goto T446;}
1100          base[14]= VV[64];{object V234;          base[14]= VV[72];{object V199;
1101          {register object x= (V211),V236= (VV[65]->s.s_dbind);          {register object x= (V177),V201= (VV[73]->s.s_dbind);
1102          while(V236!=Cnil)          while(V201!=Cnil)
1103          if(eql(x,V236->c.c_car->c.c_car) &&V236->c.c_car != Cnil){          if(eql(x,V201->c.c_car->c.c_car) &&V201->c.c_car != Cnil){
1104          V235= (V236->c.c_car);          V200= (V201->c.c_car);
1105          goto T444;          goto T453;
1106          }else V236=V236->c.c_cdr;          }else V201=V201->c.c_cdr;
1107          V235= Cnil;}          V200= Cnil;}
1108          goto T444;          goto T453;
1109  T444:;  T453:;
1110          V234= CMPcadr(V235);          V199= CMPcadr(V200);
1111          if(V234==Cnil)goto T442;          if(V199==Cnil)goto T451;
1112          base[15]= V234;          base[15]= V199;
1113          goto T441;          goto T450;
1114          goto T442;          goto T451;
1115  T442:;}  T451:;}
1116          base[16]= (V211);          base[16]= (V177);
1117          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
1118          (void) (*Lnk198)();          (void) (*Lnk208)();
1119          vs_top=sup;          vs_top=sup;
1120          base[15]= vs_base[0];          base[15]= vs_base[0];
1121          goto T441;          goto T450;
1122  T441:;  T450:;
1123          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1124          L10(base);          L10(base);
1125          vs_top=sup;          vs_top=sup;
1126          base[14]= VV[74];          base[14]= VV[82];
1127          base[15]= list(2,VV[75],list(2,VV[76],list(2,VV[77],VV[73])));          base[15]= list(2,VV[83],list(2,VV[84],list(2,VV[85],VV[81])));
1128          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1129          L10(base);          L10(base);
1130          vs_top=sup;          vs_top=sup;
1131          base[14]= VV[78];          base[14]= VV[86];
1132          base[15]= VV[73];          base[15]= VV[81];
1133          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1134          L10(base);          L10(base);
1135          vs_top=sup;          vs_top=sup;
1136          base[14]= VV[79];          base[14]= VV[87];
1137          base[15]= Ct;          base[15]= Ct;
1138          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1139          L10(base);          L10(base);
1140          vs_top=sup;          vs_top=sup;
1141          base[14]= VV[66];          base[14]= VV[74];
1142          base[15]= Cnil;          base[15]= Cnil;
1143          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1144          L10(base);          L10(base);
1145          vs_top=sup;          vs_top=sup;
1146          base[14]= VV[80];          base[14]= VV[88];
1147          vs_base=vs_top;          vs_base=vs_top;
1148          {object _funobj = VV[73];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = VV[81];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1149                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1150                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1151                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 1180  T441:; Line 1154  T441:;
1154          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1155          L10(base);          L10(base);
1156          vs_top=sup;          vs_top=sup;
1157          goto T435;          goto T444;
1158          goto T437;          goto T446;
1159  T437:;  T446:;
1160          base[14]= VV[80];          base[14]= VV[88];
1161          if((V218)!=Cnil){          if((V184)!=Cnil){
1162          base[15]= (V218);          base[15]= (V184);
1163          goto T461;}          goto T470;}
1164          base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V217)));          base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V183)));
1165          goto T461;          goto T470;
1166  T461:;  T470:;
1167          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1168          L10(base);          L10(base);
1169          vs_top=sup;          vs_top=sup;
1170          goto T435;          goto T444;
1171  T435:;  T444:;
1172          {object V237 = base[1];          {object V202 = base[1];
1173          VMR7(V237)}          VMR7(V202)}
1174          va_end(ap);          va_end(ap);
1175          base[0]=base[0];          base[0]=base[0];
1176          return Cnil;}          return Cnil;}
1177          }          }
1178  /*      local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS        */  /*      local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS        */
1179    
1180  static object LI11(V243,V244,V245,V246,V247)  static object LI11(V208,V209,V210,V211,V212)
1181    
1182  object V243;object V244;object V245;object V246;object V247;  object V208;object V209;object V210;object V211;object V212;
1183  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
1184          goto TTL;          goto TTL;
1185  TTL:;  TTL:;
1186          {object V248;          {object V213;
1187          V248= small_fixnum(-1);          V213= small_fixnum(-1);
1188          {object V249;          {object V214;
1189          object V250= (V245);          object V215= (V210);
1190          if(V250==Cnil){          if(V215==Cnil){
1191          {object V251 = Cnil;          {object V216 = Cnil;
1192          VMR8(V251)}}          VMR8(V216)}}
1193          base[0]=V249=MMcons(Cnil,Cnil);          base[0]=V214=MMcons(Cnil,Cnil);
1194          goto T462;          goto T471;
1195  T462:;  T471:;
1196          V248= number_plus((V248),small_fixnum(1));          V213= number_plus((V213),small_fixnum(1));
1197          (V249->c.c_car)= (*(LnkLI199))((V243),(V244),(V250->c.c_car),(V246),(V247),(V248));          (V214->c.c_car)= (*(LnkLI209))((V208),(V209),(V215->c.c_car),(V211),(V212),(V213));
1198          if((V250=MMcdr(V250))==Cnil){          if((V215=MMcdr(V215))==Cnil){
1199          {object V253 = base[0];          {object V218 = base[0];
1200          VMR8(V253)}}          VMR8(V218)}}
1201          V249=MMcdr(V249)=MMcons(Cnil,Cnil);          V214=MMcdr(V214)=MMcons(Cnil,Cnil);
1202          goto T462;}}          goto T471;}}
1203          base[0]=base[0];          base[0]=base[0];
1204          return Cnil;          return Cnil;
1205  }  }
1206  /*      local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */  /*      local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */
1207    
1208  static object LI15(V260,V261,V262,V263,V264,V265)  static object LI15(V225,V226,V227,V228,V229,V230)
1209    
1210  object V260;object V261;object V262;object V263;register object V264;register object V265;  register object V225;register object V226;object V227;object V228;register object V229;register object V230;
1211  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1212          goto TTL;          goto TTL;
1213  TTL:;  TTL:;
1214          base[0]= (V262);          base[0]= (V227);
1215          {register object V266;          {register object V231;
1216          if(((V264))==Cnil){          if(((V229))==Cnil){
1217          goto T468;}          goto T477;}
1218          base[1]= VV[34];          base[1]= VV[34];
1219          goto T466;          goto T475;
1220          goto T468;          goto T477;
1221  T468:;  T477:;
1222          base[1]= VV[33];          base[1]= VV[33];
1223          goto T466;          goto T475;
1224  T466:;  T475:;
1225          base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V263)));          base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V228)));
1226          base[4]= base[0];          base[4]= base[0];
1227          base[5]= VV[81];          base[5]= VV[38];
1228          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1229          Lgetf();          Lgetf();
1230          vs_top=sup;          vs_top=sup;
1231          V266= vs_base[0];          V231= vs_base[0];
1232          base[4]= VV[55];          base[4]= VV[63];
1233          base[5]= (V266);          base[5]= (V231);
1234          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1235          L17(base);          L17(base);
1236          vs_top=sup;          vs_top=sup;
1237          base[4]= VV[82];          base[4]= VV[89];
1238          base[6]= VV[83];          base[6]= VV[90];
1239          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1240          L16(base);          L16(base);
1241          vs_top=sup;          vs_top=sup;
# Line 1269  T466:; Line 1243  T466:;
1243          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1244          L17(base);          L17(base);
1245          vs_top=sup;          vs_top=sup;
1246          base[4]= VV[84];          base[4]= VV[91];
1247          base[6]= VV[85];          base[6]= VV[92];
1248          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1249          L16(base);          L16(base);
1250          vs_top=sup;          vs_top=sup;
# Line 1278  T466:; Line 1252  T466:;
1252          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1253          L17(base);          L17(base);
1254          vs_top=sup;          vs_top=sup;
1255          base[4]= VV[86];          base[4]= VV[93];
1256          base[6]= VV[87];          base[6]= VV[94];
1257          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1258          L16(base);          L16(base);
1259          vs_top=sup;          vs_top=sup;
# Line 1287  T466:; Line 1261  T466:;
1261          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1262          L17(base);          L17(base);
1263          vs_top=sup;          vs_top=sup;
1264          base[4]= VV[88];          base[4]= VV[95];
1265          base[6]= VV[89];          base[6]= VV[96];
1266          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1267          L16(base);          L16(base);
1268          vs_top=sup;          vs_top=sup;
# Line 1296  T466:; Line 1270  T466:;
1270          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1271          L17(base);          L17(base);
1272          vs_top=sup;          vs_top=sup;
1273          base[4]= VV[90];          base[4]= VV[97];
1274          base[6]= VV[91];          base[6]= VV[98];
1275          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1276          L16(base);          L16(base);
1277          vs_top=sup;          vs_top=sup;
# Line 1305  T466:; Line 1279  T466:;
1279          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1280          L17(base);          L17(base);
1281          vs_top=sup;          vs_top=sup;
1282          base[4]= VV[92];          base[4]= VV[99];
1283          base[5]= VV[41];          base[5]= VV[49];
1284          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1285          L17(base);          L17(base);
1286          vs_top=sup;          vs_top=sup;
1287          base[4]= VV[49];{object V267;          base[4]= VV[57];{object V232;
1288          base[6]= VV[93];          base[6]= VV[100];
1289          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1290          L16(base);          L16(base);
1291          vs_top=sup;          vs_top=sup;
1292          V267= vs_base[0];          V232= vs_base[0];
1293          if(V267==Cnil)goto T503;          if(V232==Cnil)goto T512;
1294          base[5]= V267;          base[5]= V232;
1295          goto T502;          goto T511;
1296          goto T503;          goto T512;
1297  T503:;}  T512:;}
1298          base[5]= Ct;          base[5]= Ct;
1299          goto T502;          goto T511;
1300  T502:;  T511:;
1301          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1302          L17(base);          L17(base);
1303          vs_top=sup;          vs_top=sup;
1304          base[4]= VV[51];{object V268;          base[4]= VV[59];{object V233;
1305          base[6]= VV[94];          base[6]= VV[101];
1306          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1307          L16(base);          L16(base);
1308          vs_top=sup;          vs_top=sup;
1309          V268= vs_base[0];          V233= vs_base[0];
1310          if(V268==Cnil)goto T509;          if(V233==Cnil)goto T518;
1311          base[5]= V268;          base[5]= V233;
1312          goto T508;          goto T517;
1313          goto T509;          goto T518;
1314  T509:;}  T518:;}
1315          base[5]= VV[95];          base[5]= VV[102];
1316          goto T508;          goto T517;
1317  T508:;  T517:;
1318          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1319          L17(base);          L17(base);
1320          vs_top=sup;          vs_top=sup;
1321          base[4]= VV[26];          base[4]= VV[26];
1322          base[5]= (V261);          base[5]= (V226);
1323          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1324          L17(base);          L17(base);
1325          vs_top=sup;          vs_top=sup;
1326          if(((V264))==Cnil){          if(((V229))==Cnil){
1327          goto T515;}          goto T524;}
1328          base[4]= VV[96];          base[4]= VV[103];
1329          base[5]= (V265);          base[5]= (V230);
1330          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1331          L17(base);          L17(base);
1332          vs_top=sup;          vs_top=sup;
1333          base[4]= VV[97];          base[4]= VV[104];
1334          base[6]= Cnil;          base[6]= Cnil;
1335          base[7]= (V266);          base[7]= (V231);
1336          base[8]= (V265);          base[8]= (V230);
1337          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1338          (void) (*Lnk200)();          (void) (*Lnk210)();
1339          vs_top=sup;          vs_top=sup;
1340          base[5]= vs_base[0];          base[5]= vs_base[0];
1341          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1342          L17(base);          L17(base);
1343          vs_top=sup;          vs_top=sup;
1344          base[4]= VV[98];          base[4]= VV[105];
1345          base[6]= Cnil;          base[6]= Cnil;
1346          base[7]= (V266);          base[7]= (V231);
1347          base[8]= (V265);          base[8]= (V230);
1348          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1349          (void) (*Lnk201)();          (void) (*Lnk211)();
1350          vs_top=sup;          vs_top=sup;
1351          base[5]= vs_base[0];          base[5]= vs_base[0];
1352          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1353          L17(base);          L17(base);
1354          vs_top=sup;          vs_top=sup;
1355          base[4]= VV[99];          base[4]= VV[106];
1356          base[6]= Cnil;          base[6]= Cnil;
1357          base[7]= (V266);          base[7]= (V231);
1358          base[8]= (V265);          base[8]= (V230);
1359          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1360          (void) (*Lnk202)();          (void) (*Lnk212)();
1361          vs_top=sup;          vs_top=sup;
1362          base[5]= vs_base[0];          base[5]= vs_base[0];
1363          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1364          L17(base);          L17(base);
1365          vs_top=sup;          vs_top=sup;
1366          base[4]= VV[100];          base[4]= VV[107];
1367          base[5]= small_fixnum(7);          base[5]= small_fixnum(7);
1368          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1369          L17(base);          L17(base);
1370          vs_top=sup;          vs_top=sup;
1371          {object V270;{object V271;          {object V235;{object V236;
1372          base[4]= (V266);          base[4]= (V231);
1373          base[5]= (VV[101]->s.s_dbind);          base[5]= (VV[108]->s.s_dbind);
1374          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1375          Lgethash();          Lgethash();
1376          vs_top=sup;          vs_top=sup;
1377          V271= vs_base[0];          V236= vs_base[0];
1378          if(V271==Cnil)goto T543;          if(V236==Cnil)goto T552;
1379          V270= V271;          V235= V236;
1380          goto T542;          goto T551;
1381          goto T543;          goto T552;
1382  T543:;}  T552:;}
1383          {object V273;          {object V238;
1384          object V274;          object V239;
1385          V273= (VV[101]->s.s_dbind);          V238= (VV[108]->s.s_dbind);
1386          base[5]= VV[102];          base[5]= VV[109];
1387          base[6]= VV[103];          base[6]= VV[110];
1388          base[7]= VV[104];          base[7]= VV[111];
1389          base[8]= small_fixnum(5);          base[8]= small_fixnum(5);
1390          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
1391          Lmake_hash_table();          Lmake_hash_table();
1392          vs_top=sup;          vs_top=sup;
1393          V274= vs_base[0];          V239= vs_base[0];
1394          base[5]= V266;          base[5]= V231;
1395          base[6]= (V273);          base[6]= (V238);
1396          base[7]= (V274);          base[7]= (V239);
1397          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1398          siLhash_set();          siLhash_set();
1399          vs_top=sup;          vs_top=sup;
1400          V270= vs_base[0];}          V235= vs_base[0];}
1401          goto T542;          goto T551;
1402  T542:;  T551:;
1403          base[4]= V261;          base[4]= V226;
1404          base[5]= V270;          base[5]= V235;
1405          base[6]= base[2];          base[6]= base[2];
1406          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1407          siLhash_set();          siLhash_set();
1408          vs_top=sup;}          vs_top=sup;}
1409          goto T515;          goto T524;
1410  T515:;  T524:;
1411          if(!(((V260))==(VV[28]))){          if(!(((V225))==(VV[28]))){
1412          goto T559;}          goto T568;}
1413          if(!(((V266))==(VV[71]))){          if(!(((V231))==(VV[79]))){
1414          goto T559;}          goto T568;}
1415          if(((V264))==Cnil){          if(((V229))==Cnil){
1416          goto T559;}          goto T568;}
1417          (VV[105]->s.s_dbind)= base[2];          (VV[112]->s.s_dbind)= base[2];
1418          goto T559;          goto T568;
1419  T559:;  T568:;
1420          if(!(((V260))==(VV[29]))){          if(!(((V225))==(VV[29]))){
1421          goto T567;}          goto T576;}
1422          if(!(((V266))==(VV[71]))){          if(!(((V231))==(VV[79]))){
1423          goto T567;}          goto T576;}
1424          if(((V264))==Cnil){          if(((V229))==Cnil){
1425          goto T567;}          goto T576;}
1426          (VV[106]->s.s_dbind)= base[2];          (VV[113]->s.s_dbind)= base[2];
1427          goto T567;          goto T576;
1428  T567:;  T576:;
1429          {object V278 = base[2];          {object V243 = base[2];
1430          VMR9(V278)}}          VMR9(V243)}}
1431          base[0]=base[0];          base[0]=base[0];
1432          return Cnil;          return Cnil;
1433  }  }
1434  /*      local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */  /*      local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */
1435    
1436  static object LI18(V280)  static object LI18(V245)
1437    
1438  object V280;  object V245;
1439  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
1440          bds_check;          bds_check;
1441          goto TTL;          goto TTL;
1442  TTL:;  TTL:;
1443          bds_bind(VV[107],(V280));          bds_bind(VV[114],(V245));
1444          {register object V281;          {register object V246;
1445          register object V282;          register object V247;
1446          V281= (VV[36]->s.s_dbind);          V246= (VV[36]->s.s_dbind);
1447          V282= CMPcar((V281));          V247= CMPcar((V246));
1448          goto T578;          goto T587;
1449  T578:;  T587:;
1450          if(!(((V281))==Cnil)){          if(!(((V246))==Cnil)){
1451          goto T579;}          goto T588;}
1452          {object V283 = Cnil;          {object V248 = Cnil;
1453          bds_unwind1;          bds_unwind1;
1454          VMR10(V283)}          VMR10(V248)}
1455          goto T579;          goto T588;
1456  T579:;  T588:;
1457          {object V284;          {object V249;
1458          object V285;          object V250;
1459          V284= (*(LnkLI182))((V282));          V249= (*(LnkLI191))((V247));
1460          V285= (*(LnkLI183))((V282));          V250= (*(LnkLI192))((V247));
1461          if(((V285))==(VV[31])){          if(((V250))==(VV[31])){
1462          goto T583;}          goto T592;}
1463          {object V286;          {object V251;
1464          V286= (*(LnkLI187))((V282));          V251= (*(LnkLI197))((V247));
1465          {register object V287;          {register object V252;
1466          register object V288;          register object V253;
1467          V287= (V286);          V252= (V251);
1468          V288= CMPcar((V287));          V253= CMPcar((V252));
1469            goto T601;
1470    T601:;
1471            if(!(((V252))==Cnil)){
1472            goto T602;}
1473          goto T592;          goto T592;
1474  T592:;          goto T602;
1475          if(!(((V287))==Cnil)){  T602:;
1476          goto T593;}          {register object V254;
1477          goto T583;          register object V255;
1478          goto T593;          register object V256;
1479  T593:;          base[3]= (V253);
1480          {register object V289;          base[4]= VV[38];
         register object V290;  
         register object V291;  
         base[3]= (V288);  
         base[4]= VV[81];  
1481          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1482          Lgetf();          Lgetf();
1483          vs_top=sup;          vs_top=sup;
1484          V289= vs_base[0];          V254= vs_base[0];
1485          base[3]= (V288);          base[3]= (V253);
1486          base[4]= VV[89];          base[4]= VV[96];
1487          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1488          Lgetf();          Lgetf();
1489          vs_top=sup;          vs_top=sup;
1490          V290= vs_base[0];          V255= vs_base[0];
1491          base[3]= (V288);          base[3]= (V253);
1492          base[4]= VV[91];          base[4]= VV[98];
1493          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1494          Lgetf();          Lgetf();
1495          vs_top=sup;          vs_top=sup;
1496          V291= vs_base[0];          V256= vs_base[0];
1497          (void)((*(LnkLI203))((V284),(V289),(V290),(V291),Cnil));          (void)((*(LnkLI213))((V249),(V254),(V255),(V256),Cnil));
1498          V292= (*(LnkLI204))((V289));          V257= (*(LnkLI214))((V254));
1499          V293= make_cons(/* INLINE-ARGS */V292,Cnil);          V258= make_cons(/* INLINE-ARGS */V257,Cnil);
1500          V294= (*(LnkLI205))((V289));          V259= (*(LnkLI215))((V254));
1501          V295= make_cons(/* INLINE-ARGS */V294,Cnil);          V260= make_cons(/* INLINE-ARGS */V259,Cnil);
1502          V296= (*(LnkLI206))((V289));          V261= (*(LnkLI216))((V254));
1503          V297= make_cons(/* INLINE-ARGS */V296,Cnil);          V262= make_cons(/* INLINE-ARGS */V261,Cnil);
1504          (void)((*(LnkLI203))(VV[108],(V289),/* INLINE-ARGS */V293,/* INLINE-ARGS */V295,/* INLINE-ARGS */V297));}          (void)((*(LnkLI213))(VV[115],(V254),/* INLINE-ARGS */V258,/* INLINE-ARGS */V260,/* INLINE-ARGS */V262));}
1505          V287= CMPcdr((V287));          V252= CMPcdr((V252));
1506          V288= CMPcar((V287));          V253= CMPcar((V252));
1507          goto T592;}}}          goto T601;}}}
1508          goto T583;          goto T592;
1509  T583:;  T592:;
1510          V281= CMPcdr((V281));          V246= CMPcdr((V246));
1511          V282= CMPcar((V281));          V247= CMPcar((V246));
1512          goto T578;}          goto T587;}
1513          base[0]=base[0];          base[0]=base[0];
1514          return Cnil;          return Cnil;
1515  }  }
# Line 1545  static void L19() Line 1519  static void L19()
1519  {register object *base=vs_base;  {register object *base=vs_base;
1520          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1521          vs_check;          vs_check;
1522          {register object V298;          {register object V263;
1523          object V299;          object V264;
1524          object V300;          object V265;
1525          object V301;          object V266;
1526          check_arg(4);          check_arg(4);
1527          V298=(base[0]);          V263=(base[0]);
1528          V299=(base[1]);          V264=(base[1]);
1529          V300=(base[2]);          V265=(base[2]);
1530          V301=(base[3]);          V266=(base[3]);
1531          vs_top=sup;          vs_top=sup;
1532          goto TTL;          goto TTL;
1533  TTL:;  TTL:;
1534          {object V302;          {object V267;
1535          object V303;          object V268;
1536          object V304;          object V269;
1537          object V305;          object V270;
1538          object V306;          object V271;
1539          {object V307= (V301);          {object V273= V266;
1540          if((V307!= VV[120]))goto T619;          if((V273!= VV[129]))goto T628;
1541          base[4]= VV[109];          base[4]= VV[116];
1542          base[5]= (VV[207]->s.s_gfdef);          base[5]= (VV[217]->s.s_gfdef);
1543          base[6]= make_cons((V298),Cnil);          base[6]= make_cons((V263),Cnil);
1544          base[7]= make_cons((V298),Cnil);          base[7]= make_cons((V263),Cnil);
1545          base[8]= VV[110];          base[8]= VV[117];
1546          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1547          goto T618;          goto T627;
1548          goto T619;          goto T628;
1549  T619:;  T628:;
1550          if((V307!= VV[121]))goto T625;          if((V273!= VV[130]))goto T634;
1551          base[4]= VV[111];          base[4]= VV[118];
1552          base[5]= (VV[208]->s.s_gfdef);          base[5]= (VV[218]->s.s_gfdef);
1553          base[6]= list(2,VV[112],(V298));          base[6]= list(2,VV[119],(V263));
1554          base[7]= list(2,Ct,(V298));          base[7]= list(2,Ct,(V263));
1555          base[8]= VV[113];          base[8]= VV[120];
1556          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1557          goto T618;          goto T627;
1558          goto T625;          goto T634;
1559  T625:;  T634:;
1560          if((V307!= VV[122]))goto T631;          if((V273!= VV[131]))goto T640;
1561          base[4]= VV[114];          base[4]= VV[121];
1562          base[5]= (VV[209]->s.s_gfdef);          base[5]= (VV[219]->s.s_gfdef);
1563          base[6]= make_cons((V298),Cnil);          base[6]= make_cons((V263),Cnil);
1564          base[7]= make_cons((V298),Cnil);          base[7]= make_cons((V263),Cnil);
1565          base[8]= VV[115];          base[8]= VV[122];
1566          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1567          goto T618;          goto T627;
1568          goto T631;          goto T640;
1569  T631:;  T640:;
1570          FEerror("The ECASE key value ~s is illegal.",1,V307);          base[4]= VV[37];
1571          base[4]= Cnil;          base[5]= VV[38];
1572          vs_top=(vs_base=base+4)+1;          base[6]= VV[39];
1573          goto T618;}          base[7]= VV[40];
1574          goto T618;          base[8]= V266;
1575  T618:;          base[9]= VV[41];
1576          if(vs_base>=vs_top){vs_top=sup;goto T637;}          base[10]= VV[123];
1577          V302= vs_base[0];          base[11]= VV[43];
1578            base[12]= VV[124];
1579            vs_top=(vs_base=base+4)+9;
1580            (void) (*Lnk193)();}
1581            goto T627;
1582    T627:;
1583            if(vs_base>=vs_top){vs_top=sup;goto T655;}
1584            V267= vs_base[0];
1585          vs_base++;          vs_base++;
1586          if(vs_base>=vs_top){vs_top=sup;goto T638;}          if(vs_base>=vs_top){vs_top=sup;goto T656;}
1587          V303= vs_base[0];          V268= vs_base[0];
1588          vs_base++;          vs_base++;
1589          if(vs_base>=vs_top){vs_top=sup;goto T639;}          if(vs_base>=vs_top){vs_top=sup;goto T657;}
1590          V304= vs_base[0];          V269= vs_base[0];
1591          vs_base++;          vs_base++;
1592          if(vs_base>=vs_top){vs_top=sup;goto T640;}          if(vs_base>=vs_top){vs_top=sup;goto T658;}
1593          V305= vs_base[0];          V270= vs_base[0];
1594          vs_base++;          vs_base++;
1595          if(vs_base>=vs_top){vs_top=sup;goto T641;}          if(vs_base>=vs_top){vs_top=sup;goto T659;}
1596          V306= vs_base[0];          V271= vs_base[0];
1597          vs_top=sup;          vs_top=sup;
1598          goto T642;          goto T660;
1599          goto T637;          goto T655;
1600  T637:;  T655:;
1601          V302= Cnil;          V267= Cnil;
1602          goto T638;          goto T656;
1603  T638:;  T656:;
1604          V303= Cnil;          V268= Cnil;
1605          goto T639;          goto T657;
1606  T639:;  T657:;
1607          V304= Cnil;          V269= Cnil;
1608          goto T640;          goto T658;
1609  T640:;  T658:;
1610          V305= Cnil;          V270= Cnil;
1611          goto T641;          goto T659;
1612  T641:;  T659:;
1613          V306= Cnil;          V271= Cnil;
1614          goto T642;          goto T660;
1615  T642:;  T660:;
1616          {register object V308;          {register object V274;
1617          base[4]= (V299);          base[4]= (V264);
1618          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1619          (void) (*Lnk210)();          (void) (*Lnk220)();
1620          vs_top=sup;          vs_top=sup;
1621          V308= vs_base[0];          V274= vs_base[0];
1622          base[4]= (V305);          base[4]= (V270);
1623          if(type_of(V308)==t_structure){          if(type_of(V274)==t_structure){
1624          goto T654;}          goto T672;}
1625          goto T652;          goto T670;
1626          goto T654;          goto T672;
1627  T654:;  T672:;
1628          if(!(((V308)->str.str_def)==(VV[116]))){          if(!(((V274)->str.str_def)==(VV[125]))){
1629          goto T652;}          goto T670;}
1630          V309= STREF(object,(V308),4);          V275= STREF(object,(V274),4);
1631          goto T650;          goto T668;
1632          goto T652;          goto T670;
1633  T652:;{object V311;  T670:;{object V277;
1634          V311= (VV[45]->s.s_dbind);          V277= (VV[53]->s.s_dbind);
1635          base[6]= small_fixnum(14);          base[6]= small_fixnum(14);
1636          base[7]= (V308);          base[7]= (V274);
1637          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1638          (void) (*Lnk194)();          (void) (*Lnk204)();
1639          vs_top=sup;          vs_top=sup;
1640          V312= vs_base[0];          V278= vs_base[0];
1641          if(!((V311)==(CMPcar(V312)))){          if(!((V277)==(CMPcar(V278)))){
1642          goto T657;}}          goto T675;}}
1643          V309= CMPcar(((V308))->cc.cc_turbo[12]);          V275= CMPcar(((V274))->cc.cc_turbo[12]);
1644          goto T650;          goto T668;
1645          goto T657;          goto T675;
1646  T657:;  T675:;
1647          base[6]= VV[46];          base[6]= VV[54];
1648          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1649          Lerror();          Lerror();
1650          vs_top=sup;          vs_top=sup;
1651          V309= vs_base[0];          V275= vs_base[0];
1652          goto T650;          goto T668;
1653  T650:;  T668:;
1654          V313 = (VV[117]->s.s_dbind);          base[5]= (V275)->v.v_self[fix((VV[126]->s.s_dbind))];
1655          base[5]= (V309)->v.v_self[fix(V313)];          base[6]= VV[127];
1656          base[6]= VV[118];          base[7]= (VV[221]->s.s_gfdef);
1657          base[7]= (VV[211]->s.s_gfdef);          base[8]= VV[109];
1658          base[8]= VV[102];          base[9]= (VV[222]->s.s_gfdef);
         base[9]= (VV[212]->s.s_gfdef);  
1659          vs_top=(vs_base=base+4)+6;          vs_top=(vs_base=base+4)+6;
1660          (void) (*Lnk213)();          (void) (*Lnk223)();
1661          vs_top=sup;          vs_top=sup;
1662          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1663          goto T646;}          goto T664;}
1664          {register object x= (V299),V314= (VV[119]->s.s_dbind);          {register object x= (V264),V279= (VV[128]->s.s_dbind);
1665          while(V314!=Cnil)          while(V279!=Cnil)
1666          if(equal(x,V314->c.c_car->c.c_car) &&V314->c.c_car != Cnil){          if(equal(x,V279->c.c_car->c.c_car) &&V279->c.c_car != Cnil){
1667          goto T668;          goto T686;
1668          }else V314=V314->c.c_cdr;}          }else V279=V279->c.c_cdr;}
1669          base[4]= (VFUN_NARGS=1,(*(LnkLI214))((V308)));          base[4]= (VFUN_NARGS=1,(*(LnkLI224))((V274)));
1670          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1671          return;          return;
1672          goto T668;          goto T686;
1673  T668:;  T686:;
1674          base[4]= Cnil;          base[4]= Cnil;
1675          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1676          return;          return;
1677          goto T646;          goto T664;
1678  T646:;  T664:;
1679          base[4]=(VV[215]->s.s_gfdef);          base[4]=(VV[225]->s.s_gfdef);
1680          base[5]= (V308);          base[5]= (V274);
1681          base[7]=(VV[216]->s.s_gfdef);          base[7]=(VV[226]->s.s_gfdef);
1682          base[8]= (V302);          base[8]= (V267);
1683          base[9]= Cnil;          base[9]= Cnil;
1684          base[10]= (V304);          base[10]= (V269);
1685          base[11]= (V305);          base[11]= (V270);
1686          base[13]= (V298);          base[13]= (V263);
1687          base[14]= (V300);          base[14]= (V265);
1688          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1689          {object _funobj = (V303);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V268);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1690                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1691                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1692                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1693          vs_top=sup;          vs_top=sup;
1694          base[12]= vs_base[0];          base[12]= vs_base[0];
1695          base[13]= (V306);          base[13]= (V271);
1696          base[14]= (V300);          base[14]= (V265);
1697          base[6]= simple_lispcall(base+7,7);          base[6]= simple_lispcall(base+7,7);
1698          lispcall(base+4,2);          lispcall(base+4,2);
1699          return;}}          return;}}
# Line 1721  T646:; Line 1701  T646:;
1701  }  }
1702  /*      local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1        */  /*      local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1        */
1703    
1704  static object LI24(V320,V321,V322,V323,V324)  static object LI24(V285,V286,V287,V288,V289)
1705    
1706  object V320;object V321;object V322;object V323;object V324;  object V285;object V286;object V287;object V288;object V289;
1707  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1708          goto TTL;          goto TTL;
1709  TTL:;  TTL:;
1710          base[0]= (V321);          base[0]= (V286);
1711          base[1]= (V320);          base[1]= (V285);
1712          {register object V325;          {register object V290;
1713          register object V326;          object V291;
1714          V325= (V322);          V290= (V287);
1715          V326= CMPcar((V325));          V291= CMPcar((V290));
1716          goto T685;          goto T703;
1717  T685:;  T703:;
1718          if(!(((V325))==Cnil)){          if(!(((V290))==Cnil)){
1719          goto T686;}          goto T704;}
1720          goto T681;          goto T699;
1721          goto T686;          goto T704;
1722  T686:;  T704:;
1723          base[3]= (V326);          base[3]= (V291);
1724          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1725          L25(base);          L25(base);
1726          vs_top=sup;          vs_top=sup;
1727          V325= CMPcdr((V325));          V290= CMPcdr((V290));
1728          V326= CMPcar((V325));          V291= CMPcar((V290));
1729          goto T685;}          goto T703;}
1730          goto T681;          goto T699;
1731  T681:;  T699:;
1732          {register object V327;          {register object V292;
1733          register object V328;          object V293;
1734          V327= (V323);          V292= (V288);
1735          V328= CMPcar((V327));          V293= CMPcar((V292));
1736          goto T701;          goto T719;
1737  T701:;  T719:;
1738          if(!(((V327))==Cnil)){          if(!(((V292))==Cnil)){
1739          goto T702;}          goto T720;}
1740          goto T697;          goto T715;
1741          goto T702;          goto T720;
1742  T702:;  T720:;
1743          base[3]= (V328);          base[3]= (V293);
1744          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1745          L26(base);          L26(base);
1746          vs_top=sup;          vs_top=sup;
1747          V327= CMPcdr((V327));          V292= CMPcdr((V292));
1748          V328= CMPcar((V327));          V293= CMPcar((V292));
1749          goto T701;}          goto T719;}
1750          goto T697;          goto T715;
1751  T697:;  T715:;
1752          {register object V329;          {register object V294;
1753          register object V330;          object V295;
1754          V329= (V324);          V294= (V289);
1755          V330= CMPcar((V329));          V295= CMPcar((V294));
1756          goto T716;          goto T734;
1757  T716:;  T734:;
1758          if(!(((V329))==Cnil)){          if(!(((V294))==Cnil)){
1759          goto T717;}          goto T735;}
1760          {object V331 = Cnil;          {object V296 = Cnil;
1761          VMR12(V331)}          VMR12(V296)}
1762          goto T717;          goto T735;
1763  T717:;  T735:;
1764          base[3]= (V330);          base[3]= (V295);
1765          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1766          L27(base);          L27(base);
1767          vs_top=sup;          vs_top=sup;
1768          V329= CMPcdr((V329));          V294= CMPcdr((V294));
1769          V330= CMPcar((V329));          V295= CMPcar((V294));
1770          goto T716;}          goto T734;}
1771          base[0]=base[0];          base[0]=base[0];
1772          return Cnil;          return Cnil;
1773  }  }
1774  /*      local entry for function BOOTSTRAP-CLASS-PREDICATES     */  /*      local entry for function BOOTSTRAP-CLASS-PREDICATES     */
1775    
1776  static object LI28(V333)  static object LI28(V298)
1777    
1778  object V333;  object V298;
1779  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1780          bds_check;          bds_check;
1781          goto TTL;          goto TTL;
1782  TTL:;  TTL:;
1783          bds_bind(VV[107],(V333));          bds_bind(VV[114],(V298));
1784          {register object V334;          {register object V299;
1785          register object V335;          register object V300;
1786          V334= (VV[36]->s.s_dbind);          V299= (VV[36]->s.s_dbind);
1787          V335= CMPcar((V334));          V300= CMPcar((V299));
1788          goto T731;          goto T749;
1789  T731:;  T749:;
1790          if(!(((V334))==Cnil)){          if(!(((V299))==Cnil)){
1791          goto T732;}          goto T750;}
1792          {object V336 = Cnil;          {object V301 = Cnil;
1793          bds_unwind1;          bds_unwind1;
1794          VMR13(V336)}          VMR13(V301)}
1795          goto T732;          goto T750;
1796  T732:;  T750:;
1797          {register object V337;          {register object V302;
1798          register object V338;          register object V303;
1799          V337= (*(LnkLI182))((V335));          V302= (*(LnkLI191))((V300));
1800          V338= (VFUN_NARGS=1,(*(LnkLI25))((V337)));          V303= (VFUN_NARGS=1,(*(LnkLI25))((V302)));
1801          {register object V339;          {register object V304;
1802          register object V340;          register object V305;
1803          V339= (V337);          V304= (V302);
1804          V341 = (V338);          base[5]= (V303);
         base[5]= (V338);  
1805          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1806          (void) (*Lnk218)(Lclptr218);          (void) (*Lnk228)(Lclptr228);
1807          vs_top=sup;          vs_top=sup;
1808          V342= vs_base[0];          V306= vs_base[0];
1809          V340= (*(LnkLI217))(V341,V342);          V305= (*(LnkLI227))((V303),V306);
1810          V343= ({object _tmp=get(VV[219],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[219])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[219])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V307= ({object _tmp=get(VV[229],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[229])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[229])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V344 = (V340);  
         V345 = (V339);  
1811          (void)((          (void)((
1812          V346 = V343,          V308 = V307,
1813          (type_of(V346) == t_sfun ?(*((V346)->sfn.sfn_self)):          (type_of(V308) == t_sfun ?(*((V308)->sfn.sfn_self)):
1814          (fcall.argd=2,type_of(V346)==t_vfun) ?          (fcall.argd=2,type_of(V308)==t_vfun) ?
1815          (*((V346)->sfn.sfn_self)):          (*((V308)->sfn.sfn_self)):
1816          (fcall.fun=(V346),fcalln))(V344,V345)));}}          (fcall.fun=(V308),fcalln))((V305),(V304))));}}
1817          V334= CMPcdr((V334));          V299= CMPcdr((V299));
1818          V335= CMPcar((V334));          V300= CMPcar((V299));
1819          goto T731;}          goto T749;}
1820          base[0]=base[0];          base[0]=base[0];
1821          return Cnil;          return Cnil;
1822  }  }
# Line 1850  static object LI29() Line 1827  static object LI29()
1827  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1828          goto TTL;          goto TTL;
1829  TTL:;  TTL:;
1830          {register object V347;          {register object V309;
1831          object V348;          object V310;
1832          V347= (VV[123]->s.s_dbind);          V309= (VV[132]->s.s_dbind);
1833          V348= CMPcar((V347));          V310= CMPcar((V309));
1834          goto T753;          goto T771;
1835  T753:;  T771:;
1836          if(!(((V347))==Cnil)){          if(!(((V309))==Cnil)){
1837          goto T754;}          goto T772;}
         goto T749;  
         goto T754;  
 T754:;  
         {register object V349;  
         register object V350;  
         V349= CMPcadr((V348));  
         V350= CMPcar((V349));  
         goto T762;  
 T762:;  
         if(!(((V349))==Cnil)){  
         goto T763;}  
         goto T758;  
         goto T763;  
 T763:;  
         if(((V350))==(Ct)){  
         goto T767;}  
         {register object x= (V350),V351= (VV[123]->s.s_dbind);  
         while(V351!=Cnil)  
         if(EQ(x,V351->c.c_car->c.c_car) &&V351->c.c_car != Cnil){  
1838          goto T767;          goto T767;
1839          }else V351=V351->c.c_cdr;}          goto T772;
1840          base[3]= VV[124];  T772:;
1841          base[4]= CMPcar((V348));          {register object V311;
1842          base[5]= (V350);          register object V312;
1843          base[6]= (V350);          V311= CMPcadr((V310));
1844            V312= CMPcar((V311));
1845            goto T780;
1846    T780:;
1847            if(!(((V311))==Cnil)){
1848            goto T781;}
1849            goto T776;
1850            goto T781;
1851    T781:;
1852            if(((V312))==(Ct)){
1853            goto T785;}
1854            {register object x= (V312),V313= (VV[132]->s.s_dbind);
1855            while(V313!=Cnil)
1856            if(EQ(x,V313->c.c_car->c.c_car) &&V313->c.c_car != Cnil){
1857            goto T785;
1858            }else V313=V313->c.c_cdr;}
1859            base[3]= VV[133];
1860            base[4]= CMPcar((V310));
1861            base[5]= (V312);
1862            base[6]= (V312);
1863          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1864          Lerror();          Lerror();
1865          vs_top=sup;          vs_top=sup;
1866            goto T785;
1867    T785:;
1868            V311= CMPcdr((V311));
1869            V312= CMPcar((V311));
1870            goto T780;}
1871            goto T776;
1872    T776:;
1873            V309= CMPcdr((V309));
1874            V310= CMPcar((V309));
1875            goto T771;}
1876          goto T767;          goto T767;
1877  T767:;  T767:;
1878          V349= CMPcdr((V349));          {object V314;
1879          V350= CMPcar((V349));          object V315;
1880          goto T762;}          V314= (VFUN_NARGS=1,(*(LnkLI25))(VV[31]));
1881          goto T758;          base[2]= (V314);
 T758:;  
         V347= CMPcdr((V347));  
         V348= CMPcar((V347));  
         goto T753;}  
         goto T749;  
 T749:;  
         {object V352;  
         object V353;  
         V352= (VFUN_NARGS=1,(*(LnkLI25))(VV[31]));  
         base[2]= (V352);  
1882          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1883          (void) (*Lnk220)(Lclptr220);          (void) (*Lnk230)(Lclptr230);
1884          vs_top=sup;          vs_top=sup;
1885          V353= vs_base[0];          V315= vs_base[0];
1886          {register object V354;          {register object V316;
1887          object V355;          object V317;
1888          V354= (VV[123]->s.s_dbind);          V316= (VV[132]->s.s_dbind);
1889          V355= CMPcar((V354));          V317= CMPcar((V316));
1890          goto T793;          goto T811;
1891  T793:;  T811:;
1892          if(!(((V354))==Cnil)){          if(!(((V316))==Cnil)){
1893          goto T794;}          goto T812;}
1894          goto T786;          goto T804;
1895          goto T794;          goto T812;
1896  T794:;  T812:;
1897          {object V356;          {object V318;
1898          V356= (VFUN_NARGS=1,(*(LnkLI21))((V353)));          V318= (VFUN_NARGS=1,(*(LnkLI21))((V315)));
1899          {object V357;          {object V319;
1900          V357= CMPcar((V355));          V319= CMPcar((V317));
1901          V359= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V321= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V360 = V356;  
         V361 = (V357);  
1902          (void)((          (void)((
1903          V362 = V359,          V322 = V321,
1904          (type_of(V362) == t_sfun ?(*((V362)->sfn.sfn_self)):          (type_of(V322) == t_sfun ?(*((V322)->sfn.sfn_self)):
1905          (fcall.argd=2,type_of(V362)==t_vfun) ?          (fcall.argd=2,type_of(V322)==t_vfun) ?
1906          (*((V362)->sfn.sfn_self)):          (*((V322)->sfn.sfn_self)):
1907          (fcall.fun=(V362),fcalln))(V360,V361)));}}          (fcall.fun=(V322),fcalln))(V318,(V319))));}}
1908          V354= CMPcdr((V354));          V316= CMPcdr((V316));
1909          V355= CMPcar((V354));          V317= CMPcar((V316));
1910          goto T793;}}          goto T811;}}
1911          goto T786;          goto T804;
1912  T786:;  T804:;
1913          {object V363;          {object V323;
1914          base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35]));          base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35]));
1915          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1916          (void) (*Lnk220)(Lclptr220);          (void) (*Lnk230)(Lclptr230);
1917          vs_top=sup;          vs_top=sup;
1918          V363= vs_base[0];          V323= vs_base[0];
1919          {register object V364;          {register object V324;
1920          object V365;          object V325;
1921          V364= (VV[123]->s.s_dbind);          V324= (VV[132]->s.s_dbind);
1922          V365= CMPcar((V364));          V325= CMPcar((V324));
1923          goto T813;          goto T831;
1924  T813:;  T831:;
1925          if(!(((V364))==Cnil)){          if(!(((V324))==Cnil)){
1926          goto T814;}          goto T832;}
1927          goto T807;          goto T825;
1928          goto T814;          goto T832;
1929  T814:;  T832:;
1930          {object V366;          {object V326;
1931          object V367;          object V327;
1932          object V368;          object V328;
1933          object V369;          object V329;
1934          register object V370;          register object V330;
1935          register object V371;          register object V331;
1936          V366= Cnil;          V326= Cnil;
1937          V367= Cnil;          V327= Cnil;
1938          V368= Cnil;          V328= Cnil;
1939          V369= Cnil;          V329= Cnil;
1940          V370= Cnil;          V330= Cnil;
1941          V371= Cnil;          V331= Cnil;
1942          V371= (V365);          V331= (V325);
1943          V370= CMPcar((V371));          V330= CMPcar((V331));
1944          V371= CMPcdr((V371));          V331= CMPcdr((V331));
1945          V369= CMPcar((V371));          V329= CMPcar((V331));
1946          V371= CMPcdr((V371));          V331= CMPcdr((V331));
1947          V368= CMPcar((V371));          V328= CMPcar((V331));
1948          V371= CMPcdr((V371));          V331= CMPcdr((V331));
1949          V367= CMPcar((V371));          V327= CMPcar((V331));
1950          V371= CMPcdr((V371));          V331= CMPcdr((V331));
1951          V366= CMPcar((V371));          V326= CMPcar((V331));
1952          {object V372;          {object V332;
1953          register object V373;          register object V333;
1954          V372= (VFUN_NARGS=1,(*(LnkLI25))((V370)));          V332= (VFUN_NARGS=1,(*(LnkLI25))((V330)));
1955          V373= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V372)));          V333= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V332)));
1956          base[3]= (*(LnkLI221))((V370));          base[3]= (*(LnkLI231))((V330));
1957          base[4]= (V372);          base[4]= (V332);
1958          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1959          Lset();          Lset();
1960          vs_top=sup;          vs_top=sup;
1961          base[3]= (*(LnkLI222))((V370));          base[3]= (*(LnkLI232))((V330));
1962          base[4]= (V373);          base[4]= (V333);
1963          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1964          Lset();          Lset();
1965          vs_top=sup;          vs_top=sup;
1966          (void)(((V373))->v.v_self[9]= (Cnil));          (void)(((V333))->v.v_self[9]= (Cnil));
1967          (void)(((V373))->v.v_self[10]= (Cnil));          (void)(((V333))->v.v_self[10]= (Cnil));
1968          V374= make_cons((V370),(V367));          V334= make_cons((V330),(V327));
1969          (void)((VFUN_NARGS=10,(*(LnkLI193))(VV[31],(V372),(V370),(V363),Cnil,(V369),(V368),/* INLINE-ARGS */V374,(V373),(V366))));}}          (void)((VFUN_NARGS=10,(*(LnkLI203))(VV[31],(V332),(V330),(V323),Cnil,(V329),(V328),/* INLINE-ARGS */V334,(V333),(V326))));}}
1970          V364= CMPcdr((V364));          V324= CMPcdr((V324));
1971          V365= CMPcar((V364));          V325= CMPcar((V324));
1972          goto T813;}}          goto T831;}}
1973          goto T807;          goto T825;
1974  T807:;  T825:;
1975          {register object V375;          {register object V335;
1976          object V376;          object V336;
1977          V375= (VV[123]->s.s_dbind);          V335= (VV[132]->s.s_dbind);
1978          V376= CMPcar((V375));          V336= CMPcar((V335));
1979          goto T859;          goto T877;
1980  T859:;  T877:;
1981          if(!(((V375))==Cnil)){          if(!(((V335))==Cnil)){
1982          goto T860;}          goto T878;}
1983          {object V377 = Cnil;          {object V337 = Cnil;
1984          VMR14(V377)}          VMR14(V337)}
1985          goto T860;          goto T878;
1986  T860:;  T878:;
1987          {object V378;          {object V338;
1988          object V379;          object V339;
1989          V378= CMPcar((V376));          V338= CMPcar((V336));
1990          V379= (VFUN_NARGS=1,(*(LnkLI25))((V378)));          V339= (VFUN_NARGS=1,(*(LnkLI25))((V338)));
1991          {object V381;          {object V341;
1992          V382 = (V379);          base[4]= (V339);
         base[4]= (V379);  
1993          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1994          (void) (*Lnk218)(Lclptr218);          (void) (*Lnk228)(Lclptr228);
1995          vs_top=sup;          vs_top=sup;
1996          V383= vs_base[0];          V342= vs_base[0];
1997          V381= (*(LnkLI217))(V382,V383);          V341= (*(LnkLI227))((V339),V342);
1998          V384= ({object _tmp=get(VV[219],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[219])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[219])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V343= ({object _tmp=get(VV[229],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[229])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[229])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V385 = (V381);  
         V386 = V378;  
1999          (void)((          (void)((
2000          V387 = V384,          V344 = V343,
2001          (type_of(V387) == t_sfun ?(*((V387)->sfn.sfn_self)):          (type_of(V344) == t_sfun ?(*((V344)->sfn.sfn_self)):
2002          (fcall.argd=2,type_of(V387)==t_vfun) ?          (fcall.argd=2,type_of(V344)==t_vfun) ?
2003          (*((V387)->sfn.sfn_self)):          (*((V344)->sfn.sfn_self)):
2004          (fcall.fun=(V387),fcalln))(V385,V386)));}}          (fcall.fun=(V344),fcalln))((V341),V338)));}}
2005          V375= CMPcdr((V375));          V335= CMPcdr((V335));
2006          V376= CMPcar((V375));          V336= CMPcar((V335));
2007          goto T859;}          goto T877;}
2008          base[0]=base[0];          base[0]=base[0];
2009          return Cnil;          return Cnil;
2010  }  }
2011  /*      local entry for function WRAPPER-FOR-STRUCTURE  */  /*      local entry for function WRAPPER-FOR-STRUCTURE  */
2012    
2013  static object LI30(V389)  static object LI30(V346)
2014    
2015  object V389;  object V346;
2016  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
2017          goto TTL;          goto TTL;
2018  TTL:;  TTL:;
2019          {register object V390;          {register object V347;
2020          if(type_of((V389))==t_structure){          if(type_of((V346))==t_structure){
2021          goto T877;}          goto T895;}
2022          V390= Cnil;          V347= Cnil;
2023          goto T876;          goto T894;
         goto T877;  
 T877:;  
         V390= ((V389))->str.str_def->str.str_self[0];  
         goto T876;  
 T876:;  
         if(!(type_of((V390))==t_symbol)){  
         goto T879;}  
         if(!(((V390))==(VV[1]))){  
         goto T883;}  
         {object V391 = STREF(object,(V389),0);  
         VMR15(V391)}  
         goto T883;  
 T883:;  
         if(!(((V390))==((VV[125]->s.s_dbind)))){  
         goto T886;}  
         {object V392 = (VV[126]->s.s_dbind);  
         VMR15(V392)}  
         goto T886;  
 T886:;  
         if(!(((V390))==((VV[127]->s.s_dbind)))){  
         goto T889;}  
         {object V393 = (VV[128]->s.s_dbind);  
         VMR15(V393)}  
         goto T889;  
 T889:;  
         (VV[127]->s.s_dbind)= (VV[125]->s.s_dbind);  
         (VV[128]->s.s_dbind)= (VV[126]->s.s_dbind);  
         goto T879;  
 T879:;  
         {object V394;  
         object V395;  
         object V396;  
         V394= (VFUN_NARGS=1,(*(LnkLI224))((V390)));{object V397;  
         V397= CMPcar((V394));  
         if(V397==Cnil)goto T896;  
         V395= V397;  
         goto T895;  
         goto T896;  
 T896:;}  
         V395= (VFUN_NARGS=2,(*(LnkLI225))((V390),(V394)));  
2024          goto T895;          goto T895;
2025  T895:;  T895:;
2026          if(((V395))==Cnil){          V347= ((V346))->str.str_def->str.str_self[0];
2027          goto T900;}          goto T894;
2028          base[3]= (V395);  T894:;
2029            if(!(type_of((V347))==t_symbol)){
2030            goto T897;}
2031            if(!(((V347))==(VV[1]))){
2032            goto T901;}
2033            {object V348 = STREF(object,(V346),0);
2034            VMR15(V348)}
2035            goto T901;
2036    T901:;
2037            if(!(((V347))==((VV[134]->s.s_dbind)))){
2038            goto T904;}
2039            {object V349 = (VV[135]->s.s_dbind);
2040            VMR15(V349)}
2041            goto T904;
2042    T904:;
2043            if(!(((V347))==((VV[136]->s.s_dbind)))){
2044            goto T907;}
2045            {object V350 = (VV[137]->s.s_dbind);
2046            VMR15(V350)}
2047            goto T907;
2048    T907:;
2049            (VV[136]->s.s_dbind)= (VV[134]->s.s_dbind);
2050            (VV[137]->s.s_dbind)= (VV[135]->s.s_dbind);
2051            goto T897;
2052    T897:;
2053            {object V351;
2054            object V352;
2055            object V353;
2056            V351= (VFUN_NARGS=1,(*(LnkLI234))((V347)));{object V354;
2057            V354= CMPcar((V351));
2058            if(V354==Cnil)goto T914;
2059            V352= V354;
2060            goto T913;
2061            goto T914;
2062    T914:;}
2063            V352= (VFUN_NARGS=2,(*(LnkLI235))((V347),(V351)));
2064            goto T913;
2065    T913:;
2066            if(((V352))==Cnil){
2067            goto T918;}
2068            base[3]= (V352);
2069          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2070          (void) (*Lnk220)(Lclptr220);          (void) (*Lnk230)(Lclptr230);
2071          vs_top=sup;          vs_top=sup;
2072          V396= vs_base[0];          V353= vs_base[0];
2073          goto T898;          goto T916;
2074          goto T900;          goto T918;
2075  T900:;  T918:;
2076          V396= (VV[38]->s.s_dbind);          V353= (VV[46]->s.s_dbind);
2077          goto T898;          goto T916;
2078  T898:;  T916:;
2079          if(!(type_of((V390))==t_symbol)){          if(!(type_of((V347))==t_symbol)){
2080          goto T903;}          goto T921;}
2081          (VV[125]->s.s_dbind)= (V390);          (VV[134]->s.s_dbind)= (V347);
2082          (VV[126]->s.s_dbind)= (V396);          (VV[135]->s.s_dbind)= (V353);
2083          goto T903;          goto T921;
2084  T903:;  T921:;
2085          {object V398 = (V396);          {object V355 = (V353);
2086          VMR15(V398)}}}          VMR15(V355)}}}
2087          base[0]=base[0];          base[0]=base[0];
2088          return Cnil;          return Cnil;
2089  }  }
2090  /*      local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */  /*      local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */
2091    
2092  static object LI31(V400)  static object LI31(V357)
2093    
2094  object V400;  object V357;
2095  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
2096          goto TTL;          goto TTL;
2097  TTL:;  TTL:;
2098          {object V401;{object V402;          {object V358;{object V359;
2099          V402= (*(LnkLI226))((V400));          V359= (*(LnkLI236))((V357));
2100          if(V402==Cnil)goto T910;          if(V359==Cnil)goto T928;
2101          V401= V402;          V358= V359;
2102          goto T909;          goto T927;
2103          goto T910;          goto T928;
2104  T910:;}  T928:;}
2105          V401= (VV[38]->s.s_dbind);          V358= (VV[46]->s.s_dbind);
2106          goto T909;          goto T927;
2107  T909:;{object V403;  T927:;{object V360;
2108          if(((V401))==((VV[38]->s.s_dbind))){          if(((V358))==((VV[46]->s.s_dbind))){
2109          goto T914;}          goto T932;}
2110          V403= Cnil;          V360= Cnil;
2111          goto T913;          goto T931;
2112          goto T914;          goto T932;
2113  T914:;  T932:;
2114          if(type_of((V400))==t_structure){          if(type_of((V357))==t_structure){
2115          goto T916;}          goto T934;}
2116          V403= Cnil;          V360= Cnil;
2117          goto T913;          goto T931;
2118          goto T916;          goto T934;
2119  T916:;  T934:;
2120          {object V404;          {object V361;
2121          object V405;          object V362;
2122          base[2]= (V400);          base[2]= (V357);
2123          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2124          Ltype_of();          Ltype_of();
2125          vs_top=sup;          vs_top=sup;
2126          V404= vs_base[0];          V361= vs_base[0];
2127          V405= (VFUN_NARGS=2,(*(LnkLI25))((V404),Cnil));          V362= (VFUN_NARGS=2,(*(LnkLI25))((V361),Cnil));
2128          if((V405)==Cnil){          if((V362)==Cnil){
2129          V403= Cnil;          V360= Cnil;
2130          goto T913;}          goto T931;}
2131          base[2]= (V405);          base[2]= (V362);
2132          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2133          (void) (*Lnk220)(Lclptr220);          (void) (*Lnk230)(Lclptr230);
2134          vs_top=sup;          vs_top=sup;
2135          V403= vs_base[0];}          V360= vs_base[0];}
2136          goto T913;          goto T931;
2137  T913:;  T931:;
2138          if(V403==Cnil)goto T912;          if(V360==Cnil)goto T930;
2139          {object V406 = V403;          {object V363 = V360;
2140          VMR16(V406)}          VMR16(V363)}
2141          goto T912;          goto T930;
2142  T912:;}  T930:;}
2143          {object V407 = (V401);          {object V364 = (V358);
2144          VMR16(V407)}}          VMR16(V364)}}
2145          base[0]=base[0];          base[0]=base[0];
2146          return Cnil;          return Cnil;
2147  }  }
2148  /*      local entry for function CLASS-OF       */  /*      local entry for function CLASS-OF       */
2149    
2150  static object LI32(V409)  static object LI32(V366)
2151    
2152  register object V409;  register object V366;
2153  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
2154          goto TTL;          goto TTL;
2155  TTL:;  TTL:;
2156          if(type_of(V409)==t_structure){          if(type_of(V366)==t_structure){
2157          goto T926;}          goto T944;}
2158          goto T924;          goto T942;
2159          goto T926;          goto T944;
2160  T926:;  T944:;
2161          if(!(((V409)->str.str_def)==(VV[129]))){          if(!(((V366)->str.str_def)==(VV[138]))){
2162          goto T924;}          goto T942;}
2163          V410= STREF(object,(V409),0);          V367= STREF(object,(V366),0);
2164          goto T922;          goto T940;
2165          goto T924;          goto T942;
2166  T924:;{object V412;  T942:;{object V369;
2167          V412= (VV[45]->s.s_dbind);          V369= (VV[53]->s.s_dbind);
2168          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
2169          base[1]= (V409);          base[1]= (V366);
2170          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2171          (void) (*Lnk194)();          (void) (*Lnk204)();
2172          vs_top=sup;          vs_top=sup;
2173          V413= vs_base[0];          V370= vs_base[0];
2174          if(!((V412)==(CMPcar(V413)))){          if(!((V369)==(CMPcar(V370)))){
2175          goto T929;}}          goto T947;}}
2176          V410= CMPcar(((V409))->cc.cc_turbo[13]);          V367= CMPcar(((V366))->cc.cc_turbo[13]);
2177          goto T922;          goto T940;
2178          goto T929;          goto T947;
2179  T929:;  T947:;
2180          if(!(type_of((V409))==t_structure)){          if(!(type_of((V366))==t_structure)){
2181          goto T935;}          goto T953;}
2182          V410= (*(LnkLI227))((V409));          V367= (*(LnkLI237))((V366));
2183          goto T922;          goto T940;
2184          goto T935;          goto T953;
2185  T935:;  T953:;
2186          if(!(type_of((V409))==t_symbol)){          if(!(type_of((V366))==t_symbol)){
2187          goto T938;}          goto T956;}
2188          if(((V409))==Cnil){          if(((V366))==Cnil){
2189          goto T941;}          goto T959;}
2190          V410= (VV[130]->s.s_dbind);          V367= (VV[139]->s.s_dbind);
2191          goto T922;          goto T940;
2192          goto T941;          goto T959;
2193  T941:;  T959:;
2194          V410= (VV[131]->s.s_dbind);          V367= (VV[140]->s.s_dbind);
2195          goto T922;          goto T940;
2196          goto T938;          goto T956;
2197  T938:;  T956:;
2198          V410= (*(LnkLI226))((V409));          V367= (*(LnkLI236))((V366));
2199          goto T922;          goto T940;
2200  T922:;  T940:;
2201          {object V414 = (V410)->v.v_self[11];          {object V371 = (V367)->v.v_self[11];
2202          VMR17(V414)}          VMR17(V371)}
2203          base[0]=base[0];          base[0]=base[0];
2204          return Cnil;          return Cnil;
2205  }  }
2206  /*      local entry for function WRAPPER-OF     */  /*      local entry for function WRAPPER-OF     */
2207    
2208  static object LI33(V416)  static object LI33(V373)
2209    
2210  register object V416;  register object V373;
2211  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
2212          goto TTL;          goto TTL;
2213  TTL:;  TTL:;
2214          if(type_of(V416)==t_structure){          if(type_of(V373)==t_structure){
2215          goto T946;}          goto T964;}
2216          goto T944;          goto T962;
2217          goto T946;          goto T964;
2218  T946:;  T964:;
2219          if(!(((V416)->str.str_def)==(VV[132]))){          if(!(((V373)->str.str_def)==(VV[141]))){
2220          goto T944;}          goto T962;}
2221          {object V418 = STREF(object,(V416),0);          {object V375 = STREF(object,(V373),0);
2222          VMR18(V418)}          VMR18(V375)}
2223          goto T944;          goto T962;
2224  T944:;{object V419;  T962:;{object V376;
2225          V419= (VV[45]->s.s_dbind);          V376= (VV[53]->s.s_dbind);
2226          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
2227          base[1]= (V416);          base[1]= (V373);
2228          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2229          (void) (*Lnk194)();          (void) (*Lnk204)();
2230          vs_top=sup;          vs_top=sup;
2231          V420= vs_base[0];          V377= vs_base[0];
2232          if(!((V419)==(CMPcar(V420)))){          if(!((V376)==(CMPcar(V377)))){
2233          goto T949;}}          goto T967;}}
2234          {object V421 = CMPcar(((V416))->cc.cc_turbo[13]);          {object V378 = CMPcar(((V373))->cc.cc_turbo[13]);
2235          VMR18(V421)}          VMR18(V378)}
2236          goto T949;          goto T967;
2237  T949:;  T967:;
2238          if(!(type_of((V416))==t_structure)){          if(!(type_of((V373))==t_structure)){
2239          goto T955;}          goto T973;}
2240          {object V422 = (*(LnkLI227))((V416));          {object V379 = (*(LnkLI237))((V373));
2241          VMR18(V422)}          VMR18(V379)}
2242          goto T955;          goto T973;
2243  T955:;  T973:;
2244          if(!(type_of((V416))==t_symbol)){          if(!(type_of((V373))==t_symbol)){
2245          goto T958;}          goto T976;}
2246          if(((V416))==Cnil){          if(((V373))==Cnil){
2247          goto T961;}          goto T979;}
2248          {object V423 = (VV[130]->s.s_dbind);          {object V380 = (VV[139]->s.s_dbind);
2249          VMR18(V423)}          VMR18(V380)}
2250          goto T961;          goto T979;
2251  T961:;  T979:;
2252          {object V424 = (VV[131]->s.s_dbind);          {object V381 = (VV[140]->s.s_dbind);
2253          VMR18(V424)}          VMR18(V381)}
2254          goto T958;          goto T976;
2255  T958:;  T976:;
2256          {object V425 = (*(LnkLI226))((V416));          {object V382 = (*(LnkLI236))((V373));
2257          VMR18(V425)}          VMR18(V382)}
2258          base[0]=base[0];          base[0]=base[0];
2259          return Cnil;          return Cnil;
2260  }  }
# Line 2292  static void L34() Line 2264  static void L34()
2264  {register object *base=vs_base;  {register object *base=vs_base;
2265          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
2266          vs_check;          vs_check;
2267          {object V426;          {object V383;
2268          check_arg(1);          check_arg(1);
2269          V426=(base[0]);          V383=(base[0]);
2270          vs_top=sup;          vs_top=sup;
2271          goto TTL;          goto TTL;
2272  TTL:;  TTL:;
2273          if(type_of((V426))==t_structure){          if(type_of((V383))==t_structure){
2274          goto T965;}          goto T983;}
2275          V427= Cnil;          V384= Cnil;
2276          goto T964;          goto T982;
2277          goto T965;          goto T983;
2278  T965:;  T983:;
2279          V427= ((V426))->str.str_def->str.str_self[0];          V384= ((V383))->str.str_def->str.str_self[0];
2280          goto T964;          goto T982;
2281  T964:;  T982:;
2282          base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V427));          base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V384));
2283          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2284          (void) (*Lnk220)(Lclptr220);          (void) (*Lnk230)(Lclptr230);
2285          return;          return;
2286          }          }
2287  }  }
2288  /*      local entry for function EVAL-FORM      */  /*      local entry for function EVAL-FORM      */
2289    
2290  static object LI36(V429)  static object LI36(V386)
2291    
2292  object V429;  object V386;
2293  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
2294          goto TTL;          goto TTL;
2295  TTL:;  TTL:;
2296          base[0]=MMcons((V429),Cnil);          base[0]=MMcons((V386),Cnil);
2297          {object V430 =          {object V387 =
2298          make_cclosure_new(LC47,Cnil,base[0],Cdata);          make_cclosure_new(LC47,Cnil,base[0],Cdata);
2299          VMR20(V430)}          VMR20(V387)}
2300          base[0]=base[0];          base[0]=base[0];
2301          return Cnil;          return Cnil;
2302  }  }
2303  /*      local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD     */  /*      local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD     */
2304    
2305  static object LI37(V432)  static object LI37(V389)
2306    
2307  register object V432;  register object V389;
2308  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
2309          goto TTL;          goto TTL;
2310  TTL:;  TTL:;
2311          base[0]= VV[81];          base[0]= VV[38];
2312          base[1]= (*(LnkLI228))((V432));          base[1]= (*(LnkLI238))((V389));
2313          base[2]= VV[133];          base[2]= VV[142];
2314          base[3]= (*(LnkLI229))((V432));          base[3]= (*(LnkLI239))((V389));
2315          base[4]= VV[134];          base[4]= VV[143];
2316          base[5]= (*(LnkLI230))((V432));          base[5]= (*(LnkLI240))((V389));
2317          base[6]= VV[135];          base[6]= VV[144];
2318          base[7]= (*(LnkLI231))((V432));          base[7]= (*(LnkLI241))((V389));
2319          base[8]= VV[93];{object V433;          base[8]= VV[100];{object V390;
2320          V433= (*(LnkLI232))((V432));          V390= (*(LnkLI242))((V389));
2321          if(V433==Cnil)goto T977;          if(V390==Cnil)goto T995;
2322          base[9]= V433;          base[9]= V390;
2323          goto T976;          goto T994;
2324          goto T977;          goto T995;
2325  T977:;}  T995:;}
2326          base[9]= Ct;          base[9]= Ct;
2327          goto T976;          goto T994;
2328  T976:;  T994:;
2329          base[10]= VV[83];          base[10]= VV[90];
2330          base[12]= (V432);          base[12]= (V389);
2331          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2332          (void) (*Lnk233)();          (void) (*Lnk243)();
2333          vs_top=sup;          vs_top=sup;
2334          base[11]= vs_base[0];          base[11]= vs_base[0];
2335          base[12]= VV[85];          base[12]= VV[92];
2336          base[14]= (V432);          base[14]= (V389);
2337          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
2338          (void) (*Lnk233)();          (void) (*Lnk243)();
2339          vs_top=sup;          vs_top=sup;
2340          V434= vs_base[0];          V391= vs_base[0];
2341          base[13]= (*(LnkLI234))(V434);          base[13]= (*(LnkLI244))(V391);
2342          vs_top=(vs_base=base+0)+14;          vs_top=(vs_base=base+0)+14;
2343          Llist();          Llist();
2344          vs_top=sup;          vs_top=sup;
2345          {object V435 = vs_base[0];          {object V392 = vs_base[0];
2346          VMR21(V435)}          VMR21(V392)}
2347          base[0]=base[0];          base[0]=base[0];
2348          return Cnil;          return Cnil;
2349  }  }
# Line 2382  static void L38() Line 2354  static void L38()
2354          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
2355          vs_check;          vs_check;
2356          bds_check;          bds_check;
2357          {register object V436;          {register object V393;
2358          check_arg(1);          check_arg(1);
2359          V436=(base[0]);          V393=(base[0]);
2360          vs_top=sup;          vs_top=sup;
2361          goto TTL;          goto TTL;
2362  TTL:;  TTL:;
2363          if(((*(LnkLI235))((V436)))==Cnil){          if(((*(LnkLI245))((V393)))==Cnil){
2364          goto T987;}          goto T1005;}
2365          if(((VV[136]->s.s_dbind))==((V436))){          if(((VV[145]->s.s_dbind))==((V393))){
2366          goto T990;}          goto T1008;}
2367          bds_bind(VV[136],(V436));          bds_bind(VV[145],(V393));
2368          base[2]= (V436);          base[2]= (V393);
2369          base[3]= VV[137];          base[3]= VV[146];
2370          base[4]= VV[32];          base[4]= VV[32];
2371          base[5]= VV[81];          base[5]= VV[38];
2372          base[6]= (V436);          base[6]= (V393);
2373          base[7]= VV[138];          base[7]= VV[147];
2374          if(((*(LnkLI236))((V436)))==Cnil){          if(((*(LnkLI246))((V393)))==Cnil){
2375          goto T1000;}          goto T1018;}
2376          V437= (*(LnkLI236))((V436));          V394= (*(LnkLI246))((V393));
2377          base[8]= make_cons(/* INLINE-ARGS */V437,Cnil);          base[8]= make_cons(/* INLINE-ARGS */V394,Cnil);
2378          goto T998;          goto T1016;
2379          goto T1000;          goto T1018;
2380  T1000:;  T1018:;
2381          base[8]= Cnil;          base[8]= Cnil;
2382          goto T998;          goto T1016;
2383  T998:;  T1016:;
2384          base[9]= VV[139];          base[9]= VV[148];
2385          V440= (*(LnkLI237))((V436));          V397= (*(LnkLI247))((V393));
2386          {object V438;          {object V395;
2387          object V439= /* INLINE-ARGS */V440;          object V396= /* INLINE-ARGS */V397;
2388          if(V439==Cnil){          if(V396==Cnil){
2389          base[10]= Cnil;          base[10]= Cnil;
2390          goto T1003;}          goto T1021;}
2391          base[11]=V438=MMcons(Cnil,Cnil);          base[11]=V395=MMcons(Cnil,Cnil);
2392          goto T1004;          goto T1022;
2393  T1004:;  T1022:;
2394          (V438->c.c_car)= (*(LnkLI238))((V439->c.c_car));          (V395->c.c_car)= (*(LnkLI248))((V396->c.c_car));
2395          if((V439=MMcdr(V439))==Cnil){          if((V396=MMcdr(V396))==Cnil){
2396          base[10]= base[11];          base[10]= base[11];
2397          goto T1003;}          goto T1021;}
2398          V438=MMcdr(V438)=MMcons(Cnil,Cnil);          V395=MMcdr(V395)=MMcons(Cnil,Cnil);
2399          goto T1004;}          goto T1022;}
2400          goto T1003;          goto T1021;
2401  T1003:;  T1021:;
2402          vs_top=(vs_base=base+2)+9;          vs_top=(vs_base=base+2)+9;
2403          (void) (*Lnk239)();          (void) (*Lnk249)();
2404          bds_unwind1;          bds_unwind1;
2405          return;          return;
2406          goto T990;          goto T1008;
2407  T990:;  T1008:;
2408          base[1]= Cnil;          base[1]= Cnil;
2409          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2410          return;          return;
2411          goto T987;          goto T1005;
2412  T987:;  T1005:;
2413          base[1]= VV[140];          base[1]= VV[149];
2414          base[2]= (V436);          base[2]= (V393);
2415          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2416          Lerror();          Lerror();
2417          return;          return;
# Line 2447  T987:; Line 2419  T987:;
2419  }  }
2420  /*      local entry for function BUILT-IN-WRAPPER-OF    */  /*      local entry for function BUILT-IN-WRAPPER-OF    */
2421    
2422  static object LI39(V442)  static object LI39(V399)
2423    
2424  register object V442;  register object V399;
2425  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
2426          goto TTL;          goto TTL;
2427  TTL:;{object V443;  TTL:;{object V400;
2428          if(type_of((V442))==t_symbol){          if(type_of((V399))==t_symbol){
2429          goto T1010;}          goto T1028;}
2430          V443= Cnil;          V400= Cnil;
2431          goto T1009;          goto T1027;
         goto T1010;  
 T1010:;{object V444;  
         if(((V442))==Cnil){  
         goto T1014;}  
         V444= Cnil;  
         goto T1013;  
         goto T1014;  
 T1014:;  
         V444= (VV[131]->s.s_dbind);  
         goto T1013;  
 T1013:;  
         if(V444==Cnil)goto T1012;  
         V443= V444;  
         goto T1009;  
         goto T1012;  
 T1012:;}  
         V443= (VV[130]->s.s_dbind);  
         goto T1009;  
 T1009:;  
         if(V443==Cnil)goto T1008;  
         {object V445 = V443;  
         VMR23(V445)}  
         goto T1008;  
 T1008:;}{object V446;  
         if(type_of((V442))==t_character){  
         goto T1018;}  
         V446= Cnil;  
         goto T1017;  
         goto T1018;  
 T1018:;  
         V446= (VV[141]->s.s_dbind);  
         goto T1017;  
 T1017:;  
         if(V446==Cnil)goto T1016;  
         {object V447 = V446;  
         VMR23(V447)}  
         goto T1016;  
 T1016:;}{object V448;  
         if(type_of((V442))==t_array||  
 type_of((V442))==t_vector||  
 type_of((V442))==t_string||  
 type_of((V442))==t_bitvector){  
         goto T1022;}  
         V448= Cnil;  
         goto T1021;  
         goto T1022;  
 T1022:;{object V449;  
         if(type_of((V442))==t_vector||  
 type_of((V442))==t_string||  
 type_of((V442))==t_bitvector){  
         goto T1026;}  
         V449= Cnil;  
         goto T1025;  
         goto T1026;  
 T1026:;{object V450;  
         if((type_of((V442))==t_bitvector)){  
         goto T1030;}  
         V450= Cnil;  
         goto T1029;  
         goto T1030;  
 T1030:;  
         V450= (VV[144]->s.s_dbind);  
         goto T1029;  
 T1029:;  
         if(V450==Cnil)goto T1028;  
         V449= V450;  
         goto T1025;  
2432          goto T1028;          goto T1028;
2433  T1028:;}{object V451;  T1028:;{object V401;
2434          if(type_of((V442))==t_string){          if(((V399))==Cnil){
2435          goto T1034;}          goto T1032;}
2436          V451= Cnil;          V401= Cnil;
2437          goto T1033;          goto T1031;
         goto T1034;  
 T1034:;  
         V451= (VV[145]->s.s_dbind);  
         goto T1033;  
 T1033:;  
         if(V451==Cnil)goto T1032;  
         V449= V451;  
         goto T1025;  
2438          goto T1032;          goto T1032;
2439  T1032:;}  T1032:;
2440          V449= (VV[143]->s.s_dbind);          V401= (VV[140]->s.s_dbind);
2441          goto T1025;          goto T1031;
2442  T1025:;  T1031:;
2443          if(V449==Cnil)goto T1024;          if(V401==Cnil)goto T1030;
2444          V448= V449;          V400= V401;
2445          goto T1021;          goto T1027;
2446          goto T1024;          goto T1030;
2447  T1024:;}  T1030:;}
2448          V448= (VV[142]->s.s_dbind);          V400= (VV[139]->s.s_dbind);
2449          goto T1021;          goto T1027;
2450  T1021:;  T1027:;
2451          if(V448==Cnil)goto T1020;          if(V400==Cnil)goto T1026;
2452          {object V452 = V448;          {object V402 = V400;
2453          VMR23(V452)}          VMR23(V402)}
2454          goto T1020;          goto T1026;
2455  T1020:;}{object V453;  T1026:;}{object V403;
2456          if(!(type_of(V442)==t_cons||(V442)==Cnil)){          if(type_of((V399))==t_character){
2457            goto T1036;}
2458            V403= Cnil;
2459            goto T1035;
2460            goto T1036;
2461    T1036:;
2462            V403= (VV[150]->s.s_dbind);
2463            goto T1035;
2464    T1035:;
2465            if(V403==Cnil)goto T1034;
2466            {object V404 = V403;
2467            VMR23(V404)}
2468            goto T1034;
2469    T1034:;}{object V405;
2470            if(type_of((V399))==t_array||
2471    type_of((V399))==t_vector||
2472    type_of((V399))==t_string||
2473    type_of((V399))==t_bitvector){
2474          goto T1040;}          goto T1040;}
2475          goto T1038;          V405= Cnil;
2476            goto T1039;
2477          goto T1040;          goto T1040;
2478  T1040:;  T1040:;{object V406;
2479          if(type_of(V442)==t_vector||          if(type_of((V399))==t_vector||
2480  type_of(V442)==t_string||  type_of((V399))==t_string||
2481  type_of(V442)==t_bitvector){  type_of((V399))==t_bitvector){
         goto T1038;}  
         V453= Cnil;  
         goto T1037;  
         goto T1038;  
 T1038:;{object V455;  
         if(type_of((V442))==t_vector||  
 type_of((V442))==t_string||  
 type_of((V442))==t_bitvector){  
2482          goto T1044;}          goto T1044;}
2483          V455= Cnil;          V406= Cnil;
2484          goto T1043;          goto T1043;
2485          goto T1044;          goto T1044;
2486  T1044:;{object V456;  T1044:;{object V407;
2487          if((type_of((V442))==t_bitvector)){          if((type_of((V399))==t_bitvector)){
2488          goto T1048;}          goto T1048;}
2489          V456= Cnil;          V407= Cnil;
2490          goto T1047;          goto T1047;
2491          goto T1048;          goto T1048;
2492  T1048:;  T1048:;
2493          V456= (VV[144]->s.s_dbind);          V407= (VV[153]->s.s_dbind);
2494          goto T1047;          goto T1047;
2495  T1047:;  T1047:;
2496          if(V456==Cnil)goto T1046;          if(V407==Cnil)goto T1046;
2497          V455= V456;          V406= V407;
2498          goto T1043;          goto T1043;
2499          goto T1046;          goto T1046;
2500  T1046:;}{object V457;  T1046:;}{object V408;
2501          if(type_of((V442))==t_string){          if(type_of((V399))==t_string){
2502          goto T1052;}          goto T1052;}
2503          V457= Cnil;          V408= Cnil;
2504          goto T1051;          goto T1051;
2505          goto T1052;          goto T1052;
2506  T1052:;  T1052:;
2507          V457= (VV[145]->s.s_dbind);          V408= (VV[154]->s.s_dbind);
2508          goto T1051;          goto T1051;
2509  T1051:;  T1051:;
2510          if(V457==Cnil)goto T1050;          if(V408==Cnil)goto T1050;
2511          V455= V457;          V406= V408;
2512          goto T1043;          goto T1043;
2513          goto T1050;          goto T1050;
2514  T1050:;}  T1050:;}
2515          V455= (VV[143]->s.s_dbind);          V406= (VV[152]->s.s_dbind);
2516          goto T1043;          goto T1043;
2517  T1043:;  T1043:;
2518          if(V455==Cnil)goto T1042;          if(V406==Cnil)goto T1042;
2519          V453= V455;          V405= V406;
2520          goto T1037;          goto T1039;
2521          goto T1042;          goto T1042;
2522  T1042:;}{object V458;  T1042:;}
2523          if(!(type_of(V442)==t_cons)){          V405= (VV[151]->s.s_dbind);
2524            goto T1039;
2525    T1039:;
2526            if(V405==Cnil)goto T1038;
2527            {object V409 = V405;
2528            VMR23(V409)}
2529            goto T1038;
2530    T1038:;}{object V410;
2531            if(!(type_of(V399)==t_cons||(V399)==Cnil)){
2532          goto T1058;}          goto T1058;}
2533          goto T1056;          goto T1056;
2534          goto T1058;          goto T1058;
2535  T1058:;  T1058:;
2536          if((V442)==Cnil){          if(type_of(V399)==t_vector||
2537    type_of(V399)==t_string||
2538    type_of(V399)==t_bitvector){
2539          goto T1056;}          goto T1056;}
2540          V458= Cnil;          V410= Cnil;
2541          goto T1055;          goto T1055;
2542          goto T1056;          goto T1056;
2543  T1056:;{object V460;  T1056:;{object V412;
2544          if(((V442))==Cnil){          if(type_of((V399))==t_vector||
2545    type_of((V399))==t_string||
2546    type_of((V399))==t_bitvector){
2547          goto T1062;}          goto T1062;}
2548          V460= Cnil;          V412= Cnil;
2549          goto T1061;          goto T1061;
2550          goto T1062;          goto T1062;
2551  T1062:;  T1062:;{object V413;
2552          V460= (VV[131]->s.s_dbind);          if((type_of((V399))==t_bitvector)){
         goto T1061;  
 T1061:;  
         if(V460==Cnil)goto T1060;  
         V458= V460;  
         goto T1055;  
         goto T1060;  
 T1060:;}{object V461;  
         if(type_of((V442))==t_cons){  
2553          goto T1066;}          goto T1066;}
2554          V461= Cnil;          V413= Cnil;
2555          goto T1065;          goto T1065;
2556          goto T1066;          goto T1066;
2557  T1066:;  T1066:;
2558          V461= (VV[148]->s.s_dbind);          V413= (VV[153]->s.s_dbind);
2559          goto T1065;          goto T1065;
2560  T1065:;  T1065:;
2561          if(V461==Cnil)goto T1064;          if(V413==Cnil)goto T1064;
2562          V458= V461;          V412= V413;
2563          goto T1055;          goto T1061;
2564          goto T1064;          goto T1064;
2565  T1064:;}  T1064:;}{object V414;
2566          V458= (VV[147]->s.s_dbind);          if(type_of((V399))==t_string){
         goto T1055;  
 T1055:;  
         if(V458==Cnil)goto T1054;  
         V453= V458;  
         goto T1037;  
         goto T1054;  
 T1054:;}  
         V453= (VV[146]->s.s_dbind);  
         goto T1037;  
 T1037:;  
         if(V453==Cnil)goto T1036;  
         {object V462 = V453;  
         VMR23(V462)}  
         goto T1036;  
 T1036:;}{object V463;  
         if(type_of((V442))==t_fixnum||  
 type_of((V442))==t_bignum||  
 type_of((V442))==t_ratio||  
 type_of((V442))==t_shortfloat||  
 type_of((V442))==t_longfloat||  
 type_of((V442))==t_complex){  
2567          goto T1070;}          goto T1070;}
2568          V463= Cnil;          V414= Cnil;
2569          goto T1069;          goto T1069;
2570          goto T1070;          goto T1070;
2571  T1070:;{object V464;  T1070:;
2572          base[0]= (V442);          V414= (VV[154]->s.s_dbind);
2573          base[1]= VV[156];          goto T1069;
2574          vs_top=(vs_base=base+0)+2;  T1069:;
2575          (void) (*Lnk240)();          if(V414==Cnil)goto T1068;
2576          vs_top=sup;          V412= V414;
2577          if((vs_base[0])!=Cnil){          goto T1061;
2578            goto T1068;
2579    T1068:;}
2580            V412= (VV[152]->s.s_dbind);
2581            goto T1061;
2582    T1061:;
2583            if(V412==Cnil)goto T1060;
2584            V410= V412;
2585            goto T1055;
2586            goto T1060;
2587    T1060:;}{object V415;
2588            if(!(type_of(V399)==t_cons)){
2589            goto T1076;}
2590            goto T1074;
2591            goto T1076;
2592    T1076:;
2593            if((V399)==Cnil){
2594          goto T1074;}          goto T1074;}
2595          V464= Cnil;          V415= Cnil;
2596          goto T1073;          goto T1073;
2597          goto T1074;          goto T1074;
2598  T1074:;{object V465;  T1074:;{object V417;
2599          base[0]= (V442);          if(((V399))==Cnil){
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk241)();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
2600          goto T1080;}          goto T1080;}
2601          V465= Cnil;          V417= Cnil;
2602          goto T1079;          goto T1079;
2603          goto T1080;          goto T1080;
2604  T1080:;{object V466;  T1080:;
2605          if(type_of((V442))==t_ratio){          V417= (VV[140]->s.s_dbind);
         goto T1085;}  
         V466= Cnil;  
         goto T1084;  
         goto T1085;  
 T1085:;  
         V466= (VV[152]->s.s_dbind);  
         goto T1084;  
 T1084:;  
         if(V466==Cnil)goto T1083;  
         V465= V466;  
         goto T1079;  
         goto T1083;  
 T1083:;}{object V467;  
         if(type_of((V442))==t_fixnum||type_of((V442))==t_bignum){  
         goto T1089;}  
         V467= Cnil;  
         goto T1088;  
         goto T1089;  
 T1089:;  
         V467= (VV[153]->s.s_dbind);  
         goto T1088;  
 T1088:;  
         if(V467==Cnil)goto T1087;  
         V465= V467;  
         goto T1079;  
         goto T1087;  
 T1087:;}  
         V465= (VV[151]->s.s_dbind);  
2606          goto T1079;          goto T1079;
2607  T1079:;  T1079:;
2608          if(V465==Cnil)goto T1078;          if(V417==Cnil)goto T1078;
2609          V464= V465;          V415= V417;
2610          goto T1073;          goto T1073;
2611          goto T1078;          goto T1078;
2612  T1078:;}{object V468;  T1078:;}{object V418;
2613          if(type_of((V442))==t_shortfloat||type_of((V442))==t_longfloat){          if(type_of((V399))==t_cons){
2614          goto T1093;}          goto T1084;}
2615          V468= Cnil;          V418= Cnil;
2616          goto T1092;          goto T1083;
2617          goto T1093;          goto T1084;
2618  T1093:;  T1084:;
2619          V468= (VV[154]->s.s_dbind);          V418= (VV[157]->s.s_dbind);
2620          goto T1092;          goto T1083;
2621  T1092:;  T1083:;
2622          if(V468==Cnil)goto T1091;          if(V418==Cnil)goto T1082;
2623          V464= V468;          V415= V418;
2624          goto T1073;          goto T1073;
2625          goto T1091;          goto T1082;
2626  T1091:;}  T1082:;}
2627          V464= (VV[150]->s.s_dbind);          V415= (VV[156]->s.s_dbind);
2628          goto T1073;          goto T1073;
2629  T1073:;  T1073:;
2630          if(V464==Cnil)goto T1072;          if(V415==Cnil)goto T1072;
2631          V463= V464;          V410= V415;
2632          goto T1069;          goto T1055;
2633          goto T1072;          goto T1072;
2634  T1072:;}{object V469;  T1072:;}
2635          base[0]= (V442);          V410= (VV[155]->s.s_dbind);
2636            goto T1055;
2637    T1055:;
2638            if(V410==Cnil)goto T1054;
2639            {object V419 = V410;
2640            VMR23(V419)}
2641            goto T1054;
2642    T1054:;}{object V420;
2643            if(type_of((V399))==t_fixnum||
2644    type_of((V399))==t_bignum||
2645    type_of((V399))==t_ratio||
2646    type_of((V399))==t_shortfloat||
2647    type_of((V399))==t_longfloat||
2648    type_of((V399))==t_complex){
2649            goto T1088;}
2650            V420= Cnil;
2651            goto T1087;
2652            goto T1088;
2653    T1088:;{object V421;
2654            base[0]= (V399);
2655            base[1]= VV[165];
2656            vs_top=(vs_base=base+0)+2;
2657            (void) (*Lnk250)();
2658            vs_top=sup;
2659            if((vs_base[0])!=Cnil){
2660            goto T1092;}
2661            V421= Cnil;
2662            goto T1091;
2663            goto T1092;
2664    T1092:;{object V422;
2665            base[0]= (V399);
2666          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2667          Lcomplexp();          (void) (*Lnk251)();
2668          vs_top=sup;          vs_top=sup;
2669          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2670          goto T1097;}          goto T1098;}
2671          V469= Cnil;          V422= Cnil;
2672          goto T1096;          goto T1097;
2673            goto T1098;
2674    T1098:;{object V423;
2675            if(type_of((V399))==t_ratio){
2676            goto T1103;}
2677            V423= Cnil;
2678            goto T1102;
2679            goto T1103;
2680    T1103:;
2681            V423= (VV[161]->s.s_dbind);
2682            goto T1102;
2683    T1102:;
2684            if(V423==Cnil)goto T1101;
2685            V422= V423;
2686            goto T1097;
2687            goto T1101;
2688    T1101:;}{object V424;
2689            if(type_of((V399))==t_fixnum||type_of((V399))==t_bignum){
2690            goto T1107;}
2691            V424= Cnil;
2692            goto T1106;
2693            goto T1107;
2694    T1107:;
2695            V424= (VV[162]->s.s_dbind);
2696            goto T1106;
2697    T1106:;
2698            if(V424==Cnil)goto T1105;
2699            V422= V424;
2700            goto T1097;
2701            goto T1105;
2702    T1105:;}
2703            V422= (VV[160]->s.s_dbind);
2704          goto T1097;          goto T1097;
2705  T1097:;  T1097:;
2706          V469= (VV[155]->s.s_dbind);          if(V422==Cnil)goto T1096;
2707            V421= V422;
2708            goto T1091;
2709          goto T1096;          goto T1096;
2710  T1096:;  T1096:;}{object V425;
2711          if(V469==Cnil)goto T1095;          if(type_of((V399))==t_shortfloat||type_of((V399))==t_longfloat){
2712          V463= V469;          goto T1111;}
2713          goto T1069;          V425= Cnil;
2714          goto T1095;          goto T1110;
2715  T1095:;}          goto T1111;
2716          V463= (VV[149]->s.s_dbind);  T1111:;
2717          goto T1069;          V425= (VV[163]->s.s_dbind);
2718  T1069:;          goto T1110;
2719          if(V463==Cnil)goto T1068;  T1110:;
2720          {object V470 = V463;          if(V425==Cnil)goto T1109;
2721          VMR23(V470)}          V421= V425;
2722          goto T1068;          goto T1091;
2723  T1068:;}          goto T1109;
2724          {object V471 = (VV[38]->s.s_dbind);  T1109:;}
2725          VMR23(V471)}          V421= (VV[159]->s.s_dbind);
2726            goto T1091;
2727    T1091:;
2728            if(V421==Cnil)goto T1090;
2729            V420= V421;
2730            goto T1087;
2731            goto T1090;
2732    T1090:;}{object V426;
2733            base[0]= (V399);
2734            vs_top=(vs_base=base+0)+1;
2735            Lcomplexp();
2736            vs_top=sup;
2737            if((vs_base[0])!=Cnil){
2738            goto T1115;}
2739            V426= Cnil;
2740            goto T1114;
2741            goto T1115;
2742    T1115:;
2743            V426= (VV[164]->s.s_dbind);
2744            goto T1114;
2745    T1114:;
2746            if(V426==Cnil)goto T1113;
2747            V420= V426;
2748            goto T1087;
2749            goto T1113;
2750    T1113:;}
2751            V420= (VV[158]->s.s_dbind);
2752            goto T1087;
2753    T1087:;
2754            if(V420==Cnil)goto T1086;
2755            {object V427 = V420;
2756            VMR23(V427)}
2757            goto T1086;
2758    T1086:;}
2759            {object V428 = (VV[46]->s.s_dbind);
2760            VMR23(V428)}
2761          base[0]=base[0];          base[0]=base[0];
2762          return Cnil;          return Cnil;
2763  }  }
2764  /*      local entry for function METHOD-FUNCTION-RETURNING-NIL  */  /*      local entry for function METHOD-FUNCTION-RETURNING-NIL  */
2765    
2766  static object LI40(V474,V475)  static object LI40(V431,V432)
2767    
2768  object V474;object V475;  object V431;object V432;
2769  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2770          goto TTL;          goto TTL;
2771  TTL:;  TTL:;
2772          {object V476 = Cnil;          {object V433 = Cnil;
2773          VMR24(V476)}          VMR24(V433)}
2774          return Cnil;          return Cnil;
2775  }  }
2776  /*      local entry for function METHOD-FUNCTION-RETURNING-T    */  /*      local entry for function METHOD-FUNCTION-RETURNING-T    */
2777    
2778  static object LI41(V479,V480)  static object LI41(V436,V437)
2779    
2780  object V479;object V480;  object V436;object V437;
2781  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
2782          goto TTL;          goto TTL;
2783  TTL:;  TTL:;
2784          {object V481 = Ct;          {object V438 = Ct;
2785          VMR25(V481)}          VMR25(V438)}
2786          return Cnil;          return Cnil;
2787  }  }
2788  /*      local entry for function MAKE-CLASS-PREDICATE   */  /*      local entry for function MAKE-CLASS-PREDICATE   */
2789    
2790  static object LI42(V484,V485)  static object LI42(V441,V442)
2791    
2792  object V484;object V485;  object V441;object V442;
2793  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
2794          goto TTL;          goto TTL;
2795  TTL:;  TTL:;
2796          {register object V486;          {register object V443;
2797          object V487;          object V444;
2798          base[2]= (V485);          base[2]= (V442);
2799          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2800          (void) (*Lnk210)();          (void) (*Lnk220)();
2801          vs_top=sup;          vs_top=sup;
2802          V486= vs_base[0];          V443= vs_base[0];
2803          if(!(((VV[157]->s.s_dbind))==(VV[158]))){          if(!(((VV[166]->s.s_dbind))==(VV[167]))){
2804          goto T1104;}          goto T1122;}
2805          base[2]= (V486);          base[2]= (V443);
2806          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2807          (void) (*Lnk242)(Lclptr242);          (void) (*Lnk252)(Lclptr252);
2808          vs_top=sup;          vs_top=sup;
2809          V487= vs_base[0];          V444= vs_base[0];
2810          goto T1102;          goto T1120;
2811          goto T1104;          goto T1122;
2812  T1104:;  T1122:;
2813          if(type_of(V486)==t_structure){          if(type_of(V443)==t_structure){
2814          goto T1111;}          goto T1129;}
2815          goto T1109;          goto T1127;
2816          goto T1111;          goto T1129;
2817  T1111:;  T1129:;
2818          if(!(((V486)->str.str_def)==(VV[159]))){          if(!(((V443)->str.str_def)==(VV[168]))){
2819          goto T1109;}          goto T1127;}
2820          V488= STREF(object,(V486),4);          V445= STREF(object,(V443),4);
2821          goto T1107;          goto T1125;
2822          goto T1109;          goto T1127;
2823  T1109:;{object V490;  T1127:;{object V447;
2824          V490= (VV[45]->s.s_dbind);          V447= (VV[53]->s.s_dbind);
2825          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2826          base[3]= (V486);          base[3]= (V443);
2827          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2828          (void) (*Lnk194)();          (void) (*Lnk204)();
2829          vs_top=sup;          vs_top=sup;
2830          V491= vs_base[0];          V448= vs_base[0];
2831          if(!((V490)==(CMPcar(V491)))){          if(!((V447)==(CMPcar(V448)))){
2832          goto T1114;}}          goto T1132;}}
2833          V488= CMPcar(((V486))->cc.cc_turbo[12]);          V445= CMPcar(((V443))->cc.cc_turbo[12]);
2834          goto T1107;          goto T1125;
2835          goto T1114;          goto T1132;
2836  T1114:;  T1132:;
2837          base[2]= VV[46];          base[2]= VV[54];
2838          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2839          Lerror();          Lerror();
2840          vs_top=sup;          vs_top=sup;
2841          V488= vs_base[0];          V445= vs_base[0];
2842          goto T1107;          goto T1125;
2843  T1107:;  T1125:;
2844          V492 = (VV[117]->s.s_dbind);          V444= (V445)->v.v_self[fix((VV[126]->s.s_dbind))];
2845          V487= (V488)->v.v_self[fix(V492)];          goto T1120;
2846          goto T1102;  T1120:;
2847  T1102:;          if(((V444))!=Cnil){
2848          if(((V487))!=Cnil){          goto T1138;}
2849          goto T1120;}          if(((V441))==((VV[169]->s.s_dbind))){
2850          if(((V484))==((VV[160]->s.s_dbind))){          goto T1141;}
2851          goto T1123;}          {object V449;
2852          {object V493;          object V450;
2853          object V494;          object V451;
2854          object V495;          V449= (VV[253]->s.s_gfdef);
2855          V493= (VV[243]->s.s_gfdef);          V450= list(2,VV[170],(V449));
2856          V494= list(2,VV[161],(V493));          base[5]= VV[171];
         base[5]= VV[162];  
2857          base[6]= Cnil;          base[6]= Cnil;
2858          base[7]= make_cons(VV[57],Cnil);          base[7]= make_cons(VV[65],Cnil);
2859          base[8]= make_cons((VV[160]->s.s_dbind),Cnil);          base[8]= make_cons((VV[169]->s.s_dbind),Cnil);
2860          base[9]= (V494);          base[9]= (V450);
2861          base[10]= VV[163];          base[10]= VV[172];
2862          V495= simple_symlispcall(VV[216],base+5,6);          V451= simple_symlispcall(VV[226],base+5,6);
2863          V499= ({object _tmp=get(VV[244],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[244])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[244])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V455= ({object _tmp=get(VV[254],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[254])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[254])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V500 = Cnil;  
         V501 = V493;  
         V502 = VV[164];  
2864          (void)((          (void)((
2865          V503 = V499,          V456 = V455,
2866          (type_of(V503) == t_sfun ?(*((V503)->sfn.sfn_self)):          (type_of(V456) == t_sfun ?(*((V456)->sfn.sfn_self)):
2867          (fcall.argd=3,type_of(V503)==t_vfun) ?          (fcall.argd=3,type_of(V456)==t_vfun) ?
2868          (*((V503)->sfn.sfn_self)):          (*((V456)->sfn.sfn_self)):
2869          (fcall.fun=(V503),fcalln))(V500,V501,V502)));          (fcall.fun=(V456),fcalln))(Cnil,V449,VV[173])));
2870          base[5]= (V486);          base[5]= (V443);
2871          base[6]= (V495);          base[6]= (V451);
2872          (void)simple_symlispcall(VV[215],base+5,2);}          (void)simple_symlispcall(VV[225],base+5,2);}
2873          goto T1123;          goto T1141;
2874  T1123:;  T1141:;
2875          {object V504;          {object V457;
2876          object V505;          object V458;
2877          object V506;          object V459;
2878          V504= (VV[245]->s.s_gfdef);          V457= (VV[255]->s.s_gfdef);
2879          V505= list(2,VV[161],(V504));          V458= list(2,VV[170],(V457));
2880          base[5]= VV[162];          base[5]= VV[171];
2881          base[6]= Cnil;          base[6]= Cnil;
2882          base[7]= make_cons(VV[57],Cnil);          base[7]= make_cons(VV[65],Cnil);
2883          base[8]= make_cons((V484),Cnil);          base[8]= make_cons((V441),Cnil);
2884          base[9]= (V505);          base[9]= (V458);
2885          base[10]= VV[165];          base[10]= VV[174];
2886          V506= simple_symlispcall(VV[216],base+5,6);          V459= simple_symlispcall(VV[226],base+5,6);
2887          V510= ({object _tmp=get(VV[244],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[244])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[244])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});          V463= ({object _tmp=get(VV[254],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[254])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[254])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;});
         V511 = Ct;  
         V512 = V504;  
         V513 = VV[164];  
2888          (void)((          (void)((
2889          V514 = V510,          V464 = V463,
2890          (type_of(V514) == t_sfun ?(*((V514)->sfn.sfn_self)):          (type_of(V464) == t_sfun ?(*((V464)->sfn.sfn_self)):
2891          (fcall.argd=3,type_of(V514)==t_vfun) ?          (fcall.argd=3,type_of(V464)==t_vfun) ?
2892          (*((V514)->sfn.sfn_self)):          (*((V464)->sfn.sfn_self)):
2893          (fcall.fun=(V514),fcalln))(V511,V512,V513)));          (fcall.fun=(V464),fcalln))(Ct,V457,VV[173])));
2894          base[5]= (V486);          base[5]= (V443);
2895          base[6]= (V506);          base[6]= (V459);
2896          (void)simple_symlispcall(VV[215],base+5,2);}          (void)simple_symlispcall(VV[225],base+5,2);}
2897          goto T1120;          goto T1138;
2898  T1120:;  T1138:;
2899          {object V515 = (V486);          {object V465 = (V443);
2900          VMR26(V515)}}          VMR26(V465)}}
2901          base[0]=base[0];          base[0]=base[0];
2902          return Cnil;          return Cnil;
2903  }  }
2904  /*      function definition for G5599   */  /*      function definition for G5978   */
2905    
2906  static void L43()  static void L43()
2907  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2946  static void L43() Line 2911  static void L43()
2911          vs_top=sup;          vs_top=sup;
2912          goto TTL;          goto TTL;
2913  TTL:;  TTL:;
2914          base[0]= VV[166];          base[0]= VV[175];
2915          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2916          return;          return;
2917  }  }
# Line 2956  static void L44() Line 2921  static void L44()
2921  {register object *base=vs_base;  {register object *base=vs_base;
2922          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
2923          vs_check;          vs_check;
2924          {object V516;          {object V466;
2925          object V517;          object V467;
2926          object V518;          register object V468;
2927          object V519;          object V469;
2928          check_arg(4);          check_arg(4);
2929          V516=(base[0]);          V466=(base[0]);
2930          V517=(base[1]);          V467=(base[1]);
2931          V518=(base[2]);          V468=(base[2]);
2932          V519=(base[3]);          V469=(base[3]);
2933          vs_top=sup;          vs_top=sup;
2934          goto TTL;          goto TTL;
2935  TTL:;  TTL:;
2936          base[4]= VV[167];          base[4]= VV[176];
2937          base[5]= VV[168];          base[5]= VV[177];
2938          base[6]= (V518);          base[6]= (V468);
2939          base[7]= V519;          base[7]= V469;
2940          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2941          Lcerror();          Lcerror();
2942          vs_top=sup;          vs_top=sup;
2943          base[4]= (V518);          base[4]= (V468);
2944          {object V522;          {object V472;
2945          V522= V519;          V472= V469;
2946           vs_top=base+5;           vs_top=base+5;
2947           while(V522!=Cnil)           while(V472!=Cnil)
2948           {vs_push((V522)->c.c_car);V522=(V522)->c.c_cdr;}           {vs_push((V472)->c.c_car);V472=(V472)->c.c_cdr;}
2949          vs_base=base+5;}          vs_base=base+5;}
2950          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2951                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 3010  register object *base0; Line 2975  register object *base0;
2975  {       register object *base=vs_base;  {       register object *base=vs_base;
2976          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
2977          vs_check;          vs_check;
2978          {object V523;          {object V473;
2979          check_arg(1);          check_arg(1);
2980          V523=(base[0]);          V473=(base[0]);
2981          vs_top=sup;          vs_top=sup;
2982          goto TTL;          goto TTL;
2983  TTL:;  TTL:;
2984          base[1]= base0[1];          base[1]= base0[1];
2985          base[2]= (V523);          base[2]= (V473);
2986          base[3]= base0[0];          base[3]= base0[0];
2987          base[4]= VV[122];          base[4]= VV[131];
2988          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
2989          (void) (*Lnk246)();          (void) (*Lnk256)();
2990          return;          return;
2991          }          }
2992  }  }
# Line 3032  register object *base0; Line 2997  register object *base0;
2997  {       register object *base=vs_base;  {       register object *base=vs_base;
2998          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
2999          vs_check;          vs_check;
3000          {object V524;          {object V474;
3001          check_arg(1);          check_arg(1);
3002          V524=(base[0]);          V474=(base[0]);
3003          vs_top=sup;          vs_top=sup;
3004          goto TTL;          goto TTL;
3005  TTL:;  TTL:;
3006          base[1]= base0[1];          base[1]= base0[1];
3007          base[2]= (V524);          base[2]= (V474);
3008          base[3]= base0[0];          base[3]= base0[0];
3009          base[4]= VV[121];          base[4]= VV[130];
3010          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3011          (void) (*Lnk246)();          (void) (*Lnk256)();
3012          return;          return;
3013          }          }
3014  }  }
# Line 3054  register object *base0; Line 3019  register object *base0;
3019  {       register object *base=vs_base;  {       register object *base=vs_base;
3020          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
3021          vs_check;          vs_check;
3022          {object V525;          {object V475;
3023          check_arg(1);          check_arg(1);
3024          V525=(base[0]);          V475=(base[0]);
3025          vs_top=sup;          vs_top=sup;
3026          goto TTL;          goto TTL;
3027  TTL:;  TTL:;
3028          base[1]= base0[1];          base[1]= base0[1];
3029          base[2]= (V525);          base[2]= (V475);
3030          base[3]= base0[0];          base[3]= base0[0];
3031          base[4]= VV[120];          base[4]= VV[129];
3032          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
3033          (void) (*Lnk246)();          (void) (*Lnk256)();
3034          return;          return;
3035          }          }
3036  }  }
# Line 3076  register object *base0; Line 3041  register object *base0;
3041  {       register object *base=vs_base;  {       register object *base=vs_base;
3042          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
3043          vs_check;          vs_check;
3044          {object V526;          {object V476;
3045          object V527;          object V477;
3046          check_arg(2);          check_arg(2);
3047          V526=(base[0]);          V476=(base[0]);
3048          V527=(base[1]);          V477=(base[1]);
3049          vs_top=sup;          vs_top=sup;
3050          goto TTL;          goto TTL;
3051  TTL:;  TTL:;
3052          base[2]= (*(LnkLI197))(base0[1],base0[2],(V526),(V527));          base[2]= (*(LnkLI207))(base0[1],base0[2],(V476),(V477));
3053          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3054          return;          return;
3055          }          }
# Line 3096  register object *base0; Line 3061  register object *base0;
3061  {       register object *base=vs_base;  {       register object *base=vs_base;
3062          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
3063          vs_check;          vs_check;
3064          {object V528;          {object V478;
3065          check_arg(1);          check_arg(1);
3066          V528=(base[0]);          V478=(base[0]);
3067          vs_top=sup;          vs_top=sup;
3068          goto TTL;          goto TTL;
3069  TTL:;  TTL:;
3070          base[1]= base0[0];          base[1]= base0[0];
3071          base[2]= (V528);          base[2]= (V478);
3072          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3073          Lgetf();          Lgetf();
3074          return;          return;
# Line 3116  register object *base0; Line 3081  register object *base0;
3081  {       register object *base=vs_base;  {       register object *base=vs_base;
3082          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
3083          vs_check;          vs_check;
3084          {object V529;          {object V479;
3085          object V530;          object V480;
3086          check_arg(2);          check_arg(2);
3087          V529=(base[0]);          V479=(base[0]);
3088          V530=(base[1]);          V480=(base[1]);
3089          vs_top=sup;          vs_top=sup;
3090          goto TTL;          goto TTL;
3091  TTL:;  TTL:;
3092          base[2]= (*(LnkLI197))(base0[0],base0[1],(V529),(V530));          base[2]= (*(LnkLI207))(base0[0],base0[1],(V479),(V480));
3093          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3094          return;          return;
3095          }          }
# Line 3136  register object *base0; Line 3101  register object *base0;
3101  {       register object *base=vs_base;  {       register object *base=vs_base;
3102          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
3103          vs_check;          vs_check;
3104          {object V531;          {object V481;
3105          check_arg(1);          check_arg(1);
3106          V531=(base[0]);          V481=(base[0]);
3107          vs_top=sup;          vs_top=sup;
3108          goto TTL;          goto TTL;
3109  TTL:;  TTL:;
3110          base[2]=VV[25]->s.s_gfdef;          base[2]=VV[25]->s.s_gfdef;
3111          {object V532;          {object V482;
3112          object V533= (V531);          object V483= (V481);
3113          if(V533==Cnil){          if(V483==Cnil){
3114          base[3]= Cnil;          base[3]= Cnil;
3115          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3116          return;}          return;}
3117          base[1]=V532=MMcons(Cnil,Cnil);          base[1]=V482=MMcons(Cnil,Cnil);
3118          goto T1177;          goto T1194;
3119  T1177:;  T1194:;
3120          base[3]= (V533->c.c_car);          base[3]= (V483->c.c_car);
3121          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3122          (void) (*Lnk25)();          (void) (*Lnk25)();
3123          vs_top=sup;          vs_top=sup;
3124          (V532->c.c_car)= vs_base[0];          (V482->c.c_car)= vs_base[0];
3125          if((V533=MMcdr(V533))==Cnil){          if((V483=MMcdr(V483))==Cnil){
3126          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3127          return;}          return;}
3128          V532=MMcdr(V532)=MMcons(Cnil,Cnil);          V482=MMcdr(V482)=MMcons(Cnil,Cnil);
3129          goto T1177;}          goto T1194;}
3130          }          }
3131  }  }
3132  /*      local function SET-SLOT */  /*      local function SET-SLOT */
# Line 3171  register object *base0; Line 3136  register object *base0;
3136  {       register object *base=vs_base;  {       register object *base=vs_base;
3137          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
3138          vs_check;          vs_check;
3139          {object V534;          {object V484;
3140          object V535;          object V485;
3141          check_arg(2);          check_arg(2);
3142          V534=(base[0]);          V484=(base[0]);
3143          V535=(base[1]);          V485=(base[1]);
3144          vs_top=sup;          vs_top=sup;
3145          goto TTL;          goto TTL;
3146  TTL:;  TTL:;
3147          base[2]= (*(LnkLI197))(VV[43],base0[3],(V534),(V535));          base[2]= (*(LnkLI207))(VV[51],base0[3],(V484),(V485));
3148          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3149          return;          return;
3150          }          }
# Line 3191  register object *base0; Line 3156  register object *base0;
3156  {       register object *base=vs_base;  {       register object *base=vs_base;
3157          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
3158          vs_check;          vs_check;
3159          {object V536;          {object V486;
3160          check_arg(1);          check_arg(1);
3161          V536=(base[0]);          V486=(base[0]);
3162          vs_top=sup;          vs_top=sup;
3163          base[1]= Ct;          base[1]= Ct;
3164          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 3207  register object *base0; Line 3172  register object *base0;
3172  {       register object *base=vs_base;  {       register object *base=vs_base;
3173          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
3174          vs_check;          vs_check;
3175          {object V537;          {object V487;
3176          vs_top[0]=Cnil;          vs_top[0]=Cnil;
3177          {object *p=vs_top;          {object *p=vs_top;
3178           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
3179          V537=(base[0]);          V487=(base[0]);
3180          vs_top=sup;          vs_top=sup;
3181          base[1]= VV[10];          base[1]= VV[10];
3182          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);
# Line 3221  register object *base0; Line 3186  register object *base0;
3186          }          }
3187  }  }
3188  static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* FIND-CLASS */  static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* FIND-CLASS */
3189  static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* BOOTSTRAP-ACCESSOR-DEFINITION */  static void LnkT256(){ call_or_link(VV[256],(void **)(void *)&Lnk256);} /* BOOTSTRAP-ACCESSOR-DEFINITION */
3190  static void LnkT242(ptr) object *ptr;{ call_or_link_closure(VV[242],(void **)(void *)&Lnk242,(void **)(void *)&Lclptr242);} /* GENERIC-FUNCTION-METHODS */  static void LnkT252(ptr) object *ptr;{ call_or_link_closure(VV[252],(void **)(void *)&Lnk252,(void **)(void *)&Lclptr252);} /* GENERIC-FUNCTION-METHODS */
3191  static void LnkT241(){ call_or_link(VV[241],(void **)(void *)&Lnk241);} /* RATIONALP */  static void LnkT251(){ call_or_link(VV[251],(void **)(void *)&Lnk251);} /* RATIONALP */
3192  static void LnkT240(){ call_or_link(VV[240],(void **)(void *)&Lnk240);} /* TYPEP */  static void LnkT250(){ call_or_link(VV[250],(void **)(void *)&Lnk250);} /* TYPEP */
3193  static void LnkT239(){ call_or_link(VV[239],(void **)(void *)&Lnk239);} /* ENSURE-CLASS */  static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* ENSURE-CLASS */
3194  static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* SLOT-INITARGS-FROM-STRUCTURE-SLOTD */  static object  LnkTLI248(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[248],(void **)(void *)&LnkLI248,1,first,ap);va_end(ap);return V1;} /* SLOT-INITARGS-FROM-STRUCTURE-SLOTD */
3195  static object  LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */  static object  LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */
3196  static object  LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */  static object  LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */
3197  static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */  static object  LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */
3198  static object  LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* EVAL-FORM */  static object  LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* EVAL-FORM */
3199  static void LnkT233(){ call_or_link(VV[233],(void **)(void *)&Lnk233);} /* STRUCTURE-SLOTD-INIT-FORM */  static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* STRUCTURE-SLOTD-INIT-FORM */
3200  static object  LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[232],(void **)(void *)&LnkLI232,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-TYPE */  static object  LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-TYPE */
3201  static object  LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-WRITER-FUNCTION */  static object  LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[241],(void **)(void *)&LnkLI241,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-WRITER-FUNCTION */
3202  static object  LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-READER-FUNCTION */  static object  LnkTLI240(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[240],(void **)(void *)&LnkLI240,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-READER-FUNCTION */
3203  static object  LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-ACCESSOR-SYMBOL */  static object  LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[239],(void **)(void *)&LnkLI239,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-ACCESSOR-SYMBOL */
3204  static object  LnkTLI228(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[228],(void **)(void *)&LnkLI228,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-NAME */  static object  LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-NAME */
3205  static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */  static object  LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */
3206  static object  LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */  static object  LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */
3207  static object  LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[225],(void **)(void *)&LnkLI225,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */  static object  LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[235],(void **)(void *)&LnkLI235,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */
3208  static object  LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */  static object  LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[234],(void **)(void *)&LnkLI234,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */
3209  static object  LnkTLI223(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[223],(void **)(void *)&LnkLI223,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */  static object  LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[233],(void **)(void *)&LnkLI233,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */
3210  static object  LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[222],(void **)(void *)&LnkLI222,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-WRAPPER-SYMBOL */  static object  LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[232],(void **)(void *)&LnkLI232,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-WRAPPER-SYMBOL */
3211  static object  LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-CLASS-SYMBOL */  static object  LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-CLASS-SYMBOL */
3212  static void LnkT220(ptr) object *ptr;{ call_or_link_closure(VV[220],(void **)(void *)&Lnk220,(void **)(void *)&Lclptr220);} /* CLASS-WRAPPER */  static void LnkT230(ptr) object *ptr;{ call_or_link_closure(VV[230],(void **)(void *)&Lnk230,(void **)(void *)&Lclptr230);} /* CLASS-WRAPPER */
3213  static void LnkT218(ptr) object *ptr;{ call_or_link_closure(VV[218],(void **)(void *)&Lnk218,(void **)(void *)&Lclptr218);} /* CLASS-PREDICATE-NAME */  static void LnkT228(ptr) object *ptr;{ call_or_link_closure(VV[228],(void **)(void *)&Lnk228,(void **)(void *)&Lclptr228);} /* CLASS-PREDICATE-NAME */
3214  static object  LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[217],(void **)(void *)&LnkLI217,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */  static object  LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */
3215  static object  LnkTLI214(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[214],(void **)(void *)&LnkLI214,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */  static object  LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */
3216  static void LnkT213(){ call_or_link(VV[213],(void **)(void *)&Lnk213);} /* FIND */  static void LnkT223(){ call_or_link(VV[223],(void **)(void *)&Lnk223);} /* FIND */
3217  static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* ENSURE-GENERIC-FUNCTION */  static void LnkT220(){ call_or_link(VV[220],(void **)(void *)&Lnk220);} /* ENSURE-GENERIC-FUNCTION */
3218  static object  LnkTLI206(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[206],(void **)(void *)&LnkLI206,1,first,ap);va_end(ap);return V1;} /* SLOT-BOUNDP-SYMBOL */  static object  LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[216],(void **)(void *)&LnkLI216,1,first,ap);va_end(ap);return V1;} /* SLOT-BOUNDP-SYMBOL */
3219  static object  LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,1,first,ap);va_end(ap);return V1;} /* SLOT-WRITER-SYMBOL */  static object  LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,1,first,ap);va_end(ap);return V1;} /* SLOT-WRITER-SYMBOL */
3220  static object  LnkTLI204(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[204],(void **)(void *)&LnkLI204,1,first,ap);va_end(ap);return V1;} /* SLOT-READER-SYMBOL */  static object  LnkTLI214(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[214],(void **)(void *)&LnkLI214,1,first,ap);va_end(ap);return V1;} /* SLOT-READER-SYMBOL */
3221  static object  LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[203],(void **)(void *)&LnkLI203,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-ACCESSOR-DEFINITIONS1 */  static object  LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-ACCESSOR-DEFINITIONS1 */
3222  static void LnkT202(){ call_or_link(VV[202],(void **)(void *)&Lnk202);} /* MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION */  static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION */
3223  static void LnkT201(){ call_or_link(VV[201],(void **)(void *)&Lnk201);} /* MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION */  static void LnkT211(){ call_or_link(VV[211],(void **)(void *)&Lnk211);} /* MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION */
3224  static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION */  static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION */
3225  static object  LnkTLI199(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[199],(void **)(void *)&LnkLI199,6,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITION */  static object  LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[209],(void **)(void *)&LnkLI209,6,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITION */
3226  static void LnkT198(){ call_or_link(VV[198],(void **)(void *)&Lnk198);} /* MAKE-CLASS-PREDICATE-NAME */  static void LnkT208(){ call_or_link(VV[208],(void **)(void *)&Lnk208);} /* MAKE-CLASS-PREDICATE-NAME */
3227  static object  LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[197],(void **)(void *)&LnkLI197,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */  static object  LnkTLI207(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[207],(void **)(void *)&LnkLI207,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */
3228  static void LnkT196(){ call_or_link(VV[196],(void **)(void *)&Lnk196);} /* LOAD-TRUENAME */  static void LnkT206(){ call_or_link(VV[206],(void **)(void *)&Lnk206);} /* LOAD-TRUENAME */
3229  static object  LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */  static object  LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */
3230  static void LnkT194(){ call_or_link(VV[194],(void **)(void *)&Lnk194);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT204(){ call_or_link(VV[204],(void **)(void *)&Lnk204);} /* CCLOSURE-ENV-NTHCDR */
3231  static object  LnkTLI193(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[193],(void **)(void *)&LnkLI193,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-INITIALIZE-CLASS */  static object  LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[203],(void **)(void *)&LnkLI203,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-INITIALIZE-CLASS */
3232  static object  LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITIONS */  static object  LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[202],(void **)(void *)&LnkLI202,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITIONS */
3233  static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[191],(void **)(void *)&LnkLI191,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */  static object  LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[201],(void **)(void *)&LnkLI201,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */
3234  static void LnkT190(){ call_or_link(VV[190],(void **)(void *)&Lnk190);} /* CANONICAL-SLOT-NAME */  static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* CANONICAL-SLOT-NAME */
3235  static void LnkT189(){ call_or_link(VV[189],(void **)(void *)&Lnk189);} /* EARLY-COLLECT-INHERITANCE */  static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* EARLY-COLLECT-INHERITANCE */
3236  static object  LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */  static object  LnkTLI198(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[198],(void **)(void *)&LnkLI198,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */
3237  static object  LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[187],(void **)(void *)&LnkLI187,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */  static object  LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[197],(void **)(void *)&LnkLI197,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */
3238  static object  LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[186],(void **)(void *)&LnkLI186,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */  static object  LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */
3239  static object  LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[185],(void **)(void *)&LnkLI185,1,first,ap);va_end(ap);return V1;} /* ECD-SOURCE */  static object  LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,1,first,ap);va_end(ap);return V1;} /* ECD-SOURCE */
3240  static object  LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[184],(void **)(void *)&LnkLI184,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */  static object  LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[194],(void **)(void *)&LnkLI194,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */
3241  static object  LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* FIND-CLASS */  static object  LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* FIND-CLASS */
3242  static object  LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,1,first,ap);va_end(ap);return V1;} /* ECD-METACLASS */  static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* ERROR */
3243  static object  LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */  static object  LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,1,first,ap);va_end(ap);return V1;} /* ECD-METACLASS */
3244    static object  LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */
3245  static object  LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[21],(void **)(void *)&LnkLI21,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */  static object  LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[21],(void **)(void *)&LnkLI21,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */
3246  static object  LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,257,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SIZE */  static object  LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,257,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SIZE */
3247  static object  LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[18],(void **)(void *)&LnkLI18,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */  static object  LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[18],(void **)(void *)&LnkLI18,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */
3248  static object  LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */  static object  LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */
3249  static object  LnkTLI178(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[178],(void **)(void *)&LnkLI178,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */  static object  LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[187],(void **)(void *)&LnkLI187,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */
3250  static void LnkT177(ptr) object *ptr;{ call_or_link_closure(VV[177],(void **)(void *)&Lnk177,(void **)(void *)&Lclptr177);} /* CLASS-NAME */  static void LnkT186(ptr) object *ptr;{ call_or_link_closure(VV[186],(void **)(void *)&Lnk186,(void **)(void *)&Lclptr186);} /* CLASS-NAME */
3251  static void LnkT175(ptr) object *ptr;{ call_or_link_closure(VV[175],(void **)(void *)&Lnk175,(void **)(void *)&Lclptr175);} /* CLASS-SLOTS */  static void LnkT184(ptr) object *ptr;{ call_or_link_closure(VV[184],(void **)(void *)&Lnk184,(void **)(void *)&Lclptr184);} /* CLASS-SLOTS */
3252  static void LnkT174(ptr) object *ptr;{ call_or_link_closure(VV[174],(void **)(void *)&Lnk174,(void **)(void *)&Lclptr174);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */  static void LnkT183(ptr) object *ptr;{ call_or_link_closure(VV[183],(void **)(void *)&Lnk183,(void **)(void *)&Lclptr183);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */
3253  static object  LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */  static object  LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */
3254  static object  LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[172],(void **)(void *)&LnkLI172,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */  static object  LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */
3255  static object  LnkTLI171(){return call_proc0(VV[171],(void **)(void *)&LnkLI171);} /* ALLOCATE-FUNCALLABLE-INSTANCE-1 */  static object  LnkTLI180(){return call_proc0(VV[180],(void **)(void *)&LnkLI180);} /* ALLOCATE-FUNCALLABLE-INSTANCE-1 */
3256  static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* MAKE-ARRAY */  static void LnkT179(){ call_or_link(VV[179],(void **)(void *)&Lnk179);} /* MAKE-ARRAY */
3257  static object  LnkTLI169(){return call_proc0(VV[169],(void **)(void *)&LnkLI169);} /* %%ALLOCATE-INSTANCE--CLASS */  static object  LnkTLI178(){return call_proc0(VV[178],(void **)(void *)&LnkLI178);} /* %%ALLOCATE-INSTANCE--CLASS */
3258    
3259  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
3260  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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