Commit 0acc3687 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

ecl: create-image: don't call internal function compute-init-name

It is wrong to call this function. If :init-name is not supplied, or
NIL ECL will compute the init name itself (it is not a new

Enabling specifying init-name makes it possible to build static and
shared libraries with known initialization function (important, when
CL module is linked with bigger C/C++ project outside ASDF).

If :init-name is NIL, it will default to compute-init-name
internally. Calling explicitly is not guaranteed to work in the
future (internal mechanism).
parent 5eca3749
......@@ -463,8 +463,7 @@ or COMPRESSION on SBCL, and APPLICATION-TYPE on SBCL/Windows."
#+(or clasp ecl) :lisp-files #+mkcl :lisp-object-files
(append lisp-object-files #+(or clasp ecl) extra-object-files)
#+ecl :init-name
#+ecl (c::compute-init-name (or output-name destination)
:kind (if (eq kind :fasb) :fasl kind))
#+ecl (getf build-args :init-name)
(when prologue-code `(:prologue-code ,prologue-code))
(when epilogue-code `(:epilogue-code ,epilogue-code))
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