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