diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-26 14:06:58 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-09-09 11:19:40 -0700 |
commit | 3e4a8149efbf7d6515ec6ac542ee8882320763d0 (patch) | |
tree | 47ea0ced2be5ce4f2a5ab246d5e10a686a98694c /src/connection/local.lisp | |
parent | 009634f28b0443cc6a5dc37f733e281819c9947b (diff) | |
download | consfigurator-3e4a8149efbf7d6515ec6ac542ee8882320763d0.tar.gz |
use CFFI, mostly via Osicat, for all syscalls/libc except fork(2)
Also replace some calls to chmod(1) with calls to chmod(2).
Using CFFI rather than implementation-specific wrappers should be better for
portability. Also with this commit we stop hard coding types like uid_t as
:UNSIGNED-INT, which was less portable.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/local.lisp')
-rw-r--r-- | src/connection/local.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/connection/local.lisp b/src/connection/local.lisp index 41944ff..1d70adc 100644 --- a/src/connection/local.lisp +++ b/src/connection/local.lisp @@ -57,7 +57,7 @@ (with-remote-temporary-file (temp :connection connection :directory (pathname-directory-pathname path)) - (run-program `("chmod" ,(format nil "~O" mode) ,temp)) + (nix:chmod temp mode) (etypecase content (string (with-open-file (stream temp :direction :output :if-exists :supersede) |