diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 09:42:26 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 09:42:26 -0700 |
| commit | 237730fe5bb6b3eeb8edc2d3bb4b5cbfb99ee8c9 (patch) | |
| tree | 6c1bc672c2c787a5c362e7d18666ca878de5e3db /src/connection.lisp | |
| parent | 5d203e32586f977f20f281fa02c204bdb3394b90 (diff) | |
| download | consfigurator-237730fe5bb6b3eeb8edc2d3bb4b5cbfb99ee8c9.tar.gz | |
convenience feature to convert pathnames in RUN/RUNLINES
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
| -rw-r--r-- | src/connection.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 4241038..a321d1e 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -181,7 +181,8 @@ Returns command's stdout, stderr and exit code." (:may-fail (setq may-fail t)) (:input (setq input (pop args))) (:env (setq env (pop args))) - (t (push arg cmd))) + (t (push (typecase arg (pathname (unix-namestring arg)) (t arg)) + cmd))) while args finally (nreversef cmd)) (setq cmd (if (cdr cmd) (escape-sh-command cmd) (car cmd))) |