[Ecls-list] COMPILED-FUNCTION-FILE returning logical-pathname namestrings

[Tobias C. Rittweiler]

Juan Jose Garcia-Ripoll
<juanjose.garciaripoll at googlemail.com> writes:

> The compiled file names are logical pathnames because this way we can move
> the sources around. Otherwise what is the point that the SRC: hostname is
> configurable with an environment variable?
>
> On Sun, Mar 7, 2010 at 1:02 PM, Tobias C. Rittweiler <tcr at freebits.de>wrote:
>
>> In fact, it's worse:
>>
>> CL-USER> (ext:compiled-function-file #'si::expand-set-documentation)
>> "src:lsp;helpfile.lsp.NEWEST"
>> 6982
>> CL-USER> (translate-logical-pathname *)
>> #P"/src/tcr/from-upstream/ecl/lsp/helpfile.lsp"
>>
>> However, the `lsp' directory is in `ecl/src/' not in `ecl/'.
>>
>
> This is a problem in the definition of the SRC: logical hostname

diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in
index acfb05b..e89eaa4 100644
--- a/src/lsp/config.lsp.in
+++ b/src/lsp/config.lsp.in
@@ -133,5 +133,5 @@ Returns, as a string, the version of the software under whic
   (define-pathname-translations "SYS" (si::get-library-pathname))
   (let ((x (ext:getenv "ECLSRCDIR")))
     (unless (and x (setq x (probe-file x)))
-      (setf x #.(truename "@top_srcdir@/../")))
+      (setf x #.(truename "@top_srcdir@/")))
     (define-pathname-translations "SRC" x)))