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 / listlib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  10.4 KB  |  610 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "listlib.h"
  4. init_listlib(){do_init(VV);}
  5. /*    local entry for function UNION    */
  6.  
  7. static object LI1(V2,V1,va_alist)
  8.     object V2,V1;
  9.     va_dcl 
  10. {    
  11.     va_list ap;
  12.     int narg = VFUN_NARGS; VMB1 VMS1 VMV1
  13.     {object V3;
  14.     register object V4;
  15.     register object V5;
  16.     V3= V2;
  17.     V4= V1;
  18.     narg= narg - 2;
  19.     va_start(ap);
  20.     V6 = list_vector(narg,ap);
  21.     V5= V6;
  22.     {register object V7;
  23.     register object V8;
  24.     V7= Cnil;
  25.     V8= Cnil;
  26.     {register object V9;
  27.     V9= (V3);
  28. T4:;
  29.     if(((V9))!=Cnil){
  30.     goto T5;}
  31.     if(((V8))==Cnil){
  32.     goto T8;}
  33.     ((V8))->c.c_cdr = (V4);
  34. T8:;
  35.     if((V7)!=Cnil){
  36.     {object V10 = (V7);
  37.     VMR1(V10)}}
  38.     {object V11 = (V4);
  39.     VMR1(V11)}
  40. T5:;
  41.     if(!(type_of((V9))==t_cons)){
  42.     goto T13;}
  43.     goto T12;
  44. T13:;
  45.     base[0]= VV[0];
  46.     vs_top=(vs_base=base+0)+1;
  47.     Lerror();
  48.     vs_top=sup;
  49. T12:;
  50.     base[0]=VV[8]->s.s_gfdef;
  51.     base[1]= CMPcar((V9));
  52.     base[2]= (V4);
  53.     {object V12;
  54.     V12= (V5);
  55.      vs_top=base+3;
  56.      while(V12!=Cnil)
  57.      {vs_push((V12)->c.c_car);V12=(V12)->c.c_cdr;}
  58.     vs_base=base+1;}
  59.     (void) (*Lnk8)();
  60.     vs_top=sup;
  61.     if((vs_base[0])!=Cnil){
  62.     goto T16;}
  63.     if(((V8))==Cnil){
  64.     goto T23;}
  65.     V13= make_cons(CMPcar((V9)),Cnil);
  66.     ((V8))->c.c_cdr = /* INLINE-ARGS */V13;
  67.     V8= CMPcdr((V8));
  68.     goto T16;
  69. T23:;
  70.     V7= make_cons(CMPcar((V9)),Cnil);
  71.     V8= (V7);
  72. T16:;
  73.     V9= CMPcdr((V9));
  74.     goto T4;}}}
  75.     }
  76. /*    local entry for function NUNION    */
  77.  
  78. static object LI2(V15,V14,va_alist)
  79.     object V15,V14;
  80.     va_dcl 
  81. {    
  82.     va_list ap;
  83.     int narg = VFUN_NARGS; VMB2 VMS2 VMV2
  84.     {object V16;
  85.     register object V17;
  86.     register object V18;
  87.     V16= V15;
  88.     V17= V14;
  89.     narg= narg - 2;
  90.     va_start(ap);
  91.     V19 = list_vector(narg,ap);
  92.     V18= V19;
  93.     {register object V20;
  94.     register object V21;
  95.     V20= Cnil;
  96.     V21= Cnil;
  97.     {register object V22;
  98.     V22= (V16);
  99. T36:;
  100.     if(((V22))!=Cnil){
  101.     goto T37;}
  102.     if(((V21))==Cnil){
  103.     goto T40;}
  104.     ((V21))->c.c_cdr = (V17);
  105. T40:;
  106.     if((V20)!=Cnil){
  107.     {object V23 = (V20);
  108.     VMR2(V23)}}
  109.     {object V24 = (V17);
  110.     VMR2(V24)}
  111. T37:;
  112.     if(!(type_of((V22))==t_cons)){
  113.     goto T45;}
  114.     goto T44;
  115. T45:;
  116.     base[0]= VV[1];
  117.     vs_top=(vs_base=base+0)+1;
  118.     Lerror();
  119.     vs_top=sup;
  120. T44:;
  121.     base[0]=VV[8]->s.s_gfdef;
  122.     base[1]= CMPcar((V22));
  123.     base[2]= (V17);
  124.     {object V25;
  125.     V25= (V18);
  126.      vs_top=base+3;
  127.      while(V25!=Cnil)
  128.      {vs_push((V25)->c.c_car);V25=(V25)->c.c_cdr;}
  129.     vs_base=base+1;}
  130.     (void) (*Lnk8)();
  131.     vs_top=sup;
  132.     if((vs_base[0])!=Cnil){
  133.     goto T48;}
  134.     if(((V21))==Cnil){
  135.     goto T56;}
  136.     ((V21))->c.c_cdr = (V22);
  137.     goto T54;
  138. T56:;
  139.     V20= (V22);
  140. T54:;
  141.     V21= (V22);
  142. T48:;
  143.     V22= CMPcdr((V22));
  144.     goto T36;}}}
  145.     }
  146. /*    local entry for function INTERSECTION    */
  147.  
  148. static object LI3(V27,V26,va_alist)
  149.     object V27,V26;
  150.     va_dcl 
  151. {    
  152.     va_list ap;
  153.     int narg = VFUN_NARGS; VMB3 VMS3 VMV3
  154.     {object V28;
  155.     register object V29;
  156.     register object V30;
  157.     V28= V27;
  158.     V29= V26;
  159.     narg= narg - 2;
  160.     va_start(ap);
  161.     V31 = list_vector(narg,ap);
  162.     V30= V31;
  163.     {register object V32;
  164.     V32= Cnil;
  165.     {register object V33;
  166.     V33= (V28);
  167. T65:;
  168.     if(((V33))!=Cnil){
  169.     goto T66;}
  170.     {object V34 = (V32);
  171.     VMR3(V34)}
  172. T66:;
  173.     if(!(type_of((V33))==t_cons)){
  174.     goto T71;}
  175.     goto T70;
  176. T71:;
  177.     base[0]= VV[2];
  178.     vs_top=(vs_base=base+0)+1;
  179.     Lerror();
  180.     vs_top=sup;
  181. T70:;
  182.     base[0]=VV[8]->s.s_gfdef;
  183.     base[1]= CMPcar((V33));
  184.     base[2]= (V29);
  185.     {object V35;
  186.     V35= (V30);
  187.      vs_top=base+3;
  188.      while(V35!=Cnil)
  189.      {vs_push((V35)->c.c_car);V35=(V35)->c.c_cdr;}
  190.     vs_base=base+1;}
  191.     (void) (*Lnk8)();
  192.     vs_top=sup;
  193.     if((vs_base[0])==Cnil){
  194.     goto T74;}
  195.     V32= make_cons(CMPcar((V33)),(V32));
  196. T74:;
  197.     V33= CMPcdr((V33));
  198.     goto T65;}}}
  199.     }
  200. /*    local entry for function NINTERSECTION    */
  201.  
  202. static object LI4(V37,V36,va_alist)
  203.     object V37,V36;
  204.     va_dcl 
  205. {    
  206.     va_list ap;
  207.     int narg = VFUN_NARGS; VMB4 VMS4 VMV4
  208.     {object V38;
  209.     register object V39;
  210.     register object V40;
  211.     V38= V37;
  212.     V39= V36;
  213.     narg= narg - 2;
  214.     va_start(ap);
  215.     V41 = list_vector(narg,ap);
  216.     V40= V41;
  217.     {register object V42;
  218.     register object V43;
  219.     V42= Cnil;
  220.     V43= Cnil;
  221.     {register object V44;
  222.     V44= (V38);
  223. T87:;
  224.     if(((V44))!=Cnil){
  225.     goto T88;}
  226.     if(((V43))==Cnil){
  227.     goto T91;}
  228.     ((V43))->c.c_cdr = Cnil;
  229. T91:;
  230.     {object V45 = (V42);
  231.     VMR4(V45)}
  232. T88:;
  233.     if(!(type_of((V44))==t_cons)){
  234.     goto T96;}
  235.     goto T95;
  236. T96:;
  237.     base[0]= VV[3];
  238.     vs_top=(vs_base=base+0)+1;
  239.     Lerror();
  240.     vs_top=sup;
  241. T95:;
  242.     base[0]=VV[8]->s.s_gfdef;
  243.     base[1]= CMPcar((V44));
  244.     base[2]= (V39);
  245.     {object V46;
  246.     V46= (V40);
  247.      vs_top=base+3;
  248.      while(V46!=Cnil)
  249.      {vs_push((V46)->c.c_car);V46=(V46)->c.c_cdr;}
  250.     vs_base=base+1;}
  251.     (void) (*Lnk8)();
  252.     vs_top=sup;
  253.     if((vs_base[0])==Cnil){
  254.     goto T99;}
  255.     if(((V43))==Cnil){
  256.     goto T107;}
  257.     ((V43))->c.c_cdr = (V44);
  258.     goto T105;
  259. T107:;
  260.     V42= (V44);
  261. T105:;
  262.     V43= (V44);
  263. T99:;
  264.     V44= CMPcdr((V44));
  265.     goto T87;}}}
  266.     }
  267. /*    local entry for function SET-DIFFERENCE    */
  268.  
  269. static object LI5(V48,V47,va_alist)
  270.     object V48,V47;
  271.     va_dcl 
  272. {    
  273.     va_list ap;
  274.     int narg = VFUN_NARGS; VMB5 VMS5 VMV5
  275.     {object V49;
  276.     register object V50;
  277.     register object V51;
  278.     V49= V48;
  279.     V50= V47;
  280.     narg= narg - 2;
  281.     va_start(ap);
  282.     V52 = list_vector(narg,ap);
  283.     V51= V52;
  284.     {register object V53;
  285.     V53= Cnil;
  286.     {register object V54;
  287.     V54= (V49);
  288. T116:;
  289.     if(((V54))!=Cnil){
  290.     goto T117;}
  291.     {object V55 = (V53);
  292.     VMR5(V55)}
  293. T117:;
  294.     if(!(type_of((V54))==t_cons)){
  295.     goto T122;}
  296.     goto T121;
  297. T122:;
  298.     base[0]= VV[4];
  299.     vs_top=(vs_base=base+0)+1;
  300.     Lerror();
  301.     vs_top=sup;
  302. T121:;
  303.     base[0]=VV[8]->s.s_gfdef;
  304.     base[1]= CMPcar((V54));
  305.     base[2]= (V50);
  306.     {object V56;
  307.     V56= (V51);
  308.      vs_top=base+3;
  309.      while(V56!=Cnil)
  310.      {vs_push((V56)->c.c_car);V56=(V56)->c.c_cdr;}
  311.     vs_base=base+1;}
  312.     (void) (*Lnk8)();
  313.     vs_top=sup;
  314.     if((vs_base[0])!=Cnil){
  315.     goto T125;}
  316.     V53= make_cons(CMPcar((V54)),(V53));
  317. T125:;
  318.     V54= CMPcdr((V54));
  319.     goto T116;}}}
  320.     }
  321. /*    local entry for function NSET-DIFFERENCE    */
  322.  
  323. static object LI6(V58,V57,va_alist)
  324.     object V58,V57;
  325.     va_dcl 
  326. {    
  327.     va_list ap;
  328.     int narg = VFUN_NARGS; VMB6 VMS6 VMV6
  329.     {object V59;
  330.     register object V60;
  331.     register object V61;
  332.     V59= V58;
  333.     V60= V57;
  334.     narg= narg - 2;
  335.     va_start(ap);
  336.     V62 = list_vector(narg,ap);
  337.     V61= V62;
  338.     {register object V63;
  339.     register object V64;
  340.     V63= Cnil;
  341.     V64= Cnil;
  342.     {register object V65;
  343.     V65= (V59);
  344. T138:;
  345.     if(((V65))!=Cnil){
  346.     goto T139;}
  347.     if(((V64))==Cnil){
  348.     goto T142;}
  349.     ((V64))->c.c_cdr = Cnil;
  350. T142:;
  351.     {object V66 = (V63);
  352.     VMR6(V66)}
  353. T139:;
  354.     if(!(type_of((V65))==t_cons)){
  355.     goto T147;}
  356.     goto T146;
  357. T147:;
  358.     base[0]= VV[5];
  359.     vs_top=(vs_base=base+0)+1;
  360.     Lerror();
  361.     vs_top=sup;
  362. T146:;
  363.     base[0]=VV[8]->s.s_gfdef;
  364.     base[1]= CMPcar((V65));
  365.     base[2]= (V60);
  366.     {object V67;
  367.     V67= (V61);
  368.      vs_top=base+3;
  369.      while(V67!=Cnil)
  370.      {vs_push((V67)->c.c_car);V67=(V67)->c.c_cdr;}
  371.     vs_base=base+1;}
  372.     (void) (*Lnk8)();
  373.     vs_top=sup;
  374.     if((vs_base[0])!=Cnil){
  375.     goto T150;}
  376.     if(((V64))==Cnil){
  377.     goto T158;}
  378.     ((V64))->c.c_cdr = (V65);
  379.     goto T156;
  380. T158:;
  381.     V63= (V65);
  382. T156:;
  383.     V64= (V65);
  384. T150:;
  385.     V65= CMPcdr((V65));
  386.     goto T138;}}}
  387.     }
  388. /*    local entry for function SET-EXCLUSIVE-OR    */
  389.  
  390. static object LI7(V69,V68,va_alist)
  391.     object V69,V68;
  392.     va_dcl 
  393. {    
  394.     va_list ap;
  395.     int narg = VFUN_NARGS; VMB7 VMS7 VMV7
  396.     {object V70;
  397.     object V71;
  398.     object V72;
  399.     object V73;
  400.     object V74;
  401.     object V75;
  402.     V70= V69;
  403.     V71= V68;
  404.     narg= narg - 2;
  405.     va_start(ap);
  406.     V76 = make_list(narg);
  407.     V72= V76;
  408.     {
  409.     parse_key_rest(V76,narg,Vcs +3,&LI7key,ap);
  410.     V73=(Vcs[3]);
  411.     V74=(Vcs[4]);
  412.     V75=(Vcs[5]);
  413.     base[0]= (V70);
  414.     base[1]= (V71);
  415.     {object V78;
  416.     V78= (V72);
  417.      vs_top=base+2;
  418.      while(V78!=Cnil)
  419.      {vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;}
  420.     vs_base=base+0;}
  421.     (void) (*Lnk12)();
  422.     vs_top=sup;
  423.     V77= vs_base[0];
  424.     base[0]= (V71);
  425.     base[1]= (V70);
  426.     {object V80;
  427.     V80= (V72);
  428.      vs_top=base+2;
  429.      while(V80!=Cnil)
  430.      {vs_push((V80)->c.c_car);V80=(V80)->c.c_cdr;}
  431.     vs_base=base+0;}
  432.     (void) (*Lnk12)();
  433.     vs_top=sup;
  434.     V79= vs_base[0];
  435.     {object V81 = nconc(V77,V79);
  436.     VMR7(V81)}}
  437.     }}
  438. /*    local entry for function NSET-EXCLUSIVE-OR    */
  439.  
  440. static object LI8(V83,V82,va_alist)
  441.     object V83,V82;
  442.     va_dcl 
  443. {    
  444.     va_list ap;
  445.     int narg = VFUN_NARGS; VMB8 VMS8 VMV8
  446.     {object V84;
  447.     register object V85;
  448.     register object V86;
  449.     V84= V83;
  450.     V85= V82;
  451.     narg= narg - 2;
  452.     va_start(ap);
  453.     V87 = list_vector(narg,ap);
  454.     V86= V87;
  455.     {object V88;
  456.     register object V89;
  457.     register object V90;
  458.     register object V91;
  459.     V88= Cnil;
  460.     V89= Cnil;
  461.     V90= Cnil;
  462.     V91= Cnil;
  463.     {register object V92;
  464.     V92= (V84);
  465. T178:;
  466.     if(((V92))!=Cnil){
  467.     goto T179;}
  468.     if(((V91))==Cnil){
  469.     goto T182;}
  470.     ((V91))->c.c_cdr = Cnil;
  471. T182:;
  472.     if(((V89))==Cnil){
  473.     goto T186;}
  474.     base[0]= (V85);
  475.     base[1]= (V90);
  476.     {object V94;
  477.     V94= (V86);
  478.      vs_top=base+2;
  479.      while(V94!=Cnil)
  480.      {vs_push((V94)->c.c_car);V94=(V94)->c.c_cdr;}
  481.     vs_base=base+0;}
  482.     (void) (*Lnk13)();
  483.     vs_top=sup;
  484.     V93= vs_base[0];
  485.     ((V89))->c.c_cdr = V93;
  486.     {object V95 = (V88);
  487.     VMR8(V95)}
  488. T186:;
  489.     base[0]= (V85);
  490.     base[1]= (V90);
  491.     {object V96;
  492.     V96= (V86);
  493.      vs_top=base+2;
  494.      while(V96!=Cnil)
  495.      {vs_push((V96)->c.c_car);V96=(V96)->c.c_cdr;}
  496.     vs_base=base+0;}
  497.     (void) (*Lnk13)();
  498.     vs_top=sup;
  499.     {object V97 = vs_base[0];
  500.     VMR8(V97)}
  501. T179:;
  502.     if(!(type_of((V92))==t_cons)){
  503.     goto T198;}
  504.     goto T197;
  505. T198:;
  506.     base[0]= VV[6];
  507.     vs_top=(vs_base=base+0)+1;
  508.     Lerror();
  509.     vs_top=sup;
  510. T197:;
  511.     base[0]=VV[8]->s.s_gfdef;
  512.     base[1]= CMPcar((V92));
  513.     base[2]= (V85);
  514.     {object V98;
  515.     V98= (V86);
  516.      vs_top=base+3;
  517.      while(V98!=Cnil)
  518.      {vs_push((V98)->c.c_car);V98=(V98)->c.c_cdr;}
  519.     vs_base=base+1;}
  520.     (void) (*Lnk8)();
  521.     vs_top=sup;
  522.     if((vs_base[0])==Cnil){
  523.     goto T203;}
  524.     if(((V91))==Cnil){
  525.     goto T210;}
  526.     ((V91))->c.c_cdr = (V92);
  527.     goto T208;
  528. T210:;
  529.     V90= (V92);
  530. T208:;
  531.     V91= (V92);
  532.     goto T201;
  533. T203:;
  534.     if(((V89))==Cnil){
  535.     goto T216;}
  536.     ((V89))->c.c_cdr = (V92);
  537.     goto T214;
  538. T216:;
  539.     V88= (V92);
  540. T214:;
  541.     V89= (V92);
  542. T201:;
  543.     V92= CMPcdr((V92));
  544.     goto T178;}}}
  545.     }
  546. /*    local entry for function SUBSETP    */
  547.  
  548. static object LI9(V100,V99,va_alist)
  549.     object V100,V99;
  550.     va_dcl 
  551. {    
  552.     va_list ap;
  553.     int narg = VFUN_NARGS; VMB9 VMS9 VMV9
  554.     {object V101;
  555.     register object V102;
  556.     register object V103;
  557.     object V104;
  558.     object V105;
  559.     object V106;
  560.     V101= V100;
  561.     V102= V99;
  562.     narg= narg - 2;
  563.     va_start(ap);
  564.     V107 = make_list(narg);
  565.     V103= V107;
  566.     {
  567.     parse_key_rest(V107,narg,Vcs +3,&LI9key,ap);
  568.     V104=(Vcs[3]);
  569.     V105=(Vcs[4]);
  570.     V106=(Vcs[5]);
  571.     {register object V108;
  572.     V108= (V101);
  573. T224:;
  574.     if(((V108))!=Cnil){
  575.     goto T225;}
  576.     {object V109 = Ct;
  577.     VMR9(V109)}
  578. T225:;
  579.     if(!(type_of((V108))==t_cons)){
  580.     goto T230;}
  581.     goto T229;
  582. T230:;
  583.     base[0]= VV[7];
  584.     vs_top=(vs_base=base+0)+1;
  585.     Lerror();
  586.     vs_top=sup;
  587. T229:;
  588.     base[0]=VV[8]->s.s_gfdef;
  589.     base[1]= CMPcar((V108));
  590.     base[2]= (V102);
  591.     {object V110;
  592.     V110= (V103);
  593.      vs_top=base+3;
  594.      while(V110!=Cnil)
  595.      {vs_push((V110)->c.c_car);V110=(V110)->c.c_cdr;}
  596.     vs_base=base+1;}
  597.     (void) (*Lnk8)();
  598.     vs_top=sup;
  599.     if((vs_base[0])!=Cnil){
  600.     goto T233;}
  601.     {object V111 = Cnil;
  602.     VMR9(V111)}
  603. T233:;
  604.     V108= CMPcdr((V108));
  605.     goto T224;}}
  606.     }}
  607. static LnkT13(){ call_or_link(VV[13],&Lnk13);} /* NSET-DIFFERENCE */
  608. static LnkT12(){ call_or_link(VV[12],&Lnk12);} /* SET-DIFFERENCE */
  609. static LnkT8(){ call_or_link(VV[8],&Lnk8);} /* MEMBER1 */
  610.