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

[mhenoch at common-lisp.net]

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