From bb2f32f8da9aa366058f66af82a4611a81829e24 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 19 Mar 2021 13:16:12 -0700 Subject: add PLIST-TO-CMD-ARGS Signed-off-by: Sean Whitton --- src/util.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/util.lisp') 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 -- cgit v1.2.3