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