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 |
|
|