anchor.diff:  ;;;;LEGAL
   ;;;;    AGPL3
   ;;;;
  -;;;;    Copyright Pascal J. Bourguignon 2005 - 2016
  +;;;;    Copyright Pascal J. Bourguignon 2005 - 2018
   ;;;;
   ;;;;    This program is free software: you can redistribute it and/or modify
   ;;;;    it under the terms of the GNU Affero General Public License as published by
  
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:     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)))
  