diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 11:45:29 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 11:45:29 -0700 |
| commit | 003a6be6343cda0d22054cf3b328ab17933de476 (patch) | |
| tree | 8ca88756e417a4c9283a0e8d521216b7803840fe /src/connection.lisp | |
| parent | 32bdaaa81a5fd54c8ff46700724283e1083b52b7 (diff) | |
| download | consfigurator-003a6be6343cda0d22054cf3b328ab17933de476.tar.gz | |
fix call to TEST
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
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 |