anchor.diff:  #+sbcl
   (defun run-program* (&rest args) ;; FIX THAT BUG WITH posix-environ!
     (let ((sb-alien::*default-c-string-external-format* :iso-8859-1))
  -    (apply #'sb-ext:run-program args)))
  +    (apply 'sb-ext:run-program args)))
       
   ;;; Simple variant of run-program with no input, and capturing output
   (defun run-program/process-output-stream (command output-processor
  
positive.code:             xcvb-binary setup xcvb-path output-path object-directory
              lisp-implementation lisp-binary-path
              disable-cfasl base-image verbosity profiling))
    (apply #'build-and-load build keys))
  
negative.code:       (close stream))))
  
  (defun run-program/read-output-lines (command &rest keys)
    (apply 'run-program/process-output-stream command
           'slurp-stream-lines keys))
  
  (defun run-program/read-output-string (command &rest keys)
    (apply 'run-program/process-output-stream command
           'slurp-stream-string keys))
  
  (defun run-program/read-output-form (command &rest keys)
    (apply 'run-program/process-output-stream command
           'read keys))
  
  (defun run-program/read-output-forms (command &rest keys)
    (apply 'run-program/process-output-stream command
           'read-many keys))
  
  ;;; Maintaining memory of which grains have been loaded in the current image.
  (defun process-manifest-entry (&key command tthsum pathname &allow-other-keys)
  