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:   (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)
    ;; The mode used to load the .lisp or .srcs files.
    (lisp-load-mode nil :type (or null compile-load-mode))
    ;; The mode used to load the .fasl and .deps files.
    (fasl-load-mode nil :type (or null compile-load-mode))
    ;; A list of failures.
    (failures nil :type list)
    ;; A list of deferred-warnings.
  
negative.code:            #:action-main-function
             #:action-warning-handlers
             #:action-compilation-mode
             #:action-source-file
             #:action-source-files
             #:action-find-output-file
  