anchor.diff:  ;;; Command handlers
   ;;;
   
  +(defgeneric execute-command (command &rest arguments &key &allow-other-keys)
  +  (:documentation "Executes a COMMAND with the command line ARGUMENTS."))
  +
   (defgeneric init-action (action command)
     (:documentation "Initializes the action based on the command")
     (:method ((action action) command) #| noop |#))
  
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
  