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

changed swank-port to input-slot so it is overrideable

parent a6953fa3
Pipeline #7333 passed with stages
in 5 minutes and 46 seconds
......@@ -257,7 +257,13 @@ Running the ~a script in case process was dead. Please restart/troubleshoot manu
("String. The contents of this string will be copied to a file
gdlinit.cl and placed in the destination-directory. Default is
empty string."
gdlinit-content ""))
gdlinit-content "")
(swank-port (case (getf (the ci-info) :branch)
((:master :main) 1088)
(:devo 10088)
(otherwise 10098))))
:computed-slots
((ci-info (let ((branch (uiop:getenv "CI_COMMIT_BRANCH"))
......@@ -265,10 +271,6 @@ Running the ~a script in case process was dead. Please restart/troubleshoot manu
(list :branch (and branch (make-keyword branch))
:sha (and sha (make-keyword sha)))))
(swank-port (case (getf (the ci-info) :branch)
((:master :main) 1088)
(:devo 10088)
(otherwise 10098)))
(destination-exe (merge-pathnames (format nil "~a~a"
(the application-name)
......
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