anchor.diff:                          :precompile-generics-p precompile-generics
                           :save-runtime-options-p save-runtime-options
                           :emit-cfasl-p emit-cfasl
  -                        :record-path-location-p coverage))
  +                        :record-path-location-p coverage
  +                        :block-compile-specified-only block-compile-specified-only))
   
            (*compile-verbose* (>= *verbose* 1))
            (*compile-print* (>= *verbose* 3))
  
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: 
  (defmethod process-file ((action action) (file string) (type (eql :lisp)))
    "Process a file with the .lisp or .lsp extensions. Loads file if not loaded, yet."
    (unless (and (action-processing-sources-p action)
                (eq (action-command action) :compile))
      (load-file file :action action :load-mode :load)))
  
  (defmethod process-file ((action action) (file string) (type (eql :lsp)))
    "Alias for function processing .lisp files."
  