1.1.13: will be tagged as "sbcl-1.1.13"

[sbcl.git] / src / code / unix-foreign-load.lisp

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