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

normalize-build-target-name: remove noise (cmponote)

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-05 14:24:01 +01:00
parent 03e934dd85
commit 14d4e8407f
1 changed files with 3 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/cmp/cmputil.lsp
View file

@ -43,17 +43,9 @@
(enough-namestring (si::coerce-to-filename path)))
(defun normalize-build-target-name (target)
(flet ((maybe-warn (expected-name)
(unless (eql target expected-name)
(cmpwarn-style "External use of internal interface C::BUILDER. Use one of:~%
C:BUILD-FASL, C:BUILD-PROGRAM, C:BUILD-STATIC-LIBRARY, C:BUILD-SHARED-LIBRARY~%"))
expected-name))
(ecase target
((:shared-library :dll :standalone-shared-library :standalone-dll)
(maybe-warn :shared-library))
((:static-library :lib :standalone-static-library :standalone-lib)
(maybe-warn :static-library))
((:fasl :program) target))))
((:shared-library :dll :standalone-shared-library :standalone-dll) :shared-library)
((:static-library :lib :standalone-static-library :standalone-lib) :static-library)
((:fasl :program) target))
(defun innermost-non-expanded-form (form)
(when (listp form)