X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fforeign.lisp;h=d3837548d56befaef6cda086ab668f455fe42b6e;hb=5cc68148d1a5f9bacf4eb12e396b680d992fc2c2;hp=4daef08ec00ce1e5bb0d52c7287619c8807d92e7;hpb=78fa16bf55be44cc16845be84d98023e83fb14bc;p=sbcl.git

diff --git a/src/code/foreign.lisp b/src/code/foreign.lisp
index 4daef08..d383754 100644
--- a/src/code/foreign.lisp
+++ b/src/code/foreign.lisp
@@ -30,7 +30,7 @@
       (progn
         #-sb-xc-host
         (values #!-linkage-table
-                (get-dynamic-foreign-symbol-address name)
+                (get-dynamic-foreign-symbol-address name datap)
                 #!+linkage-table
                 (ensure-foreign-symbol-linkage name datap)
                 t))))