anchor.diff:  
   (defmethod compile-source (src output-file
                              &rest key-args &key
  -                                          emit-cfasl
                                             save-locations
                                             (readtable (copy-readtable))
                                             block-compile)
     "Compiles the SRC file into the OUTPUT-FILE. A corresponding FASL will be created.
    Returns (values FASL WARNINGS-P FAILURES-P).
    Parameters:
  -  EMIT-CFASL set to non-nil will also emit the corresponding CFASL file.
     SAVE-LOCATIONS when non-nil will save the path locations to the FASL file as well.
     READTABLE is the readtable to be used for compiling the SRC file.
     BLOCK-COMPILE is whether to block compile, and can be either T or :SPECIFIED.
     ENTRY-POINTS is a list of entry points which are used when block-compiling."
  -  (declare (ignore emit-cfasl save-locations readtable block-compile))
  +  (declare (ignore save-locations readtable block-compile))
     (apply #'%compile-sources (list src) output-file key-args))
   
   (defun write-file-hash (src hash-file)
  
positive.code:                 (*readtable* (setup-readtable readtable)))
              (delete-read-only output-file)
              (compile-files srcs :output-file output-file
                                  :emit-cfasl emit-cfasl
                                  :external-format :utf-8
                                  :block-compile block-compile))))
      (unless (and warnings-p failures-p)
  
negative.code:   PRECOMPILE-GENERICS - if non-nil, precompile-generics before saving core,
    SAVE-RUNTIME-OPTIONS - will save the runtime options for the C runtime.
    COVERAGE - if the results should be instrumented with coverage information.
    VERBOSE - Verbosity level from 0 to 3."
    (declare (ignore interactive verbose))  ; handled in execute-command
    (multiple-value-setq (srcs deps load warnings hashes)
  