- (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)))
- (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~%" output)
- (format t "Exit status ~D: ~A ~A~%" status output error))))))
+ (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)))
+ (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~%" output)
+ (format t "Exit status ~D: ~A ~A~%" status output error))))))