From 7b2b3046f508a88df36ff4dbcabd6c2caf163eee Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Wed, 1 Dec 2004 13:23:39 +0000
Subject: [PATCH] The logical hostname SYS: should be associated to a fully
 resolved pathname.

---
 src/lsp/top.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index 07cbf8ad6..e5ebba938 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -386,7 +386,7 @@ value of this variable is non-NIL.")
 	(cond
 	  ((string= "-dir" option)
 	   (setf (logical-pathname-translations "SYS")
-		 `(("**;*.*" ,(concatenate 'string (pop-arg "-dir") "/**/*.*")))))
+		 `(("**;*.*" ,(merge-pathnames "**/*.*" (truename (pop-arg "-dir")))))))
 	  ((string= "-compile" option)
 	   (if (nth-value 3
 			  (compile-file