1 ; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3. See distributed LICENSE.txt.
4 (defvar *git-location* "/usr/bin/git")
6 (defun git (project cmd &rest args)
13 (with-output-to-string (err-str)
15 (with-output-to-string (out-str)
17 (sb-ext:process-exit-code
18 (sb-ext:run-program *git-location*
20 (list "-C" (if project (project-dir project) *candle-dir*))
26 (values (zerop code) code out err)))