Commit 9b5e976a authored by Dave Cooper's avatar Dave Cooper
Browse files

clean up ci-info

parent 6c308450
Pipeline #7259 passed with stages
in 6 minutes and 18 seconds
......@@ -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))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment