Commit 48f5e388 authored by Dave Cooper's avatar 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
......@@ -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))
......
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