/[gcl]/gcl/lsp/listlib.c
ViewVC logotype

Diff of /gcl/lsp/listlib.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by camm, Fri Jan 24 18:38:28 2003 UTC revision 1.7 by camm, Sun Feb 9 22:35:15 2003 UTC
# Line 44  T14:; Line 44  T14:;
44  }  }
45  /*      local entry for function UNION  */  /*      local entry for function UNION  */
46    
47  static object LI2(V12,V11,va_alist)  static object LI2(object V12,object V11,object first,...)
         object V12,V11;  
         va_dcl  
48  {        {      
49          va_list ap;          va_list ap;
50          int narg = VFUN_NARGS; VMB2 VMS2 VMV2          int narg = VFUN_NARGS; VMB2 VMS2 VMV2
# Line 56  static object LI2(V12,V11,va_alist) Line 54  static object LI2(V12,V11,va_alist)
54          register object V16;          register object V16;
55          register object V17;          register object V17;
56          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
57          va_start(ap);          va_start(ap,first);
58          V13= V12;          V13= V12;
59          V14= V11;          V14= V11;
60          narg= narg - 2;          narg= narg - 2;
61          {          {
62          parse_key_new(narg,Vcs +2,(struct key *)&LI2key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI2key,first,ap);
63          V15=(Vcs[2]);          V15=(Vcs[2]);
64          V16=(Vcs[3]);          V16=(Vcs[3]);
65          V17=(Vcs[4]);          V17=(Vcs[4]);
# Line 137  T35:; Line 135  T35:;
135          }}          }}
136  /*      local entry for function NUNION */  /*      local entry for function NUNION */
137    
138  static object LI3(V26,V25,va_alist)  static object LI3(object V26,object V25,object first,...)
         object V26,V25;  
         va_dcl  
139  {        {      
140          va_list ap;          va_list ap;
141          int narg = VFUN_NARGS; VMB3 VMS3 VMV3          int narg = VFUN_NARGS; VMB3 VMS3 VMV3
# Line 149  static object LI3(V26,V25,va_alist) Line 145  static object LI3(V26,V25,va_alist)
145          register object V30;          register object V30;
146          register object V31;          register object V31;
147          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
148          va_start(ap);          va_start(ap,first);
149          V27= V26;          V27= V26;
150          V28= V25;          V28= V25;
151          narg= narg - 2;          narg= narg - 2;
152          {          {
153          parse_key_new(narg,Vcs +2,(struct key *)&LI3key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI3key,first,ap);
154          V29=(Vcs[2]);          V29=(Vcs[2]);
155          V30=(Vcs[3]);          V30=(Vcs[3]);
156          V31=(Vcs[4]);          V31=(Vcs[4]);
# Line 230  T70:; Line 226  T70:;
226          }}          }}
227  /*      local entry for function INTERSECTION   */  /*      local entry for function INTERSECTION   */
228    
229  static object LI4(V39,V38,va_alist)  static object LI4(object V39,object V38,object first,...)
         object V39,V38;  
         va_dcl  
230  {        {      
231          va_list ap;          va_list ap;
232          int narg = VFUN_NARGS; VMB4 VMS4 VMV4          int narg = VFUN_NARGS; VMB4 VMS4 VMV4
# Line 242  static object LI4(V39,V38,va_alist) Line 236  static object LI4(V39,V38,va_alist)
236          register object V43;          register object V43;
237          register object V44;          register object V44;
238          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
239          va_start(ap);          va_start(ap,first);
240          V40= V39;          V40= V39;
241          V41= V38;          V41= V38;
242          narg= narg - 2;          narg= narg - 2;
243          {          {
244          parse_key_new(narg,Vcs +2,(struct key *)&LI4key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI4key,first,ap);
245          V42=(Vcs[2]);          V42=(Vcs[2]);
246          V43=(Vcs[3]);          V43=(Vcs[3]);
247          V44=(Vcs[4]);          V44=(Vcs[4]);
# Line 304  T99:; Line 298  T99:;
298          }}          }}
299  /*      local entry for function NINTERSECTION  */  /*      local entry for function NINTERSECTION  */
300    
301  static object LI5(V50,V49,va_alist)  static object LI5(object V50,object V49,object first,...)
         object V50,V49;  
         va_dcl  
302  {        {      
303          va_list ap;          va_list ap;
304          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          int narg = VFUN_NARGS; VMB5 VMS5 VMV5
# Line 316  static object LI5(V50,V49,va_alist) Line 308  static object LI5(V50,V49,va_alist)
308          register object V54;          register object V54;
309          register object V55;          register object V55;
310          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
311          va_start(ap);          va_start(ap,first);
312          V51= V50;          V51= V50;
313          V52= V49;          V52= V49;
314          narg= narg - 2;          narg= narg - 2;
315          {          {
316          parse_key_new(narg,Vcs +2,(struct key *)&LI5key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI5key,first,ap);
317          V53=(Vcs[2]);          V53=(Vcs[2]);
318          V54=(Vcs[3]);          V54=(Vcs[3]);
319          V55=(Vcs[4]);          V55=(Vcs[4]);
# Line 394  T127:; Line 386  T127:;
386          }}          }}
387  /*      local entry for function SET-DIFFERENCE */  /*      local entry for function SET-DIFFERENCE */
388    
389  static object LI6(V62,V61,va_alist)  static object LI6(object V62,object V61,object first,...)
         object V62,V61;  
         va_dcl  
