X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhash-table.lisp;h=784bc11329daca9499708150742874a6a5fb9556;hb=78c7dbe937e6783e8da6f7a39c3eba87294d197c;hp=ca667447098272a5fb556d7a1669a574ff92f5f8;hpb=efbbfaa35590060584eda07e1f6781c4ea2cf484;p=sbcl.git

diff --git a/src/code/hash-table.lisp b/src/code/hash-table.lisp
index ca66744..784bc11 100644
--- a/src/code/hash-table.lisp
+++ b/src/code/hash-table.lisp
@@ -147,5 +147,6 @@ unspecified."
   ;; Needless to say, this also excludes some internal bits, but
   ;; getting there is too much detail when "unspecified" says what
   ;; is important -- unpredictable, but harmless.
-  `(sb!thread::with-recursive-spinlock ((hash-table-spinlock ,hash-table))
+  `(sb!thread::with-recursive-system-spinlock
+       ((hash-table-spinlock ,hash-table))
      ,@body))