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

Revert previous change so we don't call truename on the given file.

However, for logical pathnames, call translate-logical-pathname to get
a usable pathname that dlopen can understand.
parent 8ef50d30
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.51 2005/06/20 16:22:49 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.52 2005/07/07 14:45:37 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -659,7 +659,9 @@ 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 (truename file)))
(let* ((filename (namestring (if (lisp::logical-pathname-p (pathname file))
(translate-logical-pathname file)
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