X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.impure.lisp;h=1c8b291e804bfb1664e3b457362e9dd32931cc20;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=4881bc4a2fa0cfdb85792bc37d4193599668e040;hpb=6ab9c60f1c53cc7cc912d644658bc23453a82ac4;p=sbcl.git

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 4881bc4..1c8b291 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -49,7 +49,7 @@
  (or #+linux '("-shared" "-o" "threads-foreign.so" "threads-foreign.c")
      (error "Missing shared library compilation options for this platform"))
  :search t)
-(sb-alien:load-1-foreign "threads-foreign.so")
+(sb-alien:load-shared-object "threads-foreign.so")
 (sb-alien:define-alien-routine loop-forever sb-alien:void)