diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-04 17:09:47 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-11-08 16:00:27 -0700 |
commit | 1e99ee6ff7f47db2052e226d7b071e31ff33b56c (patch) | |
tree | c27a22b6cb4e7d2c8b0b1aad4dc747c31102958d /src/connection/shell-wrap.lisp | |
parent | 42489752b4c78f6bbc80bb56a4347b692a067c29 (diff) | |
download | consfigurator-1e99ee6ff7f47db2052e226d7b071e31ff33b56c.tar.gz |
add LXC properties, :LXC{,-UNPRIV-ATTACH} connections, WITH-HOMEDIR
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/shell-wrap.lisp')
-rw-r--r-- | src/connection/shell-wrap.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/connection/shell-wrap.lisp b/src/connection/shell-wrap.lisp index bcc8fc8..49cfd83 100644 --- a/src/connection/shell-wrap.lisp +++ b/src/connection/shell-wrap.lisp @@ -23,7 +23,8 @@ (defgeneric connection-shell-wrap (connection cmd)) (defmethod connection-run ((c shell-wrap-connection) cmd input) - (mrun :may-fail :input input (connection-shell-wrap c cmd))) + (apply #'mrun :may-fail :input input + (ensure-cons (connection-shell-wrap c cmd)))) (defun %readfile (c path &optional delete) (multiple-value-bind (out exit) |