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

Diff of /gcl/lsp/seq.c

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

revision 1.13 by camm, Thu Feb 27 00:07:48 2003 UTC revision 1.14 by camm, Tue Jul 15 18:03:38 2003 UTC
# Line 19  static object LI1(object V2,object V1,ob Line 19  static object LI1(object V2,object V1,ob
19          V4= V1;          V4= V1;
20          narg= narg - 2;          narg= narg - 2;
21          {          {
22          parse_key_new_new(narg,Vcs +2,(struct key *)&LI1key,first,ap);          parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI1key,first,ap);
23          if(Vcs[2]==0){          if(Vcs[2]==0){
24          V5= Cnil;          V5= Cnil;
25          V6= Cnil;          V6= Cnil;
# Line 715  static object LI7(object V106,object V10 Line 715  static object LI7(object V106,object V10
715          base[0]=base[0];          base[0]=base[0];
716          return Cnil;}          return Cnil;}
717          }          }
718  static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* EVERY */  static void LnkT27(){ call_or_link(VV[27],(void **)(void *)&Lnk27);} /* EVERY */
719  static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* SOME */  static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* SOME */
720  static object  LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)&LnkLI25,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */  static object  LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
721  static object  LnkTLI24(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[24],(void **)&LnkLI24,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI24(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[24],(void **)(void *)&LnkLI24,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
722  static void LnkT23(){ call_or_link(VV[23],(void **)&Lnk23);} /* SPECIFIC-ERROR */  static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* SPECIFIC-ERROR */
723  static void LnkT22(){ call_or_link(VV[22],(void **)&Lnk22);} /* SUBTYPEP */  static void LnkT22(){ call_or_link(VV[22],(void **)(void *)&Lnk22);} /* SUBTYPEP */
724  static object  LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[21],(void **)&LnkLI21,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */  static object  LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[21],(void **)(void *)&LnkLI21,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
725    
726  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
727  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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