[Cl-darcs-cvs] r154 - cl-darcs/trunk

[mhenoch at common-lisp.net]

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)