diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 15:27:00 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-11 16:40:08 -0700 |
| commit | 4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14 (patch) | |
| tree | b8e51af43f895a98ebd943580c51c1da38151bdf /src/property/cmd.lisp | |
| parent | f2ba47b7ef017a01a4b6c13982ff43a67cc6abd5 (diff) | |
| download | consfigurator-4e0a4c107e4a2ee708e6e7a9f3edf189fe858f14.tar.gz | |
replace ESCAPE-SH-TOKEN and ESCAPE-SH-COMMAND with new SH-ESCAPE
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/cmd.lisp')
| -rw-r--r-- | src/property/cmd.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/cmd.lisp b/src/property/cmd.lisp index 1f46b60..bc9fd80 100644 --- a/src/property/cmd.lisp +++ b/src/property/cmd.lisp @@ -31,7 +31,7 @@ Keyword argument :ENV is a plist of environment variables to be set when running the command, using env(1)." (:desc (loop for arg in args if (stringp arg) - collect (escape-sh-token arg) into accum + collect (sh-escape arg) into accum else collect (prin1-to-string arg) into accum finally (return (format nil "~{~A~^ ~}" accum)))) (:apply (apply #'mrun args))) |