anchor.diff:      (with-controlled-compiler-conditions ()
         (run-commands dependencies))
       (apply #'dump-image image flags)))
  -
  -(defvar *default-element-type* (or #+(or abcl xcl) 'character :default)
  -  "default element-type for open (depends on the current CL implementation)")
  -
  -(defun call-with-input-file (file thunk
  -                             &key (element-type *default-element-type*)
  -                             (external-format :default))
  -  "Open FILE for input with given options, call THUNK with the resulting stream."
  -  (with-open-file (s file :direction :input
  -                     :element-type element-type :external-format external-format
  -                     :if-does-not-exist :error)
  -    (funcall thunk s)))
  -
  -(defun read-first-form (file &rest keys)
  -  "Read the first form in a FILE, open with given option keys"
  -  (apply 'call-with-input-file file 'read keys))
   
   #+ecl ;; wholly untested and probably buggy.
   (defun do-create-image (image dependencies &key
  
positive.code:           (with-controlled-compiler-conditions ()
              (funcall thunk))
          (save-forward-references forward-references)))))
  (defmacro with-xcvb-compilation-unit ((&key forward-references) &body body)
    "Like WITH-COMPILATION-UNIT, but saving forward-reference issues
  for processing later (possibly in a different process)."
    `(call-with-xcvb-compilation-unit #'(lambda () ,@body) :forward-references ,forward-references))
  
  
  ;;; Interpreting commands from the xcvb-driver-command DSL.
  (defun function-for-command (designator)
    (fdefinition (find-symbol* designator :xcvb-driver)))
  (defun run-command (command)
    "Run a single command.
  Entry point for XCVB-DRIVER when used by XCVB's farmer"
  
negative.code: 
  (defun raw-command-line-arguments ()
    "Find what the actual command line for this process was."
    #+abcl ext:*command-line-argument-list* ; Use 1.0.0 or later!
    #+allegro (sys:command-line-arguments) ; default: :application t
    #+clisp (coerce (ext:argv) 'list)
    #+clozure (ccl::command-line-arguments)
  