X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flinkage-table.lisp;h=61e21b502b9de06a28d3fe9e8070a809d8718c85;hb=2b69e4fdba7249fb494635bf78bb3595e34c1eb7;hp=6a4a70c89c99b4823bd375db2b8d5698d9d7bf34;hpb=fe19212267bef96fedb712ebb43abc91631aea18;p=sbcl.git

diff --git a/src/code/linkage-table.lisp b/src/code/linkage-table.lisp
index 6a4a70c..61e21b5 100644
--- a/src/code/linkage-table.lisp
+++ b/src/code/linkage-table.lisp
@@ -60,7 +60,7 @@
 ;;; in the linkage table.
 (defun ensure-foreign-symbol-linkage (name datap)
   (/show0 "ensure-foreign-symbol-linkage")
-  (with-locked-hash-table (*linkage-info*)
+  (with-locked-system-table (*linkage-info*)
     (let ((info (or (gethash (cons name datap) *linkage-info*)
                     (link-foreign-symbol name datap))))
       (linkage-info-address info))))