Author: mhenoch Date: Thu Sep 6 01:31:47 2007 New Revision: 141 Modified: cl-darcs/trunk/cmdline.lisp Log: Fix format specifiers Modified: cl-darcs/trunk/cmdline.lisp ============================================================================== --- cl-darcs/trunk/cmdline.lisp (original) +++ cl-darcs/trunk/cmdline.lisp Thu Sep 6 01:31:47 2007 @@ -37,8 +37,8 @@ (if (null command) (progn (if (null argv) - (format *error-output* "No command given!~n") - (format *error-output* "Invalid command '~A'!~n" command)) + (format *error-output* "No command given!~%") + (format *error-output* "Invalid command '~A'!~%" command)) (usage) 1) (handler-case @@ -49,17 +49,17 @@ (defun usage () "Print usage information about commands to *ERROR-OUTPUT*." - (format *error-output* "Usage: darcs COMMAND ...~n~nCommands:~n") + (format *error-output* "Usage: darcs COMMAND ...~%~%Commands:~%") (dolist (cmd *darcs-commands*) (let ((function (command-function cmd))) - (format *error-output* " ~A~15,2T~A~N" + (format *error-output* " ~A~15,2T~A~%" (split-sequence:split-sequence #\Newline (documentation function 'function) :count 1))))) (defun command-usage (command) "Print longer documentation for COMMAND." - (format *error-output* "~A~N" (documentation (command-function command) 'function))) + (format *error-output* "~A~%" (documentation (command-function command) 'function))) (defmacro define-darcs-command (name arglist docstring &body body) (let ((function (command-function name)))