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/file.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/file.lisp')
-rw-r--r-- | src/property/file.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 26ce4a1..d9ca42a 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -430,8 +430,7 @@ commented out; the first commented or uncommented line for each key will be uncommented and used to set the value, if it exists." (:desc (format nil "~A has ~{~A=~S~^, ~}" file pairs)) (:apply (simple-conf-update file (loop for (k v) on pairs by #'cddr - collect k - collect (escape-sh-token v)) + collect k collect (sh-escape v)) ;; include quoting as part of the value so we ;; don't end up substituting double quotation ;; marks for single, or similar |