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 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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." ...@@ -659,7 +659,7 @@ to skip undefined symbols which don't have an address."
(ensure-lisp-table-opened) (ensure-lisp-table-opened)
; rtld global: so it can find all the symbols previously loaded ; rtld global: so it can find all the symbols previously loaded
; rtld now: that way dlopen will fail if not all symbols are defined. ; 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)))) (sap (dlopen filename (logior rtld-now rtld-global))))
(cond ((zerop (sap-int sap)) (cond ((zerop (sap-int sap))
(let ((err-string (dlerror)) (let ((err-string (dlerror))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment