anchor.diff:            "Only once source file supported for the COMPILE action.")
            (setf (action-source-file action) file))
           (t
  -         (load-file file :action action :load-mode (action-lisp-load-mode action)))))
  +         (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: (defmethod process-file ((action action) (file string) (type (eql :fasl)))
    "Loads a FASL file."
    (prog1 (load-file file :fasl file :action action
                           :load-mode (action-fasl-load-mode action))
      ;; Sort some heap after every FASL.
      #+sbcl (sb-ext:gc)))
  
  (defmethod process-file ((action action) (file string) (type (eql :cfasl)))
    "Loads a CFASL file. Those are dependencies only loaded when compiling or building a binary."
    (unless (action-processing-sources-p action)
      (load-file file :action action :load-mode (action-fasl-load-mode action))))
  
  (defmethod process-file ((action action) (file string) (type (eql :warnings)))
    "Loads a deferred warnings file. Deferred warnings are only checked in a binary (final) target."
  
negative.code:   (entry-points nil :type list)
    ;; A list warning handlers.
    (warning-handlers nil :type list)
    ;; The compile mode. One of :dbg, :opt, :fastbuild, or :load.
    (compilation-mode nil :type compilation-mode)
    ;; A list of failures.
    (failures nil :type list)
    ;; A list of deferred-warnings.
  