diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 14:37:13 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-01 15:56:45 -0700 |
| commit | 9d7f1a796750947a185a1251b89b8570fc51f2d5 (patch) | |
| tree | aea58f6fc100f3a3c46332fc102a61bd00cbee22 | |
| parent | 09593b22ed34fd81d4d439970a4c3ee28952eb50 (diff) | |
| download | consfigurator-9d7f1a796750947a185a1251b89b8570fc51f2d5.tar.gz | |
WRITEFILE: use REMOTE-EXISTS-P
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/connection.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 7c0e3d5..f485540 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -402,7 +402,7 @@ PATH may be any kind of file, including directories." ;; one owned by us, which we might not be able to chown back as non-root. ;; ;; The following, simpler behaviour should fit most sysadmin needs. - (if (test "-f" pathname) + (if (remote-exists-p pathname) ;; seems there is nothing like stat(1) in POSIX, and note that ;; --reference for chmod(1) and chown(1) is not POSIX (re:register-groups-bind |