From daf5c937b90626fbc0c69d3a09342312c59c125b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 16 Sep 2021 18:21:13 -0700 Subject: SHELL-WRAP-CONNECTION %READFILE: insert space before shell "&&" Signed-off-by: Sean Whitton --- src/connection/shell-wrap.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/connection') diff --git a/src/connection/shell-wrap.lisp b/src/connection/shell-wrap.lisp index f247a14..bcc8fc8 100644 --- a/src/connection/shell-wrap.lisp +++ b/src/connection/shell-wrap.lisp @@ -29,7 +29,7 @@ (multiple-value-bind (out exit) (let* ((path (escape-sh-token path)) (base #?"test -r ${path} && cat ${path}") - (cmd (if delete (strcat base #?"&& rm ${path}") base))) + (cmd (if delete (strcat base #?" && rm ${path}") base))) (connection-run c cmd nil)) (if (zerop exit) out -- cgit v1.2.3