anchor.diff:     :executable executable
      :verbose (plusp *verbose*)))
   
  -(defun set-compilation-mode (compilation-mode)
  -  "Proclaim the optimization settings based on the COMPILATION-MODE."
  -
  -  (vvv "Set compilation mode: ~S" compilation-mode)
  +(defun set-optimization-mode (optimization-mode)
  +  "Proclaim the optimization settings based on the OPTIMIZATION-MODE."
  +  (declare (type optimization-mode optimization-mode))
  +
  +  (vvv "Set optimization mode: ~S" optimization-mode)
   
     (destructuring-bind (spEed Debug saFety space Compilation-speed)
  -      (ecase compilation-mode ; E D F   C
  +      (ecase optimization-mode ; E D F   C
           (:load                '(1 1 1 1 3))
           ((:fastbuild nil)     '(1 2 3 1 1))
           (:opt                 '(3 0 0 1 1))
           (:dbg                 '(1 3 3 1 1)))
   
  -    (set-interpret-mode compilation-mode)
  +    (set-interpret-mode optimization-mode)
   
       ;; Cause bodies of macroexpanders, including MACROLET and DEFINE-COMPILER-MACRO,
       ;; to be compiled in a policy in which these qualities override the global policy.
  
positive.code:       (mapc #'process-file* warnings)
  
        (verbose "Finalizing the ~A action..." command)
        (set-compilation-mode (action-compilation-mode action))
        (finish-action action command))))
  
  (defmethod execute-command ((command (eql :compile)) &rest args)
  
negative.code:                (*current-source-file* name)
                 (*readtable* (setup-readtable readtable))
                 (*action* action))
            (set-optimization-mode load-mode)
            (cond (muffle-warnings
                   (with-all-warnings-muffled
                     ;; TODO(czak): use bazel.warning:redefine-warning.
  