r9352: fix

[vcs-tree.git] / main.lisp

diff --git a/main.lisp b/main.lisp
index 342e7d0320ba7e12dd5272a20ce63519772a2f71..a6cf82f19533decbaa14bc844c2aa6c2a002d102 100644 (file)
--- a/main.lisp
+++ b/main.lisp
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; Process all subdirectories that are managed by either CVS or SVN
 ;;;;
-;;;; $Id: xlunit.asd 7061 2003-09-07 06:34:45Z kevin $
+;;;; $Id$
 ;;;; *************************************************************************
 
 
@@ -112,12 +112,12 @@ Returns a list of directories managed by CVS or SVN."
                                   (format nil " -m \"~A\"" (cdr it))
                                   "")))))
                  (cmd (format nil "(cd ~A; ~A)" (namestring dir) vcs-cmd)))
+            (format t "~A ~A:~%" vcs-cmd (namestring dir))
             (multiple-value-bind (output error status)
                 (shell-command-output cmd :directory dir :whole t)
               (if (zerop status)
-                  (format t "~A ~A: ~A~%" vcs-cmd (namestring dir) output)
-                  (format t "~A ~A: ~A ~A ~A~%" vcs-cmd (namestring dir) output
-                          error status))))))
+                  (format t "~A~%" output)
+                  (format t "Exit status ~D: ~A ~A~%" status output error))))))
     (cond
       ((is-cvs-managed dir)
        (process dir "cvs"))