From 9d7f1a796750947a185a1251b89b8570fc51f2d5 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 1 Apr 2021 14:37:13 -0700 Subject: WRITEFILE: use REMOTE-EXISTS-P Signed-off-by: Sean Whitton --- src/connection.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3