mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 20:12:51 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: builder: warn ASDF that it does the wrong thing.

Browse source 
It shouldn't call compute-init-name.
This commit is contained in:
Daniel Kochmanski 2017-07-21 18:11:55 +02:00
parent b4a83d2955
commit 5836dc8bec
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmpmain.lsp
View file

@ -432,6 +432,13 @@ filesystem or in the database of ASDF modules."
(setf wrap-name (init-function-name (pathname-name output-name) :kind target :prefix "wrap_")))
(unless main-name
(setf main-name (compute-init-name output-name :kind target :prefix "main_")))
;; fixup for ASDF
(when (equal init-name wrap-name)
(let ((new-name (init-function-name (pathname-name output-name) :kind target :prefix "wrap_")))
(cmpwarn "It seems that you put result of the internal function `compute-init-name' as `init-name' key parameter. Fixing to ~s." new-name)
(setf wrap-name new-name)))
;;
;; The epilogue-code can be either a string made of C code, or a
;; lisp form. In the latter case we add some additional C code to