From 6023b51ef5d31e33e2ee4a92490c2b16d8ca526a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Wed, 10 Mar 2021 11:02:08 -0700 Subject: rename STRINGMEM -> MEMSTRING= Signed-off-by: Sean Whitton --- src/package.lisp | 2 +- src/property/apt.lisp | 2 +- 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=)) -- cgit v1.2.3