                     ;; with busybox/find, see [1].
                     ;;
                     ;; [1]: https://github.com/raxod502/straight.el/issues/78
-                    (setq command (append (list "-o"
-                                                "-path"
-                                                (format "./%s/*" local-repo)
-                                                "-newermt"
-                                                mtime
-                                                "-print")
-                                          command))
+                    (setq args (append (list "-o"
+                                             "-path"
+                                             (format "./%s/*" local-repo)
+                                             "-newermt"
+                                             mtime
+                                             "-print")
+                                       args))
                   ;; If no mtime is specified, it means the package
                   ;; definitely needs to be (re)built. Probably there
                   ;; was an error and we couldn't finish building the

                  (with-temp-buffer
                    (let* ((default-directory
                             (straight--dir "repos" local-repo))
                           (stderr-buffer
                            (get-buffer-create " *straight-stderr*"))
                           ;; This find(1) command ignores the .git
                           ;; directory, and prints the names of any
                           ;; files or directories with a newer mtime
                           ;; than the one specified.
                           (command `("find" "." "-name" ".git" "-prune"
                                      "-o" "-newermt" ,last-mtime "-print"))
                           (return (straight--make-process
                                    :command command
                                    :buffer (current-buffer)
                                    :stderr stderr-buffer)))
                      (unless (= 0 return)
                        (error "Command failed: %s:\n%s"
                               (string-join
                                (mapcar #'shell-quote-argument command)
                                " ")
                               (with-current-buffer stderr-buffer
                                 (buffer-string))))
                      ;; If anything was printed, the package has
                      ;; (maybe) been modified.
                      (> (buffer-size) 0))))))))))

Return a string with whitespace trimmed from both ends. If the
command fails, throw an error."
  (string-trim (apply #'straight--get-call-raw command args)))

;;;;; Interactive popup windows

