X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Funix-foreign-load.lisp;h=dae3126d67796ec0f557beb57cb5d789f5093523;hb=cd1b14acf6f548b28b8a14e554d779f0473122ec;hp=4e42440584b0534789c042e91c92279cf284b54a;hpb=55c7345f18c442abbbe46c66b51bcab612cae65f;p=sbcl.git

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))