anchor.diff:           (action
              (make-action :args args
                           :command command
  -                        :block-compile-specified-only block-compile-specified-only
  +                        :source-files srcs
                           :output-files outs
                           :bindir bindir
                           :compilation-mode compilation-mode
  
positive.code: 
  (defmethod finish-action ((action action) (command (eql :compile)))
    "Compiles the last source file."
    (assert (action-source-file action) nil ; NOLINT
            "Exactly one Lisp source file needed for the COMPILE action.")
    (let* ((source-file (action-source-file action))
           (*current-source-file* source-file))
      (pprog1
       ;; The file should compile in the current-thread context.
       (compile-source source-file (action-find-output-file action "fasl")
                       :emit-cfasl (action-emit-cfasl-p action)
                       :save-locations (action-record-path-location-p action)
                       :readtable (action-readtable action))
       (write-file-hash source-file (action-find-output-file action "hash")))
      (check-failures action)
      (save-deferred-warnings
  
negative.code:                         :precompile-generics-p precompile-generics
                          :save-runtime-options-p save-runtime-options
                          :emit-cfasl-p emit-cfasl
                          :record-path-location-p coverage
                          :block-compile-specified-only block-compile-specified-only))
  
           (*compile-verbose* (>= *verbose* 1))
           (*compile-print* (>= *verbose* 3))
  