From: Nikodemus S. <de...@us...> - 2008-10-18 08:22:28
|
Update of /cvsroot/sbcl/sbcl/src/code In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv18270/src/code Modified Files: foreign-load.lisp Log Message: 1.0.21.26: bullet-proof (?) use of LOAD-SHARED-OBJECT in tests * Previously LOAD-SHARED-OBJECT looked for the shared object first in the current directory, and if it existed there, it passed the absolute pathname to dlopen(). New version passes the native namestring of the designated pathname, absolute or relative -- which leads to dlopen() on some platforms not looking in the current directory unless "." is in LD_LIBRARY_PATH. So add TRUENAME calls to the test-suite when the .so lives there. * Mention the change of semantics in NEWS. * Delete trailing whitespace. Index: foreign-load.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/foreign-load.lisp,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- foreign-load.lisp 17 Oct 2008 21:36:34 -0000 1.20 +++ foreign-load.lisp 18 Oct 2008 08:22:17 -0000 1.21 @@ -69,7 +69,7 @@ :test #'equal)) (obj (or old (make-shared-object :pathname pathname - :namestring (native-namestring + :namestring (native-namestring (translate-logical-pathname pathname) :as-file t))))) (setf (shared-object-dont-save obj) dont-save) |