anchor.diff:  (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.579"
  +(defvar *required-xcvb-version* "0.591"
     "Minimal version of XCVB required for use with this version of the xcvb-driver")
   
   (defvar *source-registry* nil
  
positive.code:   "Macro to run a BODY of code, and
  profile it under some profiling name when *PROFILING* is enabled."
    `(call-with-maybe-profiling #'(lambda () ,@body) ,what *goal*))
  
  ;;; Build initialization
  
  (defun setup-environment ()
    "Setup the XCVB environment with respect to debugging, profiling, performance"
    (debugging (getenvp "XCVB_DEBUGGING"))
    (setf *profiling* (getenvp "XCVB_PROFILING"))
    (tweak-implementation))
  
  ;;; Exiting properly or im-
  (defun quit (&optional (code 0) (finish-output t))
  
negative.code: 
  (defun run-commands (commands)
    (map () #'run-command commands))
  
  (declaim (ftype (function () (values)) setup-environment))
  
  (defun do-run (commands)
    (let ((*stderr* *error-output*))
  