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
413f06d2
Commit
413f06d2
authored
Oct 30, 2022
by
Dave Cooper
Browse files
had to resort to eval once finally
parent
b96d5397
Pipeline
#7295
passed with stages
in 5 minutes and 49 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
base/source/genworks.lisp
View file @
413f06d2
...
...
@@ -483,14 +483,14 @@
(
defmethod
ccl:toplevel-function
:before
((
a
gendl:gendl-development-system
)
init-file
)
(
declare
(
ignore
init-file
))
(
gendl::initialize
:startup-banner?
t
)
(
when
gdl::*restart-init-function*
(
funcall
#'
gdl::*restart-init-function*
)))
(
when
gdl::*restart-init-function*
(
funcall
(
eval
gdl::*restart-init-function*
)))
)
#+
ccl
(
defmethod
ccl:toplevel-function
:before
((
a
gendl:gendl-runtime-system
)
init-file
)
(
declare
(
ignore
init-file
))
(
gendl::initialize
:startup-banner?
t
)
(
when
gdl::*restart-init-function*
(
funcall
#'
gdl::*restart-init-function*
)))
(
when
gdl::*restart-init-function*
(
funcall
(
eval
gdl::*restart-init-function*
)))
)
...
...
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