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 / cmpnew / cmploc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  18.8 KB  |  917 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmploc.h"
  4. init_cmploc(){do_init(VV);}
  5. /*    local entry for function WT-NEXT-VAR-ARG    */
  6.  
  7. static object LI1()
  8.  
  9. {     VMB1 VMS1 VMV1
  10. TTL:;
  11.     princ_str("va_arg(ap,object)",VV[0]);
  12.     {object V1 = Cnil;
  13.     VMR1(V1)}
  14. }
  15. /*    function definition for SET-LOC    */
  16.  
  17. static L2()
  18. {register object *base=vs_base;
  19.     register object *sup=base+VM2; VC2
  20.     vs_reserve(VM2);
  21.     {register object V2;
  22.     check_arg(1);
  23.     V2=(base[0]);
  24.     vs_top=sup;
  25. TTL:;
  26.     {register object V3;
  27.     V3= Cnil;
  28.     if(!((symbol_value(VV[1]))==(VV[2]))){
  29.     goto T4;}
  30.     base[1]= (*(LnkLI34))((V2));
  31.     vs_top=(vs_base=base+1)+1;
  32.     return;
  33. T4:;
  34.     if(!((symbol_value(VV[1]))==(VV[3]))){
  35.     goto T7;}
  36.     if(!(type_of((V2))==t_cons)){
  37.     goto T10;}
  38.     {register object x= car((V2)),V4= VV[4];
  39.     while(!endp(V4))
  40.     if(eql(x,V4->c.c_car)){
  41.     goto T14;
  42.     }else V4=V4->c.c_cdr;
  43.     goto T10;}
  44. T14:;
  45.     if((cadr((V2)))==Cnil){
  46.     goto T10;}
  47.     princ_str("\n    (void)(",VV[0]);
  48.     base[1]= Ct;
  49.     base[2]= caddr((V2));
  50.     base[3]= cadddr((V2));
  51.     vs_top=(vs_base=base+1)+3;
  52.     (void) (*Lnk35)();
  53.     vs_top=sup;
  54.     princ_str(");",VV[0]);
  55.     base[1]= Cnil;
  56.     vs_top=(vs_base=base+1)+1;
  57.     return;
  58. T10:;
  59.     if(!(type_of((V2))==t_cons)){
  60.     goto T24;}
  61.     if(!((car((V2)))==(VV[5]))){
  62.     goto T24;}
  63.     princ_str("\n    (void)",VV[0]);
  64.     (void)((*(LnkLI36))((V2)));
  65.     princ_char(59,VV[0]);
  66.     base[1]= Cnil;
  67.     vs_top=(vs_base=base+1)+1;
  68.     return;
  69. T24:;
  70.     base[1]= Cnil;
  71.     vs_top=(vs_base=base+1)+1;
  72.     return;
  73. T7:;
  74.     if(!((symbol_value(VV[1]))==(VV[6]))){
  75.     goto T32;}
  76.     if(((V2))==(VV[7])){
  77.     goto T35;}
  78.     base[1]= (*(LnkLI37))((V2));
  79.     vs_top=(vs_base=base+1)+1;
  80.     return;
  81. T35:;
  82.     base[1]= Cnil;
  83.     vs_top=(vs_base=base+1)+1;
  84.     return;
  85. T32:;
  86.     if(!((symbol_value(VV[1]))==(VV[8]))){
  87.     goto T38;}
  88.     base[1]= (V2);
  89.     vs_top=(vs_base=base+1)+1;
  90.     (void) (*Lnk38)();
  91.     return;
  92. T38:;
  93.     if(!((symbol_value(VV[1]))==(VV[9]))){
  94.     goto T42;}
  95.     base[1]= (V2);
  96.     vs_top=(vs_base=base+1)+1;
  97.     (void) (*Lnk39)();
  98.     return;
  99. T42:;
  100.     if(!((symbol_value(VV[1]))==(VV[10]))){
  101.     goto T46;}
  102.     base[1]= (V2);
  103.     vs_top=(vs_base=base+1)+1;
  104.     (void) (*Lnk40)();
  105.     return;
  106. T46:;
  107.     if(!((symbol_value(VV[1]))==(VV[11]))){
  108.     goto T50;}
  109.     base[1]= (V2);
  110.     vs_top=(vs_base=base+1)+1;
  111.     (void) (*Lnk41)();
  112.     return;
  113. T50:;
  114.     if(!(type_of(symbol_value(VV[1]))==t_cons)){
  115.     goto T53;}
  116.     if(type_of(car(symbol_value(VV[1])))==t_symbol){
  117.     goto T54;}
  118. T53:;
  119.     base[1]= (*(LnkLI42))();
  120.     vs_top=(vs_base=base+1)+1;
  121.     return;
  122. T54:;
  123.     V3= get(car(symbol_value(VV[1])),VV[12],Cnil);
  124.     if(((V3))==Cnil){
  125.     goto T59;}
  126.     base[1]= (V3);
  127.     base[2]= (V2);
  128.     {object V5;
  129.     V5= cdr(symbol_value(VV[1]));
  130.      vs_top=base+3;
  131.      while(!endp(V5))
  132.      {vs_push(car(V5));V5=cdr(V5);}
  133.     vs_base=base+2;}
  134.     super_funcall_no_event(base[1]);
  135.     return;
  136. T59:;
  137.     V3= get(car(symbol_value(VV[1])),VV[13],Cnil);
  138.     if(((V3))==Cnil){
  139.     goto T66;}
  140.     princ_str("\n    ",VV[0]);
  141.     base[1]= (V3);
  142.     {object V6;
  143.     V6= cdr(symbol_value(VV[1]));
  144.      vs_top=base+2;
  145.      while(!endp(V6))
  146.      {vs_push(car(V6));V6=cdr(V6);}
  147.     vs_base=base+2;}
  148.     super_funcall_no_event(base[1]);
  149.     vs_top=sup;
  150.     princ_str("= ",VV[0]);
  151.     (void)((*(LnkLI36))((V2)));
  152.     princ_char(59,VV[0]);
  153.     base[1]= Cnil;
  154.     vs_top=(vs_base=base+1)+1;
  155.     return;
  156. T66:;
  157.     base[1]= (*(LnkLI42))();
  158.     vs_top=(vs_base=base+1)+1;
  159.     return;}
  160.     }
  161. }
  162. /*    function definition for WT-LOC    */
  163.  
  164. static L3()
  165. {register object *base=vs_base;
  166.     register object *sup=base+VM3; VC3
  167.     vs_reserve(VM3);
  168.     {register object V7;
  169.     check_arg(1);
  170.     V7=(base[0]);
  171.     vs_top=sup;
  172. TTL:;
  173.     if(!(((V7))==(Cnil))){
  174.     goto T77;}
  175.     princ_str("Cnil",VV[0]);
  176.     base[1]= Cnil;
  177.     vs_top=(vs_base=base+1)+1;
  178.     return;
  179. T77:;
  180.     if(!(((V7))==(Ct))){
  181.     goto T81;}
  182.     princ_str("Ct",VV[0]);
  183.     base[1]= Cnil;
  184.     vs_top=(vs_base=base+1)+1;
  185.     return;
  186. T81:;
  187.     if(!(((V7))==(VV[7]))){
  188.     goto T85;}
  189.     princ_str("vs_base[0]",VV[0]);
  190.     base[1]= Cnil;
  191.     vs_top=(vs_base=base+1)+1;
  192.     return;
  193. T85:;
  194.     if(!(type_of((V7))==t_cons)){
  195.     goto T88;}
  196.     if(type_of(car((V7)))==t_symbol){
  197.     goto T89;}
  198. T88:;
  199.     base[1]= (*(LnkLI42))();
  200.     vs_top=(vs_base=base+1)+1;
  201.     return;
  202. T89:;
  203.     {object V8;
  204.     V8= get(car((V7)),VV[13],Cnil);
  205.     if(((V8))!=Cnil){
  206.     goto T94;}
  207.     (void)((*(LnkLI42))());
  208. T94:;
  209.     base[1]= (V8);
  210.     {object V9;
  211.     V9= cdr((V7));
  212.      vs_top=base+2;
  213.      while(!endp(V9))
  214.      {vs_push(car(V9));V9=cdr(V9);}
  215.     vs_base=base+2;}
  216.     super_funcall_no_event(base[1]);
  217.     return;}
  218.     }
  219. }
  220. /*    local entry for function SET-RETURN    */
  221.  
  222. static object LI4(V11)
  223.  
  224. register object V11;
  225. {     VMB4 VMS4 VMV4
  226. TTL:;
  227.     {object V12;
  228.     V12= (((V11))==(VV[7])?Ct:Cnil);
  229.     if(((V12))==Cnil){
  230.     goto T101;}
  231.     {object V13 = (V12);
  232.     VMR4(V13)}
  233. T101:;
  234.     if(!(type_of((V11))==t_cons)){
  235.     goto T104;}
  236.     if(!((car((V11)))==(VV[14]))){
  237.     goto T104;}
  238.     if(!(number_compare(caadr((V11)),symbol_value(VV[15]))==0)){
  239.     goto T104;}
  240.     princ_str("\n    vs_top=(vs_base=base+",VV[0]);
  241.     (void)((*(LnkLI36))(cdadr((V11))));
  242.     princ_str(")+1;",VV[0]);
  243.     setq(VV[16],Ct);
  244.     {object V14 = Ct;
  245.     VMR4(V14)}
  246. T104:;
  247.     if(!(type_of((V11))==t_cons)){
  248.     goto T116;}
  249.     if(!((car((V11)))==(VV[17]))){
  250.     goto T116;}
  251.     V15= structure_ref(cadr((V11)),VV[17],1);
  252.     if(!((/* INLINE-ARGS */V15)==(VV[18]))){
  253.     goto T116;}
  254.     if((structure_ref(cadr((V11)),VV[17],3))!=Cnil){
  255.     goto T116;}
  256.     V16= structure_ref(cadr((V11)),VV[17],2);
  257.     if(!(eql(car(/* INLINE-ARGS */V16),symbol_value(VV[15])))){
  258.     goto T116;}
  259.     princ_str("\n    vs_top=(vs_base=base+",VV[0]);
  260.     V17= structure_ref(cadr((V11)),VV[17],2);
  261.     (void)((*(LnkLI36))(cdr(/* INLINE-ARGS */V17)));
  262.     princ_str(")+1;",VV[0]);
  263.     setq(VV[16],Ct);
  264.     {object V18 = Ct;
  265.     VMR4(V18)}
  266. T116:;
  267.     {object V19 = (*(LnkLI37))((V11));
  268.     VMR4(V19)}}
  269. }
  270. /*    local entry for function SET-TOP    */
  271.  
  272. static object LI5(V21)
  273.  
  274. object V21;
  275. {     VMB5 VMS5 VMV5
  276.     bds_check;
  277. TTL:;
  278.     bds_bind(VV[19],symbol_value(VV[19]));
  279.     princ_str("\n    ",VV[0]);
  280.     V22= (*(LnkLI44))();
  281.     (void)((*(LnkLI43))(/* INLINE-ARGS */V22));
  282.     princ_str("= ",VV[0]);
  283.     (void)((*(LnkLI36))((V21)));
  284.     princ_char(59,VV[0]);
  285.     princ_str("\n    vs_top=(vs_base=base+",VV[0]);
  286.     V23= one_minus((VV[19]->s.s_dbind));
  287.     (void)((*(LnkLI36))(/* INLINE-ARGS */V23));
  288.     princ_str(")+1;",VV[0]);
  289.     setq(VV[16],Ct);
  290.     {object V24 = Ct;
  291.     bds_unwind1;
  292.     VMR5(V24)}
  293. }
  294. /*    local entry for function WT-VS-BASE    */
  295.  
  296. static object LI6(V26)
  297.  
  298. object V26;
  299. {     VMB6 VMS6 VMV6
  300. TTL:;
  301.     princ_str("vs_base[",VV[0]);
  302.     (void)((*(LnkLI36))((V26)));
  303.     princ_char(93,VV[0]);
  304.     {object V27 = Cnil;
  305.     VMR6(V27)}
  306. }
  307. /*    local entry for function WT-CAR    */
  308.  
  309. static object LI7(V29)
  310.  
  311. object V29;
  312. {     VMB7 VMS7 VMV7
  313. TTL:;
  314.     princ_str("(V",VV[0]);
  315.     (void)((*(LnkLI36))((V29)));
  316.     princ_str("->c.c_car)",VV[0]);
  317.     {object V30 = Cnil;
  318.     VMR7(V30)}
  319. }
  320. /*    local entry for function WT-CDR    */
  321.  
  322. static object LI8(V32)
  323.  
  324. object V32;
  325. {     VMB8 VMS8 VMV8
  326. TTL:;
  327.     princ_str("(V",VV[0]);
  328.     (void)((*(LnkLI36))((V32)));
  329.     princ_str("->c.c_cdr)",VV[0]);
  330.     {object V33 = Cnil;
  331.     VMR8(V33)}
  332. }
  333. /*    local entry for function WT-CADR    */
  334.  
  335. static object LI9(V35)
  336.  
  337. object V35;
  338. {     VMB9 VMS9 VMV9
  339. TTL:;
  340.     princ_str("(V",VV[0]);
  341.     (void)((*(LnkLI36))((V35)));
  342.     princ_str("->c.c_cdr->c.c_car)",VV[0]);
  343.     {object V36 = Cnil;
  344.     VMR9(V36)}
  345. }
  346. /*    local entry for function WT-CVAR    */
  347.  
  348. static object LI10(V37,va_alist)
  349.     object V37;
  350.     va_dcl 
  351. {    
  352.     va_list ap;
  353.     int narg = VFUN_NARGS; VMB10 VMS10 VMV10
  354.     {object V38;
  355.     object V39;
  356.     if(narg <1) too_few_arguments();
  357.     V38= V37;
  358.     narg = narg - 1;
  359.     if (narg <= 0) goto T154;
  360.     else {
  361.     va_start(ap);
  362.     V39= va_arg(ap,object);}
  363.     --narg; goto T155;
  364. T154:;
  365.     V39= Cnil;
  366. T155:;
  367.     if(((V39))==Cnil){
  368.     goto T157;}
  369.     princ_str("/* ",VV[0]);
  370.     V40= symbol_name((V39));
  371.     (void)((*(LnkLI36))(/* INLINE-ARGS */V40));
  372.     princ_str(" */",VV[0]);
  373. T157:;
  374.     princ_char(86,VV[0]);
  375.     (void)((*(LnkLI36))((V38)));
  376.     {object V41 = Cnil;
  377.     VMR10(V41)}}
  378.     }
  379. /*    local entry for function WT-VV    */
  380.  
  381. static object LI11(V43)
  382.  
  383. object V43;
  384. {     VMB11 VMS11 VMV11
  385. TTL:;
  386.     princ_str("VV[",VV[0]);
  387.     (void)((*(LnkLI36))((V43)));
  388.     princ_char(93,VV[0]);
  389.     {object V44 = Cnil;
  390.     VMR11(V44)}
  391. }
  392. /*    function definition for WT-FIXNUM-LOC    */
  393.  
  394. static L12()
  395. {register object *base=vs_base;
  396.     register object *sup=base+VM12; VC12
  397.     vs_reserve(VM12);
  398.     {register object V45;
  399.     check_arg(1);
  400.     V45=(base[0]);
  401.     vs_top=sup;
  402. TTL:;
  403.     if(!(type_of((V45))==t_cons)){
  404.     goto T169;}
  405.     if(!((car((V45)))==(VV[17]))){
  406.     goto T169;}
  407.     V46= structure_ref(cadr((V45)),VV[17],1);
  408.     if(!((/* INLINE-ARGS */V46)==(VV[20]))){
  409.     goto T169;}
  410.     princ_char(86,VV[0]);
  411.     V47= structure_ref(cadr((V45)),VV[17],4);
  412.     (void)((*(LnkLI36))(/* INLINE-ARGS */V47));
  413.     base[1]= Cnil;
  414.     vs_top=(vs_base=base+1)+1;
  415.     return;
  416. T169:;
  417.     if(!(type_of((V45))==t_cons)){
  418.     goto T178;}
  419.     if(!((car((V45)))==(VV[21]))){
  420.     goto T178;}
  421.     base[1]= caddr((V45));
  422.     base[2]= cadddr((V45));
  423.     vs_top=(vs_base=base+1)+2;
  424.     (void) (*Lnk45)();
  425.     return;
  426. T178:;
  427.     if(!(type_of((V45))==t_cons)){
  428.     goto T185;}
  429.     if(!((car((V45)))==(VV[22]))){
  430.     goto T185;}
  431.     (void)((*(LnkLI36))(caddr((V45))));
  432.     base[1]= Cnil;
  433.     vs_top=(vs_base=base+1)+1;
  434.     return;
  435. T185:;
  436.     if(!(type_of((V45))==t_cons)){
  437.     goto T191;}
  438.     {register object x= car((V45)),V48= VV[23];
  439.     while(!endp(V48))
  440.     if(eql(x,V48->c.c_car)){
  441.     goto T194;
  442.     }else V48=V48->c.c_cdr;
  443.     goto T191;}
  444. T194:;
  445.     princ_str("((int)(",VV[0]);
  446.     base[1]= caddr((V45));
  447.     base[2]= cadddr((V45));
  448.     vs_top=(vs_base=base+1)+2;
  449.     (void) (*Lnk45)();
  450.     vs_top=sup;
  451.     princ_str("))",VV[0]);
  452.     base[1]= Cnil;
  453.     vs_top=(vs_base=base+1)+1;
  454.     return;
  455. T191:;
  456.     princ_str("fix(",VV[0]);
  457.     (void)((*(LnkLI36))((V45)));
  458.     princ_char(41,VV[0]);
  459.     base[1]= Cnil;
  460.     vs_top=(vs_base=base+1)+1;
  461.     return;
  462.     }
  463. }
  464. /*    function definition for WT-INTEGER-LOC    */
  465.  
  466. static L13()
  467. {register object *base=vs_base;
  468.     register object *sup=base+VM13; VC13
  469.     vs_reserve(VM13);
  470.     {register object V49;
  471.     object V50;
  472.     if(vs_top-vs_base<1) too_few_arguments();
  473.     if(vs_top-vs_base>2) too_many_arguments();
  474.     V49=(base[0]);
  475.     vs_base=vs_base+1;
  476.     if(vs_base>=vs_top){vs_top=sup;goto T204;}
  477.     V50=(base[1]);
  478.     vs_top=sup;
  479.     goto T205;
  480. T204:;
  481.     V50= Cnil;
  482. T205:;
  483.     {object V51;
  484.     object V52;
  485.     V51= Ct;
  486.     if(type_of((V49))==t_cons){
  487.     goto T209;}
  488.     V52= Cnil;
  489.     goto T208;
  490. T209:;
  491.     V52= car((V49));
  492. T208:;
  493.     {object V53= (V52);
  494.     if((V53!= VV[21]))goto T212;
  495.     princ_str("stoi(",VV[0]);
  496.     base[3]= caddr((V49));
  497.     base[4]= cadddr((V49));
  498.     vs_top=(vs_base=base+3)+2;
  499.     (void) (*Lnk45)();
  500.     vs_top=sup;
  501.     princ_char(41,VV[0]);
  502.     goto T211;
  503. T212:;
  504.     if((V53!= VV[46]))goto T219;
  505.     V51= Cnil;
  506.     base[3]= caddr((V49));
  507.     base[4]= cadddr((V49));
  508.     vs_top=(vs_base=base+3)+2;
  509.     (void) (*Lnk45)();
  510.     vs_top=sup;
  511.     goto T211;
  512. T219:;
  513.     if((V53!= VV[22]))goto T224;
  514.     princ_str("stoi(",VV[0]);
  515.     (void)((*(LnkLI36))(caddr((V49))));
  516.     princ_char(41,VV[0]);
  517.     goto T211;
  518. T224:;
  519.     if((V53!= VV[17]))goto T228;
  520.     V55= structure_ref(cadr((V49)),VV[17],1);
  521.     {object V54= /* INLINE-ARGS */V55;
  522.     if((V54!= VV[47]))goto T229;
  523.     V51= Cnil;
  524.     princ_char(86,VV[0]);
  525.     V56= structure_ref(cadr((V49)),VV[17],4);
  526.     (void)((*(LnkLI36))(/* INLINE-ARGS */V56));
  527.     goto T211;
  528. T229:;
  529.     if((V54!= VV[20]))goto T234;
  530.     princ_str("stoi(V",VV[0]);
  531.     V57= structure_ref(cadr((V49)),VV[17],4);
  532.     (void)((*(LnkLI36))(/* INLINE-ARGS */V57));
  533.     princ_char(41,VV[0]);
  534.     goto T211;
  535. T234:;
  536.     princ_str("otoi(",VV[0]);
  537.     (void)((*(LnkLI36))((V49)));
  538.     princ_char(41,VV[0]);
  539.     goto T211;}
  540. T228:;
  541.     princ_str("otoi(",VV[0]);
  542.     (void)((*(LnkLI36))((V49)));
  543.     princ_char(41,VV[0]);}
  544. T211:;
  545.     if((V51)==Cnil){
  546.     base[3]= Cnil;
  547.     vs_top=(vs_base=base+3)+1;
  548.     return;}
  549.     if((symbol_value(VV[24]))==Cnil){
  550.     goto T244;}
  551.     base[3]= Cnil;
  552.     vs_top=(vs_base=base+3)+1;
  553.     return;
  554. T244:;
  555.     base[3]= (*(LnkLI48))();
  556.     vs_top=(vs_base=base+3)+1;
  557.     return;}
  558.     }
  559. }
  560. /*    local entry for function FIXNUM-LOC-P    */
  561.  
  562. static object LI14(V59)
  563.  
  564. register object V59;
  565. {     VMB14 VMS14 VMV14
  566. TTL:;
  567.     if(type_of((V59))==t_cons){
  568.     goto T246;}
  569.     {object V60 = Cnil;
  570.     VMR14(V60)}
  571. T246:;{object V61;
  572.     if((car((V59)))==(VV[17])){
  573.     goto T250;}
  574.     V61= Cnil;
  575.     goto T249;
  576. T250:;
  577.     V62= structure_ref(cadr((V59)),VV[17],1);
  578.     V61= ((/* INLINE-ARGS */V62)==(VV[20])?Ct:Cnil);
  579. T249:;
  580.     if(V61==Cnil)goto T248;
  581.     {object V63 = V61;
  582.     VMR14(V63)}
  583. T248:;}
  584.     if(!((car((V59)))==(VV[21]))){
  585.     goto T252;}
  586.     {object V64 = Ct;
  587.     VMR14(V64)}
  588. T252:;
  589.     {object V65 = ((car((V59)))==(VV[22])?Ct:Cnil);
  590.     VMR14(V65)}
  591. }
  592. /*    local entry for function WT-FIXNUM-VALUE    */
  593.  
  594. static object LI15(V68,V69)
  595.  
  596. object V68;object V69;
  597. {     VMB15 VMS15 VMV15
  598. TTL:;
  599.     if(((V68))==Cnil){
  600.     goto T255;}
  601.     princ_str("VV[",VV[0]);
  602.     (void)((*(LnkLI36))((V68)));
  603.     princ_char(93,VV[0]);
  604.     {object V70 = Cnil;
  605.     VMR15(V70)}
  606. T255:;
  607.     princ_str("small_fixnum(",VV[0]);
  608.     (void)((*(LnkLI36))((V69)));
  609.     princ_char(41,VV[0]);
  610.     {object V71 = Cnil;
  611.     VMR15(V71)}
  612. }
  613. /*    function definition for WT-CHARACTER-LOC    */
  614.  
  615. static L16()
  616. {register object *base=vs_base;
  617.     register object *sup=base+VM16; VC16
  618.     vs_reserve(VM16);
  619.     {register object V72;
  620.     check_arg(1);
  621.     V72=(base[0]);
  622.     vs_top=sup;
  623. TTL:;
  624.     if(!(type_of((V72))==t_cons)){
  625.     goto T264;}
  626.     if(!((car((V72)))==(VV[17]))){
  627.     goto T264;}
  628.     V73= structure_ref(cadr((V72)),VV[17],1);
  629.     if(!((/* INLINE-ARGS */V73)==(VV[25]))){
  630.     goto T264;}
  631.     princ_char(86,VV[0]);
  632.     V74= structure_ref(cadr((V72)),VV[17],4);
  633.     (void)((*(LnkLI36))(/* INLINE-ARGS */V74));
  634.     base[1]= Cnil;
  635.     vs_top=(vs_base=base+1)+1;
  636.     return;
  637. T264:;
  638.     if(!(type_of((V72))==t_cons)){
  639.     goto T273;}
  640.     if(!((car((V72)))==(VV[26]))){
  641.     goto T273;}
  642.     base[1]= caddr((V72));
  643.     base[2]= cadddr((V72));
  644.     vs_top=(vs_base=base+1)+2;
  645.     (void) (*Lnk45)();
  646.     return;
  647. T273:;
  648.     if(!(type_of((V72))==t_cons)){
  649.     goto T280;}
  650.     if(!((car((V72)))==(VV[27]))){
  651.     goto T280;}
  652.     (void)((*(LnkLI36))(caddr((V72))));
  653.     base[1]= Cnil;
  654.     vs_top=(vs_base=base+1)+1;
  655.     return;
  656. T280:;
  657.     princ_str("char_code(",VV[0]);
  658.     (void)((*(LnkLI36))((V72)));
  659.     princ_char(41,VV[0]);
  660.     base[1]= Cnil;
  661.     vs_top=(vs_base=base+1)+1;
  662.     return;
  663.     }
  664. }
  665. /*    local entry for function CHARACTER-LOC-P    */
  666.  
  667. static object LI17(V76)
  668.  
  669. register object V76;
  670. {     VMB17 VMS17 VMV17
  671. TTL:;
  672.     if(type_of((V76))==t_cons){
  673.     goto T288;}
  674.     {object V77 = Cnil;
  675.     VMR17(V77)}
  676. T288:;{object V78;
  677.     if((car((V76)))==(VV[17])){
  678.     goto T292;}
  679.     V78= Cnil;
  680.     goto T291;
  681. T292:;
  682.     V79= structure_ref(cadr((V76)),VV[17],1);
  683.     V78= ((/* INLINE-ARGS */V79)==(VV[25])?Ct:Cnil);
  684. T291:;
  685.     if(V78==Cnil)goto T290;
  686.     {object V80 = V78;
  687.     VMR17(V80)}
  688. T290:;}
  689.     if(!((car((V76)))==(VV[26]))){
  690.     goto T294;}
  691.     {object V81 = Ct;
  692.     VMR17(V81)}
  693. T294:;
  694.     {object V82 = ((car((V76)))==(VV[27])?Ct:Cnil);
  695.     VMR17(V82)}
  696. }
  697. /*    local entry for function WT-CHARACTER-VALUE    */
  698.  
  699. static object LI18(V85,V86)
  700.  
  701. object V85;object V86;
  702. {     VMB18 VMS18 VMV18
  703. TTL:;
  704.     princ_str("VV[",VV[0]);
  705.     (void)((*(LnkLI36))((V85)));
  706.     princ_char(93,VV[0]);
  707.     {object V87 = Cnil;
  708.     VMR18(V87)}
  709. }
  710. /*    function definition for WT-LONG-FLOAT-LOC    */
  711.  
  712. static L19()
  713. {register object *base=vs_base;
  714.     register object *sup=base+VM19; VC19
  715.     vs_reserve(VM19);
  716.     {register object V88;
  717.     check_arg(1);
  718.     V88=(base[0]);
  719.     vs_top=sup;
  720. TTL:;
  721.     if(!(type_of((V88))==t_cons)){
  722.     goto T300;}
  723.     if(!((car((V88)))==(VV[17]))){
  724.     goto T300;}
  725.     V89= structure_ref(cadr((V88)),VV[17],1);
  726.     if(!((/* INLINE-ARGS */V89)==(VV[28]))){
  727.     goto T300;}
  728.     princ_char(86,VV[0]);
  729.     V90= structure_ref(cadr((V88)),VV[17],4);
  730.     (void)((*(LnkLI36))(/* INLINE-ARGS */V90));
  731.     base[1]= Cnil;
  732.     vs_top=(vs_base=base+1)+1;
  733.     return;
  734. T300:;
  735.     if(!(type_of((V88))==t_cons)){
  736.     goto T309;}
  737.     if(!((car((V88)))==(VV[29]))){
  738.     goto T309;}
  739.     base[1]= caddr((V88));
  740.     base[2]= cadddr((V88));
  741.     vs_top=(vs_base=base+1)+2;
  742.     (void) (*Lnk45)();
  743.     return;
  744. T309:;
  745.     if(!(type_of((V88))==t_cons)){
  746.     goto T316;}
  747.     if(!((car((V88)))==(VV[30]))){
  748.     goto T316;}
  749.     (void)((*(LnkLI36))(caddr((V88))));
  750.     base[1]= Cnil;
  751.     vs_top=(vs_base=base+1)+1;
  752.     return;
  753. T316:;
  754.     princ_str("lf(",VV[0]);
  755.     (void)((*(LnkLI36))((V88)));
  756.     princ_char(41,VV[0]);
  757.     base[1]= Cnil;
  758.     vs_top=(vs_base=base+1)+1;
  759.     return;
  760.     }
  761. }
  762. /*    local entry for function LONG-FLOAT-LOC-P    */
  763.  
  764. static object LI20(V92)
  765.  
  766. register object V92;
  767. {     VMB20 VMS20 VMV20
  768. TTL:;
  769.     if(type_of((V92))==t_cons){
  770.     goto T324;}
  771.     {object V93 = Cnil;
  772.     VMR20(V93)}
  773. T324:;{object V94;
  774.     if((car((V92)))==(VV[17])){
  775.     goto T328;}
  776.     V94= Cnil;
  777.     goto T327;
  778. T328:;
  779.     V95= structure_ref(cadr((V92)),VV[17],1);
  780.     V94= ((/* INLINE-ARGS */V95)==(VV[28])?Ct:Cnil);
  781. T327:;
  782.     if(V94==Cnil)goto T326;
  783.     {object V96 = V94;
  784.     VMR20(V96)}
  785. T326:;}
  786.     if(!((car((V92)))==(VV[29]))){
  787.     goto T330;}
  788.     {object V97 = Ct;
  789.     VMR20(V97)}
  790. T330:;
  791.     {object V98 = ((car((V92)))==(VV[30])?Ct:Cnil);
  792.     VMR20(V98)}
  793. }
  794. /*    local entry for function WT-LONG-FLOAT-VALUE    */
  795.  
  796. static object LI21(V101,V102)
  797.  
  798. object V101;object V102;
  799. {     VMB21 VMS21 VMV21
  800. TTL:;
  801.     princ_str("VV[",VV[0]);
  802.     (void)((*(LnkLI36))((V101)));
  803.     princ_char(93,VV[0]);
  804.     {object V103 = Cnil;
  805.     VMR21(V103)}
  806. }
  807. /*    function definition for WT-SHORT-FLOAT-LOC    */
  808.  
  809. static L22()
  810. {register object *base=vs_base;
  811.     register object *sup=base+VM22; VC22
  812.     vs_reserve(VM22);
  813.     {register object V104;
  814.     check_arg(1);
  815.     V104=(base[0]);
  816.     vs_top=sup;
  817. TTL:;
  818.     if(!(type_of((V104))==t_cons)){
  819.     goto T336;}
  820.     if(!((car((V104)))==(VV[17]))){
  821.     goto T336;}
  822.     V105= structure_ref(cadr((V104)),VV[17],1);
  823.     if(!((/* INLINE-ARGS */V105)==(VV[31]))){
  824.     goto T336;}
  825.     princ_char(86,VV[0]);
  826.     V106= structure_ref(cadr((V104)),VV[17],4);
  827.     (void)((*(LnkLI36))(/* INLINE-ARGS */V106));
  828.     base[1]= Cnil;
  829.     vs_top=(vs_base=base+1)+1;
  830.     return;
  831. T336:;
  832.     if(!(type_of((V104))==t_cons)){
  833.     goto T345;}
  834.     if(!((car((V104)))==(VV[32]))){
  835.     goto T345;}
  836.     base[1]= caddr((V104));
  837.     base[2]= cadddr((V104));
  838.     vs_top=(vs_base=base+1)+2;
  839.     (void) (*Lnk45)();
  840.     return;
  841. T345:;
  842.     if(!(type_of((V104))==t_cons)){
  843.     goto T352;}
  844.     if(!((car((V104)))==(VV[33]))){
  845.     goto T352;}
  846.     (void)((*(LnkLI36))(caddr((V104))));
  847.     base[1]= Cnil;
  848.     vs_top=(vs_base=base+1)+1;
  849.     return;
  850. T352:;
  851.     princ_str("sf(",VV[0]);
  852.     (void)((*(LnkLI36))((V104)));
  853.     princ_char(41,VV[0]);
  854.     base[1]= Cnil;
  855.     vs_top=(vs_base=base+1)+1;
  856.     return;
  857.     }
  858. }
  859. /*    local entry for function SHORT-FLOAT-LOC-P    */
  860.  
  861. static object LI23(V108)
  862.  
  863. register object V108;
  864. {     VMB23 VMS23 VMV23
  865. TTL:;
  866.     if(type_of((V108))==t_cons){
  867.     goto T360;}
  868.     {object V109 = Cnil;
  869.     VMR23(V109)}
  870. T360:;{object V110;
  871.     if((car((V108)))==(VV[17])){
  872.     goto T364;}
  873.     V110= Cnil;
  874.     goto T363;
  875. T364:;
  876.     V111= structure_ref(cadr((V108)),VV[17],1);
  877.     V110= ((/* INLINE-ARGS */V111)==(VV[31])?Ct:Cnil);
  878. T363:;
  879.     if(V110==Cnil)goto T362;
  880.     {object V112 = V110;
  881.     VMR23(V112)}
  882. T362:;}
  883.     if(!((car((V108)))==(VV[32]))){
  884.     goto T366;}
  885.     {object V113 = Ct;
  886.     VMR23(V113)}
  887. T366:;
  888.     {object V114 = ((car((V108)))==(VV[33])?Ct:Cnil);
  889.     VMR23(V114)}
  890. }
  891. /*    local entry for function WT-SHORT-FLOAT-VALUE    */
  892.  
  893. static object LI24(V117,V118)
  894.  
  895. object V117;object V118;
  896. {     VMB24 VMS24 VMV24
  897. TTL:;
  898.     princ_str("VV[",VV[0]);
  899.     (void)((*(LnkLI36))((V117)));
  900.     princ_char(93,VV[0]);
  901.     {object V119 = Cnil;
  902.     VMR24(V119)}
  903. }
  904. static object  LnkTLI48(){return call_proc0(VV[48],&LnkLI48);} /* WFS-ERROR */
  905. static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* WT-INLINE-LOC */
  906. static object  LnkTLI44(){return call_proc0(VV[44],&LnkLI44);} /* VS-PUSH */
  907. static object  LnkTLI43(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[43],&LnkLI43,1,ap);} /* WT-VS */
  908. static object  LnkTLI42(){return call_proc0(VV[42],&LnkLI42);} /* BABOON */
  909. static LnkT41(){ call_or_link(VV[41],&Lnk41);} /* SET-RETURN-SHORT-FLOAT */
  910. static LnkT40(){ call_or_link(VV[40],&Lnk40);} /* SET-RETURN-LONG-FLOAT */
  911. static LnkT39(){ call_or_link(VV[39],&Lnk39);} /* SET-RETURN-CHARACTER */
  912. static LnkT38(){ call_or_link(VV[38],&Lnk38);} /* SET-RETURN-FIXNUM */
  913. static object  LnkTLI37(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[37],&LnkLI37,1,ap);} /* SET-TOP */
  914. static object  LnkTLI36(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[36],&LnkLI36,1,ap);} /* WT1 */
  915. static LnkT35(){ call_or_link(VV[35],&Lnk35);} /* WT-INLINE */
  916. static object  LnkTLI34(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[34],&LnkLI34,1,ap);} /* SET-RETURN */
  917.