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
gendl
gendl
Commits
9b5e976a
Commit
9b5e976a
authored
Oct 28, 2022
by
Dave Cooper
Browse files
clean up ci-info
parent
6c308450
Pipeline
#7259
passed with stages
in 6 minutes and 18 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
base/rest/source/gdl-app.lisp
View file @
9b5e976a
...
...
@@ -118,7 +118,13 @@ This function will be run in the initiating image after the build is finished."
gdlinit-content
""
))
:computed-slots
((
destination-exe
(
merge-pathnames
(
format
nil
"~a~a"
((
ci-info
(
let
((
branch
(
uiop:getenv
"CI_COMMIT_BRANCH"
))
(
sha
(
uiop:getenv
"CI_COMMIT_SHA"
)))
(
list
:branch
(
make-keyword
branch
)
:sha
(
make-keyword
sha
))))
(
destination-exe
(
merge-pathnames
(
format
nil
"~a~a"
(
the
application-name
)
#+
windows
".exe"
#-
windows
""
)
(
the
destination-directory
)))
...
...
@@ -133,12 +139,11 @@ This function will be run in the initiating image after the build is finished."
(
save-application-and-die-form
#+
ccl
(
let
((
branch
(
uiop:getenv
"CI_COMMIT_BRANCH"
))
(
sha
(
uiop:getenv
"CI_COMMIT_SHA"
))
(
let
((
branch
(
getf
(
the
ci-info
)
:branch
))
(
sha
(
getf
(
the
ci-info
)
:sha
))
(
application-key
(
make-keyword
(
the
application-name
))))
`
(
progn
(
gendl::deinitialize
)
,
(
when
branch
`
(
setf
(
getf
(
getf
*ci-info*
,
application-key
)
:branch
)
,
branch
(
getf
(
getf
*ci-info*
,
application-key
)
:sha
)
,
sha
))
...
...
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