mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 20:42:03 -08:00
Code Issues Projects Releases Packages Wiki Activity

When computing the init name of a compiled module, use the physical namestring

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-09-12 09:57:48 +02:00
parent 1245e5e8a0
commit 9904da236e
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cmp/cmpname.lsp
View file

@ -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))