Commit e128d274 authored by Dave Cooper's avatar Dave Cooper
Browse files

continuing with consolidation of startup/init code

parent d63db86e
Pipeline #7256 failed with stages
in 2 minutes and 37 seconds
(in-package :gdl)
(defparameter *ci-info* nil)
#-allegro
(define-object gdl-app ()
:documentation (:description "
......@@ -129,24 +131,32 @@ This function will be run in the initiating image after the build is finished."
(save-application-and-die-form
#+ccl
`(progn
(gendl::deinitialize)
(ccl:save-application (progn (ensure-directories-exist ,(the destination-exe))
,(the destination-exe))
:prepend-kernel t
;;:clear-clos-caches t
:purify t
:application-class ,(the application-class)
:toplevel-function ,(the toplevel-function))
(ccl:quit))
(let ((branch (uiop:getenv "CI_COMMIT_BRANCH"))
(sha (uiop:getenv "CI_COMMIT_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))
(ccl:save-application (progn (ensure-directories-exist ,(the destination-exe))
,(the destination-exe))
:prepend-kernel t
;;:clear-clos-caches t
:purify t
:application-class ,(the application-class)
:toplevel-function ,(the toplevel-function))
(ccl:quit)))
#-ccl (error "Please implement save-application-and-die-form for ~a.~%"
(lisp-implementation-type)))
(lisp-implementation-type))
)
(toplevel-function (when (the restart-init-function)
......
......@@ -99,8 +99,12 @@
glisp:*gendl-source-home* nil
gwl::*fullchain-pem-path* nil
gwl::*privkey-pem-path* nil)
gwl::*privkey-pem-path* nil
(when (find-package :net.aserve)
(funcall (read-from-string "net.aserve:shutdown"))
(makunbound (read-from-string "net.aserve:*wserver*"))
(makunbound (read-from-string "excl:*initial-terminal-io*"))))
;;
;; FLAG -- cffi prolly has one function to call to do all this & more.
;;
......
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