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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Tue Apr  1 16:45:39 2008
New Revision: 183

Modified:
   cl-darcs/trunk/get.lisp
Log:
Fix order of parentheses


Modified: cl-darcs/trunk/get.lisp
==============================================================================
--- cl-darcs/trunk/get.lisp	(original)
+++ cl-darcs/trunk/get.lisp	Tue Apr  1 16:45:39 2008
@@ -49,7 +49,7 @@
     ;; Create directories...
     (ensure-directories-exist outname)
     (prepare-new-repo outname)
-    (set-default-repo outname (upath-to-string inrepodir) :truename t)
+    (set-default-repo outname (upath-to-string inrepodir :truename t))
 
     (when checkpoint
       (format t "~&Copying checkpoint...")