Author: mhenoch Date: Tue Jan 8 13:02:20 2008 New Revision: 149 Modified: cl-darcs/trunk/apply-patch.lisp Log: Fix error signalling when file to create already exists Modified: cl-darcs/trunk/apply-patch.lisp ============================================================================== --- cl-darcs/trunk/apply-patch.lisp (original) +++ cl-darcs/trunk/apply-patch.lisp Tue Jan 8 13:02:20 2008 @@ -1,4 +1,4 @@ -;;; Copyright (C) 2006, 2007 Magnus Henoch +;;; Copyright (C) 2006, 2007, 2008 Magnus Henoch ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -107,9 +107,10 @@ (let ((new-file (merge-pathnames (patch-filename patch) repodir))) (dformat "~&Creating file ~A." new-file) - (open new-file :direction :probe - :if-does-not-exist :create - :if-exists :error))) + (with-open-file (f new-file :direction :output + :if-does-not-exist :create + :if-exists :error) + (declare (ignore f))))) (defmethod apply-patch ((patch binary-patch) repodir) "Apply a binary patch in REPODIR."