From 74eace251b9d39b3b3e809deaf197bf323cd2968 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 19 Mar 2010 21:01:34 +0100 Subject: [PATCH] The SRC: path in Mingw was not resolved to a valid Windows path. --- src/lsp/config.lsp.in | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in index 102f77fd3..0a53574a5 100644 --- a/src/lsp/config.lsp.in +++ b/src/lsp/config.lsp.in @@ -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)) ))