/[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.4 by camm, Tue Sep 23 21:48:34 2003 UTC revision 1.5 by camm, Fri Oct 3 16:03:17 2003 UTC
# Line 28  T1:; Line 28  T1:;
28  T2:;  T2:;
29          {object V5;          {object V5;
30          V5= (*(LnkLI167))();          V5= (*(LnkLI167))();
31          V6= Ct;          V6 = (V5);
32          STSET(object,(V5),0, (V2));          V7 = (V2);
33          (void)((V2));          V8= Ct;
34            STSET(object,V6,0, V7);
35            (void)(V7);
36            V9 = (V5);
37          if(((V4))==Cnil){          if(((V4))==Cnil){
38          goto T9;}          goto T9;}
39          base[0]= (V3);          base[0]= (V3);
40          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
41          Lcopy_seq();          Lcopy_seq();
42          vs_top=sup;          vs_top=sup;
43          V7= vs_base[0];          V10= vs_base[0];
44          goto T7;          goto T7;
45          goto T9;          goto T9;
46  T9:;  T9:;
# Line 47  T9:; Line 50  T9:;
50          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
51          (void) (*Lnk168)();          (void) (*Lnk168)();
52          vs_top=sup;          vs_top=sup;
53          V7= vs_base[0];          V10= vs_base[0];
54          goto T7;          goto T7;
55  T7:;  T7:;
56          V8= Ct;          V11= Ct;
57          STSET(object,(V5),4, V7);          STSET(object,V9,4, V10);
58          (void)(V7);          (void)(V10);
59          {object V9 = (V5);          {object V12 = (V5);
60          VMR1(V9)}}          VMR1(V12)}}
61          va_end(ap);          va_end(ap);
62          base[0]=base[0];          base[0]=base[0];
63          return Cnil;}          return Cnil;}
# Line 67  static void L2() Line 70  static void L2()
70          vs_check;          vs_check;
71          check_arg(2);          check_arg(2);
72          vs_top=sup;          vs_top=sup;
73          {object V10=base[0]->c.c_cdr;          {object V13=base[0]->c.c_cdr;
74          if(endp(V10))invalid_macro_call();          if(endp(V13))invalid_macro_call();
75          base[2]= (V10->c.c_car);          base[2]= (V13->c.c_car);
76          V10=V10->c.c_cdr;          V13=V13->c.c_cdr;
77          if(endp(V10)){          if(endp(V13)){
78          base[3]= Cnil;          base[3]= Cnil;
79          } else {          } else {
80          base[3]= (V10->c.c_car);          base[3]= (V13->c.c_car);
81          V10=V10->c.c_cdr;}          V13=V13->c.c_cdr;}
82          if(endp(V10)){          if(endp(V13)){
83          base[4]= Cnil;          base[4]= Cnil;
84          } else {          } else {
85          base[4]= (V10->c.c_car);          base[4]= (V13->c.c_car);
86          V10=V10->c.c_cdr;}          V13=V13->c.c_cdr;}
87          if(!endp(V10))invalid_macro_call();}          if(!endp(V13))invalid_macro_call();}
88          V11= list(2,VV[4],list(2,VV[5],base[2]));          V14= list(2,VV[4],list(2,VV[5],base[2]));
89          V12= make_cons(/* INLINE-ARGS */V11,Cnil);          V15= make_cons(/* INLINE-ARGS */V14,Cnil);
90          if((base[3])==Cnil){          if((base[3])==Cnil){
91          goto T19;}          goto T19;}
92          V13= list(4,VV[6],base[3],list(2,VV[7],base[4]),VV[8]);          V16= list(4,VV[6],base[3],list(2,VV[7],base[4]),VV[8]);
93          goto T17;          goto T17;
94          goto T19;          goto T19;
95  T19:;  T19:;
96          V13= VV[9];          V16= VV[9];
97          goto T17;          goto T17;
98  T17:;  T17:;
99          base[5]= list(3,VV[3],/* INLINE-ARGS */V12,V13);          base[5]= list(3,VV[3],/* INLINE-ARGS */V15,V16);
100          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
101          return;          return;
102  }  }
103  /*      local entry for function ALLOCATE-FUNCALLABLE-INSTANCE  */  /*      local entry for function ALLOCATE-FUNCALLABLE-INSTANCE  */
104    
105  static object LI3(object V14,object first,...)  static object LI3(object V17,object first,...)
106  {        {      
107          va_list ap;          va_list ap;
108          int narg = VFUN_NARGS; VMB3 VMS3 VMV3          int narg = VFUN_NARGS; VMB3 VMS3 VMV3
109          {object V15;          {object V18;
110          object V16;          object V19;
111          object V17;          object V20;
112          va_start(ap,first);          va_start(ap,first);
113          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
114          V15= V14;          V18= V17;
115          narg = narg - 1;          narg = narg - 1;
116          if (narg <= 0) goto T21;          if (narg <= 0) goto T21;
117          else {          else {
118          V16= first;}          V19= first;}
119          V17= Ct;          V20= Ct;
120          --narg; goto T22;          --narg; goto T22;
121          goto T21;          goto T21;
122  T21:;  T21:;
123          V16= Cnil;          V19= Cnil;
124          V17= Cnil;          V20= Cnil;
125          goto T22;          goto T22;
126  T22:;  T22:;
127          base[0]= (*(LnkLI169))();          base[0]= (*(LnkLI169))();
128          base[0]=MMcons(base[0],Cnil);          base[0]=MMcons(base[0],Cnil);
129          V18=          V21 = (base[0]->c.c_car);
130            V22=
131          make_cclosure_new(LC45,Cnil,base[0],Cdata);          make_cclosure_new(LC45,Cnil,base[0],Cdata);
132          (void)((*(LnkLI170))((base[0]->c.c_car),V18));          (void)((*(LnkLI170))(V21,V22));
         {object V19;  
         V19= ((base[0]->c.c_car))->cc.cc_turbo[13];  
         ((V19))->c.c_car = V15;}  
         {object V21;  
         object V22;  
         V21= ((base[0]->c.c_car))->cc.cc_turbo[12];  
133          {object V23;          {object V23;
134          V23= ((V15))->v.v_self[12];          V23= ((base[0]->c.c_car))->cc.cc_turbo[13];
135          if(((V17))==Cnil){          ((V23))->c.c_car = V18;}
136            {object V25;
137            object V26;
138            V25= ((base[0]->c.c_car))->cc.cc_turbo[12];
139            {object V27;
140            V27= ((V18))->v.v_self[12];
141            if(((V20))==Cnil){
142          goto T35;}          goto T35;}
143          base[3]= (V16);          base[3]= (V19);
144          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
145          Lcopy_seq();          Lcopy_seq();
146          vs_top=sup;          vs_top=sup;
147          V22= vs_base[0];          V26= vs_base[0];
148          goto T32;          goto T32;
149          goto T35;          goto T35;
150  T35:;  T35:;
151          base[3]= (V23);          base[3]= (V27);
152          base[4]= VV[2];          base[4]= VV[2];
153          base[5]= (VV[0]->s.s_dbind);          base[5]= (VV[0]->s.s_dbind);
154          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
155          (void) (*Lnk168)();          (void) (*Lnk168)();
156          vs_top=sup;          vs_top=sup;
157          V22= vs_base[0];}          V26= vs_base[0];}
158          goto T32;          goto T32;
159  T32:;  T32:;
160          ((V21))->c.c_car = (V22);}          ((V25))->c.c_car = (V26);}
161          {object V24 = (base[0]->c.c_car);          {object V28 = (base[0]->c.c_car);
162          VMR3(V24)}          VMR3(V28)}
163          va_end(ap);          va_end(ap);
164          base[0]=base[0];          base[0]=base[0];
165          return Cnil;}          return Cnil;}
166          }          }
167  /*      local entry for function ALLOCATE-STRUCTURE-INSTANCE    */  /*      local entry for function ALLOCATE-STRUCTURE-INSTANCE    */
168    
169  static object LI4(object V25,object first,...)  static object LI4(object V29,object first,...)
170  {        {      
171          va_list ap;          va_list ap;
172          int narg = VFUN_NARGS; VMB4 VMS4 VMV4          int narg = VFUN_NARGS; VMB4 VMS4 VMV4
173          {object V26;          {object V30;
174          object V27;          object V31;
175          object V28;          object V32;
176          va_start(ap,first);          va_start(ap,first);
177          if(narg <1) too_few_arguments();          if(narg <1) too_few_arguments();
178          V26= V25;          V30= V29;
179          narg = narg - 1;          narg = narg - 1;
180          if (narg <= 0) goto T42;          if (narg <= 0) goto T42;
181          else {          else {
182          V27= first;}          V31= first;}
183          V28= Ct;          V32= Ct;
184          --narg; goto T43;          --narg; goto T43;
185          goto T42;          goto T42;
186  T42:;  T42:;
187          V27= Cnil;          V31= Cnil;
188          V28= Cnil;          V32= Cnil;
189          goto T43;          goto T43;
190  T43:;  T43:;
191          {object V29;          {object V33;
192          object V30;          object V34;
193          V29= ((V26))->v.v_self[11];          V33= ((V30))->v.v_self[11];
194          base[2]= (V29);          base[2]= (V33);
195          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
196          (void) (*Lnk172)(Lclptr172);          (void) (*Lnk172)(Lclptr172);
197          vs_top=sup;          vs_top=sup;
198          V30= vs_base[0];          V34= vs_base[0];
199          if(((V30))==Cnil){          if(((V34))==Cnil){
200          goto T49;}          goto T49;}
201          {object V31;          {object V35;
202          register object V32;          register object V36;
203          V31= (          V35= (
204          (type_of((V30)) == t_sfun ?(*(((V30))->sfn.sfn_self)):          (type_of((V34)) == t_sfun ?(*(((V34))->sfn.sfn_self)):
205          (fcall.argd=0,type_of((V30))==t_vfun) ?          (fcall.argd=0,type_of((V34))==t_vfun) ?
206          (*(((V30))->sfn.sfn_self)):          (*(((V34))->sfn.sfn_self)):
207          (fcall.fun=((V30)),fcalln))());          (fcall.fun=((V34)),fcalln))());
208          base[2]= (V29);          base[2]= (V33);
209          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
210          (void) (*Lnk173)(Lclptr173);          (void) (*Lnk173)(Lclptr173);
211          vs_top=sup;          vs_top=sup;
212          V32= vs_base[0];          V36= vs_base[0];
213          if(((V28))==Cnil){          if(((V32))==Cnil){
214          goto T54;}          goto T54;}
215          {long V33;          {long V37;
216          register long V34;          register long V38;
217          V33= (long)length((V27));          V37= (long)length((V31));
218          V34= 0;          V38= 0;
219          goto T60;          goto T60;
220  T60:;  T60:;
221          if(!((V34)>=(V33))){          if(!((V38)>=(V37))){
222          goto T61;}          goto T61;}
223          goto T54;          goto T54;
224          goto T61;          goto T61;
225  T61:;  T61:;
226          {register object V35;          {register object V39;
227          {register object V36;          {register object V40;
228          V36= CMPcar((V32));          V40= CMPcar((V36));
229          V32= CMPcdr((V32));          V36= CMPcdr((V36));
230          V35= (V36);}          V39= (V40);}
231          {register object V37;          {register object V41;
232          register object V38;          register object V42;
233          register object V39;          register object V43;
234          V37= (V29);          V41= (V33);
235          V38= (V31);          V42= (V35);
236          V39= (V35);          V43= (V39);
237          base[2]= ((V27))->v.v_self[V34];          base[2]= ((V31))->v.v_self[V38];
238          base[3]= (V37);          base[3]= (V41);
239          base[4]= (V38);          base[4]= (V42);
240          base[5]= (V39);          base[5]= (V43);
241          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
242          (void) (*Lnk174)(Lclptr174);          (void) (*Lnk174)(Lclptr174);
243          vs_top=sup;}}          vs_top=sup;}}
244          V34= (long)(V34)+1;          V38= (long)(V38)+1;
245          goto T60;}          goto T60;}
246          goto T54;          goto T54;
247  T54:;  T54:;
248          {object V40 = (V31);          {object V44 = (V35);
249          VMR4(V40)}}          VMR4(V44)}}
250          goto T49;          goto T49;
251  T49:;  T49:;
252          base[2]= VV[11];          base[2]= VV[11];
253          base[4]= (V29);          base[4]= (V33);
254          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
255          (void) (*Lnk175)(Lclptr175);          (void) (*Lnk175)(Lclptr175);
256          vs_top=sup;          vs_top=sup;
# Line 254  T49:; Line 258  T49:;
258          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
259          Lerror();          Lerror();
260          vs_top=sup;          vs_top=sup;
261          {object V41 = vs_base[0];          {object V45 = vs_base[0];
262          VMR4(V41)}}          VMR4(V45)}}
263          va_end(ap);          va_end(ap);
264          base[0]=base[0];          base[0]=base[0];
265          return Cnil;}          return Cnil;}
# Line 268  static void L5() Line 272  static void L5()
272          vs_check;          vs_check;
273          check_arg(2);          check_arg(2);
274          vs_top=sup;          vs_top=sup;
275          {object V42=base[0]->c.c_cdr;          {object V46=base[0]->c.c_cdr;
276          base[2]= V42;}          base[2]= V46;}
277          {object V44;          {object V48;
278          object V45= base[2];          object V49= base[2];
279          if(V45==Cnil){          if(V49==Cnil){
280          V43= Cnil;          V47= Cnil;
281          goto T79;}          goto T79;}
282          base[3]=V44=MMcons(Cnil,Cnil);          base[3]=V48=MMcons(Cnil,Cnil);
283          goto T80;          goto T80;
284  T80:;  T80:;
285          {register object V46;          {register object V50;
286          V46= (V45->c.c_car);          V50= (V49->c.c_car);
287          {object V47;          {object V51;
288          base[5]= Cnil;          base[5]= Cnil;
289          base[6]= VV[13];          base[6]= VV[13];
290          base[7]= (V46);          base[7]= (V50);
291          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
292          Lformat();          Lformat();
293          vs_top=sup;          vs_top=sup;
# Line 292  T80:; Line 296  T80:;
296          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
297          Lintern();          Lintern();
298          vs_top=sup;          vs_top=sup;
299          V47= vs_base[0];          V51= vs_base[0];
300          if(!(((V46))==(VV[16]))){          V52 = (V51);
301            if(!(((V50))==(VV[16]))){
302          goto T90;}          goto T90;}
303          V48= VV[17];          V53= VV[17];
304          goto T88;          goto T88;
305          goto T90;          goto T90;
306  T90:;  T90:;
307          V48= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V46))));          V53= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V50))));
308          goto T88;          goto T88;
309  T88:;  T88:;
310          if(!(((V46))==(VV[16]))){          V54 = (V50);
311            if(!(((V50))==(VV[16]))){
312          goto T94;}          goto T94;}
313          V49= VV[22];          V55= VV[22];
314          goto T92;          goto T92;
315          goto T94;          goto T94;
316  T94:;  T94:;
317          V49= VV[23];          V55= VV[23];
318          goto T92;          goto T92;
319  T92:;  T92:;
320          V50= list(2,VV[21],V49);          V56= list(2,VV[21],V55);
321          V51= list(2,VV[24],(V47));          V57= list(2,VV[24],(V51));
322          (V44->c.c_car)= list(9,VV[15],(V47),V48,(V46),/* INLINE-ARGS */V50,/* INLINE-ARGS */V51,(V46),list(2,VV[25],list(2,VV[20],(V46))),(V46));}}          V58 = (V50);
323          if((V45=MMcdr(V45))==Cnil){          V59 = (V50);
324          V43= base[3];          (V48->c.c_car)= list(9,VV[15],V52,V53,V54,/* INLINE-ARGS */V56,/* INLINE-ARGS */V57,V58,list(2,VV[25],list(2,VV[20],(V50))),V59);}}
325            if((V49=MMcdr(V49))==Cnil){
326            V47= base[3];
327          goto T79;}          goto T79;}
328          V44=MMcdr(V44)=MMcons(Cnil,Cnil);          V48=MMcdr(V48)=MMcons(Cnil,Cnil);
329          goto T80;}          goto T80;}
330          goto T79;          goto T79;
331  T79:;  T79:;
332          base[3]= make_cons(VV[12],V43);          base[3]= make_cons(VV[12],V47);
333          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
334          return;          return;
335  }  }
# Line 333  static object LI6() Line 341  static object LI6()
341          bds_check;          bds_check;
342          goto TTL;          goto TTL;
343  TTL:;  TTL:;
344          {object V53;          {object V61;
345          V53= (VFUN_NARGS=1,(*(LnkLI176))(VV[26]));          V61= (VFUN_NARGS=1,(*(LnkLI176))(VV[26]));
346          V55= VV[178];          V63= VV[178];
347          (void)((*(LnkLI177))(V55,V53));          V64 = V61;
348          (void)((*(LnkLI179))(VV[26],(V53)));}          (void)((*(LnkLI177))(V63,V64));
349          {object V56;          (void)((*(LnkLI179))(VV[26],(V61)));}
350          object V57;          {object V65;
         object V58;  
         object V59;  
         object V60;  
         object V61;  
         object V62;  
         object V63;  
         object V64;  
         object V65;  
351          object V66;          object V66;
352          object V67;          object V67;
353          object V68;          object V68;
# Line 356  TTL:; Line 356  TTL:;
356          object V71;          object V71;
357          object V72;          object V72;
358          object V73;          object V73;
359            object V74;
360            object V75;
361            object V76;
362            object V77;
363            object V78;
364            object V79;
365            object V80;
366            object V81;
367            object V82;
368          bds_bind(VV[27],Cnil);          bds_bind(VV[27],Cnil);
         V56= Cnil;  
         V57= Cnil;  
         V58= Cnil;  
         V59= Cnil;  
         V60= Cnil;  
         V61= Cnil;  
         V62= Cnil;  
         V63= Cnil;  
         V64= Cnil;  
369          V65= Cnil;          V65= Cnil;
370          V66= Cnil;          V66= Cnil;
371          V67= Cnil;          V67= Cnil;
# Line 375  TTL:; Line 375  TTL:;
375          V71= Cnil;          V71= Cnil;
376          V72= Cnil;          V72= Cnil;
377          V73= Cnil;          V73= Cnil;
378          V74 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28]));          V74= Cnil;
379          V56= (VFUN_NARGS=1,(*(LnkLI18))(V74));          V75= Cnil;
380          V57= (VFUN_NARGS=1,(*(LnkLI21))((V56)));          V76= Cnil;
381          (void)(((V56))->v.v_self[11]= ((V57)));          V77= Cnil;
382          (void)((*(LnkLI180))(V57,VV[28]));          V78= Cnil;
383          V77 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29]));          V79= Cnil;
384          V58= (VFUN_NARGS=1,(*(LnkLI18))(V77));          V80= Cnil;
385          V59= (VFUN_NARGS=1,(*(LnkLI21))((V56)));          V81= Cnil;
386          (void)(((V58))->v.v_self[11]= ((V59)));          V82= Cnil;
387          (void)((*(LnkLI180))(V59,VV[29]));          V83 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28]));
388          V80 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30]));          V65= (VFUN_NARGS=1,(*(LnkLI18))(V83));
389          V60= (VFUN_NARGS=1,(*(LnkLI18))(V80));          V66= (VFUN_NARGS=1,(*(LnkLI21))((V65)));
390          V61= (VFUN_NARGS=1,(*(LnkLI21))((V56)));          (void)(((V65))->v.v_self[11]= ((V66)));
391          (void)(((V60))->v.v_self[11]= ((V61)));          (void)((*(LnkLI180))(V66,VV[28]));
392          (void)((*(LnkLI180))(V61,VV[30]));          V86 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29]));
393          V83 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31]));          V67= (VFUN_NARGS=1,(*(LnkLI18))(V86));
394          V62= (VFUN_NARGS=1,(*(LnkLI18))(V83));          V68= (VFUN_NARGS=1,(*(LnkLI21))((V65)));
395          V63= (VFUN_NARGS=1,(*(LnkLI21))((V56)));          (void)(((V67))->v.v_self[11]= ((V68)));
396          (void)(((V62))->v.v_self[11]= ((V63)));          (void)((*(LnkLI180))(V68,VV[29]));
397          (void)((*(LnkLI180))(V63,VV[31]));          V89 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30]));
398          V86 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32]));          V69= (VFUN_NARGS=1,(*(LnkLI18))(V89));
399          V64= (VFUN_NARGS=1,(*(LnkLI18))(V86));          V70= (VFUN_NARGS=1,(*(LnkLI21))((V65)));
400          V65= (VFUN_NARGS=1,(*(LnkLI21))((V56)));          (void)(((V69))->v.v_self[11]= ((V70)));
401          (void)(((V64))->v.v_self[11]= ((V65)));          (void)((*(LnkLI180))(V70,VV[30]));
402          (void)((*(LnkLI180))(V65,VV[32]));          V92 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31]));
403          V89 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33]));          V71= (VFUN_NARGS=1,(*(LnkLI18))(V92));
404          V66= (VFUN_NARGS=1,(*(LnkLI18))(V89));          V72= (VFUN_NARGS=1,(*(LnkLI21))((V65)));
405          V67= (VFUN_NARGS=1,(*(LnkLI21))((V56)));          (void)(((V71))->v.v_self[11]= ((V72)));
406          (void)(((V66))->v.v_self[11]= ((V67)));          (void)((*(LnkLI180))(V72,VV[31]));
407          (void)((*(LnkLI180))(V67,VV[33]));          V95 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32]));
408          V92 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34]));          V73= (VFUN_NARGS=1,(*(LnkLI18))(V95));
409          V68= (VFUN_NARGS=1,(*(LnkLI18))(V92));          V74= (VFUN_NARGS=1,(*(LnkLI21))((V65)));
410          V69= (VFUN_NARGS=1,(*(LnkLI21))((V56)));          (void)(((V73))->v.v_self[11]= ((V74)));
411          (void)(((V68))->v.v_self[11]= ((V69)));          (void)((*(LnkLI180))(V74,VV[32]));
412          (void)((*(LnkLI180))(V69,VV[34]));          V98 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33]));
413          V95 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35]));          V75= (VFUN_NARGS=1,(*(LnkLI18))(V98));
414          V70= (VFUN_NARGS=1,(*(LnkLI18))(V95));          V76= (VFUN_NARGS=1,(*(LnkLI21))((V65)));
415          V71= (VFUN_NARGS=1,(*(LnkLI21))((V56)));          (void)(((V75))->v.v_self[11]= ((V76)));
416          (void)(((V70))->v.v_self[11]= ((V71)));          (void)((*(LnkLI180))(V76,VV[33]));
417          (void)((*(LnkLI180))(V71,VV[35]));          V101 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34]));
418          V72= (VV[17]->s.s_dbind);          V77= (VFUN_NARGS=1,(*(LnkLI18))(V101));
419          V73= (VFUN_NARGS=1,(*(LnkLI21))((V58)));          V78= (VFUN_NARGS=1,(*(LnkLI21))((V65)));
420          (void)(((V72))->v.v_self[11]= ((V73)));          (void)(((V77))->v.v_self[11]= ((V78)));
421          (void)((*(LnkLI180))(V73,VV[16]));          (void)((*(LnkLI180))(V78,VV[34]));
422          {object V100;          V104 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35]));
423          object V101;          V79= (VFUN_NARGS=1,(*(LnkLI18))(V104));
424          V100= (VV[36]->s.s_dbind);          V80= (VFUN_NARGS=1,(*(LnkLI21))((V65)));
425          V101= CMPcar((V100));          (void)(((V79))->v.v_self[11]= ((V80)));
426            (void)((*(LnkLI180))(V80,VV[35]));
427            V81= (VV[17]->s.s_dbind);
428            V82= (VFUN_NARGS=1,(*(LnkLI21))((V67)));
429            (void)(((V81))->v.v_self[11]= ((V82)));
430            (void)((*(LnkLI180))(V82,VV[16]));
431            {object V109;
432            object V110;
433            V109= (VV[36]->s.s_dbind);
434            V110= CMPcar((V109));
435          goto T176;          goto T176;
436  T176:;  T176:;
437          if(!(((V100))==Cnil)){          if(!(((V109))==Cnil)){
438          goto T177;}          goto T177;}
439          goto T172;          goto T172;
440          goto T177;          goto T177;
441  T177:;  T177:;
442          {object V102;          {object V111;
443          object V103;          object V112;
444          object V104;          object V113;
445          object V105;          object V114;
446          V102= (*(LnkLI181))((V101));          V111= (*(LnkLI181))((V110));
447          V103= (*(LnkLI182))((V101));          V112= (*(LnkLI182))((V110));
448          {object V106= (V103);          {object V115= (V112);
449          if((V106!= VV[30]))goto T185;          if((V115!= VV[30]))goto T185;
450          V104= (V60);          V113= (V69);
451          goto T184;          goto T184;
452          goto T185;          goto T185;
453  T185:;  T185:;
454          if((V106!= VV[28]))goto T186;          if((V115!= VV[28]))goto T186;
455          V104= (V56);          V113= (V65);
456          goto T184;          goto T184;
457          goto T186;          goto T186;
458  T186:;  T186:;
459          if((V106!= VV[29]))goto T187;          if((V115!= VV[29]))goto T187;
460          V104= (V58);          V113= (V67);
461          goto T184;          goto T184;
462          goto T187;          goto T187;
463  T187:;  T187:;
464          if((V106!= VV[31]))goto T188;          if((V115!= VV[31]))goto T188;
465          V104= (V62);          V113= (V71);
466          goto T184;          goto T184;
467          goto T188;          goto T188;
468  T188:;  T188:;
469          if((V106!= VV[32]))goto T189;          if((V115!= VV[32]))goto T189;
470          V104= (V64);          V113= (V73);
471          goto T184;          goto T184;
472          goto T189;          goto T189;
473  T189:;  T189:;
474          FEerror("The ECASE key value ~s is illegal.",1,V106);          FEerror("The ECASE key value ~s is illegal.",1,V115);
475          V104= Cnil;          V113= Cnil;
476          goto T184;}          goto T184;}
477          goto T184;          goto T184;
478  T184:;{object V107;  T184:;{object V116;
479          V107= (VFUN_NARGS=2,(*(LnkLI25))((V102),Cnil));          V116= (VFUN_NARGS=2,(*(LnkLI25))((V111),Cnil));
480          if(V107==Cnil)goto T191;          if(V116==Cnil)goto T191;
481          V105= V107;          V114= V116;
482          goto T190;          goto T190;
483          goto T191;          goto T191;
484  T191:;}  T191:;}
485          V105= (VFUN_NARGS=1,(*(LnkLI21))((V104)));          V114= (VFUN_NARGS=1,(*(LnkLI21))((V113)));
486          goto T190;          goto T190;
487  T190:;  T190:;
488          if(((V103))==(VV[28])){          if(((V112))==(VV[28])){
489          goto T194;}          goto T194;}
490          if(!(((V103))==(VV[29]))){          if(!(((V112))==(VV[29]))){
491          goto T193;}          goto T193;}
492          goto T194;          goto T194;
493  T194:;  T194:;
494          (void)((*(LnkLI183))((V102)));          (void)((*(LnkLI183))((V111)));
495          goto T193;          goto T193;
496  T193:;  T193:;
497          (void)((*(LnkLI180))(V105,V102));}          (void)((*(LnkLI180))(V114,V111));}
498          V100= CMPcdr((V100));          V109= CMPcdr((V109));
499          V101= CMPcar((V100));          V110= CMPcar((V109));
500          goto T176;}          goto T176;}
501          goto T172;          goto T172;
502  T172:;  T172:;
503          {object V110;          {object V119;
504          register object V111;          register object V120;
505          V110= (VV[36]->s.s_dbind);          V119= (VV[36]->s.s_dbind);
506          V111= CMPcar((V110));          V120= CMPcar((V119));
507          goto T207;          goto T207;
508  T207:;  T207:;
509          if(!(((V110))==Cnil)){          if(!(((V119))==Cnil)){
510          goto T208;}          goto T208;}
511          goto T203;          goto T203;
512          goto T208;          goto T208;
513  T208:;  T208:;
514          {register object V112;          {register object V121;
515          register object V113;          register object V122;
516          object V114;          object V123;
517          object V115;          object V124;
518          object V116;          object V125;
519          object V117;          object V126;
520          V112= (*(LnkLI181))((V111));          V121= (*(LnkLI181))((V120));
521          V113= (*(LnkLI182))((V111));          V122= (*(LnkLI182))((V120));
522          V114= (*(LnkLI184))((V111));          V123= (*(LnkLI184))((V120));
523          V115= (*(LnkLI185))((V111));          V124= (*(LnkLI185))((V120));
524          V116= (*(LnkLI186))((V111));          V125= (*(LnkLI186))((V120));
525          V117= (*(LnkLI187))((V111));          V126= (*(LnkLI187))((V120));
526          {object V118;          {object V127;
527          base[2]= (V117);          base[2]= (V126);
528          base[3]= VV[37];          base[3]= VV[37];
529          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
530          Lgetf();          Lgetf();
531          vs_top=sup;          vs_top=sup;
532          V118= vs_base[0];          V127= vs_base[0];
533          {register object V119;          {register object V128;
534          object V120;          object V129;
535          object V121;          object V130;
536          object V122;          object V131;
537          base[2]= (V112);          base[2]= (V121);
538          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
539          (void) (*Lnk188)();          (void) (*Lnk188)();
540          if(vs_base>=vs_top){vs_top=sup;goto T224;}          if(vs_base>=vs_top){vs_top=sup;goto T224;}
541          V119= vs_base[0];          V128= vs_base[0];
542          vs_base++;          vs_base++;
543          if(vs_base>=vs_top){vs_top=sup;goto T225;}          if(vs_base>=vs_top){vs_top=sup;goto T225;}
544          V120= vs_base[0];          V129= vs_base[0];
545          vs_base++;          vs_base++;
546          if(vs_base>=vs_top){vs_top=sup;goto T226;}          if(vs_base>=vs_top){vs_top=sup;goto T226;}
547          V121= vs_base[0];          V130= vs_base[0];
548          vs_base++;          vs_base++;
549          if(vs_base>=vs_top){vs_top=sup;goto T227;}          if(vs_base>=vs_top){vs_top=sup;goto T227;}
550          V122= vs_base[0];          V131= vs_base[0];
551          vs_top=sup;          vs_top=sup;
552          goto T228;          goto T228;
553          goto T224;          goto T224;
554  T224:;  T224:;
555          V119= Cnil;          V128= Cnil;
556          goto T225;          goto T225;
557  T225:;  T225:;
558          V120= Cnil;          V129= Cnil;
559          goto T226;          goto T226;
560  T226:;  T226:;
561          V121= Cnil;          V130= Cnil;
562          goto T227;          goto T227;
563  T227:;  T227:;
564          V122= Cnil;          V131= Cnil;
565          goto T228;          goto T228;
566  T228:;  T228:;
567          {register object V123;          {register object V132;
568          register object V124;          register object V133;
569          object V125;          object V134;
570          V123= (VFUN_NARGS=1,(*(LnkLI25))((V112)));          V132= (VFUN_NARGS=1,(*(LnkLI25))((V121)));
571          if(!(((V123))==((V61)))){          if(!(((V132))==((V70)))){
572          goto T232;}          goto T232;}
573          V124= (V60);          V133= (V69);
574          goto T230;          goto T230;
575          goto T232;          goto T232;
576  T232:;  T232:;
577          if(!(((V123))==((V57)))){          if(!(((V132))==((V66)))){
578          goto T235;}          goto T235;}
579          V124= (V56);          V133= (V65);
580          goto T230;          goto T230;
581          goto T235;          goto T235;
582  T235:;  T235:;
583          if(!(((V123))==((V59)))){          if(!(((V132))==((V68)))){
584          goto T238;}          goto T238;}
585          V124= (V58);          V133= (V67);
586          goto T230;          goto T230;
587          goto T238;          goto T238;
588  T238:;  T238:;
589          if(!(((V123))==((V67)))){          if(!(((V132))==((V76)))){
590          goto T241;}          goto T241;}
591          V124= (V66);          V133= (V75);
592          goto T230;          goto T230;
593          goto T241;          goto T241;
594  T241:;  T241:;
595          if(!(((V123))==((V69)))){          if(!(((V132))==((V78)))){
596          goto T244;}          goto T244;}
597          V124= (V68);          V133= (V77);
598          goto T230;          goto T230;
599          goto T244;          goto T244;
600  T244:;  T244:;
601          if(!(((V123))==((V63)))){          if(!(((V132))==((V72)))){
602          goto T247;}          goto T247;}
603          V124= (V62);          V133= (V71);
604          goto T230;          goto T230;
605          goto T247;          goto T247;
606  T247:;  T247:;
607          if(!(((V123))==((V65)))){          if(!(((V132))==((V74)))){
608          goto T250;}          goto T250;}
609          V124= (V64);          V133= (V73);
610          goto T230;          goto T230;
611          goto T250;          goto T250;
612  T250:;  T250:;
613          if(!(((V123))==((V71)))){          if(!(((V132))==((V80)))){
614          goto T253;}          goto T253;}
615          V124= (V70);          V133= (V79);
616          goto T230;          goto T230;
617          goto T253;          goto T253;
618  T253:;  T253:;
619          if(!(((V123))==((V73)))){          if(!(((V132))==((V82)))){
620          goto T256;}          goto T256;}
621          V124= (V72);          V133= (V81);
622          goto T230;          goto T230;
623          goto T256;          goto T256;
624  T256:;  T256:;
625          V126 = CMPmake_fixnum((long)length((V119)));          V135 = CMPmake_fixnum((long)length((V128)));
626          V124= (VFUN_NARGS=2,(*(LnkLI18))(V126,(V123)));          V133= (VFUN_NARGS=2,(*(LnkLI18))(V135,(V132)));
627          goto T230;          goto T230;
628  T230:;  T230:;
629          V125= Cnil;          V134= Cnil;
630          if(!(((V112))==(Ct))){          if(!(((V121))==(Ct))){
631          goto T259;}          goto T259;}
632          (VV[38]->s.s_dbind)= (V124);          (VV[38]->s.s_dbind)= (V133);
633          goto T259;          goto T259;
634  T259:;  T259:;
635          base[6]= Cnil;          base[6]= Cnil;
636          base[7]= VV[39];          base[7]= VV[39];
637          base[8]= symbol_name((V112));          base[8]= symbol_name((V121));
638          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
639          Lformat();          Lformat();
640          vs_top=sup;          vs_top=sup;
# Line 635  T259:; Line 644  T259:;
644          Lintern();          Lintern();
645          vs_top=sup;          vs_top=sup;
646          base[4]= vs_base[0];          base[4]= vs_base[0];
647          base[5]= (V123);          base[5]= (V132);
648          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
649          Lset();          Lset();
650          vs_top=sup;          vs_top=sup;
651          {register object V127;          {register object V136;
652          object V128;          object V137;
653          V127= (V119);          V136= (V128);
654          V128= CMPcar((V127));          V137= CMPcar((V136));
655          goto T275;          goto T275;
656  T275:;  T275:;
657          if(!(((V127))==Cnil)){          if(!(((V136))==Cnil)){
658          goto T276;}          goto T276;}
659          goto T271;          goto T271;
660          goto T276;          goto T276;
661  T276:;  T276:;
662          base[5]= (V128);          base[5]= (V137);
663          base[6]= VV[40];          base[6]= VV[40];
664          base[7]= VV[41];          base[7]= VV[41];
665          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
666          Lgetf();          Lgetf();
667          vs_top=sup;          vs_top=sup;
668          V129= vs_base[0];          V138= vs_base[0];
669          if((V129)==(VV[41])){          if((V138)==(VV[41])){
670          goto T280;}          goto T280;}
671          base[5]= VV[42];          base[5]= VV[42];
672          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 665  T276:; Line 674  T276:;
674          vs_top=sup;          vs_top=sup;
675          goto T280;          goto T280;
676  T280:;  T280:;
677          V127= CMPcdr((V127));          V136= CMPcdr((V136));
678          V128= CMPcar((V127));          V137= CMPcar((V136));
679          goto T275;}          goto T275;}
680          goto T271;          goto T271;
681  T271:;  T271:;
682            V139 = (V133);
683          base[5]=VV[189]->s.s_gfdef;          base[5]=VV[189]->s.s_gfdef;
684          {object V131;          {object V141;
685          object V132= (V119);          object V142= (V128);
686          if(V132==Cnil){          if(V142==Cnil){
687          V130= Cnil;          V140= Cnil;
688          goto T295;}          goto T295;}
689          base[4]=V131=MMcons(Cnil,Cnil);          base[4]=V141=MMcons(Cnil,Cnil);
690          goto T296;          goto T296;
691  T296:;  T296:;
692          base[6]= (V132->c.c_car);          base[6]= (V142->c.c_car);
693          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
694          (void) (*Lnk189)();          (void) (*Lnk189)();
695          vs_top=sup;          vs_top=sup;
696          (V131->c.c_car)= vs_base[0];          (V141->c.c_car)= vs_base[0];
697          if((V132=MMcdr(V132))==Cnil){          if((V142=MMcdr(V142))==Cnil){
698          V130= base[4];          V140= base[4];
699          goto T295;}          goto T295;}
700          V131=MMcdr(V131)=MMcons(Cnil,Cnil);          V141=MMcdr(V141)=MMcons(Cnil,Cnil);
701          goto T296;}          goto T296;}
702          goto T295;          goto T295;
703  T295:;  T295:;
704          (void)(((V124))->v.v_self[9]= (V130));          (void)((V139)->v.v_self[9]= (V140));
705          (void)(((V124))->v.v_self[10]= (Cnil));          (void)(((V133))->v.v_self[10]= (Cnil));
706          if(!(((V113))==(VV[29]))){          if(!(((V122))==(VV[29]))){
707          goto T302;}          goto T302;}
708          V125= (VFUN_NARGS=1,(*(LnkLI190))((V124)));          V134= (VFUN_NARGS=1,(*(LnkLI190))((V133)));
709          goto T300;          goto T300;
710          goto T302;          goto T302;
711  T302:;  T302:;
712          V125= (VFUN_NARGS=1,(*(LnkLI21))((V124)));          V134= (VFUN_NARGS=1,(*(LnkLI21))((V133)));
713          goto T300;          goto T300;
714  T300:;  T300:;
715          V116= (*(LnkLI191))((V112),(V123),(V116),(V66),Cnil);          V125= (*(LnkLI191))((V121),(V132),(V125),(V75),Cnil);
716          V119= (*(LnkLI191))((V112),(V123),(V119),(V68),Ct);          V128= (*(LnkLI191))((V121),(V132),(V128),(V77),Ct);
717          {object V133= (V113);          {object V143= (V122);
718          if((V133!= VV[28])          if((V143!= VV[28])
719          && (V133!= VV[29]))goto T308;          && (V143!= VV[29]))goto T308;
720          (void)((VFUN_NARGS=14,(*(LnkLI192))((V113),(V123),(V112),(V70),(V114),(V115),(V122),(V120),(V124),(V125),(V116),(V119),(V118),(V121))));          (void)((VFUN_NARGS=14,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133),(V134),(V125),(V128),(V127),(V130))));
721          goto T212;          goto T212;
722          goto T308;          goto T308;
723  T308:;  T308:;
724          if((V133!= VV[31]))goto T309;          if((V143!= VV[31]))goto T309;
725          (void)((VFUN_NARGS=10,(*(LnkLI192))((V113),(V123),(V112),(V70),(V114),(V115),(V122),(V120),(V124),(V125))));          (void)((VFUN_NARGS=10,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133),(V134))));
726          goto T212;          goto T212;
727          goto T309;          goto T309;
728  T309:;  T309:;
729          if((V133!= VV[30]))goto T310;          if((V143!= VV[30]))goto T310;
730          (void)((VFUN_NARGS=10,(*(LnkLI192))((V113),(V123),(V112),(V70),(V114),(V115),(V122),(V120),(V124),(V125))));          (void)((VFUN_NARGS=10,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133),(V134))));
731          goto T212;          goto T212;
732          goto T310;          goto T310;
733  T310:;  T310:;
734          if((V133!= VV[32]))goto T311;          if((V143!= VV[32]))goto T311;
735          (void)((VFUN_NARGS=9,(*(LnkLI192))((V113),(V123),(V112),(V70),(V114),(V115),(V122),(V120),(V124))));          (void)((VFUN_NARGS=9,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133))));
736          goto T212;          goto T212;
737          goto T311;          goto T311;
738  T311:;}}}}}  T311:;}}}}}
739          goto T212;          goto T212;
740  T212:;  T212:;
741          V110= CMPcdr((V110));          V119= CMPcdr((V119));
742          V111= CMPcar((V110));          V120= CMPcar((V119));
743          goto T207;}          goto T207;}
744          goto T203;          goto T203;
745  T203:;  T203:;
746          {object V134;          {object V144;
747          object V135;          object V145;
748          V134= (VFUN_NARGS=1,(*(LnkLI25))(VV[43]));          V144= (VFUN_NARGS=1,(*(LnkLI25))(VV[43]));
749          if(type_of(V134)==t_structure){          if(type_of(V144)==t_structure){
750          goto T323;}          goto T323;}
751          goto T321;          goto T321;
752          goto T323;          goto T323;
753  T323:;  T323:;
754          if(!(((V134)->str.str_def)==(VV[44]))){          if(!(((V144)->str.str_def)==(VV[44]))){
755          goto T321;}          goto T321;}
756          V136= STREF(object,(V134),4);          V146= STREF(object,(V144),4);
757          goto T319;          goto T319;
758          goto T321;          goto T321;
759  T321:;{object V138;  T321:;{object V148;
760          V138= (VV[45]->s.s_dbind);          V148= (VV[45]->s.s_dbind);
761          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
762          base[5]= (V134);          base[5]= (V144);
763          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
764          (void) (*Lnk193)();          (void) (*Lnk193)();
765          vs_top=sup;          vs_top=sup;
766          V139= vs_base[0];          V149= vs_base[0];
767          if(!((V138)==(CMPcar(V139)))){          if(!((V148)==(CMPcar(V149)))){
768          goto T326;}}          goto T326;}}
769          V136= CMPcar(((V134))->cc.cc_turbo[12]);          V146= CMPcar(((V144))->cc.cc_turbo[12]);
770          goto T319;          goto T319;
771          goto T326;          goto T326;
772  T326:;  T326:;
# Line 764  T326:; Line 774  T326:;
774          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
775          Lerror();          Lerror();
776          vs_top=sup;          vs_top=sup;
777          V136= vs_base[0];          V146= vs_base[0];
778          goto T319;          goto T319;
779  T319:;  T319:;
780          V140= (*(LnkLI194))(VV[28],VV[47]);          V150= (*(LnkLI194))(VV[28],VV[47]);
781          V135= (V136)->v.v_self[fix(/* INLINE-ARGS */V140)];          V145= (V146)->v.v_self[fix(/* INLINE-ARGS */V150)];
782          base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V135)));          base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V145)));
783          base[4]= VV[48];          base[4]= VV[48];
784          vs_base=vs_top;          vs_base=vs_top;
785          (void) (*Lnk195)();          (void) (*Lnk195)();
# Line 794  T319:; Line 804  T319:;
804          L7(base);          L7(base);
805          vs_top=sup;          vs_top=sup;
806          (VV[54]->s.s_dbind)= base[3];          (VV[54]->s.s_dbind)= base[3];
807          {object V141 = (VV[54]->s.s_dbind);          {object V151 = (VV[54]->s.s_dbind);
808          bds_unwind1;          bds_unwind1;
809          VMR6(V141)}}}          VMR6(V151)}}}
810          base[0]=base[0];          base[0]=base[0];
811          return Cnil;          return Cnil;
812  }  }
813  /*      local entry for function BOOTSTRAP-INITIALIZE-CLASS     */  /*      local entry for function BOOTSTRAP-INITIALIZE-CLASS     */
814    
815  static object LI8(object V150,object V149,object V148,object V147,object V146,object V145,object V144,object V143,object V142,object first,...)  static object LI8(object V160,object V159,object V158,object V157,object V156,object V155,object V154,object V153,object V152,object first,...)
816  {        {      
817          va_list ap;          va_list ap;
818          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
819          {register object V151;          {register object V161;
         object V152;  
         object V153;  
         object V154;  
         object V155;  
         object V156;  
         object V157;  
         object V158;  
         object V159;  
         object V160;  
         object V161;  
820          object V162;          object V162;
821            object V163;
822            object V164;
823            object V165;
824            object V166;
825            object V167;
826            object V168;
827            object V169;
828            object V170;
829            object V171;
830            object V172;
831          va_start(ap,first);          va_start(ap,first);
832          if(narg <9) too_few_arguments();          if(narg <9) too_few_arguments();
833          base[0]= V150;          base[0]= V160;
834          base[1]= V149;          base[1]= V159;
835          V151= V148;          V161= V158;
836          V152= V147;          V162= V157;
837          V153= V146;          V163= V156;
838          V154= V145;          V164= V155;
839          V155= V144;          V165= V154;
840          V156= V143;          V166= V153;
841          V157= V142;          V167= V152;
842          narg = narg - 9;          narg = narg - 9;
843          if (narg <= 0) goto T346;          if (narg <= 0) goto T346;
844          else {          else {
845          V158= first;}          V168= first;}
846          if (--narg <= 0) goto T347;          if (--narg <= 0) goto T347;
847          else {          else {
848          V159= va_arg(ap,object);}          V169= va_arg(ap,object);}
849          if (--narg <= 0) goto T348;          if (--narg <= 0) goto T348;
850          else {          else {
851          V160= va_arg(ap,object);}          V170= va_arg(ap,object);}
852          if (--narg <= 0) goto T349;          if (--narg <= 0) goto T349;
853          else {          else {
854          V161= va_arg(ap,object);}          V171= va_arg(ap,object);}
855          if (--narg <= 0) goto T350;          if (--narg <= 0) goto T350;
856          else {          else {
857          V162= va_arg(ap,object);}          V172= va_arg(ap,object);}
858          --narg; goto T351;          --narg; goto T351;
859          goto T346;          goto T346;
860  T346:;  T346:;
861          V158= Cnil;          V168= Cnil;
862          goto T347;          goto T347;
863  T347:;  T347:;
864          V159= Cnil;          V169= Cnil;
865          goto T348;          goto T348;
866  T348:;  T348:;
867          V160= Cnil;          V170= Cnil;
868          goto T349;          goto T349;
869  T349:;  T349:;
870          V161= Cnil;          V171= Cnil;
871          goto T350;          goto T350;
872  T350:;  T350:;
873          V162= Cnil;          V172= Cnil;
874          goto T351;          goto T351;
875  T351:;  T351:;
876          base[14]= VV[55];          base[14]= VV[55];
877          base[15]= (V151);          base[15]= (V161);
878          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
879          L10(base);          L10(base);
880          vs_top=sup;          vs_top=sup;
881          base[14]= VV[48];          base[14]= VV[48];
882          base[15]= (V153);          base[15]= (V163);
883          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
884          L10(base);          L10(base);
885          vs_top=sup;          vs_top=sup;
886          base[14]= VV[49];          base[14]= VV[49];
887          V163= (VFUN_NARGS=1,(*(LnkLI25))(Ct));          V173 = base[1];
888          if(!((base[1])==(/* INLINE-ARGS */V163))){          V174= (VFUN_NARGS=1,(*(LnkLI25))(Ct));
889            if(!((V173)==(/* INLINE-ARGS */V174))){
890          goto T367;}          goto T367;}
891          base[15]= Ct;          base[15]= Ct;
892          goto T365;          goto T365;
# Line 888  T365:; Line 899  T365:;
899          L10(base);          L10(base);
900          vs_top=sup;          vs_top=sup;
901          base[14]= VV[35];          base[14]= VV[35];
902          {object V164;          {object V175;
903          V164= (VFUN_NARGS=1,(*(LnkLI21))((V152)));          V175= (VFUN_NARGS=1,(*(LnkLI21))((V162)));
904          V165= list(2,VV[56],base[1]);          V176= list(2,VV[56],base[1]);
905          (void)((*(LnkLI196))(VV[35],(V164),VV[49],/* INLINE-ARGS */V165));          (void)((*(LnkLI196))(VV[35],(V175),VV[49],/* INLINE-ARGS */V176));
906          (void)((*(LnkLI196))(VV[35],(V164),VV[57],base[1]));          (void)((*(LnkLI196))(VV[35],(V175),VV[57],base[1]));
907          base[15]= (V164);}          base[15]= (V175);}
908          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
909          L10(base);          L10(base);
910          vs_top=sup;          vs_top=sup;
911          base[14]= VV[58];          base[14]= VV[58];
912          base[16]= (V156);          base[16]= (V166);
913          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
914          L9(base);          L9(base);
915          vs_top=sup;          vs_top=sup;
# Line 907  T365:; Line 918  T365:;
918          L10(base);          L10(base);
919          vs_top=sup;          vs_top=sup;
920          base[14]= VV[59];          base[14]= VV[59];
921          base[16]= CMPcdr((V156));          base[16]= CMPcdr((V166));
922          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
923          L9(base);          L9(base);
924          vs_top=sup;          vs_top=sup;
# Line 921  T365:; Line 932  T365:;
932          L10(base);          L10(base);
933          vs_top=sup;          vs_top=sup;
934          base[14]= VV[61];          base[14]= VV[61];
935          base[16]= (V154);          base[16]= (V164);
936          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
937          L9(base);          L9(base);
938          vs_top=sup;          vs_top=sup;
# Line 930  T365:; Line 941  T365:;
941          L10(base);          L10(base);
942          vs_top=sup;          vs_top=sup;
943          base[14]= VV[62];          base[14]= VV[62];
944          base[16]= (V155);          base[16]= (V165);
945          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
946          L9(base);          L9(base);
947          vs_top=sup;          vs_top=sup;
# Line 944  T365:; Line 955  T365:;
955          L10(base);          L10(base);
956          vs_top=sup;          vs_top=sup;
957          base[14]= VV[47];          base[14]= VV[47];
958          base[15]= (V157);          base[15]= (V167);
959          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
960          L10(base);          L10(base);
961          vs_top=sup;          vs_top=sup;
962          base[14]= VV[64];{object V166;          base[14]= VV[64];{object V177;
963          {register object x= (V151),V168= (VV[65]->s.s_dbind);          {register object x= (V161),V179= (VV[65]->s.s_dbind);
964          while(V168!=Cnil)          while(V179!=Cnil)
965          if(eql(x,V168->c.c_car->c.c_car) &&V168->c.c_car != Cnil){          if(eql(x,V179->c.c_car->c.c_car) &&V179->c.c_car != Cnil){
966          V167= (V168->c.c_car);          V178= (V179->c.c_car);
967          goto T405;          goto T405;
968          }else V168=V168->c.c_cdr;          }else V179=V179->c.c_cdr;
969          V167= Cnil;}          V178= Cnil;}
970          goto T405;          goto T405;
971  T405:;  T405:;
972          V166= CMPcadr(V167);          V177= CMPcadr(V178);
973          if(V166==Cnil)goto T403;          if(V177==Cnil)goto T403;
974          base[15]= V166;          base[15]= V177;
975          goto T402;          goto T402;
976          goto T403;          goto T403;
977  T403:;}  T403:;}
978          base[16]= (V151);          base[16]= (V161);
979          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
980          (void) (*Lnk197)();          (void) (*Lnk197)();
981          vs_top=sup;          vs_top=sup;
# Line 975  T402:; Line 986  T402:;
986          L10(base);          L10(base);
987          vs_top=sup;          vs_top=sup;
988          base[14]= VV[66];          base[14]= VV[66];
989          if((V161)==Cnil){          if((V171)==Cnil){
990          V169= Cnil;          V180= Cnil;
991          goto T410;}          goto T410;}
992          V169= list(2,VV[67],(V161));          V180= list(2,VV[67],(V171));
993          goto T410;          goto T410;
994  T410:;  T410:;
995          if((V162)==Cnil){          if((V172)==Cnil){
996          V170= Cnil;          V181= Cnil;
997          goto T411;}          goto T411;}
998          V170= list(2,VV[68],(V162));          V181= list(2,VV[68],(V172));
999          goto T411;          goto T411;
1000  T411:;  T411:;
1001          base[15]= append(V169,V170);          base[15]= append(V180,V181);
1002          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1003          L10(base);          L10(base);
1004          vs_top=sup;          vs_top=sup;
1005          {register object x= base[0],V171= VV[69];          {register object x= base[0],V182= VV[69];
1006          while(V171!=Cnil)          while(V182!=Cnil)
1007          if(x==(V171->c.c_car)){          if(x==(V182->c.c_car)){
1008          goto T414;          goto T414;
1009          }else V171=V171->c.c_cdr;          }else V182=V182->c.c_cdr;
1010          goto T412;}          goto T412;}
1011          goto T414;          goto T414;
1012  T414:;  T414:;
1013          base[14]= VV[70];          base[14]= VV[70];
1014          base[15]= (V159);          base[15]= (V169);
1015          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1016          L10(base);          L10(base);
1017          vs_top=sup;          vs_top=sup;
1018          base[14]= VV[71];          base[14]= VV[71];
1019          base[15]= (V160);          base[15]= (V170);
1020          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
1021          L10(base);          L10(base);
1022          vs_top=sup;          vs_top=sup;
# Line 1018  T414:; Line 1029  T414:;
1029  T412:;  T412:;
1030          if(!((base[0])==(VV[32]))){          if(!((base[0])==(VV[32]))){
1031          goto T425;}          goto T425;}
1032          base[14]= VV[64];{object V173;          base[14]= VV[64];{object V184;
1033          {register object x= (V151),V175= (VV[65]->s.s_dbind);          {register object x= (V161),V186= (VV[65]->s.s_dbind);
1034          while(V175!=Cnil)          while(V186!=Cnil)
1035          if(eql(x,V175->c.c_car->c.c_car) &&V175->c.c_car != Cnil){          if(eql(x,V186->c.c_car->c.c_car) &&V186->c.c_car != Cnil){
1036          V174= (V175->c.c_car);          V185= (V186->c.c_car);
1037          goto T432;          goto T432;
1038          }else V175=V175->c.c_cdr;          }else V186=V186->c.c_cdr;
1039          V174= Cnil;}          V185= Cnil;}
1040          goto T432;          goto T432;
1041  T432:;  T432:;
1042          V173= CMPcadr(V174);          V184= CMPcadr(V185);
1043          if(V173==Cnil)goto T430;          if(V184==Cnil)goto T430;
1044          base[15]= V173;          base[15]= V184;
1045          goto T429;          goto T429;
1046          goto T430;          goto T430;
1047  T430:;}  T430:;}
1048          base[16]= (V151);          base[16]= (V161);
1049          vs_top=(vs_base=base+16)+1;          vs_top=(vs_base=base+16)+1;
1050          (void) (*Lnk197)();          (void) (*Lnk197)();
1051          vs_top=sup;          vs_top=sup;
# Line 1079  T429:; Line 1090  T429:;
1090          goto T425;          goto T425;
1091  T425:;  T425:;
1092          base[14]= VV[80];          base[14]= VV[80];
1093          if((V158)!=Cnil){          if((V168)!=Cnil){
1094          base[15]= (V158);          base[15]= (V168);
1095          goto T449;}          goto T449;}
1096          base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V157)));          base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V167)));
1097          goto T449;          goto T449;
1098  T449:;  T449:;
1099          vs_top=(vs_base=base+14)+2;          vs_top=(vs_base=base+14)+2;
# Line 1090  T449:; Line 1101  T449:;
1101          vs_top=sup;          vs_top=sup;
1102          goto T423;          goto T423;
1103  T423:;  T423:;
1104          {object V176 = base[1];          {object V187 = base[1];
1105          VMR7(V176)}          VMR7(V187)}
1106          va_end(ap);          va_end(ap);
1107          base[0]=base[0];          base[0]=base[0];
1108          return Cnil;}          return Cnil;}
1109          }          }
1110  /*      local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS        */  /*      local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS        */
1111    
1112  static object LI11(V182,V183,V184,V185,V186)  static object LI11(V193,V194,V195,V196,V197)
1113    
1114  object V182;object V183;object V184;object V185;object V186;  object V193;object V194;object V195;object V196;object V197;
1115  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
1116          goto TTL;          goto TTL;
1117  TTL:;  TTL:;
1118          {object V187;          {object V198;
1119          V187= small_fixnum(-1);          V198= small_fixnum(-1);
1120          {object V188;          {object V199;
1121          object V189= (V184);          object V200= (V195);
1122          if(V189==Cnil){          if(V200==Cnil){
1123          {object V190 = Cnil;          {object V201 = Cnil;
1124          VMR8(V190)}}          VMR8(V201)}}
1125          base[0]=V188=MMcons(Cnil,Cnil);          base[0]=V199=MMcons(Cnil,Cnil);
1126          goto T450;          goto T450;
1127  T450:;  T450:;
1128          V187= number_plus((V187),small_fixnum(1));          V198= number_plus((V198),small_fixnum(1));
1129          (V188->c.c_car)= (*(LnkLI198))((V182),(V183),(V189->c.c_car),(V185),(V186),(V187));          (V199->c.c_car)= (*(LnkLI198))((V193),(V194),(V200->c.c_car),(V196),(V197),(V198));
1130          if((V189=MMcdr(V189))==Cnil){          if((V200=MMcdr(V200))==Cnil){
1131          {object V192 = base[0];          {object V203 = base[0];
1132          VMR8(V192)}}          VMR8(V203)}}
1133          V188=MMcdr(V188)=MMcons(Cnil,Cnil);          V199=MMcdr(V199)=MMcons(Cnil,Cnil);
1134          goto T450;}}          goto T450;}}
1135          base[0]=base[0];          base[0]=base[0];
1136          return Cnil;          return Cnil;
1137  }  }
1138  /*      local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */  /*      local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */
1139    
1140  static object LI15(V199,V200,V201,V202,V203,V204)  static object LI15(V210,V211,V212,V213,V214,V215)
1141    
1142  object V199;object V200;object V201;object V202;register object V203;register object V204;  object V210;object V211;object V212;object V213;register object V214;register object V215;
1143  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
1144          goto TTL;          goto TTL;
1145  TTL:;  TTL:;
1146          base[0]= (V201);          base[0]= (V212);
1147          {register object V205;          {register object V216;
1148          if(((V203))==Cnil){          if(((V214))==Cnil){
1149          goto T456;}          goto T456;}
1150          base[1]= VV[34];          base[1]= VV[34];
1151          goto T454;          goto T454;
# Line 1143  T456:; Line 1154  T456:;
1154          base[1]= VV[33];          base[1]= VV[33];
1155          goto T454;          goto T454;
1156  T454:;  T454:;
1157          base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V202)));          base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V213)));
1158          base[4]= base[0];          base[4]= base[0];
1159          base[5]= VV[81];          base[5]= VV[81];
1160          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1161          Lgetf();          Lgetf();
1162          vs_top=sup;          vs_top=sup;
1163          V205= vs_base[0];          V216= vs_base[0];
1164          base[4]= VV[55];          base[4]= VV[55];
1165          base[5]= (V205);          base[5]= (V216);
1166          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1167          L17(base);          L17(base);
1168          vs_top=sup;          vs_top=sup;
# Line 1205  T454:; Line 1216  T454:;
1216          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1217          L17(base);          L17(base);
1218          vs_top=sup;          vs_top=sup;
1219          base[4]= VV[49];{object V206;          base[4]= VV[49];{object V217;
1220          base[6]= VV[93];          base[6]= VV[93];
1221          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1222          L16(base);          L16(base);
1223          vs_top=sup;          vs_top=sup;
1224          V206= vs_base[0];          V217= vs_base[0];
1225          if(V206==Cnil)goto T491;          if(V217==Cnil)goto T491;
1226          base[5]= V206;          base[5]= V217;
1227          goto T490;          goto T490;
1228          goto T491;          goto T491;
1229  T491:;}  T491:;}
# Line 1222  T490:; Line 1233  T490:;
1233          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1234          L17(base);          L17(base);
1235          vs_top=sup;          vs_top=sup;
1236          base[4]= VV[51];{object V207;          base[4]= VV[51];{object V218;
1237          base[6]= VV[94];          base[6]= VV[94];
1238          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1239          L16(base);          L16(base);
1240          vs_top=sup;          vs_top=sup;
1241          V207= vs_base[0];          V218= vs_base[0];
1242          if(V207==Cnil)goto T497;          if(V218==Cnil)goto T497;
1243          base[5]= V207;          base[5]= V218;
1244          goto T496;          goto T496;
1245          goto T497;          goto T497;
1246  T497:;}  T497:;}
# Line 1240  T496:; Line 1251  T496:;
1251          L17(base);          L17(base);
1252          vs_top=sup;          vs_top=sup;
1253          base[4]= VV[26];          base[4]= VV[26];
1254          base[5]= (V200);          base[5]= (V211);
1255          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1256          L17(base);          L17(base);
1257          vs_top=sup;          vs_top=sup;
1258          if(((V203))==Cnil){          if(((V214))==Cnil){
1259          goto T503;}          goto T503;}
1260          base[4]= VV[96];          base[4]= VV[96];
1261          base[5]= (V204);          base[5]= (V215);
1262          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1263          L17(base);          L17(base);
1264          vs_top=sup;          vs_top=sup;
1265          base[4]= VV[97];          base[4]= VV[97];
1266          base[6]= Cnil;          base[6]= Cnil;
1267          base[7]= (V205);          base[7]= (V216);
1268          base[8]= (V204);          base[8]= (V215);
1269          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1270          (void) (*Lnk199)();          (void) (*Lnk199)();
1271          vs_top=sup;          vs_top=sup;
# Line 1264  T496:; Line 1275  T496:;
1275          vs_top=sup;          vs_top=sup;
1276          base[4]= VV[98];          base[4]= VV[98];
1277          base[6]= Cnil;          base[6]= Cnil;
1278          base[7]= (V205);          base[7]= (V216);
1279          base[8]= (V204);          base[8]= (V215);
1280          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1281          (void) (*Lnk200)();          (void) (*Lnk200)();
1282          vs_top=sup;          vs_top=sup;
# Line 1275  T496:; Line 1286  T496:;
1286          vs_top=sup;          vs_top=sup;
1287          base[4]= VV[99];          base[4]= VV[99];
1288          base[6]= Cnil;          base[6]= Cnil;
1289          base[7]= (V205);          base[7]= (V216);
1290          base[8]= (V204);          base[8]= (V215);
1291          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+6)+3;
1292          (void) (*Lnk201)();          (void) (*Lnk201)();
1293          vs_top=sup;          vs_top=sup;
# Line 1289  T496:; Line 1300  T496:;
1300          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1301          L17(base);          L17(base);
1302          vs_top=sup;          vs_top=sup;
1303          {object V209;{object V210;          {object V220;{object V221;
1304          base[4]= (V205);          base[4]= (V216);
1305          base[5]= (VV[101]->s.s_dbind);          base[5]= (VV[101]->s.s_dbind);
1306          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1307          Lgethash();          Lgethash();
1308          vs_top=sup;          vs_top=sup;
1309          V210= vs_base[0];          V221= vs_base[0];
1310          if(V210==Cnil)goto T531;          if(V221==Cnil)goto T531;
1311          V209= V210;          V220= V221;
1312          goto T530;          goto T530;
1313          goto T531;          goto T531;
1314  T531:;}  T531:;}
1315          {object V212;          {object V223;
1316          object V213;          object V224;
1317          V212= (VV[101]->s.s_dbind);          V223= (VV[101]->s.s_dbind);
1318          base[5]= VV[102];          base[5]= VV[102];
1319          base[6]= VV[103];          base[6]= VV[103];
1320          base[7]= VV[104];          base[7]= VV[104];
# Line 1311  T531:;} Line 1322  T531:;}
1322          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
1323          Lmake_hash_table();          Lmake_hash_table();
1324          vs_top=sup;          vs_top=sup;
1325          V213= vs_base[0];          V224= vs_base[0];
1326          base[5]= V205;          base[5]= V216;
1327          base[6]= (V212);          base[6]= (V223);
1328          base[7]= (V213);          base[7]= (V224);
1329          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+5)+3;
1330          siLhash_set();          siLhash_set();
1331          vs_top=sup;          vs_top=sup;
1332          V209= vs_base[0];}          V220= vs_base[0];}
1333          goto T530;          goto T530;
1334  T530:;  T530:;
1335          base[4]= V200;          base[4]= V211;
1336          base[5]= V209;          base[5]= V220;
1337          base[6]= base[2];          base[6]= base[2];
1338          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
1339          siLhash_set();          siLhash_set();
1340          vs_top=sup;}          vs_top=sup;}
1341          goto T503;          goto T503;
1342  T503:;  T503:;
1343          if(!(((V199))==(VV[28]))){          if(!(((V210))==(VV[28]))){
1344          goto T547;}          goto T547;}
1345          if(!(((V205))==(VV[71]))){          if(!(((V216))==(VV[71]))){
1346          goto T547;}          goto T547;}
1347          if(((V203))==Cnil){          if(((V214))==Cnil){
1348          goto T547;}          goto T547;}
1349          (VV[105]->s.s_dbind)= base[2];          (VV[105]->s.s_dbind)= base[2];
1350          goto T547;          goto T547;
1351  T547:;  T547:;
1352          if(!(((V199))==(VV[29]))){          if(!(((V210))==(VV[29]))){
1353          goto T555;}          goto T555;}
1354          if(!(((V205))==(VV[71]))){          if(!(((V216))==(VV[71]))){
1355          goto T555;}          goto T555;}
1356          if(((V203))==Cnil){          if(((V214))==Cnil){
1357          goto T555;}          goto T555;}
1358          (VV[106]->s.s_dbind)= base[2];          (VV[106]->s.s_dbind)= base[2];
1359          goto T555;          goto T555;
1360  T555:;  T555:;
1361          {object V217 = base[2];          {object V228 = base[2];
1362          VMR9(V217)}}          VMR9(V228)}}
1363          base[0]=base[0];          base[0]=base[0];
1364          return Cnil;          return Cnil;
1365  }  }
1366  /*      local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */  /*      local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */
1367    
1368  static object LI18(V219)  static object LI18(V230)
1369    
1370  object V219;  object V230;
1371  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
1372          bds_check;          bds_check;
1373          goto TTL;          goto TTL;
1374  TTL:;  TTL:;
1375          bds_bind(VV[107],(V219));          bds_bind(VV[107],(V230));
1376          {register object V220;          {register object V231;
1377          register object V221;          register object V232;
1378          V220= (VV[36]->s.s_dbind);          V231= (VV[36]->s.s_dbind);
1379          V221= CMPcar((V220));          V232= CMPcar((V231));
1380          goto T566;          goto T566;
1381  T566:;  T566:;
1382          if(!(((V220))==Cnil)){          if(!(((V231))==Cnil)){
1383          goto T567;}          goto T567;}
1384          {object V222 = Cnil;          {object V233 = Cnil;
1385          bds_unwind1;          bds_unwind1;
1386          VMR10(V222)}          VMR10(V233)}
1387          goto T567;          goto T567;
1388  T567:;  T567:;
1389          {object V223;          {object V234;
1390          object V224;          object V235;
1391          V223= (*(LnkLI181))((V221));          V234= (*(LnkLI181))((V232));
1392          V224= (*(LnkLI182))((V221));          V235= (*(LnkLI182))((V232));
1393          if(((V224))==(VV[31])){          if(((V235))==(VV[31])){
1394          goto T571;}          goto T571;}
1395          {object V225;          {object V236;
1396          V225= (*(LnkLI186))((V221));          V236= (*(LnkLI186))((V232));
1397          {register object V226;          {register object V237;
1398          register object V227;          register object V238;
1399          V226= (V225);          V237= (V236);
1400          V227= CMPcar((V226));          V238= CMPcar((V237));
1401          goto T580;          goto T580;
1402  T580:;  T580:;
1403          if(!(((V226))==Cnil)){          if(!(((V237))==Cnil)){
1404          goto T581;}          goto T581;}
1405          goto T571;          goto T571;
1406          goto T581;          goto T581;
1407  T581:;  T581:;
1408          {register object V228;          {register object V239;
1409          register object V229;          register object V240;
1410          register object V230;          register object V241;
1411          base[3]= (V227);          base[3]= (V238);
1412          base[4]= VV[81];          base[4]= VV[81];
1413          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1414          Lgetf();          Lgetf();
1415          vs_top=sup;          vs_top=sup;
1416          V228= vs_base[0];          V239= vs_base[0];
1417          base[3]= (V227);          base[3]= (V238);
1418          base[4]= VV[89];          base[4]= VV[89];
1419          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1420          Lgetf();          Lgetf();
1421          vs_top=sup;          vs_top=sup;
1422          V229= vs_base[0];          V240= vs_base[0];
1423          base[3]= (V227);          base[3]= (V238);
1424          base[4]= VV[91];          base[4]= VV[91];
1425          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1426          Lgetf();          Lgetf();
1427          vs_top=sup;          vs_top=sup;
1428          V230= vs_base[0];          V241= vs_base[0];
1429          (void)((*(LnkLI202))((V223),(V228),(V229),(V230),Cnil));          (void)((*(LnkLI202))((V234),(V239),(V240),(V241),Cnil));
1430          V231= (*(LnkLI203))((V228));          V242= (*(LnkLI203))((V239));
1431          V232= make_cons(/* INLINE-ARGS */V231,Cnil);          V243= make_cons(/* INLINE-ARGS */V242,Cnil);
1432          V233= (*(LnkLI204))((V228));          V244= (*(LnkLI204))((V239));
1433          V234= make_cons(/* INLINE-ARGS */V233,Cnil);          V245= make_cons(/* INLINE-ARGS */V244,Cnil);
1434          V235= (*(LnkLI205))((V228));          V246= (*(LnkLI205))((V239));
1435          V236= make_cons(/* INLINE-ARGS */V235,Cnil);          V247= make_cons(/* INLINE-ARGS */V246,Cnil);
1436          (void)((*(LnkLI202))(VV[108],(V228),/* INLINE-ARGS */V232,/* INLINE-ARGS */V234,/* INLINE-ARGS */V236));}          (void)((*(LnkLI202))(VV[108],(V239),/* INLINE-ARGS */V243,/* INLINE-ARGS */V245,/* INLINE-ARGS */V247));}
1437          V226= CMPcdr((V226));          V237= CMPcdr((V237));
1438          V227= CMPcar((V226));          V238= CMPcar((V237));
1439          goto T580;}}}          goto T580;}}}
1440          goto T571;          goto T571;
1441  T571:;  T571:;
1442          V220= CMPcdr((V220));          V231= CMPcdr((V231));
1443          V221= CMPcar((V220));          V232= CMPcar((V231));
1444          goto T566;}          goto T566;}
1445          base[0]=base[0];          base[0]=base[0];
1446          return Cnil;          return Cnil;
# Line 1440  static void L19() Line 1451  static void L19()
1451  {register object *base=vs_base;  {register object *base=vs_base;
1452          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1453          vs_check;          vs_check;
1454          {register object V237;          {register object V248;
1455          object V238;          object V249;
1456          object V239;          object V250;
1457          object V240;          object V251;
1458          check_arg(4);          check_arg(4);
1459          V237=(base[0]);          V248=(base[0]);
1460          V238=(base[1]);          V249=(base[1]);
1461          V239=(base[2]);          V250=(base[2]);
1462          V240=(base[3]);          V251=(base[3]);
1463          vs_top=sup;          vs_top=sup;
1464          goto TTL;          goto TTL;
1465  TTL:;  TTL:;
1466          {object V241;          {object V252;
1467          object V242;          object V253;
1468          object V243;          object V254;
1469          object V244;          object V255;
1470          object V245;          object V256;
1471          {object V246= (V240);          {object V257= (V251);
1472          if((V246!= VV[120]))goto T607;          if((V257!= VV[120]))goto T607;
1473          base[4]= VV[109];          base[4]= VV[109];
1474          base[5]= (VV[206]->s.s_gfdef);          base[5]= (VV[206]->s.s_gfdef);
1475          base[6]= make_cons((V237),Cnil);          base[6]= make_cons((V248),Cnil);
1476          base[7]= make_cons((V237),Cnil);          base[7]= make_cons((V248),Cnil);
1477          base[8]= VV[110];          base[8]= VV[110];
1478          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1479          goto T606;          goto T606;
1480          goto T607;          goto T607;
1481  T607:;  T607:;
1482          if((V246!= VV[121]))goto T613;          if((V257!= VV[121]))goto T613;
1483          base[4]= VV[111];          base[4]= VV[111];
1484          base[5]= (VV[207]->s.s_gfdef);          base[5]= (VV[207]->s.s_gfdef);
1485          base[6]= list(2,VV[112],(V237));          base[6]= list(2,VV[112],(V248));
1486          base[7]= list(2,Ct,(V237));          base[7]= list(2,Ct,(V248));
1487          base[8]= VV[113];          base[8]= VV[113];
1488          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1489          goto T606;          goto T606;
1490          goto T613;          goto T613;
1491  T613:;  T613:;
1492          if((V246!= VV[122]))goto T619;          if((V257!= VV[122]))goto T619;
1493          base[4]= VV[114];          base[4]= VV[114];
1494          base[5]= (VV[208]->s.s_gfdef);          base[5]= (VV[208]->s.s_gfdef);
1495          base[6]= make_cons((V237),Cnil);          base[6]= make_cons((V248),Cnil);
1496          base[7]= make_cons((V237),Cnil);          base[7]= make_cons((V248),Cnil);
1497          base[8]= VV[115];          base[8]= VV[115];
1498          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
1499          goto T606;          goto T606;
1500          goto T619;          goto T619;
1501  T619:;  T619:;
1502          FEerror("The ECASE key value ~s is illegal.",1,V246);          FEerror("The ECASE key value ~s is illegal.",1,V257);
1503          base[4]= Cnil;          base[4]= Cnil;
1504          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1505          goto T606;}          goto T606;}
1506          goto T606;          goto T606;
1507  T606:;  T606:;
1508          if(vs_base>=vs_top){vs_top=sup;goto T625;}          if(vs_base>=vs_top){vs_top=sup;goto T625;}
1509          V241= vs_base[0];          V252= vs_base[0];
1510          vs_base++;          vs_base++;
1511          if(vs_base>=vs_top){vs_top=sup;goto T626;}          if(vs_base>=vs_top){vs_top=sup;goto T626;}
1512          V242= vs_base[0];          V253= vs_base[0];
1513          vs_base++;          vs_base++;
1514          if(vs_base>=vs_top){vs_top=sup;goto T627;}          if(vs_base>=vs_top){vs_top=sup;goto T627;}
1515          V243= vs_base[0];          V254= vs_base[0];
1516          vs_base++;          vs_base++;
1517          if(vs_base>=vs_top){vs_top=sup;goto T628;}          if(vs_base>=vs_top){vs_top=sup;goto T628;}
1518          V244= vs_base[0];          V255= vs_base[0];
1519          vs_base++;          vs_base++;
1520          if(vs_base>=vs_top){vs_top=sup;goto T629;}          if(vs_base>=vs_top){vs_top=sup;goto T629;}
1521          V245= vs_base[0];          V256= vs_base[0];
1522          vs_top=sup;          vs_top=sup;
1523          goto T630;          goto T630;
1524          goto T625;          goto T625;
1525  T625:;  T625:;
1526          V241= Cnil;          V252= Cnil;
1527          goto T626;          goto T626;
1528  T626:;  T626:;
1529          V242= Cnil;          V253= Cnil;
1530          goto T627;          goto T627;
1531  T627:;  T627:;
1532          V243= Cnil;          V254= Cnil;
1533          goto T628;          goto T628;
1534  T628:;  T628:;
1535          V244= Cnil;          V255= Cnil;
1536          goto T629;          goto T629;
1537  T629:;  T629:;
1538          V245= Cnil;          V256= Cnil;
1539          goto T630;          goto T630;
1540  T630:;  T630:;
1541          {register object V247;          {register object V258;
1542          base[4]= (V238);          base[4]= (V249);
1543          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1544          (void) (*Lnk209)();          (void) (*Lnk209)();
1545          vs_top=sup;          vs_top=sup;
1546          V247= vs_base[0];          V258= vs_base[0];
1547          base[4]= (V244);          base[4]= (V255);
1548          if(type_of(V247)==t_structure){          if(type_of(V258)==t_structure){
1549          goto T642;}          goto T642;}
1550          goto T640;          goto T640;
1551          goto T642;          goto T642;
1552  T642:;  T642:;
1553          if(!(((V247)->str.str_def)==(VV[116]))){          if(!(((V258)->str.str_def)==(VV[116]))){
1554          goto T640;}          goto T640;}
1555          V248= STREF(object,(V247),4);          V259= STREF(object,(V258),4);
1556          goto T638;          goto T638;
1557          goto T640;          goto T640;
1558  T640:;{object V250;  T640:;{object V261;
1559          V250= (VV[45]->s.s_dbind);          V261= (VV[45]->s.s_dbind);
1560          base[6]= small_fixnum(14);          base[6]= small_fixnum(14);
1561          base[7]= (V247);          base[7]= (V258);
1562          vs_top=(vs_base=base+6)+2;          vs_top=(vs_base=base+6)+2;
1563          (void) (*Lnk193)();          (void) (*Lnk193)();
1564          vs_top=sup;          vs_top=sup;
1565          V251= vs_base[0];          V262= vs_base[0];
1566          if(!((V250)==(CMPcar(V251)))){          if(!((V261)==(CMPcar(V262)))){
1567          goto T645;}}          goto T645;}}
1568          V248= CMPcar(((V247))->cc.cc_turbo[12]);          V259= CMPcar(((V258))->cc.cc_turbo[12]);
1569          goto T638;          goto T638;
1570          goto T645;          goto T645;
1571  T645:;  T645:;
# Line 1562  T645:; Line 1573  T645:;
1573          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1574          Lerror();          Lerror();
1575          vs_top=sup;          vs_top=sup;
1576          V248= vs_base[0];          V259= vs_base[0];
1577          goto T638;          goto T638;
1578  T638:;  T638:;
1579          base[5]= (V248)->v.v_self[fix((VV[117]->s.s_dbind))];          V263 = (VV[117]->s.s_dbind);
1580            base[5]= (V259)->v.v_self[fix(V263)];
1581          base[6]= VV[118];          base[6]= VV[118];
1582          base[7]= (VV[210]->s.s_gfdef);          base[7]= (VV[210]->s.s_gfdef);
1583          base[8]= VV[102];          base[8]= VV[102];
# Line 1575  T638:; Line 1587  T638:;
1587          vs_top=sup;          vs_top=sup;
1588          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1589          goto T634;}          goto T634;}
1590          {register object x= (V238),V252= (VV[119]->s.s_dbind);          {register object x= (V249),V264= (VV[119]->s.s_dbind);
1591          while(V252!=Cnil)          while(V264!=Cnil)
1592          if(equal(x,V252->c.c_car->c.c_car) &&V252->c.c_car != Cnil){          if(equal(x,V264->c.c_car->c.c_car) &&V264->c.c_car != Cnil){
1593          goto T656;          goto T656;
1594          }else V252=V252->c.c_cdr;}          }else V264=V264->c.c_cdr;}
1595          base[4]= (VFUN_NARGS=1,(*(LnkLI213))((V247)));          base[4]= (VFUN_NARGS=1,(*(LnkLI213))((V258)));
1596          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1597          return;          return;
1598          goto T656;          goto T656;
# Line 1591  T656:; Line 1603  T656:;
1603          goto T634;          goto T634;
1604  T634:;  T634:;
1605          base[4]=(VV[214]->s.s_gfdef);          base[4]=(VV[214]->s.s_gfdef);
1606          base[5]= (V247);          base[5]= (V258);
1607          base[7]=(VV[215]->s.s_gfdef);          base[7]=(VV[215]->s.s_gfdef);
1608          base[8]= (V241);          base[8]= (V252);
1609          base[9]= Cnil;          base[9]= Cnil;
1610          base[10]= (V243);          base[10]= (V254);
1611          base[11]= (V244);          base[11]= (V255);
1612          base[13]= (V237);          base[13]= (V248);
1613          base[14]= (V239);          base[14]= (V250);
1614          vs_top=(vs_base=base+13)+2;          vs_top=(vs_base=base+13)+2;
1615          {object _funobj = (V242);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V253);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1616                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1617                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1618                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1619          vs_top=sup;          vs_top=sup;
1620          base[12]= vs_base[0];          base[12]= vs_base[0];
1621          base[13]= (V245);          base[13]= (V256);
1622          base[14]= (V239);          base[14]= (V250);
1623          base[6]= simple_lispcall(base+7,7);          base[6]= simple_lispcall(base+7,7);
1624          lispcall(base+4,2);          lispcall(base+4,2);
1625          return;}}          return;}}
# Line 1615  T634:; Line 1627  T634:;
1627  }  }
1628  /*      local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1        */  /*      local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1        */
1629    
1630  static object LI24(V258,V259,V260,V261,V262)  static object LI24(V270,V271,V272,V273,V274)
1631    
1632  object V258;object V259;object V260;object V261;object V262;  object V270;object V271;object V272;object V273;object V274;
1633  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1634          goto TTL;          goto TTL;
1635  TTL:;  TTL:;
1636          base[0]= (V259);          base[0]= (V271);
1637          base[1]= (V258);          base[1]= (V270);
1638          {register object V263;          {register object V275;
1639          register object V264;          register object V276;
1640          V263= (V260);          V275= (V272);
1641          V264= CMPcar((V263));          V276= CMPcar((V275));
1642          goto T673;          goto T673;
1643  T673:;  T673:;
1644          if(!(((V263))==Cnil)){          if(!(((V275))==Cnil)){
1645          goto T674;}          goto T674;}
1646          goto T669;          goto T669;
1647          goto T674;          goto T674;
1648  T674:;  T674:;
1649          base[3]= (V264);          base[3]= (V276);
1650          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1651          L25(base);          L25(base);
1652          vs_top=sup;          vs_top=sup;
1653          V263= CMPcdr((V263));          V275= CMPcdr((V275));
1654          V264= CMPcar((V263));          V276= CMPcar((V275));
1655          goto T673;}          goto T673;}
1656          goto T669;          goto T669;
1657  T669:;  T669:;
1658          {register object V265;          {register object V277;
1659          register object V266;          register object V278;
1660          V265= (V261);          V277= (V273);
1661          V266= CMPcar((V265));          V278= CMPcar((V277));
1662          goto T689;          goto T689;
1663  T689:;  T689:;
1664          if(!(((V265))==Cnil)){          if(!(((V277))==Cnil)){
1665          goto T690;}          goto T690;}
1666          goto T685;          goto T685;
1667          goto T690;          goto T690;
1668  T690:;  T690:;
1669          base[3]= (V266);          base[3]= (V278);
1670          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1671          L26(base);          L26(base);
1672          vs_top=sup;          vs_top=sup;
1673          V265= CMPcdr((V265));          V277= CMPcdr((V277));
1674          V266= CMPcar((V265));          V278= CMPcar((V277));
1675          goto T689;}          goto T689;}
1676          goto T685;          goto T685;
1677  T685:;  T685:;
1678          {register object V267;          {register object V279;
1679          register object V268;          register object V280;
1680          V267= (V262);          V279= (V274);
1681          V268= CMPcar((V267));          V280= CMPcar((V279));
1682          goto T704;          goto T704;
1683  T704:;  T704:;
1684          if(!(((V267))==Cnil)){          if(!(((V279))==Cnil)){
1685          goto T705;}          goto T705;}
1686          {object V269 = Cnil;          {object V281 = Cnil;
1687          VMR12(V269)}          VMR12(V281)}
1688          goto T705;          goto T705;
1689  T705:;  T705:;
1690          base[3]= (V268);          base[3]= (V280);
1691          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1692          L27(base);          L27(base);
1693          vs_top=sup;          vs_top=sup;
1694          V267= CMPcdr((V267));          V279= CMPcdr((V279));
1695          V268= CMPcar((V267));          V280= CMPcar((V279));
1696          goto T704;}          goto T704;}
1697          base[0]=base[0];          base[0]=base[0];
1698          return Cnil;          return Cnil;
1699  }  }
1700  /*      local entry for function BOOTSTRAP-CLASS-PREDICATES     */  /*      local entry for function BOOTSTRAP-CLASS-PREDICATES     */
1701    
1702  static object LI28(V271)  static object LI28(V283)
1703    
1704  object V271;  object V283;
1705  {        VMB13 VMS13 VMV13  {        VMB13 VMS13 VMV13
1706          bds_check;          bds_check;
1707          goto TTL;          goto TTL;
1708  TTL:;  TTL:;
1709          bds_bind(VV[107],(V271));          bds_bind(VV[107],(V283));
1710          {register object V272;          {register object V284;
1711          register object V273;          register object V285;
1712          V272= (VV[36]->s.s_dbind);          V284= (VV[36]->s.s_dbind);
1713          V273= CMPcar((V272));          V285= CMPcar((V284));
1714          goto T719;          goto T719;
1715  T719:;  T719:;
1716          if(!(((V272))==Cnil)){          if(!(((V284))==Cnil)){
1717          goto T720;}          goto T720;}
1718          {object V274 = Cnil;          {object V286 = Cnil;
1719          bds_unwind1;          bds_unwind1;
1720          VMR13(V274)}          VMR13(V286)}
1721          goto T720;          goto T720;
1722  T720:;  T720:;
1723          {register object V275;          {register object V287;
1724          register object V276;          register object V288;
1725          V275= (*(LnkLI181))((V273));          V287= (*(LnkLI181))((V285));
1726          V276= (VFUN_NARGS=1,(*(LnkLI25))((V275)));          V288= (VFUN_NARGS=1,(*(LnkLI25))((V287)));
1727          {register object V277;          {register object V289;
1728          register object V278;          register object V290;
1729          V277= (V275);          V289= (V287);
1730          base[5]= (V276);          V291 = (V288);
1731            base[5]= (V288);
1732          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1733          (void) (*Lnk217)(Lclptr217);          (void) (*Lnk217)(Lclptr217);
1734          vs_top=sup;          vs_top=sup;
1735          V279= vs_base[0];          V292= vs_base[0];
1736          V278= (*(LnkLI216))((V276),V279);          V290= (*(LnkLI216))(V291,V292);
1737          (void)((*(LnkLI218))((V278),(V277)));}}          (void)((*(LnkLI218))((V290),(V289)));}}
1738          V272= CMPcdr((V272));          V284= CMPcdr((V284));
1739          V273= CMPcar((V272));          V285= CMPcar((V284));
1740          goto T719;}          goto T719;}
1741          base[0]=base[0];          base[0]=base[0];
1742          return Cnil;          return Cnil;
# Line 1735  static object LI29() Line 1748  static object LI29()
1748  {        VMB14 VMS14 VMV14  {        VMB14 VMS14 VMV14
1749          goto TTL;          goto TTL;
1750  TTL:;  TTL:;
1751          {register object V280;          {register object V293;
1752          object V281;          object V294;
1753          V280= (VV[123]->s.s_dbind);          V293= (VV[123]->s.s_dbind);
1754          V281= CMPcar((V280));          V294= CMPcar((V293));
1755          goto T740;          goto T740;
1756  T740:;  T740:;
1757          if(!(((V280))==Cnil)){          if(!(((V293))==Cnil)){
1758          goto T741;}          goto T741;}
1759          goto T736;          goto T736;
1760          goto T741;          goto T741;
1761  T741:;  T741:;
1762          {register object V282;          {register object V295;
1763          register object V283;          register object V296;
1764          V282= CMPcadr((V281));          V295= CMPcadr((V294));
1765          V283= CMPcar((V282));          V296= CMPcar((V295));
1766          goto T749;          goto T749;
1767  T749:;  T749:;
1768          if(!(((V282))==Cnil)){          if(!(((V295))==Cnil)){
1769          goto T750;}          goto T750;}
1770          goto T745;          goto T745;
1771          goto T750;          goto T750;
1772  T750:;  T750:;
1773          if(((V283))==(Ct)){          if(((V296))==(Ct)){
1774          goto T754;}          goto T754;}
1775          {register object x= (V283),V284= (VV[123]->s.s_dbind);          {register object x= (V296),V297= (VV[123]->s.s_dbind);
1776          while(V284!=Cnil)          while(V297!=Cnil)
1777          if(EQ(x,V284->c.c_car->c.c_car) &&V284->c.c_car != Cnil){          if(EQ(x,V297->c.c_car->c.c_car) &&V297->c.c_car != Cnil){
1778          goto T754;          goto T754;
1779          }else V284=V284->c.c_cdr;}          }else V297=V297->c.c_cdr;}
1780          base[3]= VV[124];          base[3]= VV[124];
1781          base[4]= CMPcar((V281));          base[4]= CMPcar((V294));
1782          base[5]= (V283);          base[5]= (V296);
1783          base[6]= (V283);          base[6]= (V296);
1784          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1785          Lerror();          Lerror();
1786          vs_top=sup;          vs_top=sup;
1787          goto T754;          goto T754;
1788  T754:;  T754:;
1789          V282= CMPcdr((V282));          V295= CMPcdr((V295));
1790          V283= CMPcar((V282));          V296= CMPcar((V295));
1791          goto T749;}          goto T749;}
1792          goto T745;          goto T745;
1793  T745:;  T745:;
1794          V280= CMPcdr((V280));          V293= CMPcdr((V293));
1795          V281= CMPcar((V280));          V294= CMPcar((V293));
1796          goto T740;}          goto T740;}
1797          goto T736;          goto T736;
1798  T736:;  T736:;
1799          {object V285;          {object V298;
1800          object V286;          object V299;
1801          V285= (VFUN_NARGS=1,(*(LnkLI25))(VV[31]));          V298= (VFUN_NARGS=1,(*(LnkLI25))(VV[31]));
1802          base[2]= (V285);          base[2]= (V298);
1803          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1804          (void) (*Lnk219)(Lclptr219);          (void) (*Lnk219)(Lclptr219);
1805          vs_top=sup;          vs_top=sup;
1806          V286= vs_base[0];          V299= vs_base[0];
1807          {register object V287;          {register object V300;
1808          object V288;          object V301;
1809          V287= (VV[123]->s.s_dbind);          V300= (VV[123]->s.s_dbind);
1810          V288= CMPcar((V287));          V301= CMPcar((V300));
1811          goto T780;          goto T780;
1812  T780:;  T780:;
1813          if(!(((V287))==Cnil)){          if(!(((V300))==Cnil)){
1814          goto T781;}          goto T781;}
1815          goto T773;          goto T773;
1816          goto T781;          goto T781;
1817  T781:;  T781:;
1818          {object V289;          {object V302;
1819          V289= (VFUN_NARGS=1,(*(LnkLI21))((V286)));          V302= (VFUN_NARGS=1,(*(LnkLI21))((V299)));
1820          {object V290;          {object V303;
1821          V290= CMPcar((V288));          V303= CMPcar((V301));
1822          (void)((*(LnkLI180))(V289,(V290)));}}          (void)((*(LnkLI180))(V302,(V303)));}}
1823          V287= CMPcdr((V287));          V300= CMPcdr((V300));
1824          V288= CMPcar((V287));          V301= CMPcar((V300));
1825          goto T780;}}          goto T780;}}
1826          goto T773;          goto T773;
1827  T773:;  T773:;
1828          {object V292;          {object V305;
1829          base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35]));          base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35]));
1830          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1831          (void) (*Lnk219)(Lclptr219);          (void) (*Lnk219)(Lclptr219);
1832          vs_top=sup;          vs_top=sup;
1833          V292= vs_base[0];          V305= vs_base[0];
1834          {register object V293;          {register object V306;
1835          object V294;          object V307;
1836          V293= (VV[123]->s.s_dbind);          V306= (VV[123]->s.s_dbind);
1837          V294= CMPcar((V293));          V307= CMPcar((V306));
1838          goto T799;          goto T799;
1839  T799:;  T799:;
1840          if(!(((V293))==Cnil)){          if(!(((V306))==Cnil)){
1841          goto T800;}          goto T800;}
1842          goto T793;          goto T793;
1843          goto T800;          goto T800;
1844  T800:;  T800:;
1845          {object V295;          {object V308;
1846          object V296;          object V309;
1847          object V297;          object V310;
1848          object V298;          object V311;
1849          register object V299;          register object V312;
1850          register object V300;          register object V313;
1851          V295= Cnil;          V308= Cnil;
1852          V296= Cnil;          V309= Cnil;
1853          V297= Cnil;          V310= Cnil;
1854          V298= Cnil;          V311= Cnil;
1855          V299= Cnil;          V312= Cnil;
1856          V300= Cnil;          V313= Cnil;
1857          V300= (V294);          V313= (V307);
1858          V299= CMPcar((V300));          V312= CMPcar((V313));
1859          V300= CMPcdr((V300));          V313= CMPcdr((V313));
1860          V298= CMPcar((V300));          V311= CMPcar((V313));
1861          V300= CMPcdr((V300));          V313= CMPcdr((V313));
1862          V297= CMPcar((V300));          V310= CMPcar((V313));
1863          V300= CMPcdr((V300));          V313= CMPcdr((V313));
1864          V296= CMPcar((V300));          V309= CMPcar((V313));
1865          V300= CMPcdr((V300));          V313= CMPcdr((V313));
1866          V295= CMPcar((V300));          V308= CMPcar((V313));
1867          {object V301;          {object V314;
1868          register object V302;          register object V315;
1869          V301= (VFUN_NARGS=1,(*(LnkLI25))((V299)));          V314= (VFUN_NARGS=1,(*(LnkLI25))((V312)));
1870          V302= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V301)));          V315= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V314)));
1871          base[3]= (*(LnkLI220))((V299));          base[3]= (*(LnkLI220))((V312));
1872          base[4]= (V301);          base[4]= (V314);
1873          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1874          Lset();          Lset();
1875          vs_top=sup;          vs_top=sup;
1876          base[3]= (*(LnkLI221))((V299));          base[3]= (*(LnkLI221))((V312));
1877          base[4]= (V302);          base[4]= (V315);
1878          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1879          Lset();          Lset();
1880          vs_top=sup;          vs_top=sup;
1881          (void)(((V302))->v.v_self[9]= (Cnil));          (void)(((V315))->v.v_self[9]= (Cnil));
1882          (void)(((V302))->v.v_self[10]= (Cnil));          (void)(((V315))->v.v_self[10]= (Cnil));
1883          V303= make_cons((V299),(V296));          V316= make_cons((V312),(V309));
1884          (void)((VFUN_NARGS=10,(*(LnkLI192))(VV[31],(V301),(V299),(V292),Cnil,(V298),(V297),/* INLINE-ARGS */V303,(V302),(V295))));}}          (void)((VFUN_NARGS=10,(*(LnkLI192))(VV[31],(V314),(V312),(V305),Cnil,(V311),(V310),/* INLINE-ARGS */V316,(V315),(V308))));}}
1885          V293= CMPcdr((V293));          V306= CMPcdr((V306));
1886          V294= CMPcar((V293));          V307= CMPcar((V306));
1887          goto T799;}}          goto T799;}}
1888          goto T793;          goto T793;
1889  T793:;  T793:;
1890          {register object V304;          {register object V317;
1891          object V305;          object V318;
1892          V304= (VV[123]->s.s_dbind);          V317= (VV[123]->s.s_dbind);
1893          V305= CMPcar((V304));          V318= CMPcar((V317));
1894          goto T845;          goto T845;
1895  T845:;  T845:;
1896          if(!(((V304))==Cnil)){          if(!(((V317))==Cnil)){
1897          goto T846;}          goto T846;}
1898          {object V306 = Cnil;          {object V319 = Cnil;
1899          VMR14(V306)}          VMR14(V319)}
1900          goto T846;          goto T846;
1901  T846:;  T846:;
1902          {object V307;          {object V320;
1903          object V308;          object V321;
1904          V307= CMPcar((V305));          V320= CMPcar((V318));
1905          V308= (VFUN_NARGS=1,(*(LnkLI25))((V307)));          V321= (VFUN_NARGS=1,(*(LnkLI25))((V320)));
1906          {object V310;          {object V323;
1907          base[4]= (V308);          V324 = (V321);
1908            base[4]= (V321);
1909          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1910          (void) (*Lnk217)(Lclptr217);          (void) (*Lnk217)(Lclptr217);
1911          vs_top=sup;          vs_top=sup;
1912          V311= vs_base[0];          V325= vs_base[0];
1913          V310= (*(LnkLI216))((V308),V311);          V323= (*(LnkLI216))(V324,V325);
1914          (void)((*(LnkLI218))((V310),V307));}}          (void)((*(LnkLI218))((V323),V320));}}
1915          V304= CMPcdr((V304));          V317= CMPcdr((V317));
1916          V305= CMPcar((V304));          V318= CMPcar((V317));
1917          goto T845;}          goto T845;}
1918          base[0]=base[0];          base[0]=base[0];
1919          return Cnil;          return Cnil;
1920  }  }
1921  /*      local entry for function WRAPPER-FOR-STRUCTURE  */  /*      local entry for function WRAPPER-FOR-STRUCTURE  */
1922    
1923  static object LI30(V313)  static object LI30(V327)
1924    
1925  object V313;  object V327;
1926  {        VMB15 VMS15 VMV15  {        VMB15 VMS15 VMV15
1927          goto TTL;          goto TTL;
1928  TTL:;  TTL:;
1929          {register object V314;          {register object V328;
1930          if(type_of((V313))==t_structure){          if(type_of((V327))==t_structure){
1931          goto T862;}          goto T862;}
1932          V314= Cnil;          V328= Cnil;
1933          goto T861;          goto T861;
1934          goto T862;          goto T862;
1935  T862:;  T862:;
1936          V314= ((V313))->str.str_def->str.str_self[0];          V328= ((V327))->str.str_def->str.str_self[0];
1937          goto T861;          goto T861;
1938  T861:;  T861:;
1939          if(!(type_of((V314))==t_symbol)){          if(!(type_of((V328))==t_symbol)){
1940          goto T864;}          goto T864;}
1941          if(!(((V314))==(VV[1]))){          if(!(((V328))==(VV[1]))){
1942          goto T868;}          goto T868;}
1943          {object V315 = STREF(object,(V313),0);          {object V329 = STREF(object,(V327),0);
1944          VMR15(V315)}          VMR15(V329)}
1945          goto T868;          goto T868;
1946  T868:;  T868:;
1947          if(!(((V314))==((VV[125]->s.s_dbind)))){          if(!(((V328))==((VV[125]->s.s_dbind)))){
1948          goto T871;}          goto T871;}
1949          {object V316 = (VV[126]->s.s_dbind);          {object V330 = (VV[126]->s.s_dbind);
1950          VMR15(V316)}          VMR15(V330)}
1951          goto T871;          goto T871;
1952  T871:;  T871:;
1953          if(!(((V314))==((VV[127]->s.s_dbind)))){          if(!(((V328))==((VV[127]->s.s_dbind)))){
1954          goto T874;}          goto T874;}
1955          {object V317 = (VV[128]->s.s_dbind);          {object V331 = (VV[128]->s.s_dbind);
1956          VMR15(V317)}          VMR15(V331)}
1957          goto T874;          goto T874;
1958  T874:;  T874:;
1959          (VV[127]->s.s_dbind)= (VV[125]->s.s_dbind);          (VV[127]->s.s_dbind)= (VV[125]->s.s_dbind);
1960          (VV[128]->s.s_dbind)= (VV[126]->s.s_dbind);          (VV[128]->s.s_dbind)= (VV[126]->s.s_dbind);
1961          goto T864;          goto T864;
1962  T864:;  T864:;
1963          {object V318;          {object V332;
1964          object V319;          object V333;
1965          object V320;          object V334;
1966          V318= (VFUN_NARGS=1,(*(LnkLI223))((V314)));{object V321;          V332= (VFUN_NARGS=1,(*(LnkLI223))((V328)));{object V335;
1967          V321= CMPcar((V318));          V335= CMPcar((V332));
1968          if(V321==Cnil)goto T881;          if(V335==Cnil)goto T881;
1969          V319= V321;          V333= V335;
1970          goto T880;          goto T880;
1971          goto T881;          goto T881;
1972  T881:;}  T881:;}
1973          V319= (VFUN_NARGS=2,(*(LnkLI224))((V314),(V318)));          V333= (VFUN_NARGS=2,(*(LnkLI224))((V328),(V332)));
1974          goto T880;          goto T880;
1975  T880:;  T880:;
1976          if(((V319))==Cnil){          if(((V333))==Cnil){
1977          goto T885;}          goto T885;}
1978          base[3]= (V319);          base[3]= (V333);
1979          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1980          (void) (*Lnk219)(Lclptr219);          (void) (*Lnk219)(Lclptr219);
1981          vs_top=sup;          vs_top=sup;
1982          V320= vs_base[0];          V334= vs_base[0];
1983          goto T883;          goto T883;
1984          goto T885;          goto T885;
1985  T885:;  T885:;
1986          V320= (VV[38]->s.s_dbind);          V334= (VV[38]->s.s_dbind);
1987          goto T883;          goto T883;
1988  T883:;  T883:;
1989          if(!(type_of((V314))==t_symbol)){          if(!(type_of((V328))==t_symbol)){
1990          goto T888;}          goto T888;}
1991          (VV[125]->s.s_dbind)= (V314);          (VV[125]->s.s_dbind)= (V328);
1992          (VV[126]->s.s_dbind)= (V320);          (VV[126]->s.s_dbind)= (V334);
1993          goto T888;          goto T888;
1994  T888:;  T888:;
1995          {object V322 = (V320);          {object V336 = (V334);
1996          VMR15(V322)}}}          VMR15(V336)}}}
1997          base[0]=base[0];          base[0]=base[0];
1998          return Cnil;          return Cnil;
1999  }  }
2000  /*      local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */  /*      local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */
2001    
2002  static object LI31(V324)  static object LI31(V338)
2003    
2004  object V324;  object V338;
2005  {        VMB16 VMS16 VMV16  {        VMB16 VMS16 VMV16
2006          goto TTL;          goto TTL;
2007  TTL:;  TTL:;
2008          {object V325;{object V326;          {object V339;{object V340;
2009          V326= (*(LnkLI225))((V324));          V340= (*(LnkLI225))((V338));
2010          if(V326==Cnil)goto T895;          if(V340==Cnil)goto T895;
2011          V325= V326;          V339= V340;
2012          goto T894;          goto T894;
2013          goto T895;          goto T895;
2014  T895:;}  T895:;}
2015          V325= (VV[38]->s.s_dbind);          V339= (VV[38]->s.s_dbind);
2016          goto T894;          goto T894;
2017  T894:;{object V327;  T894:;{object V341;
2018          if(((V325))==((VV[38]->s.s_dbind))){          if(((V339))==((VV[38]->s.s_dbind))){
2019          goto T899;}          goto T899;}
2020          V327= Cnil;          V341= Cnil;
2021          goto T898;          goto T898;
2022          goto T899;          goto T899;
2023  T899:;  T899:;
2024          if(type_of((V324))==t_structure){          if(type_of((V338))==t_structure){
2025          goto T901;}          goto T901;}
2026          V327= Cnil;          V341= Cnil;
2027          goto T898;          goto T898;
2028          goto T901;          goto T901;
2029  T901:;  T901:;
2030          {object V328;          {object V342;
2031          object V329;          object V343;
2032          base[2]= (V324);          base[2]= (V338);
2033          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2034          Ltype_of();          Ltype_of();
2035          vs_top=sup;          vs_top=sup;
2036          V328= vs_base[0];          V342= vs_base[0];
2037          V329= (VFUN_NARGS=2,(*(LnkLI25))((V328),Cnil));          V343= (VFUN_NARGS=2,(*(LnkLI25))((V342),Cnil));
2038          if((V329)==Cnil){          if((V343)==Cnil){
2039          V327= Cnil;          V341= Cnil;
2040          goto T898;}          goto T898;}
2041          base[2]= (V329);          base[2]= (V343);
2042          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2043          (void) (*Lnk219)(Lclptr219);          (void) (*Lnk219)(Lclptr219);
2044          vs_top=sup;          vs_top=sup;
2045          V327= vs_base[0];}          V341= vs_base[0];}
2046          goto T898;          goto T898;
2047  T898:;  T898:;
2048          if(V327==Cnil)goto T897;          if(V341==Cnil)goto T897;
2049          {object V330 = V327;          {object V344 = V341;
2050          VMR16(V330)}          VMR16(V344)}
2051          goto T897;          goto T897;
2052  T897:;}  T897:;}
2053          {object V331 = (V325);          {object V345 = (V339);
2054          VMR16(V331)}}          VMR16(V345)}}
2055          base[0]=base[0];          base[0]=base[0];
2056          return Cnil;          return Cnil;
2057  }  }
2058  /*      local entry for function CLASS-OF       */  /*      local entry for function CLASS-OF       */
2059    
2060  static object LI32(V333)  static object LI32(V347)
2061    
2062  register object V333;  register object V347;
2063  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
2064          goto TTL;          goto TTL;
2065  TTL:;  TTL:;
2066          if(type_of(V333)==t_structure){          if(type_of(V347)==t_structure){
2067          goto T911;}          goto T911;}
2068          goto T909;          goto T909;
2069          goto T911;          goto T911;
2070  T911:;  T911:;
2071          if(!(((V333)->str.str_def)==(VV[129]))){          if(!(((V347)->str.str_def)==(VV[129]))){
2072          goto T909;}          goto T909;}
2073          V334= STREF(object,(V333),0);          V348= STREF(object,(V347),0);
2074          goto T907;          goto T907;
2075          goto T909;          goto T909;
2076  T909:;{object V336;  T909:;{object V350;
2077          V336= (VV[45]->s.s_dbind);          V350= (VV[45]->s.s_dbind);
2078          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
2079          base[1]= (V333);          base[1]= (V347);
2080          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2081          (void) (*Lnk193)();          (void) (*Lnk193)();
2082          vs_top=sup;          vs_top=sup;
2083          V337= vs_base[0];          V351= vs_base[0];
2084          if(!((V336)==(CMPcar(V337)))){          if(!((V350)==(CMPcar(V351)))){
2085          goto T914;}}          goto T914;}}
2086          V334= CMPcar(((V333))->cc.cc_turbo[13]);          V348= CMPcar(((V347))->cc.cc_turbo[13]);
2087          goto T907;          goto T907;
2088          goto T914;          goto T914;
2089  T914:;  T914:;
2090          if(!(type_of((V333))==t_structure)){          if(!(type_of((V347))==t_structure)){
2091          goto T920;}          goto T920;}
2092          V334= (*(LnkLI226))((V333));          V348= (*(LnkLI226))((V347));
2093          goto T907;          goto T907;
2094          goto T920;          goto T920;
2095  T920:;  T920:;
2096          if(!(type_of((V333))==t_symbol)){          if(!(type_of((V347))==t_symbol)){
2097          goto T923;}          goto T923;}
2098          if(((V333))==Cnil){          if(((V347))==Cnil){
2099          goto T926;}          goto T926;}
2100          V334= (VV[130]->s.s_dbind);          V348= (VV[130]->s.s_dbind);
2101          goto T907;          goto T907;
2102          goto T926;          goto T926;
2103  T926:;  T926:;
2104          V334= (VV[131]->s.s_dbind);          V348= (VV[131]->s.s_dbind);
2105          goto T907;          goto T907;
2106          goto T923;          goto T923;
2107  T923:;  T923:;
2108          V334= (*(LnkLI225))((V333));          V348= (*(LnkLI225))((V347));
2109          goto T907;          goto T907;
2110  T907:;  T907:;
2111          {object V338 = (V334)->v.v_self[11];          {object V352 = (V348)->v.v_self[11];
2112          VMR17(V338)}          VMR17(V352)}
2113          base[0]=base[0];          base[0]=base[0];
2114          return Cnil;          return Cnil;
2115  }  }
2116  /*      local entry for function WRAPPER-OF     */  /*      local entry for function WRAPPER-OF     */
2117    
2118  static object LI33(V340)  static object LI33(V354)
2119    
2120  register object V340;  register object V354;
2121  {        VMB18 VMS18 VMV18  {        VMB18 VMS18 VMV18
2122          goto TTL;          goto TTL;
2123  TTL:;  TTL:;
2124          if(type_of(V340)==t_structure){          if(type_of(V354)==t_structure){
2125          goto T931;}          goto T931;}
2126          goto T929;          goto T929;
2127          goto T931;          goto T931;
2128  T931:;  T931:;
2129          if(!(((V340)->str.str_def)==(VV[132]))){          if(!(((V354)->str.str_def)==(VV[132]))){
2130          goto T929;}          goto T929;}
2131          {object V342 = STREF(object,(V340),0);          {object V356 = STREF(object,(V354),0);
2132          VMR18(V342)}          VMR18(V356)}
2133          goto T929;          goto T929;
2134  T929:;{object V343;  T929:;{object V357;
2135          V343= (VV[45]->s.s_dbind);          V357= (VV[45]->s.s_dbind);
2136          base[0]= small_fixnum(14);          base[0]= small_fixnum(14);
2137          base[1]= (V340);          base[1]= (V354);
2138          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2139          (void) (*Lnk193)();          (void) (*Lnk193)();
2140          vs_top=sup;          vs_top=sup;
2141          V344= vs_base[0];          V358= vs_base[0];
2142          if(!((V343)==(CMPcar(V344)))){          if(!((V357)==(CMPcar(V358)))){
2143          goto T934;}}          goto T934;}}
2144          {object V345 = CMPcar(((V340))->cc.cc_turbo[13]);          {object V359 = CMPcar(((V354))->cc.cc_turbo[13]);
2145          VMR18(V345)}          VMR18(V359)}
2146          goto T934;          goto T934;
2147  T934:;  T934:;
2148          if(!(type_of((V340))==t_structure)){          if(!(type_of((V354))==t_structure)){
2149          goto T940;}          goto T940;}
2150          {object V346 = (*(LnkLI226))((V340));          {object V360 = (*(LnkLI226))((V354));
2151          VMR18(V346)}          VMR18(V360)}
2152          goto T940;          goto T940;
2153  T940:;  T940:;
2154          if(!(type_of((V340))==t_symbol)){          if(!(type_of((V354))==t_symbol)){
2155          goto T943;}          goto T943;}
2156          if(((V340))==Cnil){          if(((V354))==Cnil){
2157          goto T946;}          goto T946;}
2158          {object V347 = (VV[130]->s.s_dbind);          {object V361 = (VV[130]->s.s_dbind);
2159          VMR18(V347)}          VMR18(V361)}
2160          goto T946;          goto T946;
2161  T946:;  T946:;
2162          {object V348 = (VV[131]->s.s_dbind);          {object V362 = (VV[131]->s.s_dbind);
2163          VMR18(V348)}          VMR18(V362)}
2164          goto T943;          goto T943;
2165  T943:;  T943:;
2166          {object V349 = (*(LnkLI225))((V340));          {object V363 = (*(LnkLI225))((V354));
2167          VMR18(V349)}          VMR18(V363)}
2168          base[0]=base[0];          base[0]=base[0];
2169          return Cnil;          return Cnil;
2170  }  }
# Line 2160  static void L34() Line 2174  static void L34()
2174  {register object *base=vs_base;  {register object *base=vs_base;
2175          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
2176          vs_check;          vs_check;
2177          {object V350;          {object V364;
2178          check_arg(1);          check_arg(1);
2179          V350=(base[0]);          V364=(base[0]);
2180          vs_top=sup;          vs_top=sup;
2181          goto TTL;          goto TTL;
2182  TTL:;  TTL:;
2183          if(type_of((V350))==t_structure){          if(type_of((V364))==t_structure){
2184          goto T950;}          goto T950;}
2185          V351= Cnil;          V365= Cnil;
2186          goto T949;          goto T949;
2187          goto T950;          goto T950;
2188  T950:;  T950:;
2189          V351= ((V350))->str.str_def->str.str_self[0];          V365= ((V364))->str.str_def->str.str_self[0];
2190          goto T949;          goto T949;
2191  T949:;  T949:;
2192          base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V351));          base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V365));
2193          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2194          (void) (*Lnk219)(Lclptr219);          (void) (*Lnk219)(Lclptr219);
2195          return;          return;
# Line 2183  T949:; Line 2197  T949:;
2197  }  }
2198  /*      local entry for function EVAL-FORM      */  /*      local entry for function EVAL-FORM      */
2199    
2200  static object LI36(V353)  static object LI36(V367)
2201    
2202  object V353;  object V367;
2203  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
2204          goto TTL;          goto TTL;
2205  TTL:;  TTL:;
2206          base[0]=MMcons((V353),Cnil);          base[0]=MMcons((V367),Cnil);
2207          {object V354 =          {object V368 =
2208          make_cclosure_new(LC47,Cnil,base[0],Cdata);          make_cclosure_new(LC47,Cnil,base[0],Cdata);
2209          VMR20(V354)}          VMR20(V368)}
2210          base[0]=base[0];          base[0]=base[0];
2211          return Cnil;          return Cnil;
2212  }  }
2213  /*      local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD     */  /*      local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD     */
2214    
2215  static object LI37(V356)  static object LI37(V370)
2216    
2217  register object V356;  register object V370;
2218  {        VMB21 VMS21 VMV21  {        VMB21 VMS21 VMV21
2219          goto TTL;          goto TTL;
2220  TTL:;  TTL:;
2221          base[0]= VV[81];          base[0]= VV[81];
2222          base[1]= (*(LnkLI227))((V356));          base[1]= (*(LnkLI227))((V370));
2223          base[2]= VV[133];          base[2]= VV[133];
2224          base[3]= (*(LnkLI228))((V356));          base[3]= (*(LnkLI228))((V370));
2225          base[4]= VV[134];          base[4]= VV[134];
2226          base[5]= (*(LnkLI229))((V356));          base[5]= (*(LnkLI229))((V370));
2227          base[6]= VV[135];          base[6]= VV[135];
2228          base[7]= (*(LnkLI230))((V356));          base[7]= (*(LnkLI230))((V370));
2229          base[8]= VV[93];{object V357;          base[8]= VV[93];{object V371;
2230          V357= (*(LnkLI231))((V356));          V371= (*(LnkLI231))((V370));
2231          if(V357==Cnil)goto T962;          if(V371==Cnil)goto T962;
2232          base[9]= V357;          base[9]= V371;
2233          goto T961;          goto T961;
2234          goto T962;          goto T962;
2235  T962:;}  T962:;}
# Line 2223  T962:;} Line 2237  T962:;}
2237          goto T961;          goto T961;
2238  T961:;  T961:;
2239          base[10]= VV[83];          base[10]= VV[83];
2240          base[12]= (V356);          base[12]= (V370);
2241          vs_top=(vs_base=base+12)+1;          vs_top=(vs_base=base+12)+1;
2242          (void) (*Lnk232)();          (void) (*Lnk232)();
2243          vs_top=sup;          vs_top=sup;
2244          base[11]= vs_base[0];          base[11]= vs_base[0];
2245          base[12]= VV[85];          base[12]= VV[85];
2246          base[14]= (V356);          base[14]= (V370);
2247          vs_top=(vs_base=base+14)+1;          vs_top=(vs_base=base+14)+1;
2248          (void) (*Lnk232)();          (void) (*Lnk232)();
2249          vs_top=sup;          vs_top=sup;
2250          V358= vs_base[0];          V372= vs_base[0];
2251          base[13]= (*(LnkLI233))(V358);          base[13]= (*(LnkLI233))(V372);
2252          vs_top=(vs_base=base+0)+14;          vs_top=(vs_base=base+0)+14;
2253          Llist();          Llist();
2254          vs_top=sup;          vs_top=sup;
2255          {object V359 = vs_base[0];          {object V373 = vs_base[0];
2256          VMR21(V359)}          VMR21(V373)}
2257          base[0]=base[0];          base[0]=base[0];
2258          return Cnil;          return Cnil;
2259  }  }
# Line 2250  static void L38() Line 2264  static void L38()
2264          register object *sup=base+VM22; VC22          register object *sup=base+VM22; VC22
2265          vs_check;          vs_check;
2266          bds_check;          bds_check;
2267          {register object V360;          {register object V374;
2268          check_arg(1);          check_arg(1);
2269          V360=(base[0]);          V374=(base[0]);
2270          vs_top=sup;          vs_top=sup;
2271          goto TTL;          goto TTL;
2272  TTL:;  TTL:;
2273          if(((*(LnkLI234))((V360)))==Cnil){          if(((*(LnkLI234))((V374)))==Cnil){
2274          goto T972;}          goto T972;}
2275          if(((VV[136]->s.s_dbind))==((V360))){          if(((VV[136]->s.s_dbind))==((V374))){
2276          goto T975;}          goto T975;}
2277          bds_bind(VV[136],(V360));          bds_bind(VV[136],(V374));
2278          base[2]= (V360);          base[2]= (V374);
2279          base[3]= VV[137];          base[3]= VV[137];
2280          base[4]= VV[32];          base[4]= VV[32];
2281          base[5]= VV[81];          base[5]= VV[81];
2282          base[6]= (V360);          base[6]= (V374);
2283          base[7]= VV[138];          base[7]= VV[138];
2284          if(((*(LnkLI235))((V360)))==Cnil){          if(((*(LnkLI235))((V374)))==Cnil){
2285          goto T985;}          goto T985;}
2286          V361= (*(LnkLI235))((V360));          V375= (*(LnkLI235))((V374));
2287          base[8]= make_cons(/* INLINE-ARGS */V361,Cnil);          base[8]= make_cons(/* INLINE-ARGS */V375,Cnil);
2288          goto T983;          goto T983;
2289          goto T985;          goto T985;
2290  T985:;  T985:;
# Line 2278  T985:; Line 2292  T985:;
2292          goto T983;          goto T983;
2293  T983:;  T983:;
2294          base[9]= VV[139];          base[9]= VV[139];
2295          V364= (*(LnkLI236))((V360));          V378= (*(LnkLI236))((V374));
2296          {object V362;          {object V376;
2297          object V363= /* INLINE-ARGS */V364;          object V377= /* INLINE-ARGS */V378;
2298          if(V363==Cnil){          if(V377==Cnil){
2299          base[10]= Cnil;          base[10]= Cnil;
2300          goto T988;}          goto T988;}
2301          base[11]=V362=MMcons(Cnil,Cnil);          base[11]=V376=MMcons(Cnil,Cnil);
2302          goto T989;          goto T989;
2303  T989:;  T989:;
2304          (V362->c.c_car)= (*(LnkLI237))((V363->c.c_car));          (V376->c.c_car)= (*(LnkLI237))((V377->c.c_car));
2305          if((V363=MMcdr(V363))==Cnil){          if((V377=MMcdr(V377))==Cnil){
2306          base[10]= base[11];          base[10]= base[11];
2307          goto T988;}          goto T988;}
2308          V362=MMcdr(V362)=MMcons(Cnil,Cnil);          V376=MMcdr(V376)=MMcons(Cnil,Cnil);
2309          goto T989;}          goto T989;}
2310          goto T988;          goto T988;
2311  T988:;  T988:;
# Line 2307  T975:; Line 2321  T975:;
2321          goto T972;          goto T972;
2322  T972:;  T972:;
2323          base[1]= VV[140];          base[1]= VV[140];
2324          base[2]= (V360);          base[2]= (V374);
2325          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2326          Lerror();          Lerror();
2327          return;          return;
# Line 2315  T972:; Line 2329  T972:;
2329  }  }
2330  /*      local entry for function BUILT-IN-WRAPPER-OF    */  /*      local entry for function BUILT-IN-WRAPPER-OF    */
2331    
2332  static object LI39(V366)  static object LI39(V380)
2333    
2334  register object V366;  register object V380;
2335  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
2336          goto TTL;          goto TTL;
2337  TTL:;{object V367;  TTL:;{object V381;
2338          if(type_of((V366))==t_symbol){          if(type_of((V380))==t_symbol){
2339          goto T995;}          goto T995;}
2340          V367= Cnil;          V381= Cnil;
2341          goto T994;          goto T994;
2342          goto T995;          goto T995;
2343  T995:;{object V368;  T995:;{object V382;
2344          if(((V366))==Cnil){          if(((V380))==Cnil){
2345          goto T999;}          goto T999;}
2346          V368= Cnil;          V382= Cnil;
2347          goto T998;          goto T998;
2348          goto T999;          goto T999;
2349  T999:;  T999:;
2350          V368= (VV[131]->s.s_dbind);          V382= (VV[131]->s.s_dbind);
2351          goto T998;          goto T998;
2352  T998:;  T998:;
2353          if(V368==Cnil)goto T997;          if(V382==Cnil)goto T997;
2354          V367= V368;          V381= V382;
2355          goto T994;          goto T994;
2356          goto T997;          goto T997;
2357  T997:;}  T997:;}
2358          V367= (VV[130]->s.s_dbind);          V381= (VV[130]->s.s_dbind);
2359          goto T994;          goto T994;
2360  T994:;  T994:;
2361          if(V367==Cnil)goto T993;          if(V381==Cnil)goto T993;
2362          {object V369 = V367;          {object V383 = V381;
2363          VMR23(V369)}          VMR23(V383)}
2364          goto T993;          goto T993;
2365  T993:;}{object V370;  T993:;}{object V384;
2366          if(type_of((V366))==t_character){          if(type_of((V380))==t_character){
2367          goto T1003;}          goto T1003;}
2368          V370= Cnil;          V384= Cnil;
2369          goto T1002;          goto T1002;
2370          goto T1003;          goto T1003;
2371  T1003:;  T1003:;
2372          V370= (VV[141]->s.s_dbind);          V384= (VV[141]->s.s_dbind);
2373          goto T1002;          goto T1002;
2374  T1002:;  T1002:;
2375          if(V370==Cnil)goto T1001;          if(V384==Cnil)goto T1001;
2376          {object V371 = V370;          {object V385 = V384;
2377          VMR23(V371)}          VMR23(V385)}
2378          goto T1001;          goto T1001;
2379  T1001:;}{object V372;  T1001:;}{object V386;
2380          if(type_of((V366))==t_array||          if(type_of((V380))==t_array||
2381  type_of((V366))==t_vector||  type_of((V380))==t_vector||
2382  type_of((V366))==t_string||  type_of((V380))==t_string||
2383  type_of((V366))==t_bitvector){  type_of((V380))==t_bitvector){
2384          goto T1007;}          goto T1007;}
2385          V372= Cnil;          V386= Cnil;
2386          goto T1006;          goto T1006;
2387          goto T1007;          goto T1007;
2388  T1007:;{object V373;  T1007:;{object V387;
2389          if(type_of((V366))==t_vector||          if(type_of((V380))==t_vector||
2390  type_of((V366))==t_string||  type_of((V380))==t_string||
2391  type_of((V366))==t_bitvector){  type_of((V380))==t_bitvector){
2392          goto T1011;}          goto T1011;}
2393          V373= Cnil;          V387= Cnil;
2394          goto T1010;          goto T1010;
2395          goto T1011;          goto T1011;
2396  T1011:;{object V374;  T1011:;{object V388;
2397          if((type_of((V366))==t_bitvector)){          if((type_of((V380))==t_bitvector)){
2398          goto T1015;}          goto T1015;}
2399          V374= Cnil;          V388= Cnil;
2400          goto T1014;          goto T1014;
2401          goto T1015;          goto T1015;
2402  T1015:;  T1015:;
2403          V374= (VV[144]->s.s_dbind);          V388= (VV[144]->s.s_dbind);
2404          goto T1014;          goto T1014;
2405  T1014:;  T1014:;
2406          if(V374==Cnil)goto T1013;          if(V388==Cnil)goto T1013;
2407          V373= V374;          V387= V388;
2408          goto T1010;          goto T1010;
2409          goto T1013;          goto T1013;
2410  T1013:;}{object V375;  T1013:;}{object V389;
2411          if(type_of((V366))==t_string){          if(type_of((V380))==t_string){
2412          goto T1019;}          goto T1019;}
2413          V375= Cnil;          V389= Cnil;
2414          goto T1018;          goto T1018;
2415          goto T1019;          goto T1019;
2416  T1019:;  T1019:;
2417          V375= (VV[145]->s.s_dbind);          V389= (VV[145]->s.s_dbind);
2418          goto T1018;          goto T1018;
2419  T1018:;  T1018:;
2420          if(V375==Cnil)goto T1017;          if(V389==Cnil)goto T1017;
2421          V373= V375;          V387= V389;
2422          goto T1010;          goto T1010;
2423          goto T1017;          goto T1017;
2424  T1017:;}  T1017:;}
2425          V373= (VV[143]->s.s_dbind);          V387= (VV[143]->s.s_dbind);
2426          goto T1010;          goto T1010;
2427  T1010:;  T1010:;
2428          if(V373==Cnil)goto T1009;          if(V387==Cnil)goto T1009;
2429          V372= V373;          V386= V387;
2430          goto T1006;          goto T1006;
2431          goto T1009;          goto T1009;
2432  T1009:;}  T1009:;}
2433          V372= (VV[142]->s.s_dbind);          V386= (VV[142]->s.s_dbind);
2434          goto T1006;          goto T1006;
2435  T1006:;  T1006:;
2436          if(V372==Cnil)goto T1005;          if(V386==Cnil)goto T1005;
2437          {object V376 = V372;          {object V390 = V386;
2438          VMR23(V376)}          VMR23(V390)}
2439          goto T1005;          goto T1005;
2440  T1005:;}{object V377;  T1005:;}{object V391;
2441          if(!(type_of(V366)==t_cons||(V366)==Cnil)){          if(!(type_of(V380)==t_cons||(V380)==Cnil)){
2442          goto T1025;}          goto T1025;}
2443          goto T1023;          goto T1023;
2444          goto T1025;          goto T1025;
2445  T1025:;  T1025:;
2446          if(type_of(V366)==t_vector||          if(type_of(V380)==t_vector||
2447  type_of(V366)==t_string||  type_of(V380)==t_string||
2448  type_of(V366)==t_bitvector){  type_of(V380)==t_bitvector){
2449          goto T1023;}          goto T1023;}
2450          V377= Cnil;          V391= Cnil;
2451          goto T1022;          goto T1022;
2452          goto T1023;          goto T1023;
2453  T1023:;{object V379;  T1023:;{object V393;
2454          if(type_of((V366))==t_vector||          if(type_of((V380))==t_vector||
2455  type_of((V366))==t_string||  type_of((V380))==t_string||
2456  type_of((V366))==t_bitvector){  type_of((V380))==t_bitvector){
2457          goto T1029;}          goto T1029;}
2458          V379= Cnil;          V393= Cnil;
2459          goto T1028;          goto T1028;
2460          goto T1029;          goto T1029;
2461  T1029:;{object V380;  T1029:;{object V394;
2462          if((type_of((V366))==t_bitvector)){          if((type_of((V380))==t_bitvector)){
2463          goto T1033;}          goto T1033;}
2464          V380= Cnil;          V394= Cnil;
2465          goto T1032;          goto T1032;
2466          goto T1033;          goto T1033;
2467  T1033:;  T1033:;
2468          V380= (VV[144]->s.s_dbind);          V394= (VV[144]->s.s_dbind);
2469          goto T1032;          goto T1032;
2470  T1032:;  T1032:;
2471          if(V380==Cnil)goto T1031;          if(V394==Cnil)goto T1031;
2472          V379= V380;          V393= V394;
2473          goto T1028;          goto T1028;
2474          goto T1031;          goto T1031;
2475  T1031:;}{object V381;  T1031:;}{object V395;
2476          if(type_of((V366))==t_string){          if(type_of((V380))==t_string){
2477          goto T1037;}          goto T1037;}
2478          V381= Cnil;          V395= Cnil;
2479          goto T1036;          goto T1036;
2480          goto T1037;          goto T1037;
2481  T1037:;  T1037:;
2482          V381= (VV[145]->s.s_dbind);          V395= (VV[145]->s.s_dbind);
2483          goto T1036;          goto T1036;
2484  T1036:;  T1036:;
2485          if(V381==Cnil)goto T1035;          if(V395==Cnil)goto T1035;
2486          V379= V381;          V393= V395;
2487          goto T1028;          goto T1028;
2488          goto T1035;          goto T1035;
2489  T1035:;}  T1035:;}
2490          V379= (VV[143]->s.s_dbind);          V393= (VV[143]->s.s_dbind);
2491          goto T1028;          goto T1028;
2492  T1028:;  T1028:;
2493          if(V379==Cnil)goto T1027;          if(V393==Cnil)goto T1027;
2494          V377= V379;          V391= V393;
2495          goto T1022;          goto T1022;
2496          goto T1027;          goto T1027;
2497  T1027:;}{object V382;  T1027:;}{object V396;
2498          if(!(type_of(V366)==t_cons)){          if(!(type_of(V380)==t_cons)){
2499          goto T1043;}          goto T1043;}
2500          goto T1041;          goto T1041;
2501          goto T1043;          goto T1043;
2502  T1043:;  T1043:;
2503          if((V366)==Cnil){          if((V380)==Cnil){
2504          goto T1041;}          goto T1041;}
2505          V382= Cnil;          V396= Cnil;
2506          goto T1040;          goto T1040;
2507          goto T1041;          goto T1041;
2508  T1041:;{object V384;  T1041:;{object V398;
2509          if(((V366))==Cnil){          if(((V380))==Cnil){
2510          goto T1047;}          goto T1047;}
2511          V384= Cnil;          V398= Cnil;
2512          goto T1046;          goto T1046;
2513          goto T1047;          goto T1047;
2514  T1047:;  T1047:;
2515          V384= (VV[131]->s.s_dbind);          V398= (VV[131]->s.s_dbind);
2516          goto T1046;          goto T1046;
2517  T1046:;  T1046:;
2518          if(V384==Cnil)goto T1045;          if(V398==Cnil)goto T1045;
2519          V382= V384;          V396= V398;
2520          goto T1040;          goto T1040;
2521          goto T1045;          goto T1045;
2522  T1045:;}{object V385;  T1045:;}{object V399;
2523          if(type_of((V366))==t_cons){          if(type_of((V380))==t_cons){
2524          goto T1051;}          goto T1051;}
2525          V385= Cnil;          V399= Cnil;
2526          goto T1050;          goto T1050;
2527          goto T1051;          goto T1051;
2528  T1051:;  T1051:;
2529          V385= (VV[148]->s.s_dbind);          V399= (VV[148]->s.s_dbind);
2530          goto T1050;          goto T1050;
2531  T1050:;  T1050:;
2532          if(V385==Cnil)goto T1049;          if(V399==Cnil)goto T1049;
2533          V382= V385;          V396= V399;
2534          goto T1040;          goto T1040;
2535          goto T1049;          goto T1049;
2536  T1049:;}  T1049:;}
2537          V382= (VV[147]->s.s_dbind);          V396= (VV[147]->s.s_dbind);
2538          goto T1040;          goto T1040;
2539  T1040:;  T1040:;
2540          if(V382==Cnil)goto T1039;          if(V396==Cnil)goto T1039;
2541          V377= V382;          V391= V396;
2542          goto T1022;          goto T1022;
2543          goto T1039;          goto T1039;
2544  T1039:;}  T1039:;}
2545          V377= (VV[146]->s.s_dbind);          V391= (VV[146]->s.s_dbind);
2546          goto T1022;          goto T1022;
2547  T1022:;  T1022:;
2548          if(V377==Cnil)goto T1021;          if(V391==Cnil)goto T1021;
2549          {object V386 = V377;          {object V400 = V391;
2550          VMR23(V386)}          VMR23(V400)}
2551          goto T1021;          goto T1021;
2552  T1021:;}{object V387;  T1021:;}{object V401;
2553          if(type_of((V366))==t_fixnum||          if(type_of((V380))==t_fixnum||
2554  type_of((V366))==t_bignum||  type_of((V380))==t_bignum||
2555  type_of((V366))==t_ratio||  type_of((V380))==t_ratio||
2556  type_of((V366))==t_shortfloat||  type_of((V380))==t_shortfloat||
2557  type_of((V366))==t_longfloat||  type_of((V380))==t_longfloat||
2558  type_of((V366))==t_complex){  type_of((V380))==t_complex){
2559          goto T1055;}          goto T1055;}
2560          V387= Cnil;          V401= Cnil;
2561          goto T1054;          goto T1054;
2562          goto T1055;          goto T1055;
2563  T1055:;{object V388;  T1055:;{object V402;
2564          base[0]= (V366);          base[0]= (V380);
2565          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2566          (void) (*Lnk239)();          (void) (*Lnk239)();
2567          vs_top=sup;          vs_top=sup;
2568          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2569          goto T1059;}          goto T1059;}
2570          V388= Cnil;          V402= Cnil;
2571          goto T1058;          goto T1058;
2572          goto T1059;          goto T1059;
2573  T1059:;{object V389;  T1059:;{object V403;
2574          if(type_of((V366))==t_ratio){          if(type_of((V380))==t_ratio){
2575          goto T1064;}          goto T1064;}
2576          V389= Cnil;          V403= Cnil;
2577          goto T1063;          goto T1063;
2578          goto T1064;          goto T1064;
2579  T1064:;  T1064:;
2580          V389= (VV[151]->s.s_dbind);          V403= (VV[151]->s.s_dbind);
2581          goto T1063;          goto T1063;
2582  T1063:;  T1063:;
2583          if(V389==Cnil)goto T1062;          if(V403==Cnil)goto T1062;
2584          V388= V389;          V402= V403;
2585          goto T1058;          goto T1058;
2586          goto T1062;          goto T1062;
2587  T1062:;}{object V390;  T1062:;}{object V404;
2588          if(type_of((V366))==t_fixnum||type_of((V366))==t_bignum){          if(type_of((V380))==t_fixnum||type_of((V380))==t_bignum){
2589          goto T1068;}          goto T1068;}
2590          V390= Cnil;          V404= Cnil;
2591          goto T1067;          goto T1067;
2592          goto T1068;          goto T1068;
2593  T1068:;  T1068:;
2594          V390= (VV[152]->s.s_dbind);          V404= (VV[152]->s.s_dbind);
2595          goto T1067;          goto T1067;
2596  T1067:;  T1067:;
2597          if(V390==Cnil)goto T1066;          if(V404==Cnil)goto T1066;
2598          V388= V390;          V402= V404;
2599          goto T1058;          goto T1058;
2600          goto T1066;          goto T1066;
2601  T1066:;}  T1066:;}
2602          V388= (VV[150]->s.s_dbind);          V402= (VV[150]->s.s_dbind);
2603          goto T1058;          goto T1058;
2604  T1058:;  T1058:;
2605          if(V388==Cnil)goto T1057;          if(V402==Cnil)goto T1057;
2606          V387= V388;          V401= V402;
2607          goto T1054;          goto T1054;
2608          goto T1057;          goto T1057;
2609  T1057:;}{object V391;  T1057:;}{object V405;
2610          if(type_of((V366))==t_shortfloat||type_of((V366))==t_longfloat){          if(type_of((V380))==t_shortfloat||type_of((V380))==t_longfloat){
2611          goto T1072;}          goto T1072;}
2612          V391= Cnil;          V405= Cnil;
2613          goto T1071;          goto T1071;
2614          goto T1072;          goto T1072;
2615  T1072:;  T1072:;
2616          V391= (VV[153]->s.s_dbind);          V405= (VV[153]->s.s_dbind);
2617          goto T1071;          goto T1071;
2618  T1071:;  T1071:;
2619          if(V391==Cnil)goto T1070;          if(V405==Cnil)goto T1070;
2620          V387= V391;          V401= V405;
2621          goto T1054;          goto T1054;
2622          goto T1070;          goto T1070;
2623  T1070:;}{object V392;  T1070:;}{object V406;
2624          base[0]= (V366);          base[0]= (V380);
2625          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2626          Lcomplexp();          Lcomplexp();
2627          vs_top=sup;          vs_top=sup;
2628          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2629          goto T1076;}          goto T1076;}
2630          V392= Cnil;          V406= Cnil;
2631          goto T1075;          goto T1075;
2632          goto T1076;          goto T1076;
2633  T1076:;  T1076:;
2634          V392= (VV[154]->s.s_dbind);          V406= (VV[154]->s.s_dbind);
2635          goto T1075;          goto T1075;
2636  T1075:;  T1075:;
2637          if(V392==Cnil)goto T1074;          if(V406==Cnil)goto T1074;
2638          V387= V392;          V401= V406;
2639          goto T1054;          goto T1054;
2640          goto T1074;          goto T1074;
2641  T1074:;}  T1074:;}
2642          V387= (VV[149]->s.s_dbind);          V401= (VV[149]->s.s_dbind);
2643          goto T1054;          goto T1054;
2644  T1054:;  T1054:;
2645          if(V387==Cnil)goto T1053;          if(V401==Cnil)goto T1053;
2646          {object V393 = V387;          {object V407 = V401;
2647          VMR23(V393)}          VMR23(V407)}
2648          goto T1053;          goto T1053;
2649  T1053:;}  T1053:;}
2650          {object V394 = (VV[38]->s.s_dbind);          {object V408 = (VV[38]->s.s_dbind);
2651          VMR23(V394)}          VMR23(V408)}
2652          base[0]=base[0];          base[0]=base[0];
2653          return Cnil;          return Cnil;
2654  }  }
2655  /*      local entry for function METHOD-FUNCTION-RETURNING-NIL  */  /*      local entry for function METHOD-FUNCTION-RETURNING-NIL  */
2656    
2657  static object LI40(V397,V398)  static object LI40(V411,V412)
2658    
2659  object V397;object V398;  object V411;object V412;
2660  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2661          goto TTL;          goto TTL;
2662  TTL:;  TTL:;
2663          {object V399 = Cnil;          {object V413 = Cnil;
2664          VMR24(V399)}          VMR24(V413)}
2665          return Cnil;          return Cnil;
2666  }  }
2667  /*      local entry for function METHOD-FUNCTION-RETURNING-T    */  /*      local entry for function METHOD-FUNCTION-RETURNING-T    */
2668    
2669  static object LI41(V402,V403)  static object LI41(V416,V417)
2670    
2671  object V402;object V403;  object V416;object V417;
2672  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
2673          goto TTL;          goto TTL;
2674  TTL:;  TTL:;
2675          {object V404 = Ct;          {object V418 = Ct;
2676          VMR25(V404)}          VMR25(V418)}
2677          return Cnil;          return Cnil;
2678  }  }
2679  /*      local entry for function MAKE-CLASS-PREDICATE   */  /*      local entry for function MAKE-CLASS-PREDICATE   */
2680    
2681  static object LI42(V407,V408)  static object LI42(V421,V422)
2682    
2683  object V407;object V408;  object V421;object V422;
2684  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
2685          goto TTL;          goto TTL;
2686  TTL:;  TTL:;
2687          {register object V409;          {register object V423;
2688          object V410;          object V424;
2689          base[2]= (V408);          base[2]= (V422);
2690          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2691          (void) (*Lnk209)();          (void) (*Lnk209)();
2692          vs_top=sup;          vs_top=sup;
2693          V409= vs_base[0];          V423= vs_base[0];
2694          if(!(((VV[155]->s.s_dbind))==(VV[156]))){          if(!(((VV[155]->s.s_dbind))==(VV[156]))){
2695          goto T1083;}          goto T1083;}
2696          base[2]= (V409);          base[2]= (V423);
2697          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2698          (void) (*Lnk240)(Lclptr240);          (void) (*Lnk240)(Lclptr240);
2699          vs_top=sup;          vs_top=sup;
2700          V410= vs_base[0];          V424= vs_base[0];
2701          goto T1081;          goto T1081;
2702          goto T1083;          goto T1083;
2703  T1083:;  T1083:;
2704          if(type_of(V409)==t_structure){          if(type_of(V423)==t_structure){
2705          goto T1090;}          goto T1090;}
2706          goto T1088;          goto T1088;
2707          goto T1090;          goto T1090;
2708  T1090:;  T1090:;
2709          if(!(((V409)->str.str_def)==(VV[157]))){          if(!(((V423)->str.str_def)==(VV[157]))){
2710          goto T1088;}          goto T1088;}
2711          V411= STREF(object,(V409),4);          V425= STREF(object,(V423),4);
2712          goto T1086;          goto T1086;
2713          goto T1088;          goto T1088;
2714  T1088:;{object V413;  T1088:;{object V427;
2715          V413= (VV[45]->s.s_dbind);          V427= (VV[45]->s.s_dbind);
2716          base[2]= small_fixnum(14);          base[2]= small_fixnum(14);
2717          base[3]= (V409);          base[3]= (V423);
2718          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2719          (void) (*Lnk193)();          (void) (*Lnk193)();
2720          vs_top=sup;          vs_top=sup;
2721          V414= vs_base[0];          V428= vs_base[0];
2722          if(!((V413)==(CMPcar(V414)))){          if(!((V427)==(CMPcar(V428)))){
2723          goto T1093;}}          goto T1093;}}
2724          V411= CMPcar(((V409))->cc.cc_turbo[12]);          V425= CMPcar(((V423))->cc.cc_turbo[12]);
2725          goto T1086;          goto T1086;
2726          goto T1093;          goto T1093;
2727  T1093:;  T1093:;
# Line 2715  T1093:; Line 2729  T1093:;
2729          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2730          Lerror();          Lerror();
2731          vs_top=sup;          vs_top=sup;
2732          V411= vs_base[0];          V425= vs_base[0];
2733          goto T1086;          goto T1086;
2734  T1086:;  T1086:;
2735          V410= (V411)->v.v_self[fix((VV[117]->s.s_dbind))];          V429 = (VV[117]->s.s_dbind);
2736            V424= (V425)->v.v_self[fix(V429)];
2737          goto T1081;          goto T1081;
2738  T1081:;  T1081:;
2739          if(((V410))!=Cnil){          if(((V424))!=Cnil){
2740          goto T1099;}          goto T1099;}
2741          if(((V407))==((VV[158]->s.s_dbind))){          if(((V421))==((VV[158]->s.s_dbind))){
2742          goto T1102;}          goto T1102;}
2743          {object V415;          {object V430;
2744          object V416;          object V431;
2745          object V417;          object V432;
2746          V415= (VV[241]->s.s_gfdef);          V430= (VV[241]->s.s_gfdef);
2747          V416= list(2,VV[159],(V415));          V431= list(2,VV[159],(V430));
2748          base[5]= VV[160];          base[5]= VV[160];
2749          base[6]= Cnil;          base[6]= Cnil;
2750          base[7]= make_cons(VV[57],Cnil);          base[7]= make_cons(VV[57],Cnil);
2751          base[8]= make_cons((VV[158]->s.s_dbind),Cnil);          base[8]= make_cons((VV[158]->s.s_dbind),Cnil);
2752          base[9]= (V416);          base[9]= (V431);
2753          base[10]= VV[161];          base[10]= VV[161];
2754          V417= simple_symlispcall(VV[215],base+5,6);          V432= simple_symlispcall(VV[215],base+5,6);
2755          (void)((*(LnkLI242))(Cnil,V415,VV[162]));          (void)((*(LnkLI242))(Cnil,V430,VV[162]));
2756          base[5]= (V409);          base[5]= (V423);
2757          base[6]= (V417);          base[6]= (V432);
2758          (void)simple_symlispcall(VV[214],base+5,2);}          (void)simple_symlispcall(VV[214],base+5,2);}
2759          goto T1102;          goto T1102;
2760  T1102:;  T1102:;
2761          {object V420;          {object V435;
2762          object V421;          object V436;
2763          object V422;          object V437;
2764          V420= (VV[243]->s.s_gfdef);          V435= (VV[243]->s.s_gfdef);
2765          V421= list(2,VV[159],(V420));          V436= list(2,VV[159],(V435));
2766          base[5]= VV[160];          base[5]= VV[160];
2767          base[6]= Cnil;          base[6]= Cnil;
2768          base[7]= make_cons(VV[57],Cnil);          base[7]= make_cons(VV[57],Cnil);
2769          base[8]= make_cons((V407),Cnil);          base[8]= make_cons((V421),Cnil);
2770          base[9]= (V421);          base[9]= (V436);
2771          base[10]= VV[163];          base[10]= VV[163];
2772          V422= simple_symlispcall(VV[215],base+5,6);          V437= simple_symlispcall(VV[215],base+5,6);
2773          (void)((*(LnkLI242))(Ct,V420,VV[162]));          (void)((*(LnkLI242))(Ct,V435,VV[162]));
2774          base[5]= (V409);          base[5]= (V423);
2775          base[6]= (V422);          base[6]= (V437);
2776          (void)simple_symlispcall(VV[214],base+5,2);}          (void)simple_symlispcall(VV[214],base+5,2);}
2777          goto T1099;          goto T1099;
2778  T1099:;  T1099:;
2779          {object V425 = (V409);          {object V440 = (V423);
2780          VMR26(V425)}}          VMR26(V440)}}
2781          base[0]=base[0];          base[0]=base[0];
2782          return Cnil;          return Cnil;
2783  }  }
# Line 2786  static void L44() Line 2801  static void L44()
2801  {register object *base=vs_base;  {register object *base=vs_base;
2802          register object *sup=base+VM28; VC28          register object *sup=base+VM28; VC28
2803          vs_check;          vs_check;
2804          {object V426;          {object V441;
2805          object V427;          object V442;
2806          object V428;          object V443;
2807          object V429;          object V444;
2808          check_arg(4);          check_arg(4);
2809          V426=(base[0]);          V441=(base[0]);
2810          V427=(base[1]);          V442=(base[1]);
2811          V428=(base[2]);          V443=(base[2]);
2812          V429=(base[3]);          V444=(base[3]);
2813          vs_top=sup;          vs_top=sup;
2814          goto TTL;          goto TTL;
2815  TTL:;  TTL:;
2816          base[4]= VV[165];          base[4]= VV[165];
2817          base[5]= VV[166];          base[5]= VV[166];
2818          base[6]= (V428);          base[6]= (V443);
2819          base[7]= V429;          base[7]= V444;
2820          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
2821          Lcerror();          Lcerror();
2822          vs_top=sup;          vs_top=sup;
2823          base[4]= (V428);          base[4]= (V443);
2824          {object V432;          {object V447;
2825          V432= V429;          V447= V444;
2826           vs_top=base+5;           vs_top=base+5;
2827           while(V432!=Cnil)           while(V447!=Cnil)
2828           {vs_push((V432)->c.c_car);V432=(V432)->c.c_cdr;}           {vs_push((V447)->c.c_car);V447=(V447)->c.c_cdr;}
2829          vs_base=base+5;}          vs_base=base+5;}
2830          {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))
2831                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 2840  register object *base0; Line 2855  register object *base0;
2855  {       register object *base=vs_base;  {       register object *base=vs_base;
2856          register object *sup=base+VM30; VC30          register object *sup=base+VM30; VC30
2857          vs_check;          vs_check;
2858          {object V433;          {object V448;
2859          check_arg(1);          check_arg(1);
2860          V433=(base[0]);          V448=(base[0]);
2861          vs_top=sup;          vs_top=sup;
2862          goto TTL;          goto TTL;
2863  TTL:;  TTL:;
2864          base[1]= base0[1];          base[1]= base0[1];
2865          base[2]= (V433);          base[2]= (V448);
2866          base[3]= base0[0];          base[3]= base0[0];
2867          base[4]= VV[122];          base[4]= VV[122];
2868          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
# Line 2862  register object *base0; Line 2877  register object *base0;
2877  {       register object *base=vs_base;  {       register object *base=vs_base;
2878          register object *sup=base+VM31; VC31          register object *sup=base+VM31; VC31
2879          vs_check;          vs_check;
2880          {object V434;          {object V449;
2881          check_arg(1);          check_arg(1);
2882          V434=(base[0]);          V449=(base[0]);
2883          vs_top=sup;          vs_top=sup;
2884          goto TTL;          goto TTL;
2885  TTL:;  TTL:;
2886          base[1]= base0[1];          base[1]= base0[1];
2887          base[2]= (V434);          base[2]= (V449);
2888          base[3]= base0[0];          base[3]= base0[0];
2889          base[4]= VV[121];          base[4]= VV[121];
2890          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
# Line 2884  register object *base0; Line 2899  register object *base0;
2899  {       register object *base=vs_base;  {       register object *base=vs_base;
2900          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
2901          vs_check;          vs_check;
2902          {object V435;          {object V450;
2903          check_arg(1);          check_arg(1);
2904          V435=(base[0]);          V450=(base[0]);
2905          vs_top=sup;          vs_top=sup;
2906          goto TTL;          goto TTL;
2907  TTL:;  TTL:;
2908          base[1]= base0[1];          base[1]= base0[1];
2909          base[2]= (V435);          base[2]= (V450);
2910          base[3]= base0[0];          base[3]= base0[0];
2911          base[4]= VV[120];          base[4]= VV[120];
2912          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;
# Line 2906  register object *base0; Line 2921  register object *base0;
2921  {       register object *base=vs_base;  {       register object *base=vs_base;
2922          register object *sup=base+VM33; VC33          register object *sup=base+VM33; VC33
2923          vs_check;          vs_check;
2924          {object V436;          {object V451;
2925          object V437;          object V452;
2926          check_arg(2);          check_arg(2);
2927          V436=(base[0]);          V451=(base[0]);
2928          V437=(base[1]);          V452=(base[1]);
2929          vs_top=sup;          vs_top=sup;
2930          goto TTL;          goto TTL;
2931  TTL:;  TTL:;
2932          base[2]= (*(LnkLI196))(base0[1],base0[2],(V436),(V437));          base[2]= (*(LnkLI196))(base0[1],base0[2],(V451),(V452));
2933          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2934          return;          return;
2935          }          }
# Line 2926  register object *base0; Line 2941  register object *base0;
2941  {       register object *base=vs_base;  {       register object *base=vs_base;
2942          register object *sup=base+VM34; VC34          register object *sup=base+VM34; VC34
2943          vs_check;          vs_check;
2944          {object V438;          {object V453;
2945          check_arg(1);          check_arg(1);
2946          V438=(base[0]);          V453=(base[0]);
2947          vs_top=sup;          vs_top=sup;
2948          goto TTL;          goto TTL;
2949  TTL:;  TTL:;
2950          base[1]= base0[0];          base[1]= base0[0];
2951          base[2]= (V438);          base[2]= (V453);
2952          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2953          Lgetf();          Lgetf();
2954          return;          return;
# Line 2946  register object *base0; Line 2961  register object *base0;
2961  {       register object *base=vs_base;  {       register object *base=vs_base;
2962          register object *sup=base+VM35; VC35          register object *sup=base+VM35; VC35
2963          vs_check;          vs_check;
2964          {object V439;          {object V454;
2965          object V440;          object V455;
2966          check_arg(2);          check_arg(2);
2967          V439=(base[0]);          V454=(base[0]);
2968          V440=(base[1]);          V455=(base[1]);
2969          vs_top=sup;          vs_top=sup;
2970          goto TTL;          goto TTL;
2971  TTL:;  TTL:;
2972          base[2]= (*(LnkLI196))(base0[0],base0[1],(V439),(V440));          base[2]= (*(LnkLI196))(base0[0],base0[1],(V454),(V455));
2973          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2974          return;          return;
2975          }          }
# Line 2966  register object *base0; Line 2981  register object *base0;
2981  {       register object *base=vs_base;  {       register object *base=vs_base;
2982          register object *sup=base+VM36; VC36          register object *sup=base+VM36; VC36
2983          vs_check;          vs_check;
2984          {object V441;          {object V456;
2985          check_arg(1);          check_arg(1);
2986          V441=(base[0]);          V456=(base[0]);
2987          vs_top=sup;          vs_top=sup;
2988          goto TTL;          goto TTL;
2989  TTL:;  TTL:;
2990          base[2]=VV[25]->s.s_gfdef;          base[2]=VV[25]->s.s_gfdef;
2991          {object V442;          {object V457;
2992          object V443= (V441);          object V458= (V456);
2993          if(V443==Cnil){          if(V458==Cnil){
2994          base[3]= Cnil;          base[3]= Cnil;
2995          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2996          return;}          return;}
2997          base[1]=V442=MMcons(Cnil,Cnil);          base[1]=V457=MMcons(Cnil,Cnil);
2998          goto T1154;          goto T1154;
2999  T1154:;  T1154:;
3000          base[3]= (V443->c.c_car);          base[3]= (V458->c.c_car);
3001          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3002          (void) (*Lnk25)();          (void) (*Lnk25)();
3003          vs_top=sup;          vs_top=sup;
3004          (V442->c.c_car)= vs_base[0];          (V457->c.c_car)= vs_base[0];
3005          if((V443=MMcdr(V443))==Cnil){          if((V458=MMcdr(V458))==Cnil){
3006          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3007          return;}          return;}
3008          V442=MMcdr(V442)=MMcons(Cnil,Cnil);          V457=MMcdr(V457)=MMcons(Cnil,Cnil);
3009          goto T1154;}          goto T1154;}
3010          }          }
3011  }  }
# Line 3001  register object *base0; Line 3016  register object *base0;
3016  {       register object *base=vs_base;  {       register object *base=vs_base;
3017          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
3018          vs_check;          vs_check;
3019          {object V444;          {object V459;
3020          object V445;          object V460;
3021          check_arg(2);          check_arg(2);
3022          V444=(base[0]);          V459=(base[0]);
3023          V445=(base[1]);          V460=(base[1]);
3024          vs_top=sup;          vs_top=sup;
3025          goto TTL;          goto TTL;
3026  TTL:;  TTL:;
3027          base[2]= (*(LnkLI196))(VV[43],base0[3],(V444),(V445));          base[2]= (*(LnkLI196))(VV[43],base0[3],(V459),(V460));
3028          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3029          return;          return;
3030          }          }
# Line 3021  register object *base0; Line 3036  register object *base0;
3036  {       register object *base=vs_base;  {       register object *base=vs_base;
3037          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
3038          vs_check;          vs_check;
3039          {object V446;          {object V461;
3040          check_arg(1);          check_arg(1);
3041          V446=(base[0]);          V461=(base[0]);
3042          vs_top=sup;          vs_top=sup;
3043          base[1]= Ct;          base[1]= Ct;
3044          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 3037  register object *base0; Line 3052  register object *base0;
3052  {       register object *base=vs_base;  {       register object *base=vs_base;
3053          register object *sup=base+VM39; VC39          register object *sup=base+VM39; VC39
3054          vs_check;          vs_check;
3055          {object V447;          {object V462;
3056          vs_top[0]=Cnil;          vs_top[0]=Cnil;
3057          {object *p=vs_top;          {object *p=vs_top;
3058           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
3059          V447=(base[0]);          V462=(base[0]);
3060          vs_top=sup;          vs_top=sup;
3061          base[1]= VV[10];          base[1]= VV[10];
3062          base[2]= (base0[0]->c.c_car);          base[2]= (base0[0]->c.c_car);

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

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