anchor.diff:  
   (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."
  -  (cond ((and (action-processing-sources-p action)
  +  (unless (and (action-processing-sources-p action)
                 (eq (action-command action) :compile))
  -         ;; The .lisp sources in a :compile action are processed by finish-action handler instead.
  -         (assert (null (action-source-file action)) nil ; NOLINT
  -          "Only once source file supported for the COMPILE action.")
  -         (setf (action-source-file action) file))
  -        (t
  -         (load-file file :action action :load-mode :load))))
  +    (load-file file :action action :load-mode :load)))
   
   (defmethod process-file ((action action) (file string) (type (eql :lsp)))
     "Alias for function processing .lisp files."
  
positive.code:       (setf (action-processing-sources-p action) t)
        (verbose "Processing ~D source file~:P..." (length srcs))
        (mapc #'process-file* srcs)
        (when (eql command :block-compile)
          (setf (action-source-files action) srcs))
  
        (verbose "Processing ~D deferred warning file~:P..." (length warnings))
        (mapc #'process-file* warnings)
  
negative.code:            #:action-main-function
             #:action-warning-handlers
             #:action-compilation-mode
             #:action-source-files
             #:action-find-output-file
             #:action-failures
  