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

cmp: make init-function-name consistant with compute-init-name

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

4
src/cmp/cmpname.lsp
View file

@ -141,11 +141,11 @@ the function name it precedes."
#\p)))
(disambiguation (c)
(case kind
(:object "")
(:program "exe_")
((:object :c) "")
((:fasl :fas) "fas_")
((:library :static-library :lib) "lib_")
((:shared-library :dll) "dll_")
((:program) "exe_")
(otherwise (error "Not a valid argument to INIT-FUNCTION-NAME: kind = ~S"
kind)))))
(setq s (map 'string #'translate-char (string s)))