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