diff options
Diffstat (limited to 'src/connection.lisp')
-rw-r--r-- | src/connection.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 4690848..b40ab01 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -379,9 +379,9 @@ start with RUN." (defun remote-exists-p (&rest paths) "Does each of PATHS exists? PATH may be any kind of file, including directories." - (test (loop for path on paths - nconc (list "-e" (car path)) - when (cdr path) collect "-a"))) + (apply #'test (loop for path on paths + nconc (list "-e" (car path)) + when (cdr path) collect "-a"))) (defun readfile (path) (connection-readfile |