|
Lines 1028-1034
Link Here
|
| 1028 |
|
1028 |
|
| 1029 |
#if defined(unix) || defined(WIN32) |
1029 |
#if defined(unix) || defined(WIN32) |
| 1030 |
|
1030 |
|
| 1031 |
LISP lchmod(LISP path,LISP mode) |
1031 |
LISP l_chmod(LISP path,LISP mode) |
| 1032 |
{if (chmod(get_c_string(path),get_c_long(mode))) |
1032 |
{if (chmod(get_c_string(path),get_c_long(mode))) |
| 1033 |
return(err("chmod",llast_c_errmsg(-1))); |
1033 |
return(err("chmod",llast_c_errmsg(-1))); |
| 1034 |
else |
1034 |
else |
|
Lines 2188-2194
Link Here
|
| 2188 |
opendir_gc_free, |
2188 |
opendir_gc_free, |
| 2189 |
&j); |
2189 |
&j); |
| 2190 |
set_print_hooks(tc_opendir,opendir_prin1); |
2190 |
set_print_hooks(tc_opendir,opendir_prin1); |
| 2191 |
init_subr_2("chmod",lchmod); |
2191 |
init_subr_2("chmod",l_chmod); |
| 2192 |
#endif |
2192 |
#endif |
| 2193 |
|
2193 |
|
| 2194 |
gc_protect_sym(&sym_channels,"*channels*"); |
2194 |
gc_protect_sym(&sym_channels,"*channels*"); |
