diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-13 09:36:48 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-15 17:18:39 -0700 |
commit | 62b4e594daa795885fa9bf5e30f8cee1c7e69a60 (patch) | |
tree | 498189dfee997c0f97185a0e7353fdb23e141c6e /src | |
parent | ca2d9e30483cbbd5f88c064b6db8c6ccd3eed4d8 (diff) | |
download | consfigurator-62b4e594daa795885fa9bf5e30f8cee1c7e69a60.tar.gz |
use LIST* in various places
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
-rw-r--r-- | src/property.lisp | 2 | ||||
-rw-r--r-- | src/property/apt.lisp | 6 | ||||
-rw-r--r-- | src/util.lisp | 3 |
3 files changed, 5 insertions, 6 deletions
diff --git a/src/property.lisp b/src/property.lisp index 0a35739..1383ba3 100644 --- a/src/property.lisp +++ b/src/property.lisp @@ -188,7 +188,7 @@ dotted name alongside NAME." (will-props ``(,',name ,,@middle (props eseqprops ,@,rest))) (first - `(cons ',name (cons ,first (cddr ,whole)))) + `(list* ',name ,first (cddr ,whole))) (t `(cons ',name (cdr ,whole)))))))) diff --git a/src/property/apt.lisp b/src/property/apt.lisp index 8fd69e6..41b9b2e 100644 --- a/src/property/apt.lisp +++ b/src/property/apt.lisp @@ -73,15 +73,15 @@ (defmethod standard-sources-for ((os os:debian)) (let* ((suite (os:debian-suite os)) - (archive (mapcar (lambda (m) (cons m (cons suite sections))) + (archive (mapcar (lambda (m) (list* m suite sections)) (get-mirrors))) (security-suite (if (memstring= suite '("stretch" "jessie" "buster")) #?"${suite}/updates" #?"${suite}-security")) (security (and (not (subtypep (type-of os) 'os:debian-unstable)) (list - (cons "http://security.debian.org/debian-security" - (cons security-suite sections)))))) + (list* "http://security.debian.org/debian-security" + security-suite sections))))) (mapcan (lambda (l) (list #?"deb @{l}" #?"deb-src @{l}")) (nconc archive security)))) diff --git a/src/util.lisp b/src/util.lisp index ecf1d3b..474d27c 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -126,8 +126,7 @@ expand into errors." (unless buffer (error "invalid encoding")) (push (code-char (read-from-string - (coerce (cons #\# (cons #\x (nreverse buffer))) - 'string))) + (coerce (list* #\# #\x (nreverse buffer)) 'string))) result) (setq buffer nil decoding nil)) |