diff options
-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 |