anchor.diff:  
   (defun parse-command-args (args)
     "Parses the command-line and returns ARGS as list of keyword value pairs."
  -  (list* :command (to-keyword (first args))
  -         (parse-rest-command-args (rest args))))
  +  (list* (to-keyword (first args)) (parse-rest-command-args (rest args))))
  +
  +(defmethod execute-command :around (command
  +                                    &key force verbose interactive
  +                                    &allow-other-keys)
  +  ;; Process some meta-level options.
  +  (when verbose (setf *verbose* (read-from-string verbose)))
  +  (set-interactive-mode interactive)
  +
  +  (verbose "Program name: ~A" (program-name))
  +  (vv "Command line: ~{'~A'~^ ~}" (command-line-arguments))
  +  (verbose "Current dir: ~A" *default-pathname-defaults*)
  +
  +  (with-continue-on-error (:when force)
  +    (call-next-method)))
  +
  +(defmethod execute-command :after (command &rest ignore)
  +  (declare (ignore ignore))
  +  (verbose "BAZEL ~A finished" command))
   
   (defun main ()
     "Main entry point."
  -  (let* ((command-args (parse-command-args (command-line-arguments))))
  -    (destructuring-bind (&key force verbose interactive &allow-other-keys) command-args
  -      (when verbose
  -        (setf *verbose* (read-from-string verbose)))
  -      (set-interactive-mode interactive)
  -
  -      (verbose "Program name: ~A" (program-name))
  -      (verbose "Current dir: ~A" *default-pathname-defaults*)
  -      (vv "Command line: ~{'~A'~^ ~}" (command-line-arguments))
  -
  -      (with-continue-on-error (:when force)
  -        (case (getf command-args :command)
  -          (:combine (apply 'combine command-args))
  -          (t        (apply 'process command-args)))))))
  +  (apply #'execute-command (parse-command-args (command-line-arguments))))
  
positive.code:       (mapc #'process-file* warnings)
        (verbose "Finalizing the ~A action..." command)
        (set-compilation-mode (action-compilation-mode action) :safety (action-safety action))
        (finish-action action command))
  
      (verbose "BAZEL ~A finished" command)))
  
  ;;;
  ;;; Used to combine images
  ;;;
  
  (defun combine (&key command run-time core output &allow-other-keys)
    "Combines the RUN-TIME with the CORE and saves it to OUTPUT."
    (assert (eq :combine command)) ; NOLINT
    (combine-run-time-and-core run-time core output))
  
  ;;;
  
negative.code:            #:load-file
             ;; blaze-lisp warning handler.
             #:handle-warning
             ;; Post entry generic handler for each command.
             #:execute-command
             ;; Action model accessors
             #:*action*
             #:action
  