diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2024-05-09 18:28:00 +0100 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2024-05-09 18:28:00 +0100 |
commit | 03439c59e3fd19f3948cbdc8cd1f3db454287d14 (patch) | |
tree | 690b32263dbe3db43c9a79cf94eeda6c492a7e55 /src/property/apt.lisp | |
parent | ffd944da0bab30dd74e44aa5153ae4c1556ae9f5 (diff) | |
download | consfigurator-03439c59e3fd19f3948cbdc8cd1f3db454287d14.tar.gz |
APT:STANDARD-SOURCES-FOR: don't try to add old *-backports sources
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/apt.lisp')
-rw-r--r-- | src/property/apt.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/property/apt.lisp b/src/property/apt.lisp index 11367d2..d3112e2 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -284,13 +284,14 @@ only upgrade Debian stable." (mapcar (lambda (m) (list* m #?"${suite}-updates" +sections+)) (get-mirrors)))) + (old-suite-p (memstr= suite '("stretch" "jessie" "buster"))) (backports (and (subtypep (type-of os) 'os:debian-stable) + (not old-suite-p) (mapcar (lambda (m) (list* m #?"${suite}-backports" +sections+)) (get-mirrors)))) - (security-suite (if (memstr= suite '("stretch" "jessie" "buster")) - #?"${suite}/updates" - #?"${suite}-security")) + (security-suite + (if old-suite-p #?"${suite}/updates" #?"${suite}-security")) (security (and (or (subtypep (type-of os) 'os:debian-stable) (subtypep (type-of os) 'os:debian-testing)) (list |