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:                 (*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: ;;;
  
  (defun %compile-sources (srcs output-file &key
                                            save-locations
                                            (readtable (copy-readtable))
                                            block-compile)
    "Compiles the list of SRCS files into the OUTPUT-FILE. A corresponding FASL will be created.
   Returns (values FASL WARNINGS-P FAILURES-P).
   Parameters:
    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.
  