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

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Thu Sep  6 01:47:33 2007
New Revision: 143

Modified:
   cl-darcs/trunk/cmdline.lisp
Log:
Fix error message for unknown command


Modified: cl-darcs/trunk/cmdline.lisp
==============================================================================
--- cl-darcs/trunk/cmdline.lisp	(original)
+++ cl-darcs/trunk/cmdline.lisp	Thu Sep  6 01:47:33 2007
@@ -38,7 +38,7 @@
 	(progn
 	  (if (null argv)
 	      (format *error-output* "No command given!~%")
-	      (format *error-output* "Invalid command '~A'!~%" command))
+	      (format *error-output* "Invalid command '~A'!~%" (car argv)))
 	  (usage)
 	  1)
 	(handler-case