/[gcl]/gcl/o/funlink.c
ViewVC logotype

Diff of /gcl/o/funlink.c

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

revision 1.17 by mjthomas, Mon Jul 7 04:53:14 2003 UTC revision 1.18 by camm, Sun Sep 14 02:43:07 2003 UTC
# Line 1037  DEF_ORDINARY("CDEFN",sScdefn,SI,""); Line 1037  DEF_ORDINARY("CDEFN",sScdefn,SI,"");
1037  DEFVAR("*LINK-ARRAY*",sLAlink_arrayA,LISP,Cnil,"");  DEFVAR("*LINK-ARRAY*",sLAlink_arrayA,LISP,Cnil,"");
1038    
1039  void  void
1040  init_links(void)  gcl_init_links(void)
1041  {        {      
1042    
1043          make_si_sfun("SET-MV",set_mv, ARGTYPE2(f_fixnum,f_object) |          make_si_sfun("SET-MV",set_mv, ARGTYPE2(f_fixnum,f_object) |
1044                       RESTYPE(f_object));                       RESTYPE(f_object));
1045          make_si_sfun("MV-REF",mv_ref, ARGTYPE1(f_fixnum) | RESTYPE(f_object));          make_si_sfun("MV-REF",mv_ref, ARGTYPE1(f_fixnum) | RESTYPE(f_object));
1046          init_xdrfuns();          gcl_init_xdrfuns();
1047                }                }
1048    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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