Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
79681f44
Commit
79681f44
authored
Mar 24, 2021
by
Eric Timmons
Browse files
Set MSYS=noglob in git-cat-file
parent
a103d8eb
Changes
1
Hide whitespace changes
Inline
Side-by-side
clpm/repos/git.lisp
View file @
79681f44
...
...
@@ -146,9 +146,13 @@ returning. The stream must be CLOSEd when finished to clean up the process info.
"Calls ~git cat-file~ with the provided commit and returns the result,
optionally changing into the local dir for ~repo~."
(
with-git-dir
(
repo
)
(
uiop:run-program
`
(
"git"
"cat-file"
"-e"
,
(
uiop:strcat
commit
"^{commit}"
))
:output
'
(
:string
:stripped
t
)
:ignore-error-status
ignore-error-status
)))
(
apply
#'
uiop:run-program
`
(
"git"
"cat-file"
"-e"
,
(
uiop:strcat
commit
"^{commit}"
))
:output
'
(
:string
:stripped
t
)
:ignore-error-status
ignore-error-status
;; Needed when using git from MSYS2 on Windows. Otherwise it
;; "helpfully" tries to expand {commit} as a glob.
(
run-program-augment-env-args
'
((
"MSYS"
.
"noglob"
))))))
(
defun
git-rev-parse
(
rev
&key
repo
abbrev-ref
ignore-error-status
)
"Calls ~git rev-parse~ with the provided revision and returns the result,
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment