anchor.diff:        (close stream))))
   
   (defun run-program/read-output-lines (command &rest keys)
  -  (apply #'run-program/process-output-stream command
  -         #'slurp-stream-lines 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))
  +  (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))
  +  (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))
  +  (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)
  
positive.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)
  
negative.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))
  