diff options
| -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=)) |