anchor.diff:        (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)
  
positive.code:   ;; Flag indicating that the dependencies have been processed
    ;; and the outstanding files are sources for this BUILD action.
    (processing-sources-p nil :type boolean)
    ;; The source file to be compiled.
    (source-file nil :type (or null string))
    ;; A list of source files to be compiled (used when block-compiling).
    (source-files nil :type list)
    ;; Flag indicating that the cfasl needs to be generated.
    (emit-cfasl-p nil :type boolean)
  
negative.code:                         :precompile-generics-p precompile-generics
                          :save-runtime-options-p save-runtime-options
                          :emit-cfasl-p emit-cfasl
                          :record-path-location-p coverage
                          :block-compile-specified-only block-compile-specified-only))
  
           (*compile-verbose* (>= *verbose* 1))
           (*compile-print* (>= *verbose* 3))
  