diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-10 11:02:08 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-10 11:02:08 -0700 |
commit | 6023b51ef5d31e33e2ee4a92490c2b16d8ca526a (patch) | |
tree | f11670ecdec764a2e086d52a4f1165406f391dc9 | |
parent | 28057bf8668818494da640ff7deab723252e8062 (diff) | |
download | consfigurator-6023b51ef5d31e33e2ee4a92490c2b16d8ca526a.tar.gz |
rename STRINGMEM -> MEMSTRING=
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/package.lisp | 2 | ||||
-rw-r--r-- | src/property/apt.lisp | 2 | ||||
-rw-r--r-- | src/util.lisp | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/src/package.lisp b/src/package.lisp index f086c4c..ea8c37d 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -51,7 +51,7 @@ #:unlines #:noop #:symbol-named - #:stringmem + #:memstring= #:version< #:version> diff --git a/src/property/apt.lisp b/src/property/apt.lisp index 0942c5e..8fd69e6 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -75,7 +75,7 @@ (let* ((suite (os:debian-suite os)) (archive (mapcar (lambda (m) (cons m (cons suite sections))) (get-mirrors))) - (security-suite (if (stringmem suite '("stretch" "jessie" "buster")) + (security-suite (if (memstring= suite '("stretch" "jessie" "buster")) #?"${suite}/updates" #?"${suite}-security")) (security (and (not (subtypep (type-of os) 'os:debian-unstable)) diff --git a/src/util.lisp b/src/util.lisp index daa0b37..ee4ea71 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -38,7 +38,7 @@ (symbol (string-downcase (symbol-name system))))) -(defun stringmem (string list) +(defun memstring= (string list) (member string list :test #'string=)) |