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
48f5e388
Commit
48f5e388
authored
Oct 31, 2022
by
Dave Cooper
Browse files
only set restart-init-function if it exists.
parent
d6c2cbd6
Pipeline
#7310
passed with stages
in 6 minutes and 2 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
base/rest/source/gdl-app.lisp
View file @
48f5e388
...
...
@@ -146,8 +146,7 @@ This function will be run in the initiating image after the build is finished."
(
load-fasls-expression
(
when
(
the
application-fasls
)
`
(
mapcar
#'
load
',
(
the
application-fasls
))))
(
save-application-and-die-form
#+
ccl
(
let
((
branch
(
getf
(
the
ci-info
)
:branch
))
...
...
@@ -161,8 +160,8 @@ This function will be run in the initiating image after the build is finished."
(
getf
(
getf
*ci-info*
,
application-key
)
:sha
)
,
sha
))
;;(setq *restart-init-function* ,(the restart-init-function))
(
setf
(
symbol-function
'*restart-init-function*
)
,
(
the
restart-init-function
))
,
(
when
(
the
restart-init-function
)
`
(
setf
(
symbol-function
'*restart-init-function*
)
,
(
the
restart-init-function
))
)
(
ccl:save-application
(
progn
(
ensure-directories-exist
,
(
the
destination-exe
))
...
...
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