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