From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 22 Oct 2003 00:07:34 +0000 (+0000)
Subject: r8018: Automated commit for Debian build of vcs-tree upstream-version-0.2
X-Git-Tag: v0.3.2~19
X-Git-Url: http://git.kpe.io/?p=vcs-tree.git;a=commitdiff_plain;h=afacf48fd410a2ab6076f1534ba8205bffac6483

r8018: Automated commit for Debian build of vcs-tree upstream-version-0.2
---

diff --git a/main.lisp b/main.lisp
index 342e7d0..b3437eb 100644
--- a/main.lisp
+++ b/main.lisp
@@ -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"))