anchor.diff:      If not, see <http://www.gnu.org/licenses/>
   "))
   (in-package "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.FILE")
  +
  +
  +(defun create-file (pathname &key (if-exists :error) (external-format :default) (element-type '(unsigned-byte 8)))
  +  (close (open pathname :direction :output
  +                        :if-exists if-exists
  +                        :if-does-not-exist :create
  +                        :external-format external-format
  +                        :element-type element-type)))
   
   
   (defun copy-file (src dst &key (if-exists :error) (external-format :default) (element-type '(unsigned-byte 8)))
  
positive.code: ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  ;;;;    2014-10-22 <PJB> Factorized out file reader functions, handle if-does-not-exist non-nil values.
  ;;;;    2009-07-27 <PJB> Renamed TEXT-FILE-TO-STRING-LIST to STRING-LIST-TEXT-FILE-CONTENTS,
  ;;;;                     Added missing setf functions.
  
negative.code:            "SAFE-TEXT-FILE-TO-STRING-LIST"
             "STRING-LIST-TEXT-FILE-CONTENTS" "TEXT-FILE-CONTENTS"
             "SEXP-FILE-CONTENTS" "SEXP-LIST-FILE-CONTENTS"
             "CREATE-FILE" "COPY-FILE" "COPY-DIRECTORY")
    (:documentation
     "
  
  