anchor.diff:  ;;;;LEGAL
   ;;;;    AGPL3
   ;;;;    
  -;;;;    Copyright Pascal J. Bourguignon 2005 - 2012
  +;;;;    Copyright Pascal J. Bourguignon 2005 - 2014
   ;;;;    
   ;;;;    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:             (push dst-file copied-files)))))))
  
  
  (defun sexp-file-contents (path &key (if-does-not-exist :error)
                             (external-format :default))
    "
  RETURN: The first SEXP of the file at PATH,
          or what is specified by IF-DOES-NOT-EXIST if it doesn't exist.
  "
    (with-open-file (in path :direction :input
                        :if-does-not-exist if-does-not-exist
                        :external-format external-format)
      (if (and (streamp in) (not (eq in if-does-not-exist)))
          (let ((*read-base* 10.))
            (read in nil in))
          in)))
  
  
  (defun (setf sexp-file-contents) (new-contents path
  
negative.code: 
  
  (defun text-file-contents (path &key (if-does-not-exist :error)
                                    (external-format :default))
    "
  IF-DOES-NOT-EXIST:  Can be :error, :create, nil, or another value that
                      is returned instead of the content of the file if
                      it doesn't exist.
  
  RETURN:             The contents of the file at PATH as a LIST of
                      STRING lines, or the value of IF-DOES-NOT-EXIST
                      when not :ERROR or :CREATE and the file doesn't
                      exist.
  "
    (with-input-file (in path 'character if-does-not-exist external-format)
      (contents-from-stream in :min-size 16384)))
  
  
  (defun (setf text-file-contents) (new-contents path
  