Skip to content
Snippets Groups Projects
Commit e76442e9 authored by rtoy's avatar rtoy
Browse files

* code/foreign.lisp (load-object-file): Take the truename of FILE

	in case we're given a logical pathname.
parent e5d1aeaf
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.50 2004/07/25 19:32:37 pmai Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.51 2005/06/20 16:22:49 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -659,7 +659,7 @@ to skip undefined symbols which don't have an address."
(ensure-lisp-table-opened)
; rtld global: so it can find all the symbols previously loaded
; rtld now: that way dlopen will fail if not all symbols are defined.
(let* ((filename (namestring file ))
(let* ((filename (namestring (truename file)))
(sap (dlopen filename (logior rtld-now rtld-global))))
(cond ((zerop (sap-int sap))
(let ((err-string (dlerror))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment