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

The SRC: path in Mingw was not resolved to a valid Windows path.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-19 21:01:34 +01:00
parent 982199e6ee
commit 74eace251b
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/config.lsp.in
View file

@ -132,8 +132,10 @@ Returns, as a string, the version of the software under which ECL runs."
,name `(("**;*.*" ,(merge-pathnames "**/*.*" path))))))))
(define-pathname-translations "SYS" (si::get-library-pathname))
(let ((x (ext:getenv "ECLSRCDIR")))
;; Notice we use true_srcdir, which in Windows resolves to a
;; Windows pathname, not a mingw/cygwin pathname
(unless (and x (setq x (probe-file x)))
(setf x #.(truename "@top_srcdir@/")))
(setf x #.(truename "@true_srcdir@/")))
(define-pathname-translations "SRC" x)
(define-pathname-translations "EXT" (merge-pathnames "../contrib/" x))
))