diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-04 22:17:03 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-04 22:17:03 -0700 |
| commit | ca7e77fa48c7635aa9afbc7406b42f9be5063438 (patch) | |
| tree | 8f57e98530d0a449afd9ff4e987079b55a59132a /src | |
| parent | 7e1689bc547a48050cf04622f57aae5693972710 (diff) | |
| download | consfigurator-ca7e77fa48c7635aa9afbc7406b42f9be5063438.tar.gz | |
property/apt.lisp: factor out +noninteractive-env+
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
| -rw-r--r-- | src/property/apt.lisp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/property/apt.lisp b/src/property/apt.lisp index 2b3ecba..7822ed9 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -29,6 +29,10 @@ (define-constant +sections+ '("main" "contrib" "non-free") :test #'equal) +(define-constant +noninteractive-env+ '(:DEBIAN_FRONTEND "noninteractive" + :APT_LISTCHANGES_FRONTEND "none") + :test #'equal) + ;;;; Properties @@ -139,7 +143,4 @@ E.g. (APT:SERVICE-INSTALLED-RUNNING \"apache2\")." ;;;; Utilities (defun apt-get (&rest args) - (apply #'run - :env '(:DEBIAN_FRONTEND "noninteractive" - :APT_LISTCHANGES_FRONTEND "none") - "apt-get" args)) + (apply #'run :env +noninteractive-env+ "apt-get" args)) |