Author: mhenoch Date: Tue Jan 8 13:06:58 2008 New Revision: 154 Modified: cl-darcs/trunk/write-patch.lisp Log: Write directory patches without trailing slash Modified: cl-darcs/trunk/write-patch.lisp ============================================================================== --- cl-darcs/trunk/write-patch.lisp (original) +++ cl-darcs/trunk/write-patch.lisp Tue Jan 8 13:06:58 2008 @@ -1,4 +1,4 @@ -;;; Copyright (C) 2006 Magnus Henoch +;;; Copyright (C) 2006, 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 @@ -69,7 +69,9 @@ (defun write-token-and-filename (token filename stream) (write-as-bytes token stream) (write-byte 32 stream) - (write-as-bytes (pathname-to-string filename) stream) + ;; Both files and directories are specified in file format, + ;; i.e. without a trailing slash. + (write-as-bytes (pathname-to-string (fad:pathname-as-file filename)) stream) (write-byte 10 stream)) (defmethod write-patch ((patch add-file-patch) stream)