From b6194ba1e9e25a4bf6fd13e82d917648edc2ff50 Mon Sep 17 00:00:00 2001 From: William Harold Newman Date: Sat, 22 Nov 2003 02:40:12 +0000 Subject: [PATCH] 0.8.5.50: nikodemus siivola patch from sbcl-devel 2003-11-18: tweaked lookup order for alien variables to cope with loading foreign libraries --- src/code/foreign.lisp | 2 +- tests/foreign.test.sh | 7 +++++++ version.lisp-expr | 2 +- 3 files changed, 9 insertions(+), 2 deletions(-) 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 diff --git a/tests/foreign.test.sh b/tests/foreign.test.sh index ee78f51..89f98d7 100644 --- a/tests/foreign.test.sh +++ b/tests/foreign.test.sh @@ -24,6 +24,8 @@ ld -shared -o $testfilestem.so $testfilestem.o # Test interaction with the shared object file. ${SBCL:-sbcl} <