Author: mhenoch Date: Fri Oct 6 15:49:46 2006 New Revision: 48 Modified: cl-darcs/trunk/write-patch.lisp Log: Use compress-file in write-patch-to-repo Modified: cl-darcs/trunk/write-patch.lisp ============================================================================== --- cl-darcs/trunk/write-patch.lisp (original) +++ cl-darcs/trunk/write-patch.lisp Fri Oct 6 15:49:46 2006 @@ -17,14 +17,16 @@ (in-package :darcs) (defun write-patch-to-repo (patch repo) - "Write the named patch PATCH to REPO, under correct filename." + "Write the named patch PATCH to REPO, compressed, under correct filename." (let ((filename (upath-subdir repo '("_darcs" "patches") (patchinfo-make-filename (named-patch-patchinfo patch))))) - (with-open-file (out filename :direction :output :element-type '(unsigned-byte 8) - :if-exists :error) - (write-patch patch out)))) + (with-temp-file-name tmp-file + (with-open-file (out tmp-file :direction :output :element-type '(unsigned-byte 8) + :if-exists :error) + (write-patch patch out)) + (compress-file tmp-file filename)))) (defgeneric write-patch (patch stream) (:documentation "Write PATCH to STREAM, in darcs patch format.