anchor.diff:    (declare (ignore . #.*bnl-keys*))
     (apply 'build-and-load build keys))
   
  +;;; Build initialization
  +
  +(defun setup-environment ()
  +  "Setup the XCVB environment with respect to debugging, profiling, performance"
  +  (debugging (getenvp "XCVB_DEBUGGING"))
  +  (setf *profiling* (getenvp "XCVB_PROFILING")
  +	*temporary-directory* (default-temporary-directory)
  +	*stderr* #-clozure *error-output* #+clozure ccl::*stderr*)
  +  (tweak-implementation)
  +  (values))
  +
   ;;;; ----- The End -----
  
positive.code: 
  (defun run-commands (commands)
    (map () #'run-command commands))
  
  (defun do-run (commands)
    (let ((*stderr* *error-output*))
  
negative.code: (defvar *xcvb-program* "xcvb"
    "Path to the XCVB binary (a string), OR t if you want to use an in-image XCVB")
  
  (defvar *required-xcvb-version* "0.591"
    "Minimal version of XCVB required for use with this version of the xcvb-driver")
  
  (defvar *source-registry* nil
  