From afacf48fd410a2ab6076f1534ba8205bffac6483 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 22 Oct 2003 00:07:34 +0000 Subject: [PATCH 1/1] r8018: Automated commit for Debian build of vcs-tree upstream-version-0.2 --- main.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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")) -- 2.34.1