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:   "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*))
  