anchor.diff:                          :force-compilation-p force
                           :precompile-generics-p precompile-generics
                           :save-runtime-options-p save-runtime-options
  -                        :emit-cfasl-p emit-cfasl
                           :record-path-location-p coverage
                           :block-compile-p block-compile
                           :block-compile-specified-only block-compile-specified-only))
  
positive.code:                          :load-mode (action-compilation-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-compilation-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:   (processing-sources-p nil :type boolean)
    ;; A list of source files to be compiled.
    (source-files nil :type list)
    ;; Flag indicating that the compilation should commence even with errors.
    (force-compilation-p nil :type boolean)
    ;; Used to precompile the generic functions.
  