diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-27 11:46:19 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-27 11:51:05 -0700 |
| commit | be00646656009a660aaf089200117dcd3384d875 (patch) | |
| tree | 6e9e8f2f9e5fda38d7fd4a69d3dba9de738d56a3 /src/property/cmd.lisp | |
| parent | 3a5482e8b436805172df321cce9ecccf94d13c13 (diff) | |
| download | consfigurator-be00646656009a660aaf089200117dcd3384d875.tar.gz | |
CMD:SINGLE: fix :DESC subroutine
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/cmd.lisp')
| -rw-r--r-- | src/property/cmd.lisp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/property/cmd.lisp b/src/property/cmd.lisp index 67c7984..e74ac3d 100644 --- a/src/property/cmd.lisp +++ b/src/property/cmd.lisp @@ -27,5 +27,9 @@ strings which will be shell-escaped and then concatenated. Keyword argument :ENV is a plist of environment variables to be set when running the command, using env(1)." - (:desc (escape-sh-command args)) + (:desc (loop for arg in args + if (stringp arg) + collect (escape-sh-token arg) into accum + else collect (prin1-to-string arg) into accum + finally (return (format nil "~{~A~^ ~}" accum)))) (:apply (apply #'run args))) |