/[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.16 by camm, Sat Mar 1 22:37:37 2003 UTC revision 1.16.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC
# Line 961  DEF_ORDINARY("CDEFN",sScdefn,SI,""); Line 961  DEF_ORDINARY("CDEFN",sScdefn,SI,"");
961  DEFVAR("*LINK-ARRAY*",sLAlink_arrayA,LISP,Cnil,"");  DEFVAR("*LINK-ARRAY*",sLAlink_arrayA,LISP,Cnil,"");
962    
963  void  void
964  init_links(void)  gcl_init_links(void)
965  {        {      
966    
967          make_si_sfun("SET-MV",set_mv, ARGTYPE2(f_fixnum,f_object) |          make_si_sfun("SET-MV",set_mv, ARGTYPE2(f_fixnum,f_object) |
968                       RESTYPE(f_object));                       RESTYPE(f_object));
969          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));
970          init_xdrfuns();          gcl_init_xdrfuns();
971                }                }
972    

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.16.6.1

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