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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Fri Aug 24 08:11:44 2007
New Revision: 125

Modified:
   cl-darcs/trunk/pending.lisp
Log:
Don't convert pathname to string when creating patch objects


Modified: cl-darcs/trunk/pending.lisp
==============================================================================
--- cl-darcs/trunk/pending.lisp	(original)
+++ cl-darcs/trunk/pending.lisp	Fri Aug 24 08:11:44 2007
@@ -68,5 +68,5 @@
     (add-to-pending
      repo 
      (if (eql type :file)
-	 (make-instance 'add-file-patch :filename (pathname-to-string file))
-	 (make-instance 'add-dir-patch :directory (pathname-to-string file))))))
+	 (make-instance 'add-file-patch :filename file)
+	 (make-instance 'add-dir-patch :directory file)))))