diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 18:41:54 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-19 18:56:59 -0700 |
commit | 4cea12573df81d82e6e5a358d04e51993895fb31 (patch) | |
tree | f9db045175711c50497ec4635a14ca851563a8e4 /src | |
parent | 85f2ea158ea75776bd1a83b0cf28342d7005beb5 (diff) | |
download | consfigurator-4cea12573df81d82e6e5a358d04e51993895fb31.tar.gz |
rename constant SECTIONS -> +SECTIONS+
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
-rw-r--r-- | src/property/apt.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/property/apt.lisp b/src/property/apt.lisp index 50c448e..7908e55 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -27,7 +27,7 @@ (apt-get :princ "update") ,form))) -(define-constant sections '("main" "contrib" "non-free") :test #'equal) +(define-constant +sections+ '("main" "contrib" "non-free") :test #'equal) ;;;; Properties @@ -89,7 +89,7 @@ (defmethod standard-sources-for ((os os:debian)) (let* ((suite (os:debian-suite os)) - (archive (mapcar (lambda (m) (list* m suite sections)) + (archive (mapcar (lambda (m) (list* m suite +sections+)) (get-mirrors))) (security-suite (if (memstring= suite '("stretch" "jessie" "buster")) #?"${suite}/updates" @@ -97,7 +97,7 @@ (security (and (not (subtypep (type-of os) 'os:debian-unstable)) (list (list* "http://security.debian.org/debian-security" - security-suite sections))))) + security-suite +sections+))))) (mapcan (lambda (l) (list #?"deb @{l}" #?"deb-src @{l}")) (nconc archive security)))) |