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