390  {        {      
391          va_list ap;          va_list ap;
392          int narg = VFUN_NARGS; VMB6 VMS6 VMV6          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
# Line 406  static object LI6(V62,V61,va_alist) Line 396  static object LI6(V62,V61,va_alist)
396          register object V66;          register object V66;
397          register object V67;          register object V67;
398          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
399          va_start(ap);          va_start(ap,first);
400          V63= V62;          V63= V62;
401          V64= V61;          V64= V61;
402          narg= narg - 2;          narg= narg - 2;
403          {          {
404          parse_key_new(narg,Vcs +2,(struct key *)&LI6key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI6key,first,ap);
405          V65=(Vcs[2]);          V65=(Vcs[2]);
406          V66=(Vcs[3]);          V66=(Vcs[3]);
407          V67=(Vcs[4]);          V67=(Vcs[4]);
# Line 538  T180:; Line 528  T180:;
528  }  }
529  /*      local entry for function NSET-DIFFERENCE        */  /*      local entry for function NSET-DIFFERENCE        */
530    
531  static object LI8(V81,V80,va_alist)  static object LI8(object V81,object V80,object first,...)
         object V81,V80;  
         va_dcl  
532  {        {      
533          va_list ap;          va_list ap;
534          int narg = VFUN_NARGS; VMB8 VMS8 VMV8          int narg = VFUN_NARGS; VMB8 VMS8 VMV8
# Line 550  static object LI8(V81,V80,va_alist) Line 538  static object LI8(V81,V80,va_alist)
538          register object V85;          register object V85;
539          register object V86;          register object V86;
540          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
541          va_start(ap);          va_start(ap,first);
542          V82= V81;          V82= V81;
543          V83= V80;          V83= V80;
544          narg= narg - 2;          narg= narg - 2;
545          {          {
546          parse_key_new(narg,Vcs +2,(struct key *)&LI8key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI8key,first,ap);
547          V84=(Vcs[2]);          V84=(Vcs[2]);
548          V85=(Vcs[3]);          V85=(Vcs[3]);
549          V86=(Vcs[4]);          V86=(Vcs[4]);
# Line 714  T243:; Line 702  T243:;
702  }  }
703  /*      local entry for function SET-EXCLUSIVE-OR       */  /*      local entry for function SET-EXCLUSIVE-OR       */
704    
705  static object LI10(V102,V101,va_alist)  static object LI10(object V102,object V101,object first,...)
         object V102,V101;  
         va_dcl  
706  {        {      
707          va_list ap;          va_list ap;
708          int narg = VFUN_NARGS; VMB10 VMS10 VMV10          int narg = VFUN_NARGS; VMB10 VMS10 VMV10
# Line 726  static object LI10(V102,V101,va_alist) Line 712  static object LI10(V102,V101,va_alist)
712          object V106;          object V106;
713          object V107;          object V107;
714          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
715          va_start(ap);          va_start(ap,first);
716          V103= V102;          V103= V102;
717          V104= V101;          V104= V101;
718          narg= narg - 2;          narg= narg - 2;
719          {          {
720          parse_key_new(narg,Vcs +2,(struct key *)&LI10key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI10key,first,ap);
721          V105=(Vcs[2]);          V105=(Vcs[2]);
722          V106=(Vcs[3]);          V106=(Vcs[3]);
723          V107=(Vcs[4]);          V107=(Vcs[4]);
# Line 777  static object LI10(V102,V101,va_alist) Line 763  static object LI10(V102,V101,va_alist)
763          }}          }}
764  /*      local entry for function NSET-EXCLUSIVE-OR      */  /*      local entry for function NSET-EXCLUSIVE-OR      */
765    
766  static object LI11(V114,V113,va_alist)  static object LI11(object V114,object V113,object first,...)
         object V114,V113;  
         va_dcl  
767  {        {      
768          va_list ap;          va_list ap;
769          int narg = VFUN_NARGS; VMB11 VMS11 VMV11          int narg = VFUN_NARGS; VMB11 VMS11 VMV11
# Line 789  static object LI11(V114,V113,va_alist) Line 773  static object LI11(V114,V113,va_alist)
773          register object V118;          register object V118;
774          register object V119;          register object V119;
775          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
776          va_start(ap);          va_start(ap,first);
777          V115= V114;          V115= V114;
778          V116= V113;          V116= V113;
779          narg= narg - 2;          narg= narg - 2;
780          {          {
781          parse_key_new(narg,Vcs +2,(struct key *)&LI11key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI11key,first,ap);
782          V117=(Vcs[2]);          V117=(Vcs[2]);
783          V118=(Vcs[3]);          V118=(Vcs[3]);
784          V119=(Vcs[4]);          V119=(Vcs[4]);
# Line 924  T311:; Line 908  T311:;
908          }}          }}
909  /*      local entry for function SUBSETP        */  /*      local entry for function SUBSETP        */
910    
911  static object LI12(V132,V131,va_alist)  static object LI12(object V132,object V131,object first,...)
         object V132,V131;  
         va_dcl  
912  {        {      
913          va_list ap;          va_list ap;
914          int narg = VFUN_NARGS; VMB12 VMS12 VMV12          int narg = VFUN_NARGS; VMB12 VMS12 VMV12
# Line 936  static object LI12(V132,V131,va_alist) Line 918  static object LI12(V132,V131,va_alist)
918          register object V136;          register object V136;
919          register object V137;          register object V137;
920          Vcs[0]=Vcs[0];          Vcs[0]=Vcs[0];
921          va_start(ap);          va_start(ap,first);
922          V133= V132;          V133= V132;
923          V134= V131;          V134= V131;
924          narg= narg - 2;          narg= narg - 2;
925          {          {
926          parse_key_new(narg,Vcs +2,(struct key *)&LI12key,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)&LI12key,first,ap);
927          V135=(Vcs[2]);          V135=(Vcs[2]);
928          V136=(Vcs[3]);          V136=(Vcs[3]);
929          V137=(Vcs[4]);          V137=(Vcs[4]);

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

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