           (insert-file-contents-literally
            (expand-file-name (symbol-name package) "recipes/"))
           (let ((melpa-recipe (read (current-buffer)))
-                (plist ()))
+                (plist nil)
             (cl-destructuring-bind (name . melpa-plist) melpa-recipe
               (straight--put plist :type 'git)
               (when-let ((files (plist-get melpa-plist :files)))

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

repo are considered."
  (completing-read
   (concat message ": ")
   (let ((packages nil)
     (maphash
      (lambda (package recipe)
        (unless (or (and for-build (plist-get recipe :no-build))
