3 (defvar *git-location* "/usr/bin/git")
5 (defun git (project cmd &rest args)
12 (with-output-to-string (err-str)
14 (with-output-to-string (out-str)
16 (sb-ext:process-exit-code
17 (sb-ext:run-program *git-location*
19 (list "-C" (if project (project-dir project) *candle-dir*))
25 (values (zerop code) code out err)))