anchor.diff:     :executable executable
      :verbose (plusp *verbose*)))
   
  -(defun set-compilation-mode (compilation-mode &key safety)
  -  "Proclaim the optimization settings based on the COMPILATION-MODE.
  - SAFETY is the safety used to override defaults."
  +(defun set-compilation-mode (compilation-mode)
  +  "Proclaim the optimization settings based on the COMPILATION-MODE."
   
     (vvv "Set compilation mode: ~S" compilation-mode)
   
  -  (destructuring-bind (spEed Debug %saFety space Compilation-speed)
  +  (destructuring-bind (spEed Debug saFety space Compilation-speed)
         (ecase compilation-mode ; E D F   C
           (:load                '(1 1 1 1 3))
           ((:fastbuild nil)     '(1 2 3 1 1))
  
positive.code:                         :output-files outs
                          :bindir bindir
                          :compilation-mode compilation-mode
                          :safety safety
                          :main-function main
                          :force-compilation-p force
                          :precompile-generics-p precompile-generics
  
negative.code:   (warning-handlers nil :type list)
    ;; The compile mode. One of :dbg, :opt, :fastbuild or :load.
    (compilation-mode nil :type compilation-mode)
    ;; The mode used to load the .lisp or .srcs files.
    (lisp-load-mode nil :type (or null compile-load-mode))
    ;; The mode used to load the .fasl and .deps files.
  