From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 7 Oct 2012 12:20:21 +0000 (+0300)
Subject: don't close runtime dlhandle on Darwin
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c712f88b26cd7547ee984b90e18c134401335bc3;p=sbcl.git

don't close runtime dlhandle on Darwin

  On newish Darwin it works, but some people still run old enough
  version that it won't work. As long as we're not explicitly checking
  for "Darwin new enough?", let's try not to break...

  Fixes lp#957385
---

diff --git a/src/code/unix-foreign-load.lisp b/src/code/unix-foreign-load.lisp
index 4e42440..dae3126 100644
--- a/src/code/unix-foreign-load.lisp
+++ b/src/code/unix-foreign-load.lisp
@@ -46,9 +46,9 @@
   (dlerror)
   (let (dlerror)
     (cond ((and (not objp) *runtime-dlhandle*)
-           ;; CLH: if we're on darwin/ppc we can't close
+           ;; CLH/NS: if we're on sufficiently old darwin we can't close
            ;; *runtime-dlhandle* for some reason, so don't.
-           #!-(and darwin ppc)
+           #!-darwin
            (dlclose *runtime-dlhandle*)
            (setf dlerror (dlerror)
                  *runtime-dlhandle* nil))