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

Author: mhenoch Date: Tue Apr 1 19:23:06 2008 New Revision: 189 Modified: cl-darcs/trunk/cmdline.lisp Log: Fix typo Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp (original) +++ cl-darcs/trunk/cmdline.lisp Tue Apr 1 19:23:06 2008 @@ -368,8 +368,8 @@ (typecase from ;; If we have a local pathname, use the last component. (pathname - (or (pathname-name pathname) - (car (last (pathname-directory pathname))))) + (or (pathname-name from) + (car (last (pathname-directory from))))) ;; Otherwise, use the part from the last slash. (t (let* ((s (upath-to-string from))