anchor.diff:             "SAFE-TEXT-FILE-TO-STRING-LIST"
              "STRING-LIST-TEXT-FILE-CONTENTS" "TEXT-FILE-CONTENTS"
              "SEXP-FILE-CONTENTS" "SEXP-LIST-FILE-CONTENTS"
  -           "COPY-FILE" "COPY-DIRECTORY")
  +           "CREATE-FILE" "COPY-FILE" "COPY-DIRECTORY")
     (:documentation
      "
   
  
positive.code: ;;;;    You should have received a copy of the GNU Affero General Public License
  ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>
  ;;;;****************************************************************************
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (setf *readtable* (copy-readtable nil)))
  (defpackage "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.FILE"
  
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)))
  