From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Fri, 17 Oct 2008 21:36:34 +0000 (+0000)
Subject: 1.0.21.25: LOAD-SHARED-OBJECT and logical pathnames
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=fe7845b051cd4f7d32f1230d1f1bb2c14f557e48;p=sbcl.git

1.0.21.25: LOAD-SHARED-OBJECT and logical pathnames

 * Unlike UNIX-NAMESTRING, NATIVE-NAMESTRING doesn't deal with logical
   pathnames,
---

diff --git a/src/code/foreign-load.lisp b/src/code/foreign-load.lisp
index 7b7b92e..125210a 100644
--- a/src/code/foreign-load.lisp
+++ b/src/code/foreign-load.lisp
@@ -69,7 +69,9 @@ will be signalled when the core is saved -- this is orthogonal from DONT-SAVE."
                         :test #'equal))
              (obj (or old (make-shared-object
                            :pathname pathname
-                           :namestring (native-namestring pathname :as-file t)))))
+                           :namestring (native-namestring 
+                                        (translate-logical-pathname pathname)
+                                        :as-file t)))))
         (setf (shared-object-dont-save obj) dont-save)
         ;; FIXME: Why doesn's dlopen-or-lose on already loaded stuff work on
         ;; Windows?
diff --git a/version.lisp-expr b/version.lisp-expr
index eba6737..b9ed2f2 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.21.24"
+"1.0.21.25"