 destinations."
   (unless (listp files)
     (error "Invalid :files directive: %S" files))
-  (let ((mappings nil
+  (let ((mappings nil)
         (exclusions nil))
     ;; We have to do some funny business to get `:defaults' splicing
     ;; and wildcard expansion to work, hence `while' instead of

  "Read version lockfiles and return merged alist of saved versions.
The alist maps repository names as strings to versions, whose
interpretations are defined by the relevant VC backend."
  (let ((versions nil)
    (dolist (spec straight-profiles)
      (cl-destructuring-bind (_profile . versions-lockfile) spec
        (let ((lockfile-path (straight--versions-file versions-lockfile)))

`make-hash-table' function and which defaults to `eq'. The order
of the entries that are kept will be the same as in ALIST."
  (let ((hash (make-hash-table :test (or test #'eq)))
        (new-alist nil))
    (dolist (entry (reverse alist))
      (unless (gethash (car entry) hash)
        (push entry new-alist)
