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

Differentiate the init names of statically linked libraries from the DLLs derived from them

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-06-20 00:46:10 +02:00
parent 7956d93bb1
commit 2f83e196da
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpname.lsp
View file

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