X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/623291d25eb6f31558f252f037997549171b4d24..0a198ceab8afb11ff5ce1ee614d22bc80970c187:/safely.lisp diff --git a/safely.lisp b/safely.lisp index 44a707e..0a05f8b 100644 --- a/safely.lisp +++ b/safely.lisp @@ -13,12 +13,12 @@ ;;; it under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 2 of the License, or ;;; (at your option) any later version. -;;; +;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. -;;; +;;; ;;; You should have received a copy of the GNU General Public License ;;; along with this program; if not, write to the Free Software Foundation, ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. @@ -171,7 +171,7 @@ (when (< read (length buffer)) (return copy)))))) (close output))))) - + (defun safely-commit (safe) "Commit SAFE. The files deleted by safely-delete-file are deleted; the files created by safely-open-output-stream are renamed over the old