X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fforeign.lisp;h=4e10afe4964b8b79f50d04f820fe470fb2403c11;hb=48ec282d877900caf5ea4ab42e9d87e566ce6b43;hp=49994d6ddb7ffa002accce04032aa831453f3848;hpb=2e86a718672b73c942e51dfbda7eb9db8746b6f4;p=sbcl.git

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 49994d6..4e10afe 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -151,9 +151,10 @@ if the symbol isn't found."
 (defun !foreign-cold-init ()
   (dolist (symbol *!initial-foreign-symbols*)
     (setf (gethash (car symbol) *static-foreign-symbols*) (cdr symbol)))
+  #!+(and os-provides-dlopen (not win32))
+  (setf *runtime-dlhandle* (dlopen-or-lose))
   #!+os-provides-dlopen
-  (setf *runtime-dlhandle* (dlopen-or-lose)
-        *shared-objects* nil))
+  (setf *shared-objects* nil))
 
 #!-os-provides-dlopen
 (define-unsupported-fun load-shared-object)