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
ab4db889
Commit
ab4db889
authored
Oct 30, 2022
by
Dave Cooper
Browse files
try to build with auto start of init in toplevel-function for runtime
parent
dd6ecd37
Pipeline
#7287
failed with stages
in 2 minutes and 3 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
base/rest/source/gdl-app.lisp
View file @
ab4db889
...
...
@@ -166,8 +166,9 @@ This function will be run in the initiating image after the build is finished."
(
toplevel-function
(
when
(
the
restart-init-function
)
`
(
lambda
()
(
gendl::initialize
)
(
funcall
#'
,
(
the
restart-init-function
)))))
#+
nil
(
toplevel-function
`
(
lambda
()
...
...
base/source/genworks.lisp
View file @
ab4db889
...
...
@@ -473,6 +473,12 @@
(
defclass
gendl:gendl-runtime-system
(
ccl::lisp-development-system
)
()))
;;
;; These seem to work only if you don't override
;; ccl:toplevel-function. so for now, there is a need to replicate
;; what these are doing in said toplevel-function.
;;
#+
ccl
(
defmethod
ccl:toplevel-function
:before
((
a
gendl:gendl-development-system
)
init-file
)
(
declare
(
ignore
init-file
))
...
...
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