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

cmp: remove redundant compute-main-name function

Browse source 
Same functionality is provided by compute-init-name

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-07-30 08:32:02 +02:00
parent 4f80b5fca5
commit 8972fb38d3
2 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpmain.lsp
View file

@ -478,7 +478,9 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), ECL_NIL);
(unless init-name
(setf init-name (compute-init-name output-name :kind target)))
(unless main-name
(setf main-name (compute-main-name output-name :kind target)))
(setf main-name (compute-init-name output-name
:kind target
:prefix "main_")))
(ecase target
(:program
(format c-file +lisp-program-init+ init-name "" submodules "")

3
src/cmp/cmpname.lsp
View file

@ -123,9 +123,6 @@ the function name it precedes."
(otherwise
(error "C::BUILDER cannot accept files of kind ~s" kind)))))
(defun compute-main-name (pathname &rest args)
(apply #'compute-init-name pathname :prefix "main_" args))
(defun init-function-name (s &key (kind :object) (prefix nil))
(flet ((translate-char (c)
(cond ((and (char>= c #\a) (char<= c #\z))