mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 06:42:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

In si_chmod(), fix detection of error condition.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-11-14 22:25:45 +01:00
parent 3fe675ac83
commit 9f683792a1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/unixfsys.d
View file

@ -1123,7 +1123,7 @@ si_chmod(cl_object file, cl_object mode)
{
mode_t code = fixnnint(mode);
cl_object filename = si_coerce_to_filename(file);
unlikely_if (!chmod((char*)filename->base_string.self, code)) {
unlikely_if (chmod((char*)filename->base_string.self, code)) {
FElibc_error("Unable to change mode of file~%~S~%to value ~O",
2, file, mode);
}