diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:20:17 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-03-09 16:20:17 -0700 |
commit | 7cc46462f5ca23723317c2b4b6099ac7daaf7258 (patch) | |
tree | a04951ba06f75eab9711c88378a2ac74f5d4bf5b | |
parent | 58ae5b9e8e9065ca19c0fb7a117cd8358f9e2756 (diff) | |
download | consfigurator-7cc46462f5ca23723317c2b4b6099ac7daaf7258.tar.gz |
rename PLIST-TO-CMD-ARGS -> PLIST->LONG-OPTIONS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/package.lisp | 2 | ||||
-rw-r--r-- | src/property/chroot.lisp | 2 | ||||
-rw-r--r-- | src/util.lisp | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/src/package.lisp b/src/package.lisp index eace430..ae39cd2 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -107,7 +107,7 @@ #:unwords #:memstr= #:define-simple-error - #:plist-to-cmd-args + #:plist->long-options #:systemd--user #:with-local-temporary-directory #:pathname-file diff --git a/src/property/chroot.lisp b/src/property/chroot.lisp index 78ac0a3..bf4b942 100644 --- a/src/property/chroot.lisp +++ b/src/property/chroot.lisp @@ -34,7 +34,7 @@ &allow-other-keys &aux (os (get-hostattrs-car :os host)) (args (list "debootstrap" - (plist-to-cmd-args + (plist->long-options (remove-from-plist options :apt.proxy :apt.mirror)) (strcat "--arch=" (os:debian-architecture os)) (os:debian-suite os) diff --git a/src/util.lisp b/src/util.lisp index 83ecc63..1c65449 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -160,7 +160,7 @@ supported." do (pop forms) finally (return forms))) -(defun plist-to-cmd-args (plist &aux args) +(defun plist->long-options (plist &aux args) (doplist (k v plist args) (push (strcat "--" (string-downcase (symbol-name k)) "=" v) args))) |