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))