anchor.diff:  
   
   (defun text-file-contents (path &key (if-does-not-exist :error)
  -                           (external-format :default))
  -  "
  -RETURN: The contents of the file at PATH as a LIST of STRING lines.
  -        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)))
  -        (contents-from-stream in :min-size 16384)
  -        in)))
  +                                  (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
  
positive.code: 
  
  (defun binary-file-contents (path &key (if-does-not-exist :error)
                               (element-type '(unsigned-byte 8))
                               (external-format :default))
    "
  RETURN: The contents of the file at PATH as a VECTOR of (UNSIGNED-BYTE 8),
          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
                        :element-type element-type
                        :external-format external-format)
      (if (and (streamp in) (not (eq in if-does-not-exist)))
          (contents-from-stream in :min-size 16384)
          in)))
  
  
  (defun (setf binary-file-contents) (new-contents path
  
negative.code: 
  
  (defun string-list-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 list of lines collected from the file, 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)
       (stream-to-string-list in)))
  
  
  (defun (setf string-list-text-file-contents) (new-contents path
  