anchor.diff:                             (uniq-buffer-name new)
                              new)))
         (setf (buffer-filename) expand-file-name)
  +      (add-newline-at-eof (current-buffer))
         (save-buffer t))))
   
   (define-command write-region-file (start end filename)
  
positive.code:              (region-end)
               (prompt-for-file "Write Region To File: " (buffer-directory) nil nil))))
    (setf filename (expand-file-name filename))
    (write-region-to-file start end filename)
    (message "Wrote ~A" filename))
  
  
negative.code: 
  (export '(find-file
            read-file
            Add-Newline-at-EOF-on-Writing-File
            save-buffer
            changefile-name
            write-file
  