diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-10 10:54:32 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-10 10:54:32 -0700 |
commit | ae809cf7d95190ca366f3192499f017ab301d590 (patch) | |
tree | 5fa0f282e48b208d7a5876504a07c85517408d87 | |
parent | fe46aafabf79d4b468209c487c153a0637c153ee (diff) | |
download | consfigurator-ae809cf7d95190ca366f3192499f017ab301d590.tar.gz |
APT::APT-CACHE-POLICY-INSTALLED: use DEFINE-CONSTANT
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/package.lisp | 2 | ||||
-rw-r--r-- | src/property/apt.lisp | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/package.lisp b/src/package.lisp index 9240210..6976d07 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -206,7 +206,7 @@ #:debian-unstable)) (defpackage :consfigurator.property.apt - (:use #:cl #:consfigurator) + (:use #:cl #:alexandria #:consfigurator) (:local-nicknames (#:re #:cl-ppcre) (#:os #:consfigurator.property.os)) (:export #:installed diff --git a/src/property/apt.lisp b/src/property/apt.lisp index fe5e655..de5ffc2 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -58,7 +58,8 @@ (defun apt-cache-policy (packages) (runlines :env '(:LANG "C") "apt-cache" "policy" packages)) -(defparameter apt-cache-policy-installed #?/^\s+Installed:\s+(?!\(none\))/) +(define-constant apt-cache-policy-installed #?/^\s+Installed:\s+(?!\(none\))/ + :test #'string=) (defun all-installed-p (packages) (loop with n = 0 |