From 72bb90dc5a69f96b788e5bbb6218b31c1a6b443e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sun, 27 Nov 2016 14:14:17 +0100 Subject: [PATCH] builder: don't call guess-kind twice --- src/cmp/cmpmain.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index 6440092d6..2942cdc2c 100755 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -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))