anchor.diff:  
   (defmethod process-file ((action action) (file string) (type (eql :fasl)))
     "Loads a FASL file."
  -  (load-file file :action action :load-mode (action-fasl-load-mode action)))
  +  (load-file file :fasl file :action action :load-mode (action-fasl-load-mode action)))
   
   (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."
  
positive.code:   (verbose "Processing ~D dependencie~:P..." (length deps))
    (with-all-warnings-muffled
      (with-compilation-unit ()
        (mapc #'process-file* deps)))
    (values))
  
  ;;;
  
negative.code:                  (*current-source-file* name)
                   (*readtable* readtable)
                   (*print-readably* nil)
                   (*print-circle* t)
                   (*action* action))
              (set-compilation-mode load-mode)
              (cond (muffle-warnings
                     (with-all-warnings-muffled
                       ;; TODO(czak): use bazel.warning:redefine-warning.
                       ;;   For this we need to know the NOWARN info
                       ;;   for each package.
                       (handler-bind (((or bazel.warning:redefined-function
                                           bazel.warning:redefined-macro
                                           ;; bazel.warning:changed-ftype-proclamation
                                           bazel.warning:conflicting-ftype-declaration
                                           ;; TODO(czak): someone fix cl-pb.
                                           ;; bazel.warning:redefined-generic
                                           ;; bazel.warning:redefined-method
                                           bazel.warning:redefined-package
                                           bazel.warning:inline-used-before-definition
                                           bazel.warning:compiler-macro-after-function-use)
                                       #'handle-warning))
                         (load (or fasl name) :external-format :utf-8))))
                    (t
                     (load (or fasl name) :external-format :utf-8)))))))))
  
  ;;;
  ;;; Main compile/build loop
  