From 3017eac13c02808e02d1d05b0de5371928623a9b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 25 May 2021 12:32:21 -0700 Subject: FILE:CONTAINS-CONF-SPACE: add some quotation marks Signed-off-by: Sean Whitton --- src/property/file.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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}")))) -- cgit v1.2.3