diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-25 12:32:21 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-25 12:37:15 -0700 |
| commit | 3017eac13c02808e02d1d05b0de5371928623a9b (patch) | |
| tree | f61cb120dd305a5542a6aae43de971f573a70c34 | |
| parent | 30dba2ad2162af1239d96c8a4ab26709d72de72a (diff) | |
| download | consfigurator-3017eac13c02808e02d1d05b0de5371928623a9b.tar.gz | |
FILE:CONTAINS-CONF-SPACE: add some quotation marks
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property/file.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 287c345..0107809 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -318,7 +318,7 @@ keys and values, set each of these keys and values in FILE. If there are any other lines which set values for the same keys, they will be 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 ~A~^, ~}" file pairs)) + (:desc (format nil "~A has ~{\"~A ~A\"~^, ~}" file pairs)) (:apply (simple-conf-update file pairs :parse-kv #?/^(\S+)\s+(.+)/ :new-kv (lambda (k v) #?"${k} ${v}")))) |