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

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