anchor.diff:              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))
  +  (apply 'build-and-load build keys))
  
positive.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)
  
negative.code:        ;; the driver better be loaded by the time any command is issued
         (funcall (find-symbol "RUN-COMMAND" :xcvb-driver) command)))
      (push (cons command tthsum) *manifest*)))
  
  (defun process-manifest (manifest)
    (dolist (entry manifest)
      (apply 'process-manifest-entry entry)))
  
  ;;; Extend XCVB driver
  (defun initialize-manifest (pathname)
  