From 9904da236e2570fc3ecf92e3d87fcb60fcaab8e6 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 12 Sep 2010 09:57:48 +0200 Subject: [PATCH] When computing the init name of a compiled module, use the physical namestring --- src/cmp/cmpname.lsp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/cmp/cmpname.lsp b/src/cmp/cmpname.lsp index 2678f2289..6ad9cdf9a 100644 --- a/src/cmp/cmpname.lsp +++ b/src/cmp/cmpname.lsp @@ -98,13 +98,13 @@ the function name it precedes." (defun guess-init-name (pathname kind) (if (eq kind :object) - (or (and (probe-file pathname) - (find-init-name pathname)) - (error "Cannot find out entry point for binary file ~A" pathname)) - (compute-init-name pathname :kind kind))) + (or (and (probe-file pathname) + (find-init-name pathname)) + (error "Cannot find out entry point for binary file ~A" pathname)) + (compute-init-name pathname :kind kind))) (defun compute-init-name (pathname &key (kind (guess-kind pathname))) - (let ((filename (pathname-name pathname))) + (let ((filename (pathname-name (translate-logical-pathname pathname)))) (case kind ((:object :c) (unique-init-name pathname))