Commit 77c82aa5 authored by Dave Cooper's avatar Dave Cooper
Browse files

do init specifically for runtime application-class

parent 3c7b51e5
Pipeline #7277 passed with stages
in 5 minutes and 46 seconds
......@@ -471,13 +471,18 @@
(defclass gendl:gendl-development-system
(ccl::lisp-development-system) ())
(defclass gendl:gendl-runtime-system
(gendl:gendl-development-system) ()))
(ccl::lisp-development-system) ()))
#+ccl
(defmethod ccl:toplevel-function :before ((a gendl:gendl-development-system) init-file)
(declare (ignore init-file))
(gendl::initialize :startup-banner? t))
#+ccl
(defmethod ccl:toplevel-function :before ((a gendl:gendl-runtime-system) init-file)
(declare (ignore init-file))
(gendl::initialize :startup-banner? t))
......
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