projects
/
vcs-tree.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9163fc4
)
r8018: Automated commit for Debian build of vcs-tree upstream-version-0.2
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 22 Oct 2003 00:07:34 +0000
(
00:07
+0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Wed, 22 Oct 2003 00:07:34 +0000
(
00:07
+0000)
main.lisp
patch
|
blob
|
history
diff --git
a/main.lisp
b/main.lisp
index 342e7d0320ba7e12dd5272a20ce63519772a2f71..b3437eb32573a426d643752e0d963ef92402b356 100644
(file)
--- 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 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)
(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"))
(cond
((is-cvs-managed dir)
(process dir "cvs"))