X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;fp=src%2Fcode%2Fearly-extensions.lisp;h=5f2aa4629878b641011de1c475ac871ccd3ca184;hb=71bc8b09fc75083ea4bb2aee954abca1f1e1f214;hp=c589ab9198335725c6b0c732f61b8665a6af9c56;hpb=a97406ba6e8d843a5681fadbb90b28d41aee44d5;p=sbcl.git

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index c589ab9..5f2aa46 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -461,7 +461,7 @@
                              ,@forms)))))
         `(let ((,n-table ,table))
            ,(if locked
-                `(with-locked-hash-table (,n-table)
+                `(with-locked-system-table (,n-table)
                    ,iter-form)
                 iter-form))))))