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

Diff of /gcl/lsp/setf.c

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

revision 1.10 by camm, Tue Oct 22 21:42:04 2002 UTC revision 1.11 by camm, Sun Feb 9 22:35:15 2003 UTC
# Line 2395  T662:; Line 2395  T662:;
2395          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2396          return;}          return;}
2397  }  }
2398  static object  LnkTLI104(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[104],(void **)&LnkLI104,2,ap);va_end(ap);return V1;} /* SETF-EXPAND */  static object  LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)&LnkLI104,2,first,ap);va_end(ap);return V1;} /* SETF-EXPAND */
2399  static object  LnkTLI103(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[103],(void **)&LnkLI103,3,ap);va_end(ap);return V1;} /* SETF-EXPAND-1 */  static object  LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* SETF-EXPAND-1 */
2400  static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* GET-SETF-METHOD */  static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* GET-SETF-METHOD */
2401  static object  LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,4,ap);va_end(ap);return V1;} /* SETF-STRUCTURE-ACCESS */  static object  LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)&LnkLI100,4,first,ap);va_end(ap);return V1;} /* SETF-STRUCTURE-ACCESS */
2402  static void LnkT99(){ call_or_link(VV[99],(void **)&Lnk99);} /* GET-SETF-METHOD-MULTIPLE-VALUE */  static void LnkT99(){ call_or_link(VV[99],(void **)&Lnk99);} /* GET-SETF-METHOD-MULTIPLE-VALUE */
2403  static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* GET-&ENVIRONMENT */  static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* GET-&ENVIRONMENT */
2404  static object  LnkTLI97(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[97],(void **)&LnkLI97,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */  static object  LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)&LnkLI97,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
2405    
2406  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2407  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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