r8015: change dir before cvs/svn command

diff --git a/debian/changelog b/debian/changelog
index 0b141986eb184c16d49b70700833b3d983d7648f..6d6256a628d5327713c114c34d2aa8c29c66f0f9 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+vcs-tree (0.2-1) unstable; urgency=low
+
+  * New upstream 
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 21 Oct 2003 18:01:24 -0600
+

 vcs-tree (0.1.1-1) unstable; urgency=low
 
   * New upstream (closes:  216366)
 vcs-tree (0.1.1-1) unstable; urgency=low
 
   * New upstream (closes:  216366)

diff --git a/main.lisp b/main.lisp
index 85c3aff36b8d47353112d7e553563340393b5371..342e7d0320ba7e12dd5272a20ce63519772a2f71 100644 (file)
--- a/main.lisp
+++ b/main.lisp
@@ -100,22 +100,23 @@ Returns a list of directories managed by CVS or SVN."
 
 (defun process-vcs-directory (dir action options)
   (flet ((process (dir type-name)
 
 (defun process-vcs-directory (dir action options)
   (flet ((process (dir type-name)

-          (let ((cmd
-                 (ecase action
-                   (:update
-                    (format nil "~A update" type-name)) 
-                   (:status
-                    (format nil "~A status" type-name)) 
-                   (:commit
-                    (format nil "~A commit~A" type-name
-                            (aif (find "m" options :key #'car :test 'string=)
-                                 (format nil " -m \"~A\"" (cdr it))
-                                 ""))))))
+          (let* ((vcs-cmd
+                  (ecase action
+                    (:update
+                     (format nil "~A update" type-name)) 
+                    (:status
+                     (format nil "~A status" type-name)) 
+                    (:commit
+                     (format nil "~A commit~A" type-name
+                             (aif (find "m" options :key #'car :test 'string=)
+                                  (format nil " -m \"~A\"" (cdr it))
+                                  "")))))
+                 (cmd (format nil "(cd ~A; ~A)" (namestring dir) vcs-cmd)))

             (multiple-value-bind (output error status)
             (multiple-value-bind (output error status)

-              (shell-command-output cmd :directory dir :whole t)
+                (shell-command-output cmd :directory dir :whole t)

               (if (zerop status)
               (if (zerop status)

-                  (format t "~A ~A: ~A~%" cmd (namestring dir) output)
-                  (format t "~A ~A: ~A ~A ~A~%" cmd (namestring dir) output
+                  (format t "~A ~A: ~A~%" vcs-cmd (namestring dir) output)
+                  (format t "~A ~A: ~A ~A ~A~%" vcs-cmd (namestring dir) output

                           error status))))))
     (cond
       ((is-cvs-managed dir)
                           error status))))))
     (cond
       ((is-cvs-managed dir)