home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / defstruct.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  44.1 KB  |  2,177 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "defstruct.h"
  4. init_defstruct(){do_init(VV);}
  5. /*    local entry for function MAKE-ACCESS-FUNCTION    */
  6.  
  7. static object LI1(V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,V1,va_alist)
  8.     object V11,V10,V9,V8,V7,V6,V5,V4,V3,V2,V1;
  9.     va_dcl 
  10. {    
  11.     va_list ap;
  12.     int narg = VFUN_NARGS; VMB1 VMS1 VMV1
  13.     {object V12;
  14.     object V13;
  15.     object V14;
  16.     object V15;
  17.     object V16;
  18.     object V17;
  19.     object V18;
  20.     object V19;
  21.     object V20;
  22.     object V21;
  23.     object V22;
  24.     if(narg <11) too_few_arguments();
  25.     V12= V11;
  26.     V13= V10;
  27.     V14= V9;
  28.     V15= V8;
  29.     V16= V7;
  30.     V17= V6;
  31.     V18= V5;
  32.     V19= V4;
  33.     V20= V3;
  34.     V21= V2;
  35.     Vcs[10]=MMcons(V1,Cnil);
  36.     narg = narg - 11;
  37.     if (narg <= 0) goto T1;
  38.     else {
  39.     va_start(ap);
  40.     V22= va_arg(ap,object);}
  41.     --narg; goto T2;
  42. T1:;
  43.     V22= Cnil;
  44. T2:;
  45.     {register object V23;
  46.     register object V24;
  47.     object V25;
  48.     base[1]= coerce_to_string((V13));
  49.     base[2]= coerce_to_string((V18));
  50.     vs_top=(vs_base=base+1)+2;
  51.     (void) (*Lnk106)();
  52.     vs_top=sup;
  53.     base[0]= vs_base[0];
  54.     vs_top=(vs_base=base+0)+1;
  55.     Lintern();
  56.     vs_top=sup;
  57.     V23= vs_base[0];
  58.     V24= Cnil;
  59.     V25= Cnil;
  60.     {object V26= (V14);
  61.     if((V26!= Cnil))goto T9;
  62.     V24= symbol_value(VV[0]);
  63.     goto T8;
  64. T9:;
  65.     if((V26!= VV[20]))goto T11;
  66.     V24= symbol_value(VV[1]);
  67.     goto T8;
  68. T11:;
  69.     if((V26!= VV[19]))goto T13;
  70.     V24= symbol_value(VV[2]);
  71.     goto T8;
  72. T13:;
  73.     FEerror("The ECASE key value ~s is illegal.",1,V26);}
  74. T8:;
  75.     V27 = make_fixnum(length((V24)));
  76.     if(!(number_compare(V27,(Vcs[10]->c.c_car))>0)){
  77.     goto T16;}
  78.     goto T15;
  79. T16:;
  80.     V28= number_plus((Vcs[10]->c.c_car),small_fixnum(10));
  81.     (void)((VFUN_NARGS=2,(*(LnkLI107))((V24),/* INLINE-ARGS */V28)));
  82. T15:;
  83.     if(((V25))!=Cnil){
  84.     goto T18;}
  85.     base[0]= (V23);
  86.     base[1]= VV[3];
  87.     base[2]= VV[4];
  88.     base[3]= (V20);
  89.     vs_top=(vs_base=base+0)+4;
  90.     (void) (*Lnk108)();
  91.     vs_top=sup;
  92.     if((V17)!=Cnil){
  93.     goto T18;}{object V29;
  94.     base[0]= (V23);
  95.     vs_top=(vs_base=base+0)+1;
  96.     Lfboundp();
  97.     vs_top=sup;
  98.     if((vs_base[0])!=Cnil){
  99.     goto T28;}
  100.     V29= Cnil;
  101.     goto T27;
  102. T28:;
  103.     V30= aref1((V24),fixint((Vcs[10]->c.c_car)));
  104.     base[0]= (V23);
  105.     vs_top=(vs_base=base+0)+1;
  106.     Lsymbol_function();
  107.     vs_top=sup;
  108.     V31= vs_base[0];
  109.     V29= ((/* INLINE-ARGS */V30)==(V31)?Ct:Cnil);
  110. T27:;
  111.     if(V29==Cnil)goto T26;
  112.     goto T18;
  113. T26:;}
  114.     base[0]= (V23);{object V32;
  115.     V32= aref1((V24),fixint((Vcs[10]->c.c_car)));
  116.     if(V32==Cnil)goto T35;
  117.     base[1]= V32;
  118.     goto T34;
  119. T35:;}
  120.     if(!(((V24))==(symbol_value(VV[0])))){
  121.     goto T39;}
  122.     V33= 
  123.     make_cclosure_new(LC16,Cnil,Vcs[10],Cdata);
  124.     goto T37;
  125. T39:;
  126.     if(!(((V24))==(symbol_value(VV[1])))){
  127.     goto T42;}
  128.     V33= 
  129.     make_cclosure_new(LC17,Cnil,Vcs[10],Cdata);
  130.     goto T37;
  131. T42:;
  132.     if(!(((V24))==(symbol_value(VV[2])))){
  133.     goto T45;}
  134.     V33= 
  135.     make_cclosure_new(LC18,Cnil,Vcs[10],Cdata);
  136.     goto T37;
  137. T45:;
  138.     V33= Cnil;
  139. T37:;
  140.     base[1]= aset1((V24),fixint((Vcs[10]->c.c_car)),V33);
  141. T34:;
  142.     vs_top=(vs_base=base+0)+2;
  143.     siLfset();
  144.     vs_top=sup;
  145. T18:;
  146.     if(((V21))==Cnil){
  147.     goto T49;}
  148.     (void)(remprop((V23),VV[6]));
  149.     (void)(sputprop((V23),VV[7],Ct));
  150.     goto T47;
  151. T49:;
  152.     (void)(remprop((V23),VV[8]));
  153.     (void)(remprop((V23),VV[9]));
  154.     (void)(remprop((V23),VV[10]));
  155.     {object V34;
  156.     V34= get((V23),VV[6],Cnil);
  157.     if(!(type_of((V34))==t_cons)){
  158.     goto T57;}
  159.     if(((V16))==Cnil){
  160.     goto T57;}
  161.     base[0]= (V16);
  162.     base[1]= car((V34));
  163.     vs_top=(vs_base=base+0)+2;
  164.     (void) (*Lnk109)();
  165.     vs_top=sup;
  166.     if((vs_base[0])==Cnil){
  167.     goto T57;}
  168.     if(!(eql(cdr((V34)),(Vcs[10]->c.c_car)))){
  169.     goto T57;}
  170.     V25= Ct;
  171.     goto T47;
  172. T57:;
  173.     if(((V14))==Cnil){
  174.     goto T70;}
  175.     V35= (V14);
  176.     goto T68;
  177. T70:;
  178.     V35= (V12);
  179. T68:;
  180.     V36= make_cons(V35,(Vcs[10]->c.c_car));
  181.     (void)(sputprop((V23),VV[6],/* INLINE-ARGS */V36));}
  182. T47:;
  183.     {object V37 = Cnil;
  184.     VMR1(V37)}}}
  185.     }
  186. /*    local entry for function MAKE-CONSTRUCTOR    */
  187.  
  188. static object LI2(V43,V44,V45,V46,V47)
  189.  
  190. object V43;object V44;object V45;object V46;object V47;
  191. {     VMB2 VMS2 VMV2
  192. TTL:;
  193.     {object V48;
  194.     register object V49;
  195.     {object V50;
  196.     object V51= (V47);
  197.     if(endp(V51)){
  198.     V48= Cnil;
  199.     goto T72;}
  200.     base[0]=V50=MMcons(Cnil,Cnil);
  201. T73:;
  202.     if(((V51->c.c_car))!=Cnil){
  203.     goto T76;}
  204.     (V50->c.c_car)= Cnil;
  205.     goto T74;
  206. T76:;
  207.     if((car((V51->c.c_car)))!=Cnil){
  208.     goto T79;}
  209.     (V50->c.c_car)= list(2,VV[11],cadr((V51->c.c_car)));
  210.     goto T74;
  211. T79:;
  212.     (V50->c.c_car)= car((V51->c.c_car));
  213. T74:;
  214.     if(endp(V51=MMcdr(V51))){
  215.     V48= base[0];
  216.     goto T72;}
  217.     V50=MMcdr(V50)=MMcons(Cnil,Cnil);
  218.     goto T73;}
  219. T72:;
  220.     {object V53;
  221.     object V54= (V47);
  222.     if(endp(V54)){
  223.     V49= Cnil;
  224.     goto T81;}
  225.     base[0]=V53=MMcons(Cnil,Cnil);
  226. T82:;
  227.     if(((V54->c.c_car))!=Cnil){
  228.     goto T85;}
  229.     (V53->c.c_cdr)= Cnil;
  230.     goto T83;
  231. T85:;
  232.     if((car((V54->c.c_car)))!=Cnil){
  233.     goto T88;}
  234.     (V53->c.c_cdr)= Cnil;
  235.     goto T83;
  236. T88:;
  237.     if((cadr((V54->c.c_car)))!=Cnil){
  238.     goto T91;}
  239.     (V53->c.c_cdr)= make_cons(car((V54->c.c_car)),Cnil);
  240.     goto T83;
  241. T91:;
  242.     V56= list(2,car((V54->c.c_car)),cadr((V54->c.c_car)));
  243.     (V53->c.c_cdr)= make_cons(/* INLINE-ARGS */V56,Cnil);
  244. T83:;
  245.     while(!endp(MMcdr(V53)))V53=MMcdr(V53);
  246.     if(endp(V54=MMcdr(V54))){
  247.     base[0]=base[0]->c.c_cdr;
  248.     V49= base[0];
  249.     goto T81;}
  250.     goto T82;}
  251. T81:;
  252.     if(!(type_of((V44))==t_cons)){
  253.     goto T95;}
  254.     {register object V57;
  255.     register object V58;
  256.     register object V59;
  257.     V57= cadr((V44));
  258.     V58= Cnil;
  259.     V59= Cnil;
  260. T100:;
  261.     if(!(endp((V57)))){
  262.     goto T101;}
  263.     base[0]= make_cons(VV[12],(V58));
  264.     {object V60;
  265.     object V61= (V49);
  266.     if(endp(V61)){
  267.     base[1]= Cnil;
  268.     goto T106;}
  269.     base[2]=V60=MMcons(Cnil,Cnil);
  270. T107:;
  271.     if(!(type_of((V61->c.c_car))!=t_cons)){
  272.     goto T114;}
  273.     V64= (V61->c.c_car);
  274.     goto T112;
  275. T114:;
  276.     V64= car((V61->c.c_car));
  277. T112:;
  278.     {register object x= V64,V63= (V59);
  279.     while(!endp(V63))
  280.     if(eql(x,V63->c.c_car)){
  281.     goto T111;
  282.     }else V63=V63->c.c_cdr;
  283.     goto T110;}
  284. T111:;
  285.     (V60->c.c_cdr)= Cnil;
  286.     goto T108;
  287. T110:;
  288.     (V60->c.c_cdr)= make_cons((V61->c.c_car),Cnil);
  289. T108:;
  290.     while(!endp(MMcdr(V60)))V60=MMcdr(V60);
  291.     if(endp(V61=MMcdr(V61))){
  292.     base[2]=base[2]->c.c_cdr;
  293.     base[1]= base[2];
  294.     goto T106;}
  295.     goto T107;}
  296. T106:;
  297.     vs_top=(vs_base=base+0)+2;
  298.     Lreconc();
  299.     vs_top=sup;
  300.     V49= vs_base[0];
  301.     goto T97;
  302. T101:;
  303.     {register object x= car((V57)),V65= VV[13];
  304.     while(!endp(V65))
  305.     if(eql(x,V65->c.c_car)){
  306.     goto T119;
  307.     }else V65=V65->c.c_cdr;
  308.     goto T117;}
  309. T119:;
  310.     if(!((car((V57)))==(VV[14]))){
  311.     goto T120;}
  312.     goto T117;
  313. T120:;
  314.     V57= make_cons(VV[14],(V57));
  315. T117:;
  316.     if(!((car((V57)))==(VV[14]))){
  317.     goto T125;}
  318.     V58= make_cons(VV[14],(V58));
  319.     {register object V66;
  320.     object V67;
  321.     object V68;
  322.     V66= cdr((V57));
  323.     V67= Cnil;
  324.     V68= Cnil;
  325. T132:;
  326.     if(!(endp((V66)))){
  327.     goto T133;}
  328.     base[0]= make_cons(VV[12],(V58));
  329.     {object V69;
  330.     object V70= (V49);
  331.     if(endp(V70)){
  332.     base[1]= Cnil;
  333.     goto T139;}
  334.     base[2]=V69=MMcons(Cnil,Cnil);
  335. T140:;
  336.     if(!(type_of((V70->c.c_car))!=t_cons)){
  337.     goto T147;}
  338.     V73= (V70->c.c_car);
  339.     goto T145;
  340. T147:;
  341.     V73= car((V70->c.c_car));
  342. T145:;
  343.     {register object x= V73,V72= (V59);
  344.     while(!endp(V72))
  345.     if(eql(x,V72->c.c_car)){
  346.     goto T144;
  347.     }else V72=V72->c.c_cdr;
  348.     goto T143;}
  349. T144:;
  350.     (V69->c.c_cdr)= Cnil;
  351.     goto T141;
  352. T143:;
  353.     (V69->c.c_cdr)= make_cons((V70->c.c_car),Cnil);
  354. T141:;
  355.     while(!endp(MMcdr(V69)))V69=MMcdr(V69);
  356.     if(endp(V70=MMcdr(V70))){
  357.     base[2]=base[2]->c.c_cdr;
  358.     base[1]= base[2];
  359.     goto T139;}
  360.     goto T140;}
  361. T139:;
  362.     vs_top=(vs_base=base+0)+2;
  363.     Lreconc();
  364.     vs_top=sup;
  365.     V49= vs_base[0];
  366.     goto T129;
  367. T133:;
  368.     {register object x= car((V66)),V74= VV[13];
  369.     while(!endp(V74))
  370.     if(eql(x,V74->c.c_car)){
  371.     goto T152;
  372.     }else V74=V74->c.c_cdr;
  373.     goto T150;}
  374. T152:;
  375.     if(!((car((V66)))==(VV[15]))){
  376.     goto T153;}
  377.     V58= make_cons(VV[15],(V58));
  378.     V66= cdr((V66));
  379.     if(endp((V66))){
  380.     goto T161;}
  381.     if(type_of(car((V66)))==t_symbol){
  382.     goto T160;}
  383. T161:;
  384.     (void)((*(LnkLI110))());
  385. T160:;
  386.     V59= make_cons(car((V66)),(V59));
  387.     V58= make_cons(car((V66)),(V58));
  388.     V66= cdr((V66));
  389.     if(!(endp((V66)))){
  390.     goto T153;}
  391.     base[0]= make_cons(VV[12],(V58));
  392.     {object V75;
  393.     object V76= (V49);
  394.     if(endp(V76)){
  395.     base[1]= Cnil;
  396.     goto T176;}
  397.     base[2]=V75=MMcons(Cnil,Cnil);
  398. T177:;
  399.     if(!(type_of((V76->c.c_car))!=t_cons)){
  400.     goto T184;}
  401.     V79= (V76->c.c_car);
  402.     goto T182;
  403. T184:;
  404.     V79= car((V76->c.c_car));
  405. T182:;
  406.     {register object x= V79,V78= (V59);
  407.     while(!endp(V78))
  408.     if(eql(x,V78->c.c_car)){
  409.     goto T181;
  410.     }else V78=V78->c.c_cdr;
  411.     goto T180;}
  412. T181:;
  413.     (V75->c.c_cdr)= Cnil;
  414.     goto T178;
  415. T180:;
  416.     (V75->c.c_cdr)= make_cons((V76->c.c_car),Cnil);
  417. T178:;
  418.     while(!endp(MMcdr(V75)))V75=MMcdr(V75);
  419.     if(endp(V76=MMcdr(V76))){
  420.     base[2]=base[2]->c.c_cdr;
  421.     base[1]= base[2];
  422.     goto T176;}
  423.     goto T177;}
  424. T176:;
  425.     vs_top=(vs_base=base+0)+2;
  426.     Lreconc();
  427.     vs_top=sup;
  428.     V49= vs_base[0];
  429.     goto T129;
  430. T153:;
  431.     if((car((V66)))==(VV[12])){
  432.     goto T186;}
  433.     (void)((*(LnkLI110))());
  434. T186:;
  435.     V58= make_cons(VV[12],(V58));
  436.     {register object V80;
  437.     V80= cdr((V66));
  438. T194:;
  439.     if(!(endp((V80)))){
  440.     goto T195;}
  441.     goto T191;
  442. T195:;
  443.     V58= make_cons(car((V80)),(V58));
  444.     if(!(type_of(car((V80)))!=t_cons)){
  445.     goto T203;}
  446.     if(!(type_of(car((V80)))==t_symbol)){
  447.     goto T203;}
  448.     V59= make_cons(car((V80)),(V59));
  449.     goto T201;
  450. T203:;
  451.     if(!(type_of(caar((V80)))==t_symbol)){
  452.     goto T209;}
  453.     if(endp(cdar((V80)))){
  454.     goto T208;}
  455.     if(!(endp(cddar((V80))))){
  456.     goto T209;}
  457. T208:;
  458.     V59= make_cons(caar((V80)),(V59));
  459.     goto T201;
  460. T209:;
  461.     (void)((*(LnkLI110))());
  462. T201:;
  463.     V80= cdr((V80));
  464.     goto T194;}
  465. T191:;
  466.     base[0]= (V58);
  467.     {object V81;
  468.     object V82= (V49);
  469.     if(endp(V82)){
  470.     base[1]= Cnil;
  471.     goto T222;}
  472.     base[2]=V81=MMcons(Cnil,Cnil);
  473. T223:;
  474.     if(!(type_of((V82->c.c_car))!=t_cons)){
  475.     goto T230;}
  476.     V85= (V82->c.c_car);
  477.     goto T228;
  478. T230:;
  479.     V85= car((V82->c.c_car));
  480. T228:;
  481.     {register object x= V85,V84= (V59);
  482.     while(!endp(V84))
  483.     if(eql(x,V84->c.c_car)){
  484.     goto T227;
  485.     }else V84=V84->c.c_cdr;
  486.     goto T226;}
  487. T227:;
  488.     (V81->c.c_cdr)= Cnil;
  489.     goto T224;
  490. T226:;
  491.     (V81->c.c_cdr)= make_cons((V82->c.c_car),Cnil);
  492. T224:;
  493.     while(!endp(MMcdr(V81)))V81=MMcdr(V81);
  494.     if(endp(V82=MMcdr(V82))){
  495.     base[2]=base[2]->c.c_cdr;
  496.     base[1]= base[2];
  497.     goto T222;}
  498.     goto T223;}
  499. T222:;
  500.     vs_top=(vs_base=base+0)+2;
  501.     Lreconc();
  502.     vs_top=sup;
  503.     V49= vs_base[0];
  504.     goto T129;
  505. T150:;
  506.     if(!(type_of(car((V66)))!=t_cons)){
  507.     goto T238;}
  508.     V67= car((V66));
  509.     goto T236;
  510. T238:;
  511.     if(!(endp(cdar((V66))))){
  512.     goto T243;}
  513.     V67= caar((V66));
  514.     goto T236;
  515. T243:;
  516.     goto T234;
  517. T236:;
  518.     base[0]= (V67);
  519.     base[1]= (V49);
  520.     base[2]= VV[16];
  521.     base[3]= VV[111];
  522.     vs_top=(vs_base=base+0)+4;
  523.     Lmember();
  524.     vs_top=sup;
  525.     V68= vs_base[0];
  526.     if(((V68))==Cnil){
  527.     goto T234;}
  528.     V58= make_cons(car((V68)),(V58));
  529.     goto T232;
  530. T234:;
  531.     V58= make_cons(car((V66)),(V58));
  532. T232:;
  533.     if(!(type_of(car((V66)))!=t_cons)){
  534.     goto T257;}
  535.     if(type_of(car((V66)))==t_symbol){
  536.     goto T259;}
  537.     (void)((*(LnkLI110))());
  538. T259:;
  539.     V59= make_cons(car((V66)),(V59));
  540.     goto T255;
  541. T257:;
  542.     if(type_of(caar((V66)))==t_symbol){
  543.     goto T264;}
  544.     (void)((*(LnkLI110))());
  545.     goto T255;
  546. T264:;
  547.     if(endp(cdar((V66)))){
  548.     goto T266;}
  549.     if(!(endp(cddar((V66))))){
  550.     goto T267;}
  551. T266:;
  552.     V59= make_cons(caar((V66)),(V59));
  553.     goto T255;
  554. T267:;
  555.     if(type_of(caddar((V66)))==t_symbol){
  556.     goto T273;}
  557.     (void)((*(LnkLI110))());
  558.     goto T255;
  559. T273:;
  560.     if(endp(cdddar((V66)))){
  561.     goto T276;}
  562.     (void)((*(LnkLI110))());
  563.     goto T255;
  564. T276:;
  565.     V59= make_cons(caar((V66)),(V59));
  566.     V59= make_cons(caddar((V66)),(V59));
  567. T255:;
  568.     V66= cdr((V66));
  569.     goto T132;}
  570. T129:;
  571.     goto T97;
  572. T125:;
  573.     if(type_of(car((V57)))==t_symbol){
  574.     goto T284;}
  575.     (void)((*(LnkLI110))());
  576. T284:;
  577.     V58= make_cons(car((V57)),(V58));
  578.     V59= make_cons(car((V57)),(V59));
  579.     V57= cdr((V57));
  580.     goto T100;}
  581. T97:;
  582.     V44= car((V44));
  583.     goto T93;
  584. T95:;
  585.     V49= make_cons(VV[17],(V49));
  586. T93:;
  587.     if(((V45))!=Cnil){
  588.     goto T296;}
  589.     {object V86 = list(4,VV[3],(V44),(V49),listA(3,VV[18],list(2,VV[11],(V43)),(V48)));
  590.     VMR2(V86)}
  591. T296:;
  592.     if(((V45))==(VV[19])){
  593.     goto T298;}
  594.     if(!(type_of((V45))==t_cons)){
  595.     goto T299;}
  596.     if(!((car((V45)))==(VV[19]))){
  597.     goto T299;}
  598. T298:;
  599.     {object V87 = list(4,VV[3],(V44),(V49),make_cons(VV[19],(V48)));
  600.     VMR2(V87)}
  601. T299:;
  602.     if(!(((V45))==(VV[20]))){
  603.     goto T306;}
  604.     {object V88 = list(4,VV[3],(V44),(V49),make_cons(VV[20],(V48)));
  605.     VMR2(V88)}
  606. T306:;
  607.     {object V89;
  608.     base[0]= VV[21];
  609.     base[1]= (V45);
  610.     vs_top=(vs_base=base+0)+2;
  611.     Lerror();
  612.     vs_top=sup;
  613.     V89= vs_base[0];
  614.     if(((V89))==Cnil){
  615.     goto T312;}
  616.     {object V90 = (V89);
  617.     VMR2(V90)}
  618. T312:;
  619.     {object V91 = Cnil;
  620.     VMR2(V91)}}}
  621. }
  622. /*    local entry for function ILLEGAL-BOA    */
  623.  
  624. static object LI3()
  625.  
  626. {     VMB3 VMS3 VMV3
  627. TTL:;
  628.     base[0]= VV[22];
  629.     vs_top=(vs_base=base+0)+1;
  630.     Lerror();
  631.     vs_top=sup;
  632.     {object V92 = vs_base[0];
  633.     VMR3(V92)}
  634. }
  635. /*    local entry for function MAKE-PREDICATE    */
  636.  
  637. static object LI4(V98,V99,V100,V101,V102)
  638.  
  639. object V98;object V99;register object V100;object V101;register object V102;
  640. {     VMB4 VMS4 VMV4
  641. TTL:;
  642.     {object V103;
  643.     V103= (((V100))==Cnil?Ct:Cnil);
  644.     if(((V103))==Cnil){
  645.     goto T317;}
  646.     {object V104 = (V103);
  647.     VMR4(V104)}
  648. T317:;
  649.     if(((V100))==(VV[19])){
  650.     goto T319;}
  651.     if(!(type_of((V100))==t_cons)){
  652.     goto T320;}
  653.     if(!((car((V100)))==(VV[19]))){
  654.     goto T320;}
  655. T319:;
  656.     if(((V101))!=Cnil){
  657.     goto T326;}
  658.     base[0]= VV[23];
  659.     vs_top=(vs_base=base+0)+1;
  660.     Lerror();
  661.     vs_top=sup;
  662. T326:;
  663.     V105= list(3,VV[27],VV[28],(V102));
  664.     V106= list(3,VV[30],VV[31],(V102));
  665.     {object V107 = list(4,VV[3],(V99),VV[24],list(4,VV[25],VV[26],/* INLINE-ARGS */V105,list(3,VV[29],/* INLINE-ARGS */V106,list(2,VV[11],(V98)))));
  666.     VMR4(V107)}
  667. T320:;
  668.     if(!(((V100))==(VV[20]))){
  669.     goto T331;}
  670.     if(((V101))!=Cnil){
  671.     goto T333;}
  672.     base[0]= VV[32];
  673.     vs_top=(vs_base=base+0)+1;
  674.     Lerror();
  675.     vs_top=sup;
  676. T333:;
  677.     if(!(number_compare((V102),small_fixnum(0))==0)){
  678.     goto T338;}
  679.     {object V108 = list(4,VV[3],(V99),VV[33],list(3,VV[25],VV[34],list(3,VV[29],VV[35],list(2,VV[11],(V98)))));
  680.     VMR4(V108)}
  681. T338:;
  682.     V109= list(2,list(3,VV[38],(V102),VV[39]),VV[40]);
  683.     {object V110 = list(4,VV[3],(V99),VV[36],listA(4,VV[37],/* INLINE-ARGS */V109,list(2,VV[41],list(3,VV[25],VV[42],list(3,VV[29],VV[43],list(2,VV[11],(V98))))),VV[44]));
  684.     VMR4(V110)}
  685. T331:;
  686.     {object V111;
  687.     base[0]= VV[45];
  688.     vs_top=(vs_base=base+0)+1;
  689.     Lerror();
  690.     vs_top=sup;
  691.     V111= vs_base[0];
  692.     if(((V111))==Cnil){
  693.     goto T343;}
  694.     {object V112 = (V111);
  695.     VMR4(V112)}
  696. T343:;
  697.     {object V113 = Cnil;
  698.     VMR4(V113)}}}
  699. }
  700. /*    local entry for function PARSE-SLOT-DESCRIPTION    */
  701.  
  702. static object LI5(V116,V117)
  703.  
  704. register object V116;object V117;
  705. {     VMB5 VMS5 VMV5
  706. TTL:;
  707.     {object V118;
  708.     object V119;
  709.     register object V120;
  710.     register object V121;
  711.     V118= Cnil;
  712.     V119= Cnil;
  713.     V120= Cnil;
  714.     V121= Cnil;
  715.     if(!(type_of((V116))!=t_cons)){
  716.     goto T347;}
  717.     V118= (V116);
  718.     goto T345;
  719. T347:;
  720.     if(!(endp(cdr((V116))))){
  721.     goto T351;}
  722.     V118= car((V116));
  723.     goto T345;
  724. T351:;
  725.     V118= car((V116));
  726.     V119= cadr((V116));
  727.     {register object V122;
  728.     register object V123;
  729.     register object V124;
  730.     V122= cddr((V116));
  731.     V123= Cnil;
  732.     V124= Cnil;
  733. T360:;
  734.     if(!(endp((V122)))){
  735.     goto T361;}
  736.     goto T345;
  737. T361:;
  738.     V123= car((V122));
  739.     if(!(endp(cdr((V122))))){
  740.     goto T367;}
  741.     base[0]= VV[46];
  742.     base[1]= (V122);
  743.     vs_top=(vs_base=base+0)+2;
  744.     Lerror();
  745.     vs_top=sup;
  746. T367:;
  747.     V124= cadr((V122));
  748.     {object V125= (V123);
  749.     if((V125!= VV[74]))goto T375;
  750.     V120= (V124);
  751.     goto T374;
  752. T375:;
  753.     if((V125!= VV[112]))goto T377;
  754.     V121= (V124);
  755.     goto T374;
  756. T377:;
  757.     base[0]= VV[47];
  758.     base[1]= (V122);
  759.     vs_top=(vs_base=base+0)+2;
  760.     Lerror();
  761.     vs_top=sup;}
  762. T374:;
  763.     V122= cddr((V122));
  764.     goto T360;}
  765. T345:;
  766.     {object V126 = list(5,(V118),(V119),(V120),(V121),(V117));
  767.     VMR5(V126)}}
  768. }
  769. /*    local entry for function OVERWRITE-SLOT-DESCRIPTIONS    */
  770.  
  771. static object LI6(V129,V130)
  772.  
  773. object V129;register object V130;
  774. {     VMB6 VMS6 VMV6
  775. TTL:;
  776.     if(((V130))!=Cnil){
  777.     goto T385;}
  778.     {object V131 = Cnil;
  779.     VMR6(V131)}
  780. T385:;
  781.     {register object V132;
  782.     base[0]= caar((V130));
  783.     base[1]= (V129);
  784.     base[2]= VV[16];
  785.     base[3]= symbol_function(VV[113]);
  786.     vs_top=(vs_base=base+0)+4;
  787.     Lmember();
  788.     vs_top=sup;
  789.     V132= vs_base[0];
  790.     if(((V132))==Cnil){
  791.     goto T393;}
  792.     if((cadddr(car((V132))))!=Cnil){
  793.     goto T395;}
  794.     if((cadddr(car((V130))))==Cnil){
  795.     goto T395;}
  796.     base[0]= VV[48];
  797.     base[1]= (V132);
  798.     vs_top=(vs_base=base+0)+2;
  799.     Lerror();
  800.     vs_top=sup;
  801. T395:;
  802.     {object V133;
  803.     object V134;
  804.     V133= car((V132));
  805.     V134= (*(LnkLI114))(caddr(car((V132))));
  806.     if(type_of(cddr((V133)))!=t_cons)FEwrong_type_argument(Scons,cddr((V133)));
  807.     (cddr((V133)))->c.c_car = (V134);
  808.     (void)(cddr((V133)));}{object V136;
  809.     V136= caddr(car((V132)));
  810.     if(V136==Cnil)goto T410;
  811.     V135= V136;
  812.     goto T409;
  813. T410:;}
  814.     V135= Ct;
  815. T409:;
  816.     V137= (*(LnkLI115))(V135);{object V139;
  817.     V139= caddr(car((V130)));
  818.     if(V139==Cnil)goto T413;
  819.     V138= V139;
  820.     goto T412;
  821. T413:;}
  822.     V138= Ct;
  823. T412:;
  824.     V140= (*(LnkLI115))(V138);
  825.     if(equal(/* INLINE-ARGS */V137,/* INLINE-ARGS */V140)){
  826.     goto T406;}
  827.     base[0]= VV[49];
  828.     base[1]= car((V132));
  829.     vs_top=(vs_base=base+0)+2;
  830.     Lerror();
  831.     vs_top=sup;
  832. T406:;
  833.     V141= list(5,caar((V132)),cadar((V132)),caddar((V132)),cadddr(car((V132))),car(cddddr(car((V130)))));
  834.     V142= (*(LnkLI116))((V129),cdr((V130)));
  835.     {object V143 = make_cons(/* INLINE-ARGS */V141,/* INLINE-ARGS */V142);
  836.     VMR6(V143)}
  837. T393:;
  838.     V144= car((V130));
  839.     V145= (*(LnkLI116))((V129),cdr((V130)));
  840.     {object V146 = make_cons(/* INLINE-ARGS */V144,/* INLINE-ARGS */V145);
  841.     VMR6(V146)}}
  842. }
  843. /*    local entry for function MAKE-T-TYPE    */
  844.  
  845. static object LI7(V150,V151,V152)
  846.  
  847. object V150;object V151;object V152;
  848. {     VMB7 VMS7 VMV7
  849. TTL:;
  850.     {object V153;
  851.     V153= Cnil;
  852.     {register object V154;
  853.     V154= (VFUN_NARGS=5,(*(LnkLI117))((V150),VV[50],VV[51],VV[52],Ct));
  854.     if(((V151))==Cnil){
  855.     goto T419;}
  856.     {object V155;
  857.     object V156;
  858.     V155= get((V151),VV[53],Cnil);
  859.     V156= Cnil;
  860.     if((V155)!=Cnil){
  861.     goto T423;}
  862.     base[0]= VV[54];
  863.     base[1]= (V151);
  864.     vs_top=(vs_base=base+0)+2;
  865.     Lerror();
  866.     vs_top=sup;
  867. T423:;
  868.     V156= structure_ref((V155),VV[53],2);
  869.     {object V157;
  870.     register object V158;
  871.     V159 = make_fixnum(length((V156)));
  872.     V157= (number_compare((V150),V159)<=0?((V150)):V159);
  873.     V158= small_fixnum(0);
  874. T431:;
  875.     if(!(number_compare((V158),(V157))>=0)){
  876.     goto T432;}
  877.     goto T419;
  878. T432:;
  879.     V160= aref1((V156),fixint((V158)));
  880.     (void)(aset1((V154),fixint((V158)),/* INLINE-ARGS */V160));
  881.     V158= one_plus((V158));
  882.     goto T431;}}
  883. T419:;
  884.     {register object V161;
  885.     register object V162;
  886.     V161= (V152);
  887.     V162= car((V161));
  888. T444:;
  889.     if(!(endp((V161)))){
  890.     goto T445;}
  891.     goto T440;
  892. T445:;
  893.     V153= car(cddddr((V162)));
  894.     {register object V163;
  895.     V163= caddr((V162));
  896.     base[1]= (V163);
  897.     vs_top=(vs_base=base+1)+1;
  898.     (void) (*Lnk118)();
  899.     vs_top=sup;
  900.     V164= vs_base[0];
  901.     if(!((fix(V164))<=(4))){
  902.     goto T451;}
  903.     base[1]= (V163);
  904.     vs_top=(vs_base=base+1)+1;
  905.     (void) (*Lnk119)();
  906.     vs_top=sup;
  907.     V165= vs_base[0];
  908.     (void)(aset1((V154),fixint((V153)),V165));}
  909. T451:;
  910.     V161= cdr((V161));
  911.     V162= car((V161));
  912.     goto T444;}
  913. T440:;
  914.     V166 = make_fixnum(length(symbol_value(VV[55])));
  915.     if(!(number_compare((V150),V166)<0)){
  916.     goto T465;}
  917.     {register object V168;
  918.     V168= small_fixnum(0);
  919. T470:;
  920.     if(!(number_compare((V168),V150)>=0)){
  921.     goto T471;}
  922.     goto T467;
  923. T471:;
  924.     {int V169= fix(aref1((V154),fixint((V168))));
  925.     if((/* INLINE-ARGS */V169)==(0)){
  926.     goto T475;}}
  927.     {object V170 = (V154);
  928.     VMR7(V170)}
  929. T475:;
  930.     V168= one_plus((V168));
  931.     goto T470;}
  932. T467:;
  933.     {object V171 = symbol_value(VV[55]);
  934.     VMR7(V171)}
  935. T465:;
  936.     {object V172 = (V154);
  937.     VMR7(V172)}}}
  938. }
  939. /*    local entry for function ROUND-UP    */
  940.  
  941. static int LI8(V175,V176)
  942.  
  943. int V175;int V176;
  944. {     VMB8 VMS8 VMV8
  945. TTL:;
  946.     base[0]= make_fixnum(V175);
  947.     base[1]= make_fixnum(V176);
  948.     vs_top=(vs_base=base+0)+2;
  949.     Lceiling();
  950.     vs_top=sup;
  951.     V175= fix(vs_base[0]);
  952.     {int V177 = (V175)*(V176);
  953.     VMR8(V177)}
  954. }
  955. /*    local entry for function GET-SLOT-POS    */
  956.  
  957. static object LI9(V181,V182,V183)
  958.  
  959. object V181;object V182;object V183;
  960. {     VMB9 VMS9 VMV9
  961. TTL:;
  962.     {register object V184;
  963.     object V185;
  964.     object V186;
  965.     V184= Cnil;
  966.     V185= Cnil;
  967.     V186= Cnil;
  968.     {register object V187;
  969.     register object V188;
  970.     V187= (V183);
  971.     V188= car((V187));
  972. T493:;
  973.     if(!(endp((V187)))){
  974.     goto T494;}
  975.     goto T489;
  976. T494:;
  977.     if(((V188))==Cnil){
  978.     goto T498;}
  979.     if((car((V188)))==Cnil){
  980.     goto T498;}
  981.     V184= (*(LnkLI114))(caddr((V188)));
  982.     if(type_of(cddr(V188))!=t_cons)FEwrong_type_argument(Scons,cddr(V188));
  983.     (cddr(V188))->c.c_car = V184;
  984.     (void)(cddr(V188));
  985.     {register object V191;
  986.     V191= cadr((V188));
  987.     base[1]= (V191);
  988.     base[2]= (V184);
  989.     vs_top=(vs_base=base+1)+2;
  990.     (void) (*Lnk120)();
  991.     vs_top=sup;
  992.     if((vs_base[0])!=Cnil){
  993.     goto T507;}
  994.     if(!(type_of((V191))==t_symbol)){
  995.     goto T513;}
  996.     base[1]= (V191);
  997.     vs_top=(vs_base=base+1)+1;
  998.     Lconstantp();
  999.     vs_top=sup;
  1000.     if((vs_base[0])==Cnil){
  1001.     goto T513;}
  1002.     base[1]= (V191);
  1003.     vs_top=(vs_base=base+1)+1;
  1004.     Lsymbol_value();
  1005.     vs_top=sup;
  1006.     V191= vs_base[0];
  1007. T513:;
  1008.     base[1]= (V191);
  1009.     vs_top=(vs_base=base+1)+1;
  1010.     Lconstantp();
  1011.     vs_top=sup;
  1012.     if((vs_base[0])!=Cnil){
  1013.     goto T521;}
  1014.     goto T507;
  1015. T521:;
  1016.     {object V193;
  1017.     V193= (*(LnkLI121))((V191),(V184));
  1018.     if(type_of(cdr(V188))!=t_cons)FEwrong_type_argument(Scons,cdr(V188));
  1019.     (cdr(V188))->c.c_car = (V193);
  1020.     (void)(cdr(V188));}}
  1021. T507:;
  1022.     {register object x= (V184),V194= VV[57];
  1023.     while(!endp(V194))
  1024.     if(x==(V194->c.c_car)){
  1025.     goto T527;
  1026.     }else V194=V194->c.c_cdr;
  1027.     goto T498;}
  1028. T527:;
  1029.     V185= Ct;
  1030. T498:;
  1031.     V187= cdr((V187));
  1032.     V188= car((V187));
  1033.     goto T493;}
  1034. T489:;
  1035.     {object V195;
  1036.     if(((V185))==Cnil){
  1037.     goto T535;}
  1038.     V195= Cnil;
  1039.     goto T534;
  1040. T535:;
  1041.     V196 = make_fixnum(length(symbol_value(VV[56])));
  1042.     if(number_compare((V181),V196)<0){
  1043.     goto T537;}
  1044.     V195= Cnil;
  1045.     goto T534;
  1046. T537:;{object V197;
  1047.     V197= symbol_value(VV[56]);
  1048.     V195= list(3,V197,number_times((V181),small_fixnum(4)),Cnil);}
  1049. T534:;
  1050.     if(((V195))==Cnil){
  1051.     goto T540;}
  1052.     {object V198 = (V195);
  1053.     VMR9(V198)}
  1054. T540:;
  1055.     {object V199;
  1056.     register int V200;
  1057.     int V201;
  1058.     int V202;
  1059.     object V203;
  1060.     int V204;
  1061.     V199= (VFUN_NARGS=5,(*(LnkLI117))((V181),VV[50],VV[58],VV[52],Ct));
  1062.     V200= 0;
  1063.     V201= 0;
  1064.     V202= 0;
  1065.     V204= 0;
  1066.     V203= Cnil;
  1067.     {register object V205;
  1068.     register object V206;
  1069.     V205= (V183);
  1070.     V206= car((V205));
  1071. T551:;
  1072.     if(!(endp((V205)))){
  1073.     goto T552;}
  1074.     goto T547;
  1075. T552:;
  1076.     V203= caddr((V206));
  1077.     base[1]= (V203);
  1078.     vs_top=(vs_base=base+1)+1;
  1079.     (void) (*Lnk118)();
  1080.     vs_top=sup;
  1081.     V202= fix(vs_base[0]);
  1082.     if((V202)<=(4)){
  1083.     goto T561;}
  1084.     V203= Ct;
  1085.     if(type_of(cddr(V206))!=t_cons)FEwrong_type_argument(Scons,cddr(V206));
  1086.     (cddr(V206))->c.c_car = Ct;
  1087.     (void)(cddr(V206));
  1088.     V202= 4;
  1089.     V206= nconc((V206),VV[59]);
  1090. T561:;
  1091.     V204= (*(LnkLI122))(V200,V202);
  1092.     if(!((V200)==(V204))){
  1093.     goto T574;}
  1094.     goto T573;
  1095. T574:;
  1096.     V186= Ct;
  1097. T573:;
  1098.     V200= V204;
  1099.     V209 = make_fixnum(V200);
  1100.     (void)(aset1((V199),V201,V209));
  1101.     V210 = make_fixnum(V200);
  1102.     base[1]= (V203);
  1103.     vs_top=(vs_base=base+1)+1;
  1104.     (void) (*Lnk123)();
  1105.     vs_top=sup;
  1106.     V211= vs_base[0];
  1107.     V200= fix(number_plus(V210,V211));
  1108.     V201= (V201)+(1);
  1109.     V205= cdr((V205));
  1110.     V206= car((V205));
  1111.     goto T551;}
  1112. T547:;
  1113.     base[0]= Ct;
  1114.     vs_top=(vs_base=base+0)+1;
  1115.     (void) (*Lnk123)();
  1116.     vs_top=sup;
  1117.     V212= vs_base[0];
  1118.     V213 = make_fixnum((*(LnkLI122))(V200,fix(V212)));
  1119.     {object V214 = list(3,(V199),V213,(V186));
  1120.     VMR9(V214)}}}}
  1121. }
  1122. /*    local entry for function DEFINE-STRUCTURE    */
  1123.  
  1124. static object LI10(V226,V225,V224,V223,V222,V221,V220,V219,V218,V217,V216,V215,va_alist)
  1125.     object V226,V225,V224,V223,V222,V221,V220,V219,V218,V217,V216,V215;
  1126.     va_dcl 
  1127. {    
  1128.     va_list ap;
  1129.     int narg = VFUN_NARGS; VMB10 VMS10 VMV10
  1130.     {object V227;
  1131.     register object V228;
  1132.     object V229;
  1133.     object V230;
  1134.     object V231;
  1135.     object V232;
  1136.     register object V233;
  1137.     object V234;
  1138.     object V235;
  1139.     object V236;
  1140.     object V237;
  1141.     object V238;
  1142.     register object V239;
  1143.     if(narg <12) too_few_arguments();
  1144.     Vcs[0]=MMcons(V226,Cnil);
  1145.     V227= V225;
  1146.     V228= V224;
  1147.     V229= V223;
  1148.     V230= V222;
  1149.     V231= V221;
  1150.     V232= V220;
  1151.     V233= V219;
  1152.     V234= V218;
  1153.     V235= V217;
  1154.     V236= V216;
  1155.     V237= V215;
  1156.     narg = narg - 12;
  1157.     if (narg <= 0) goto T593;
  1158.     else {
  1159.     va_start(ap);
  1160.     V238= va_arg(ap,object);}
  1161.     if (--narg <= 0) goto T594;
  1162.     else {
  1163.     V239= va_arg(ap,object);}
  1164.     --narg; goto T595;
  1165. T593:;
  1166.     V238= Cnil;
  1167. T594:;
  1168.     V239= Cnil;
  1169. T595:;
  1170.     {object V240;
  1171.     object V241;
  1172.     V240= Cnil;
  1173.     V241= Cnil;
  1174.     if(type_of((V228))==t_cons){
  1175.     goto T601;}
  1176.     goto T600;
  1177. T601:;
  1178.     if((car((V228)))==(VV[19])){
  1179.     goto T603;}
  1180.     goto T600;
  1181. T603:;
  1182.     V228= VV[19];
  1183. T600:;
  1184.     V241= make_fixnum(length((V230)));
  1185.     {register object V242;
  1186.     register object V243;
  1187.     V242= (V230);
  1188.     V243= car((V242));
  1189. T612:;
  1190.     if(!(endp((V242)))){
  1191.     goto T613;}
  1192.     goto T608;
  1193. T613:;
  1194.     if((V243)==Cnil){
  1195.     goto T617;}
  1196.     if((car((V243)))!=Cnil){
  1197.     goto T618;}
  1198.     goto T617;
  1199. T618:;
  1200.     base[1]= (Vcs[0]->c.c_car);
  1201.     base[2]= (V227);
  1202.     base[3]= (V228);
  1203.     base[4]= (V229);
  1204.     base[5]= (V233);
  1205.     base[6]= (V239);
  1206.     {object V244;
  1207.     V244= (V243);
  1208.      vs_top=base+7;
  1209.      while(!endp(V244))
  1210.      {vs_push(car(V244));V244=cdr(V244);}
  1211.     vs_base=base+1;}
  1212.     (void) (*Lnk124)();
  1213.     vs_top=sup;
  1214. T617:;
  1215.     V242= cdr((V242));
  1216.     V243= car((V242));
  1217.     goto T612;}
  1218. T608:;
  1219.     if(((V231))==Cnil){
  1220.     goto T632;}
  1221.     if(((V239))!=Cnil){
  1222.     goto T632;}
  1223.     base[0]= (V231);
  1224.     {object V245= (V228);
  1225.     if((V245!= Cnil))goto T639;
  1226.     base[1]= symbol_function(VV[125]);
  1227.     goto T638;
  1228. T639:;
  1229.     if((V245!= VV[20]))goto T640;
  1230.     base[1]= symbol_function(VV[126]);
  1231.     goto T638;
  1232. T640:;
  1233.     if((V245!= VV[19]))goto T641;
  1234.     base[1]= symbol_function(VV[127]);
  1235.     goto T638;
  1236. T641:;
  1237.     FEerror("The ECASE key value ~s is illegal.",1,V245);}
  1238. T638:;
  1239.     vs_top=(vs_base=base+0)+2;
  1240.     siLfset();
  1241.     vs_top=sup;
  1242. T632:;
  1243.     if(((V228))!=Cnil){
  1244.     goto T644;}
  1245.     if(!(((Vcs[0]->c.c_car))==(VV[53]))){
  1246.     goto T644;}
  1247.     base[0]= (VFUN_NARGS=5,(*(LnkLI117))((V241),VV[50],VV[60],VV[52],Ct));
  1248.     base[1]= (*(LnkLI128))((V241),Cnil,(V230));
  1249.     base[2]= symbol_value(VV[56]);
  1250.     base[3]= (V230);
  1251.     base[4]= Ct;
  1252.     vs_top=(vs_base=base+0)+5;
  1253.     (void) (*Lnk129)();
  1254.     vs_top=sup;
  1255.     V240= vs_base[0];
  1256.     goto T642;
  1257. T644:;
  1258.     {object V246;
  1259.     object V247;
  1260.     object V248;
  1261.     object V249;
  1262.     if((V233)==Cnil){
  1263.     V249= Cnil;
  1264.     goto T654;}
  1265.     V249= get((V233),VV[53],Cnil);
  1266. T654:;
  1267.     V246= Cnil;
  1268.     V247= small_fixnum(0);
  1269.     V248= Cnil;
  1270.     if(((V249))==Cnil){
  1271.     goto T655;}
  1272.     if((structure_ref((V249),VV[53],11))==Cnil){
  1273.     goto T658;}
  1274.     if((structure_ref((V249),VV[53],3))==Cnil){
  1275.     goto T659;}
  1276.     {object V250;
  1277.     V250= get((Vcs[0]->c.c_car),VV[53],Cnil);
  1278.     if((V250)==Cnil){
  1279.     goto T664;}
  1280.     V251= structure_ref((V250),VV[53],4);
  1281.     if((/* INLINE-ARGS */V251)==((V249))){
  1282.     goto T658;}}
  1283. T664:;
  1284. T659:;
  1285.     (void)((VFUN_NARGS=2,(*(LnkLI130))(VV[61],(V233))));
  1286. T658:;
  1287.     {object V253;
  1288.     base[1]= (Vcs[0]->c.c_car);
  1289.     base[2]= structure_ref(V249,VV[53],3);
  1290.     vs_top=(vs_base=base+1)+2;
  1291.     Ladjoin();
  1292.     vs_top=sup;
  1293.     V253= vs_base[0];
  1294.     (void)(structure_set(V249,VV[53],3,(V253)));}
  1295. T655:;
  1296.     if(((V228))!=Cnil){
  1297.     goto T669;}
  1298.     V246= (*(LnkLI131))((V241),(V233),(V230));
  1299.     V247= cadr((V246));
  1300.     V248= caddr((V246));
  1301.     V246= car((V246));
  1302. T669:;
  1303.     if(((V228))==Cnil){
  1304.     goto T681;}
  1305.     V254= Cnil;
  1306.     goto T680;
  1307. T681:;
  1308.     V254= (*(LnkLI128))((V241),(V233),(V230));
  1309. T680:;
  1310.     V240= (VFUN_NARGS=32,(*(LnkLI132))(VV[62],(Vcs[0]->c.c_car),VV[63],(V241),VV[64],V254,VV[65],(V246),VV[66],(V247),VV[67],(V248),VV[68],(V232),VV[69],(V249),VV[70],(V234),VV[71],(V230),VV[72],(V235),VV[73],(V236),VV[74],(V228),VV[75],(V229),VV[76],(V238),VV[77],(V227)));}
  1311. T642:;
  1312.     {object V255;
  1313.     V255= get((Vcs[0]->c.c_car),VV[53],Cnil);
  1314.     if(!(((Vcs[0]->c.c_car))==(VV[53]))){
  1315.     goto T687;}
  1316.     if(((V255))==Cnil){
  1317.     goto T689;}
  1318.     (void)((VFUN_NARGS=1,(*(LnkLI130))(VV[78])));
  1319. T689:;
  1320.     if((V255)!=Cnil){
  1321.     goto T685;}
  1322.     (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V240)));
  1323.     goto T685;
  1324. T687:;
  1325.     if(((V255))==Cnil){
  1326.     goto T693;}
  1327.     (void)((*(LnkLI133))((V255),(V240),(Vcs[0]->c.c_car)));
  1328.     goto T685;
  1329. T693:;
  1330.     (void)(sputprop((Vcs[0]->c.c_car),VV[53],(V240)));
  1331. T685:;
  1332.     if(((V238))==Cnil){
  1333.     goto T695;}
  1334.     (void)(sputprop((Vcs[0]->c.c_car),VV[79],(V238)));
  1335. T695:;
  1336.     if(((V228))!=Cnil){
  1337.     goto T683;}
  1338.     if(((V237))==Cnil){
  1339.     goto T683;}
  1340.     base[0]= (V237);
  1341.     base[1]= VV[3];
  1342.     base[2]= VV[80];
  1343.     base[3]= Ct;
  1344.     vs_top=(vs_base=base+0)+4;
  1345.     (void) (*Lnk108)();
  1346.     vs_top=sup;
  1347.     if((V239)!=Cnil){
  1348.     goto T707;}
  1349.     base[0]= (V237);
  1350.     base[1]= 
  1351.     make_cclosure_new(LC20,Cnil,Vcs[0],Cdata);
  1352.     vs_top=(vs_base=base+0)+2;
  1353.     siLfset();
  1354.     vs_top=sup;
  1355. T707:;
  1356.     (void)(sputprop((V237),VV[81],VV[82]));
  1357.     (void)(sputprop((V237),VV[83],(Vcs[0]->c.c_car)));}
  1358. T683:;
  1359.     {object V256 = Cnil;
  1360.     VMR10(V256)}}}
  1361.     }
  1362. /*    macro definition for DEFSTRUCT    */
  1363.  
  1364. static L11()
  1365. {register object *base=vs_base;
  1366.     register object *sup=base+VM11; VC11
  1367.     vs_reserve(VM11);
  1368.     check_arg(2);
  1369.     vs_top=sup;
  1370.     {object V257=base[0]->c.c_cdr;
  1371.     if(endp(V257))invalid_macro_call();
  1372.     base[2]= (V257->c.c_car);
  1373.     V257=V257->c.c_cdr;
  1374.     base[3]= V257;}
  1375.     {register object V258;
  1376.     object V259;
  1377.     register object V260;
  1378.     register object V261;
  1379.     register object V262;
  1380.     register object V263;
  1381.     register object V264;
  1382.     register object V265;
  1383.     register object V266;
  1384.     register object V267;
  1385.     register object V268;
  1386.     register object V269;
  1387.     register object V270;
  1388.     register object V271;
  1389.     register object V272;
  1390.     object V273;
  1391.     object V274;
  1392.     register object V275;
  1393.     V258= base[3];
  1394.     V259= Cnil;
  1395.     V260= Cnil;
  1396.     V261= Cnil;
  1397.     V262= Cnil;
  1398.     V263= Cnil;
  1399.     V264= Cnil;
  1400.     V265= Cnil;
  1401.     V266= Cnil;
  1402.     V267= Cnil;
  1403.     V268= Cnil;
  1404.     V269= Cnil;
  1405.     V270= Cnil;
  1406.     V271= Cnil;
  1407.     V272= Cnil;
  1408.     V273= Cnil;
  1409.     V274= Cnil;
  1410.     V275= Cnil;
  1411.     if(!(type_of(base[2])==t_cons)){
  1412.     goto T711;}
  1413.     V259= cdr(base[2]);
  1414.     base[2]= car(base[2]);
  1415. T711:;
  1416.     base[4]= coerce_to_string(base[2]);
  1417.     base[5]= VV[84];
  1418.     vs_top=(vs_base=base+4)+2;
  1419.     (void) (*Lnk106)();
  1420.     vs_top=sup;
  1421.     V260= vs_base[0];
  1422.     base[5]= VV[85];
  1423.     base[6]= coerce_to_string(base[2]);
  1424.     vs_top=(vs_base=base+5)+2;
  1425.     (void) (*Lnk106)();
  1426.     vs_top=sup;
  1427.     base[4]= vs_base[0];
  1428.     vs_top=(vs_base=base+4)+1;
  1429.     Lintern();
  1430.     vs_top=sup;
  1431.     V262= vs_base[0];
  1432.     base[5]= VV[86];
  1433.     base[6]= coerce_to_string(base[2]);
  1434.     vs_top=(vs_base=base+5)+2;
  1435.     (void) (*Lnk106)();
  1436.     vs_top=sup;
  1437.     base[4]= vs_base[0];
  1438.     vs_top=(vs_base=base+4)+1;
  1439.     Lintern();
  1440.     vs_top=sup;
  1441.     V264= vs_base[0];
  1442.     base[5]= coerce_to_string(base[2]);
  1443.     base[6]= VV[87];
  1444.     vs_top=(vs_base=base+5)+2;
  1445.     (void) (*Lnk106)();
  1446.     vs_top=sup;
  1447.     base[4]= vs_base[0];
  1448.     vs_top=(vs_base=base+4)+1;
  1449.     Lintern();
  1450.     vs_top=sup;
  1451.     V265= vs_base[0];
  1452.     {register object V276;
  1453.     register object V277;
  1454.     register object V278;
  1455.     V276= (V259);
  1456.     V277= Cnil;
  1457.     V278= Cnil;
  1458. T738:;
  1459.     if(!(endp((V276)))){
  1460.     goto T739;}
  1461.     goto T736;
  1462. T739:;
  1463.     if(!(type_of(car((V276)))==t_cons)){
  1464.     goto T745;}
  1465.     if(endp(cdar((V276)))){
  1466.     goto T745;}
  1467.     V277= caar((V276));
  1468.     V278= cadar((V276));
  1469.     {object V279= (V277);
  1470.     if((V279!= VV[77]))goto T753;
  1471.     if(((V278))!=Cnil){
  1472.     goto T755;}
  1473.     V260= VV[88];
  1474.     goto T743;
  1475. T755:;
  1476.     V260= (V278);
  1477.     goto T743;
  1478. T753:;
  1479.     if((V279!= VV[134]))goto T759;
  1480.     if(((V278))!=Cnil){
  1481.     goto T761;}
  1482.     V263= Ct;
  1483.     goto T743;
  1484. T761:;
  1485.     if(!(endp(cddar((V276))))){
  1486.     goto T765;}
  1487.     V261= make_cons((V278),(V261));
  1488.     goto T743;
  1489. T765:;
  1490.     V261= make_cons(cdar((V276)),(V261));
  1491.     goto T743;
  1492. T759:;
  1493.     if((V279!= VV[135]))goto T769;
  1494.     V264= (V278);
  1495.     goto T743;
  1496. T769:;
  1497.     if((V279!= VV[52]))goto T771;
  1498.     V275= (V278);
  1499.     goto T743;
  1500. T771:;
  1501.     if((V279!= VV[136]))goto T773;
  1502.     V265= (V278);
  1503.     V266= Ct;
  1504.     goto T743;
  1505. T773:;
  1506.     if((V279!= VV[137]))goto T777;
  1507.     V267= cdar((V276));
  1508.     if((get((V278),VV[53],Cnil))!=Cnil){
  1509.     goto T743;}
  1510.     base[4]= VV[89];
  1511.     base[5]= (V278);
  1512.     vs_top=(vs_base=base+4)+2;
  1513.     Lerror();
  1514.     vs_top=sup;
  1515.     goto T743;
  1516. T777:;
  1517.     if((V279!= VV[70]))goto T784;
  1518.     if(type_of((V278))==t_cons){
  1519.     goto T786;}
  1520.     goto T785;
  1521. T786:;
  1522.     if((car((V278)))==(VV[90])){
  1523.     goto T788;}
  1524.     goto T785;
  1525. T788:;
  1526.     V278= cadr((V278));
  1527. T785:;
  1528.     V268= (V278);
  1529.     goto T743;
  1530. T784:;
  1531.     if((V279!= VV[74]))goto T792;
  1532.     V269= (V278);
  1533.     goto T743;
  1534. T792:;
  1535.     if((V279!= VV[138]))goto T794;
  1536.     V271= (V278);
  1537.     goto T743;
  1538. T794:;
  1539.     base[4]= VV[91];
  1540.     base[5]= (V277);
  1541.     vs_top=(vs_base=base+4)+2;
  1542.     Lerror();
  1543.     vs_top=sup;
  1544.     goto T743;}
  1545. T745:;
  1546.     if(!(type_of(car((V276)))==t_cons)){
  1547.     goto T800;}
  1548.     V277= caar((V276));
  1549.     goto T798;
  1550. T800:;
  1551.     V277= car((V276));
  1552. T798:;
  1553.     {object V280= (V277);
  1554.     if((V280!= VV[134]))goto T804;
  1555.     V261= make_cons((V262),(V261));
  1556.     goto T743;
  1557. T804:;
  1558.     if((V280!= VV[77])
  1559.     && (V280!= VV[135])
  1560.     && (V280!= VV[136])
  1561.     && (V280!= VV[70]))goto T806;
  1562.     goto T743;
  1563. T806:;
  1564.     if((V280!= VV[75]))goto T807;
  1565.     V270= Ct;
  1566.     goto T743;
  1567. T807:;
  1568.     base[4]= VV[92];
  1569.     base[5]= (V277);
  1570.     vs_top=(vs_base=base+4)+2;
  1571.     Lerror();
  1572.     vs_top=sup;}
  1573. T743:;
  1574.     V276= cdr((V276));
  1575.     goto T738;}
  1576. T736:;
  1577.     base[4]= coerce_to_string((V260));
  1578.     vs_top=(vs_base=base+4)+1;
  1579.     Lintern();
  1580.     vs_top=sup;
  1581.     V260= vs_base[0];
  1582.     if((V267)==Cnil){
  1583.     goto T817;}
  1584.     if(((V268))==Cnil){
  1585.     goto T818;}
  1586.     goto T817;
  1587. T818:;
  1588.     V281= get(car((V267)),VV[53],Cnil);
  1589.     V268= structure_ref(V281,VV[53],6);
  1590. T817:;
  1591.     if(endp((V258))){
  1592.     goto T822;}
  1593.     if(!(type_of(car((V258)))==t_string)){
  1594.     goto T822;}
  1595.     V274= car((V258));
  1596.     V258= cdr((V258));
  1597. T822:;
  1598.     if(((V267))==Cnil){
  1599.     goto T830;}
  1600.     V282= get(car((V267)),VV[53],Cnil);
  1601.     V283= structure_ref(V282,VV[53],16);
  1602.     if(equal((V269),/* INLINE-ARGS */V283)){
  1603.     goto T830;}
  1604.     base[4]= VV[93];
  1605.     base[5]= car((V267));
  1606.     vs_top=(vs_base=base+4)+2;
  1607.     Lerror();
  1608.     vs_top=sup;
  1609. T830:;
  1610.     if(((V267))!=Cnil){
  1611.     goto T840;}
  1612.     V272= small_fixnum(0);
  1613.     goto T838;
  1614. T840:;
  1615.     V284= get(car((V267)),VV[53],Cnil);
  1616.     V272= structure_ref(V284,VV[53],14);
  1617. T838:;
  1618.     if(((V269))==Cnil){
  1619.     goto T845;}
  1620.     if(((V271))==Cnil){
  1621.     goto T845;}
  1622.     V272= number_plus((V272),(V271));
  1623. T845:;
  1624.     if(((V269))==Cnil){
  1625.     goto T851;}
  1626.     if(((V270))==Cnil){
  1627.     goto T851;}
  1628.     V273= (V272);
  1629.     V272= one_plus((V272));
  1630. T851:;
  1631.     {register object V285;
  1632.     register object V286;
  1633.     V285= (V258);
  1634.     V286= Cnil;
  1635. T861:;
  1636.     if(!(endp((V285)))){
  1637.     goto T862;}
  1638.     V258= nreverse((V286));
  1639.     goto T859;
  1640. T862:;
  1641.     V287= (*(LnkLI139))(car((V285)),(V272));
  1642.     V286= make_cons(/* INLINE-ARGS */V287,(V286));
  1643.     V272= one_plus((V272));
  1644.     V285= cdr((V285));
  1645.     goto T861;}
  1646. T859:;
  1647.     if(((V269))==Cnil){
  1648.     goto T874;}
  1649.     if(((V270))==Cnil){
  1650.     goto T874;}
  1651.     V288= list(2,Cnil,base[2]);
  1652.     V258= make_cons(/* INLINE-ARGS */V288,(V258));
  1653. T874:;
  1654.     if(((V269))==Cnil){
  1655.     goto T880;}
  1656.     if(((V271))==Cnil){
  1657.     goto T880;}
  1658.     base[4]= (V271);
  1659.     vs_top=(vs_base=base+4)+1;
  1660.     Lmake_list();
  1661.     vs_top=sup;
  1662.     V289= vs_base[0];
  1663.     V258= append(V289,(V258));
  1664. T880:;
  1665.     {object V290;
  1666.     V290= (((V267))==Cnil?Ct:Cnil);
  1667.     if(((V290))==Cnil){
  1668.     goto T891;}
  1669.     goto T888;
  1670. T891:;
  1671.     if(!(endp(cdr((V267))))){
  1672.     goto T894;}
  1673.     V291= get(car((V267)),VV[53],Cnil);
  1674.     V292= structure_ref(V291,VV[53],7);
  1675.     V258= append(/* INLINE-ARGS */V292,(V258));
  1676.     goto T888;
  1677. T894:;
  1678.     {object V294;
  1679.     object V295= cdr((V267));
  1680.     if(endp(V295)){
  1681.     V293= Cnil;
  1682.     goto T899;}
  1683.     base[4]=V294=MMcons(Cnil,Cnil);
  1684. T900:;
  1685.     (V294->c.c_car)= (*(LnkLI139))((V295->c.c_car),small_fixnum(0));
  1686.     if(endp(V295=MMcdr(V295))){
  1687.     V293= base[4];
  1688.     goto T899;}
  1689.     V294=MMcdr(V294)=MMcons(Cnil,Cnil);
  1690.     goto T900;}
  1691. T899:;
  1692.     V297= get(car((V267)),VV[53],Cnil);
  1693.     V298= structure_ref(V297,VV[53],7);
  1694.     V299= (*(LnkLI116))(V293,/* INLINE-ARGS */V298);
  1695.     V258= append(/* INLINE-ARGS */V299,(V258));}
  1696. T888:;
  1697.     if(((V263))==Cnil){
  1698.     goto T905;}
  1699.     if(((V261))==Cnil){
  1700.     goto T903;}
  1701.     base[4]= VV[94];
  1702.     vs_top=(vs_base=base+4)+1;
  1703.     Lerror();
  1704.     vs_top=sup;
  1705.     goto T903;
  1706. T905:;
  1707.     if(((V261))!=Cnil){
  1708.     goto T903;}
  1709.     V261= make_cons((V262),Cnil);
  1710. T903:;{object V300;
  1711.     {object V303;
  1712.     object V304= (V261);
  1713.     if(endp(V304)){
  1714.     V302= Cnil;
  1715.     goto T916;}
  1716.     base[4]=V303=MMcons(Cnil,Cnil);
  1717. T917:;
  1718.     base[5]= (V304->c.c_car);
  1719.     vs_top=(vs_base=base+5)+1;
  1720.     Lsymbolp();
  1721.     vs_top=sup;
  1722.     (V303->c.c_car)= vs_base[0];
  1723.     if(endp(V304=MMcdr(V304))){
  1724.     V302= base[4];
  1725.     goto T916;}
  1726.     V303=MMcdr(V303)=MMcons(Cnil,Cnil);
  1727.     goto T917;}
  1728. T916:;
  1729.     {register object x= Ct,V301= V302;
  1730.     while(!endp(V301))
  1731.     if(eql(x,V301->c.c_car)){
  1732.     V300= V301;
  1733.     goto T915;
  1734.     }else V301=V301->c.c_cdr;
  1735.     V300= Cnil;}
  1736. T915:;
  1737.     if(V300==Cnil)goto T914;
  1738.     goto T913;
  1739. T914:;}
  1740.     base[5]= VV[95];
  1741.     base[6]= (V262);
  1742.     vs_top=(vs_base=base+5)+2;
  1743.     (void) (*Lnk106)();
  1744.     vs_top=sup;
  1745.     base[4]= vs_base[0];
  1746.     vs_top=(vs_base=base+4)+1;
  1747.     Lintern();
  1748.     vs_top=sup;
  1749.     V305= vs_base[0];
  1750.     V261= make_cons(V305,(V261));
  1751. T913:;
  1752.     if(((V269))==Cnil){
  1753.     goto T925;}
  1754.     if(((V270))!=Cnil){
  1755.     goto T925;}
  1756.     if(((V266))==Cnil){
  1757.     goto T930;}
  1758.     base[4]= VV[96];
  1759.     base[5]= (V265);
  1760.     vs_top=(vs_base=base+4)+2;
  1761.     Lerror();
  1762.     vs_top=sup;
  1763. T930:;
  1764.     V265= Cnil;
  1765. T925:;
  1766.     if(((V267))==Cnil){
  1767.     goto T936;}
  1768.     V267= car((V267));
  1769. T936:;
  1770.     if(((V268))==Cnil){
  1771.     goto T940;}
  1772.     if(((V269))==Cnil){
  1773.     goto T940;}
  1774.     base[4]= VV[97];
  1775.     vs_top=(vs_base=base+4)+1;
  1776.     Lerror();
  1777.     vs_top=sup;
  1778. T940:;
  1779.     base[4]= VV[99];
  1780.     base[5]= list(2,VV[11],base[2]);
  1781.     base[6]= list(2,VV[11],(V260));
  1782.     base[7]= list(2,VV[11],(V269));
  1783.     base[8]= list(2,VV[11],(V270));
  1784.     base[9]= list(2,VV[11],(V258));
  1785.     base[10]= list(2,VV[11],(V264));
  1786.     base[11]= list(2,VV[11],(V275));
  1787.     base[12]= list(2,VV[11],(V267));
  1788.     base[13]= list(2,VV[11],(V268));
  1789.     base[14]= list(2,VV[11],(V261));
  1790.     base[15]= list(2,VV[11],(V272));
  1791.     base[16]= list(2,VV[11],(V265));
  1792.     base[17]= list(2,VV[11],(V274));
  1793.     vs_top=(vs_base=base+4)+14;
  1794.     Llist();
  1795.     vs_top=sup;
  1796.     V306= vs_base[0];
  1797.     {object V308;
  1798.     object V309= (V261);
  1799.     if(endp(V309)){
  1800.     base[4]= Cnil;
  1801.     goto T962;}
  1802.     base[5]=V308=MMcons(Cnil,Cnil);
  1803. T963:;
  1804.     (V308->c.c_car)= (*(LnkLI140))(base[2],(V309->c.c_car),(V269),(V270),(V258));
  1805.     if(endp(V309=MMcdr(V309))){
  1806.     base[4]= base[5];
  1807.     goto T962;}
  1808.     V308=MMcdr(V308)=MMcons(Cnil,Cnil);
  1809.     goto T963;}
  1810. T962:;
  1811.     if(((V269))==Cnil){
  1812.     goto T967;}
  1813.     if(((V265))==Cnil){
  1814.     goto T967;}
  1815.     V311= (*(LnkLI141))(base[2],(V265),(V269),(V270),(V273));
  1816.     base[5]= make_cons(/* INLINE-ARGS */V311,Cnil);
  1817.     goto T965;
  1818. T967:;
  1819.     base[5]= Cnil;
  1820. T965:;
  1821.     V312= list(2,VV[11],base[2]);
  1822.     base[6]= make_cons(/* INLINE-ARGS */V312,Cnil);
  1823.     vs_top=(vs_base=base+4)+3;
  1824.     Lappend();
  1825.     vs_top=sup;
  1826.     V307= vs_base[0];
  1827.     base[4]= listA(3,VV[98],V306,V307);
  1828.     vs_top=(vs_base=base+4)+1;
  1829.     return;}
  1830. }
  1831. /*    local entry for function MAKE-S-DATA    */
  1832.  
  1833. static object LI12(va_alist)
  1834.     va_dcl 
  1835. {    
  1836.     va_list ap;
  1837.     int narg = VFUN_NARGS; VMB12 VMS12 VMV12
  1838.     {object V313;
  1839.     object V314;
  1840.     object V315;
  1841.     object V316;
  1842.     object V317;
  1843.     object V318;
  1844.     object V319;
  1845.     object V320;
  1846.     object V321;
  1847.     object V322;
  1848.     object V323;
  1849.     object V324;
  1850.     object V325;
  1851.     object V326;
  1852.     object V327;
  1853.     object V328;
  1854.     object V329;
  1855.     object V330;
  1856.     narg= narg - 0;
  1857.     va_start(ap);
  1858.     {
  1859.     parse_key_new(narg,Vcs +0,&LI12key,ap);
  1860.     V313=(Vcs[0]);
  1861.     V314=(Vcs[1]);
  1862.     V315=(Vcs[2]);
  1863.     V316=(Vcs[3]);
  1864.     V317=(Vcs[4]);
  1865.     V318=(Vcs[5]);
  1866.     V319=(Vcs[6]);
  1867.     V320=(Vcs[7]);
  1868.     V321=(Vcs[8]);
  1869.     V322=(Vcs[9]);
  1870.     V323=(Vcs[10]);
  1871.     V324=(Vcs[11]);
  1872.     V325=(Vcs[12]);
  1873.     V326=(Vcs[13]);
  1874.     V327=(Vcs[14]);
  1875.     V328=(Vcs[15]);
  1876.     V329=(Vcs[16]);
  1877.     V330=(Vcs[17]);
  1878.     base[0]= VV[53];
  1879.     base[1]= (V313);
  1880.     base[2]= (V314);
  1881.     base[3]= (V315);
  1882.     base[4]= (V316);
  1883.     base[5]= (V317);
  1884.     base[6]= (V318);
  1885.     base[7]= (V319);
  1886.     base[8]= (V320);
  1887.     base[9]= (V321);
  1888.     base[10]= (V322);
  1889.     base[11]= (V323);
  1890.     base[12]= (V324);
  1891.     base[13]= (V325);
  1892.     base[14]= (V326);
  1893.     base[15]= (V327);
  1894.     base[16]= (V328);
  1895.     base[17]= (V329);
  1896.     base[18]= (V330);
  1897.     vs_top=(vs_base=base+0)+19;
  1898.     siLmake_structure();
  1899.     vs_top=sup;
  1900.     {object V331 = vs_base[0];
  1901.     VMR12(V331)}}
  1902.     }}
  1903. /*    local entry for function CHECK-S-DATA    */
  1904.  
  1905. static object LI13(V335,V336,V337)
  1906.  
  1907. register object V335;register object V336;object V337;
  1908. {     VMB13 VMS13 VMV13
  1909. TTL:;
  1910.     if((structure_ref((V335),VV[53],3))==Cnil){
  1911.     goto T991;}
  1912.     V338= structure_ref((V335),VV[53],3);
  1913.     (void)(structure_set((V336),VV[53],3,/* INLINE-ARGS */V338));
  1914. T991:;
  1915.     if((structure_ref((V335),VV[53],11))==Cnil){
  1916.     goto T994;}
  1917.     (void)(structure_set((V336),VV[53],11,Ct));
  1918. T994:;
  1919.     if(equalp((V336),(V335))){
  1920.     goto T998;}
  1921.     (void)((VFUN_NARGS=2,(*(LnkLI130))(VV[100],(V337))));
  1922.     {object V339 = sputprop((V337),VV[53],(V336));
  1923.     VMR13(V339)}
  1924. T998:;
  1925.     {object V340 = Cnil;
  1926.     VMR13(V340)}
  1927. }
  1928. /*    local entry for function FREEZE-DEFSTRUCT    */
  1929.  
  1930. static object LI14(V342)
  1931.  
  1932. object V342;
  1933. {     VMB14 VMS14 VMV14
  1934. TTL:;
  1935.     {object V343;
  1936.     if(type_of((V342))==t_symbol){
  1937.     goto T1002;}
  1938.     V343= Cnil;
  1939.     goto T1001;
  1940. T1002:;
  1941.     V343= get((V342),VV[53],Cnil);
  1942. T1001:;
  1943.     if(((V343))==Cnil){
  1944.     goto T1005;}
  1945.     {object V344 = structure_set((V343),VV[53],11,Ct);
  1946.     VMR14(V344)}
  1947. T1005:;
  1948.     {object V345 = Cnil;
  1949.     VMR14(V345)}}
  1950. }
  1951. /*    function definition for SHARP-S-READER    */
  1952.  
  1953. static L15()
  1954. {register object *base=vs_base;
  1955.     register object *sup=base+VM15; VC15
  1956.     vs_reserve(VM15);
  1957.     {object V346;
  1958.     object V347;
  1959.     object V348;
  1960.     check_arg(3);
  1961.     V346=(base[0]);
  1962.     V347=(base[1]);
  1963.     V348=(base[2]);
  1964.     vs_top=sup;
  1965. TTL:;
  1966.     if(((V348))==Cnil){
  1967.     goto T1007;}
  1968.     if((symbol_value(VV[101]))!=Cnil){
  1969.     goto T1007;}
  1970.     base[3]= VV[102];
  1971.     vs_top=(vs_base=base+3)+1;
  1972.     Lerror();
  1973.     vs_top=sup;
  1974. T1007:;
  1975.     {register object V349;
  1976.     register object V350;
  1977.     {object V351;
  1978.     base[5]= (V346);
  1979.     base[6]= Ct;
  1980.     base[7]= Cnil;
  1981.     base[8]= Ct;
  1982.     vs_top=(vs_base=base+5)+4;
  1983.     Lread();
  1984.     vs_top=sup;
  1985.     V351= vs_base[0];
  1986.     if((symbol_value(VV[101]))==Cnil){
  1987.     goto T1019;}
  1988.     base[5]= Cnil;
  1989.     vs_top=(vs_base=base+5)+1;
  1990.     return;
  1991. T1019:;
  1992.     V349= (V351);}{object V352;
  1993.     V352= get(car((V349)),VV[53],Cnil);
  1994.     if(V352==Cnil)goto T1023;
  1995.     V350= V352;
  1996.     goto T1022;
  1997. T1023:;}
  1998.     base[5]= VV[103];
  1999.     base[6]= car((V349));
  2000.     vs_top=(vs_base=base+5)+2;
  2001.     Lerror();
  2002.     vs_top=sup;
  2003.     V350= vs_base[0];
  2004. T1022:;
  2005.     {register object V353;
  2006.     V353= cdr((V349));
  2007. T1029:;
  2008.     if(!(endp((V353)))){
  2009.     goto T1030;}
  2010.     {register object V354;
  2011.     V354= structure_ref((V350),VV[53],13);
  2012. T1035:;
  2013.     if(!(endp((V354)))){
  2014.     goto T1036;}
  2015.     base[5]= VV[104];
  2016.     base[6]= car((V349));
  2017.     vs_top=(vs_base=base+5)+2;
  2018.     Lerror();
  2019.     return;
  2020. T1036:;
  2021.     if(!(type_of(car((V354)))==t_symbol)){
  2022.     goto T1042;}
  2023.     base[5]= car((V354));
  2024.     {object V355;
  2025.     V355= cdr((V349));
  2026.      vs_top=base+6;
  2027.      while(!endp(V355))
  2028.      {vs_push(car(V355));V355=cdr(V355);}
  2029.     vs_base=base+6;}
  2030.     super_funcall_no_event(base[5]);
  2031.     return;
  2032. T1042:;
  2033.     V354= cdr((V354));
  2034.     goto T1035;}
  2035. T1030:;
  2036.     base[5]= coerce_to_string(car((V353)));
  2037.     base[6]= VV[105];
  2038.     vs_top=(vs_base=base+5)+2;
  2039.     Lintern();
  2040.     vs_top=sup;
  2041.     V356= vs_base[0];
  2042.     if(type_of((V353))!=t_cons)FEwrong_type_argument(Scons,(V353));
  2043.     ((V353))->c.c_car = V356;
  2044.     V353= cddr((V353));
  2045.     goto T1029;}}
  2046.     }
  2047. }
  2048. /*    local function CLOSURE    */
  2049.  
  2050. static LC20(base0)
  2051. register object *base0;
  2052. {    register object *base=vs_base;
  2053.     register object *sup=base+VM16; VC16
  2054.     vs_reserve(VM16);
  2055.     {object V357;
  2056.     check_arg(1);
  2057.     V357=(base[0]);
  2058.     vs_top=sup;
  2059.     base[1]= (V357);
  2060.     base[2]= (base0[0]->c.c_car);
  2061.     vs_top=(vs_base=base+1)+2;
  2062.     (void) (*Lnk145)();
  2063.     return;
  2064.     }
  2065. }
  2066. /*    local function CLOSURE    */
  2067.  
  2068. static LC19(base0)
  2069. register object *base0;
  2070. {    register object *base=vs_base;
  2071.     register object *sup=base+VM17; VC17
  2072.     vs_reserve(VM17);
  2073.     {object V358;
  2074.     check_arg(1);
  2075.     V358=(base[0]);
  2076.     vs_top=sup;
  2077.     if(!(type_of((V358))==t_cons)){
  2078.     goto T1061;}
  2079.     base[1]= car((V358));
  2080.     vs_top=(vs_base=base+1)+1;
  2081.     return;
  2082. T1061:;
  2083.     base[1]= Cnil;
  2084.     vs_top=(vs_base=base+1)+1;
  2085.     return;
  2086.     }
  2087. }
  2088. /*    local function CLOSURE    */
  2089.  
  2090. static LC18(base0)
  2091. register object *base0;
  2092. {    register object *base=vs_base;
  2093.     register object *sup=base+VM18; VC18
  2094.     vs_reserve(VM18);
  2095.     {object V359;
  2096.     check_arg(1);
  2097.     V359=(base[0]);
  2098.     vs_top=sup;
  2099.     base[1]= aref1((V359),fixint((base0[0]->c.c_car)));
  2100.     vs_top=(vs_base=base+1)+1;
  2101.     return;
  2102.     }
  2103. }
  2104. /*    local function CLOSURE    */
  2105.  
  2106. static LC17(base0)
  2107. register object *base0;
  2108. {    register object *base=vs_base;
  2109.     register object *sup=base+VM19; VC19
  2110.     vs_reserve(VM19);
  2111.     {object V360;
  2112.     check_arg(1);
  2113.     V360=(base[0]);
  2114.     vs_top=sup;
  2115.     base[1]= (base0[0]->c.c_car);
  2116.     base[2]= (V360);
  2117.     vs_top=(vs_base=base+1)+2;
  2118.     siLlist_nth();
  2119.     return;
  2120.     }
  2121. }
  2122. /*    local function CLOSURE    */
  2123.  
  2124. static LC16(base0)
  2125. register object *base0;
  2126. {    register object *base=vs_base;
  2127.     register object *sup=base+VM20; VC20
  2128.     vs_reserve(VM20);
  2129.     {object V361;
  2130.     check_arg(1);
  2131.     V361=(base[0]);
  2132.     vs_top=sup;
  2133.     if(!(type_of((V361))==t_structure)){
  2134.     goto T1066;}
  2135.     goto T1065;
  2136. T1066:;
  2137.     base[1]= VV[5];
  2138.     base[2]= (V361);
  2139.     vs_top=(vs_base=base+1)+2;
  2140.     Lerror();
  2141.     vs_top=sup;
  2142. T1065:;
  2143.     base[1]= (V361);
  2144.     base[2]= (base0[0]->c.c_car);
  2145.     vs_top=(vs_base=base+1)+2;
  2146.     (void) (*Lnk146)();
  2147.     return;
  2148.     }
  2149. }
  2150. static LnkT146(){ call_or_link(VV[146],&Lnk146);} /* STRUCTURE-REF1 */
  2151. static LnkT145(){ call_or_link(VV[145],&Lnk145);} /* STRUCTURE-SUBTYPE-P */
  2152. static object  LnkTLI141(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[141],&LnkLI141,5,ap);} /* MAKE-PREDICATE */
  2153. static object  LnkTLI140(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[140],&LnkLI140,5,ap);} /* MAKE-CONSTRUCTOR */
  2154. static object  LnkTLI139(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[139],&LnkLI139,2,ap);} /* PARSE-SLOT-DESCRIPTION */
  2155. static object  LnkTLI133(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[133],&LnkLI133,3,ap);} /* CHECK-S-DATA */
  2156. static object  LnkTLI132(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[132],&LnkLI132,ap);} /* MAKE-S-DATA */
  2157. static object  LnkTLI131(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[131],&LnkLI131,3,ap);} /* GET-SLOT-POS */
  2158. static object  LnkTLI130(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[130],&LnkLI130,ap);} /* WARN */
  2159. static LnkT129(){ call_or_link(VV[129],&Lnk129);} /* MAKE-S-DATA-STRUCTURE */
  2160. static object  LnkTLI128(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[128],&LnkLI128,3,ap);} /* MAKE-T-TYPE */
  2161. static LnkT124(){ call_or_link(VV[124],&Lnk124);} /* MAKE-ACCESS-FUNCTION */
  2162. static LnkT123(){ call_or_link(VV[123],&Lnk123);} /* SIZE-OF */
  2163. static int  LnkTLI122(va_alist)va_dcl{va_list ap;va_start(ap);return(int )call_proc(VV[122],&LnkLI122,20738,ap);} /* ROUND-UP */
  2164. static object  LnkTLI121(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[121],&LnkLI121,2,ap);} /* COERCE */
  2165. static LnkT120(){ call_or_link(VV[120],&Lnk120);} /* TYPEP */
  2166. static LnkT119(){ call_or_link(VV[119],&Lnk119);} /* AET-TYPE */
  2167. static LnkT118(){ call_or_link(VV[118],&Lnk118);} /* ALIGNMENT */
  2168. static object  LnkTLI117(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[117],&LnkLI117,ap);} /* MAKE-ARRAY */
  2169. static object  LnkTLI116(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[116],&LnkLI116,2,ap);} /* OVERWRITE-SLOT-DESCRIPTIONS */
  2170. static object  LnkTLI115(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[115],&LnkLI115,1,ap);} /* NORMALIZE-TYPE */
  2171. static object  LnkTLI114(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[114],&LnkLI114,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
  2172. static object  LnkTLI110(){return call_proc0(VV[110],&LnkLI110);} /* ILLEGAL-BOA */
  2173. static LnkT109(){ call_or_link(VV[109],&Lnk109);} /* SUBTYPEP */
  2174. static LnkT108(){ call_or_link(VV[108],&Lnk108);} /* RECORD-FN */
  2175. static object  LnkTLI107(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[107],&LnkLI107,ap);} /* ADJUST-ARRAY */
  2176. static LnkT106(){ call_or_link(VV[106],&Lnk106);} /* STRING-CONCATENATE */
  2177.