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
e128d274
Commit
e128d274
authored
Oct 28, 2022
by
Dave Cooper
Browse files
continuing with consolidation of startup/init code
parent
d63db86e
Pipeline
#7256
failed with stages
in 2 minutes and 37 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
base/rest/source/gdl-app.lisp
View file @
e128d274
(
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
)
...
...
base/zzinit/source/initialize.lisp
View file @
e128d274
...
...
@@ -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.
;;
...
...
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