diff options
author | Teddy Wing | 2023-04-21 20:16:38 +0200 |
---|---|---|
committer | Teddy Wing | 2023-04-21 20:16:38 +0200 |
commit | c056748c337384aa6f3b9eb8879d82f28df798ed (patch) | |
tree | cc9017c893af07d80e624c37908fbdc81330c1b2 | |
parent | 2e5415ff7cfd8b8bd176a9206ae8fdc08c364862 (diff) | |
download | xfdf-c056748c337384aa6f3b9eb8879d82f28df798ed.tar.bz2 |
build-xfdf-outer-field: Rename inner-fields-str to inner-fields-string
It occurred to me that this is Lisp, and we don't really need to
abbreviate things.
-rw-r--r-- | src/xfdf.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/xfdf.lisp b/src/xfdf.lisp index d88c15d..a3ada7b 100644 --- a/src/xfdf.lisp +++ b/src/xfdf.lisp @@ -71,7 +71,7 @@ If `value` is anything else, return its identity." ((eq value nil) "Off") (t value))) -(defun build-xfdf-outer-field (name inner-fields-str indent) +(defun build-xfdf-outer-field (name inner-fields-string indent) "Build the XFDF XML for a field containing other fields." (format nil "~ ~v{~A~:*~}<field name=\"~A\"> @@ -80,7 +80,7 @@ If `value` is anything else, return its identity." indent '(" ") name -inner-fields-str +inner-fields-string indent '(" "))) |