X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign.lisp;h=cac98877fb08550d80f6d91f3e4e8c7d2faeebd5;hb=a22dd643fb599880f4c0856e1a85bffe4358aea8;hp=54ae8b0691a8f3a71e7fd57a5a364d1fb4d7146d;hpb=506253505641855dc8bb87033f7af894904f848b;p=sbcl.git

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 54ae8b0..cac9887 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -176,7 +176,7 @@
   ;; that the list isn't guaranteed to be in reverse order of loading,
   ;; at least not if a file is loaded more than once. Is this the
   ;; right thing? (In what cases does it matter?)
-  (dolist (handle *handles-from-dlopen*)
+  (dolist (handle (reverse *handles-from-dlopen*))
     ;; KLUDGE: We implicitly exclude the possibility that the variable
     ;; could actually be NULL, but the man page for dlsym(3) 
     ;; recommends doing a more careful test. -- WHN 20000825