Commit 413f06d2 authored by Dave Cooper's avatar Dave Cooper
Browse files

had to resort to eval once finally

parent b96d5397
Pipeline #7295 passed with stages
in 5 minutes and 49 seconds
......@@ -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*))))
......
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