Bytecompiler bytecompiler, won't you shut up

core/autoload/cli.el

@@ -113,7 +113,7 @@ Warning: freezes indefinitely on any stdin prompt."
                                :connection-type 'pipe))
                 done-p)
             (set-process-filter
-             process (lambda (process output)
+             process (lambda (_process output)
                        (princ output (current-buffer))
                        (princ output)))
             (set-process-sentinel

core/autoload/files.el

@@ -178,6 +178,7 @@ single file or nested compound statement of `and' and `or' statements."
              file))
     (nth 7 (file-attributes file))))
 
+(defvar w32-get-true-file-attributes)
 ;;;###autoload
 (defun doom-directory-size (dir)
   "Returns the size of FILE (in DIR) in kilobytes."

core/cli/help.el

@@ -43,7 +43,6 @@
     (print! (bold "Options:"))
     (print-group!
      (cl-loop for opt in optlist
-              for flags = (doom-cli-option-flags opt)
               for desc = (doom-cli-option-desc opt)
               for args = (doom-cli-option-args opt)
               for flagstr = (string-join (doom-cli-option-flags opt) ", ")

core/cli/install.el

@@ -5,7 +5,7 @@
      (noenv-p     ["--no-env"]     "Don't generate an envvars file (see 'doom help env')")
      (noinstall-p ["--no-install"] "Don't auto-install packages")
      (nofonts-p   ["--no-fonts"]   "Don't install (or prompt to install) all-the-icons fonts")
-     &rest args)
+     &rest _args)
   "Installs and sets up Doom Emacs for the first time.
 
 This command does the following:

core/cli/test.el

@@ -13,7 +13,7 @@
   :bare t
   (doom-initialize 'force)
   (require 'ansi-color)
-  (let (files error read-files)
+  (let (files read-files)
     (unless targets
       (setq targets
             (cons doom-core-dir

core/core-cli.el

@@ -187,6 +187,7 @@ BODY will be run when this dispatcher is called."
                        :plist plist
                        :fn
                        (lambda (--alist--)
+                         (ignore --alist--)
                          (let ,(cl-loop for opt in speclist
                                         for optsym = (if (listp opt) (car opt) opt)
                                         unless (memq optsym cl--lambda-list-keywords)