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 | |
parent | b8fe83f3f6b2f89d60b26201dd3e3ffdc7210bc1 (diff) | |
download | consfigurator-bb2f32f8da9aa366058f66af82a4611a81829e24.tar.gz |
add PLIST-TO-CMD-ARGS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/package.lisp | 1 | ||||
-rw-r--r-- | src/util.lisp | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/package.lisp b/src/package.lisp index b2e7b7f..ab57cd3 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -52,6 +52,7 @@ #:noop #:symbol-named #:memstring= + #:plist-to-cmd-args #:version< #:version> 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 |