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

Better placement of the macro

Browse source
This commit is contained in:
jgarcia 2007-06-03 14:15:06 +00:00
parent 927cfddde9
commit fea321f623
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/cmp/cmpmain.lsp
View file

@ -56,6 +56,15 @@
(push #'(lambda () (mapc #'delete-file *files-to-be-deleted*))
si::*exit-hooks*)
#-mingw32
(defmacro fix-for-mingw (directory-namestring)
directory-namestring)
#+minwg32
(defun fix-for-mingw (directory-namestring)
(let ((x (string-right-trim '(#\\ #\/) directory-namestring)))
(if (zerop (length x)) "/" x)))
(defun linker-cc (o-pathname &rest options)
(safe-system
(format nil
@ -66,15 +75,6 @@
options
*ld-flags* (fix-for-mingw (ecl-library-directory)))))
#-mingw32
(defmacro fix-for-mingw (directory-namestring)
directory-namestring)
#+minwg32
(defun fix-for-mingw (directory-namestring)
(let ((x (string-right-trim '(#\\ #\/) directory-namestring)))
(if (zerop (length x)) "/" x)))
#+dlopen
(defun shared-cc (o-pathname &rest options)
#-(or mingw32)