                     ;; 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

        ;; already. This table maps repo names to booleans.
        (repos (make-hash-table :test #'equal))
        ;; The systematically generated arguments for find(1).
        (command nil))
    (dolist (package straight--eagerly-checked-packages)
      (when-let (build-info (gethash package straight--build-cache))
        ;; Don't use `cl-destructuring-bind', as that will

                  (with-temp-buffer
                    (let* ((default-directory
                             (straight--dir "repos" local-repo))
                           ;; 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.
                           (args `("." "-name" ".git" "-prune"
                                   "-o" "-newermt" ,last-mtime "-print"))
                           (return (apply #'call-process "find"
                                          nil '(t t) nil args)))
                      (unless (= 0 return)
                        (error "Command failed: find %s:\n%s"
                               (string-join
                                (mapcar #'shell-quote-argument args)
                                " ")
                               (buffer-string)))
                      ;; If anything was printed, the package has
                      ;; (maybe) been modified.
                      (> (buffer-size) 0))))))))))
