;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:CL -*-

(defun dump-file (infile &rest arguments &key outfile (outstream *terminal-io*) (byte-size 8))
  (if outfile
    (with-open-file (outstream (open outfile :direction :output :characters t))
      (apply #'dump-file infile :outstream outstream :outfile nil arguments)))