diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-21 14:42:49 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-08-25 11:02:51 -0700 |
| commit | 752385048b54bf59a0bfbecbf443f8e9e4504f56 (patch) | |
| tree | ee7c702802e4d7ea3b0a9eef355f261c51c98ee3 | |
| parent | 4c95f057493ad4bc080e34efec8d022132404260 (diff) | |
| download | consfigurator-752385048b54bf59a0bfbecbf443f8e9e4504f56.tar.gz | |
APT:{ALL,NONE}-INSTALLED-P: add docstrings
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/property/apt.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/property/apt.lisp b/src/property/apt.lisp index f79f87c..36bbebd 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -399,6 +399,8 @@ in testing, you could use: :test #'string=) (defun all-installed-p (&rest packages) + "Return true if all of PACKAGES, a list of non-virtual packages, are +installed." (loop with n = 0 with packages* = (flatten packages) for line in (apt-cache-policy packages*) @@ -407,6 +409,8 @@ in testing, you could use: finally (return (= n (length packages*))))) (defun none-installed-p (&rest packages) + "Returns true if none of PACKAGES, a list of non-virtual packages, are +installed." (loop for line in (apt-cache-policy (flatten packages)) never (re:scan apt-cache-policy-installed line))) |