diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 13:16:12 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 18:56:59 -0700 |
| commit | bb2f32f8da9aa366058f66af82a4611a81829e24 (patch) | |
| tree | 6a47e6967a1136c37aabc5febacf125ca89188c9 /src/util.lisp | |
| parent | b8fe83f3f6b2f89d60b26201dd3e3ffdc7210bc1 (diff) | |
| download | consfigurator-bb2f32f8da9aa366058f66af82a4611a81829e24.tar.gz | |
add PLIST-TO-CMD-ARGS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util.lisp')
| -rw-r--r-- | src/util.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/util.lisp b/src/util.lisp index c4b4df2..44ae5b7 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -87,6 +87,10 @@ supported." do (pop forms) finally (return forms))) +(defun plist-to-cmd-args (plist &aux args) + (doplist (k v plist args) + (push (strcat "--" (string-downcase (symbol-name k)) "=" v) args))) + ;;;; Version numbers |