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

[mhenoch at common-lisp.net]

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