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

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

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