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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Fri Oct  6 15:20:19 2006
New Revision: 46

Modified:
   cl-darcs/trunk/write-patch.lisp
Log:
Use pathname-to-string in write-patch


Modified: cl-darcs/trunk/write-patch.lisp
==============================================================================
--- cl-darcs/trunk/write-patch.lisp	(original)
+++ cl-darcs/trunk/write-patch.lisp	Fri Oct  6 15:20:19 2006
@@ -50,7 +50,7 @@
   (write-as-bytes (concatenate
 		   'string
 		   "hunk "
-		   (patch-filename patch)
+		   (pathname-to-string (patch-filename patch))
 		   (format nil " ~A" (hunk-line-number patch)))
 		  stream)
   (write-byte 10 stream)
@@ -66,7 +66,7 @@
 (defun write-token-and-filename (token filename stream)
   (write-as-bytes token stream)
   (write-byte 32 stream)
-  (write-as-bytes filename stream)
+  (write-as-bytes (pathname-to-string filename) stream)
   (write-byte 10 stream))
 
 (defmethod write-patch ((patch add-file-patch) stream)
@@ -102,7 +102,7 @@
 
 (defmethod write-patch ((patch token-replace-patch) stream)
   (write-as-bytes (format nil "replace ~A [~A] ~A ~A"
-			  (patch-filename patch)
+			  (pathname-to-string (patch-filename patch))
 			  (token-regexp patch)
 			  (old-token patch)
 			  (new-token patch))
@@ -138,8 +138,12 @@
 
 (defmethod write-patch ((patch move-patch) stream)
   (write-sequence (string-to-bytes "move ") stream)
-  (write-sequence (string-to-bytes (patch-move-from patch)) stream)
+  (write-sequence (string-to-bytes
+		   (pathname-to-string (patch-move-from patch)))
+		  stream)
   (write-byte 32 stream)
-  (write-sequence (string-to-bytes (patch-move-to patch)) stream)
+  (write-sequence (string-to-bytes
+		   (pathname-to-string
+		    (patch-move-to patch))) stream)
   (write-byte 10 stream))