mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 04:52:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

builder: don't call guess-kind twice

Browse source
This commit is contained in:
Daniel Kochmański 2016-11-27 14:14:17 +01:00
parent ca0859d710
commit 72bb90dc5a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpmain.lsp
View file

@ -489,7 +489,7 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), ECL_NIL);
(kind (guess-kind path)))
(unless (member kind '(:shared-library :static-library :object :c))
(error "C::BUILDER does not accept a file ~s of kind ~s" item kind))
(let* ((init-fn (guess-init-name path (guess-kind path)))
(let* ((init-fn (guess-init-name path kind))
(flags (guess-ld-flags path)))
;; We should give a warning that we cannot link this module in
(when flags (push flags ld-flags))