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