X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhash-table.lisp;h=5eb7a3cf3f839e6a0b2b8a24ad52688178aff8f4;hb=07ab1e4811ab16f95a9a5e8d767426a0787f22c0;hp=f018119e5a76f5d973012a71499b73e6a168b44f;hpb=b9a1b17b079d315c1eec194eb4f93f7d058b24cf;p=sbcl.git

diff --git a/src/code/hash-table.lisp b/src/code/hash-table.lisp
index f018119..5eb7a3c 100644
--- a/src/code/hash-table.lisp
+++ b/src/code/hash-table.lisp
@@ -81,9 +81,11 @@
   (synchronized-p nil :type (member nil t) :read-only t)
   ;; For detecting concurrent accesses.
   #!+sb-hash-table-debug
-  (concurrent-access-error t :type (member nil t))
+  (signal-concurrent-access t :type (member nil t))
   #!+sb-hash-table-debug
-  (accessing-thread nil))
+  (reading-thread nil)
+  #!+sb-hash-table-debug
+  (writing-thread nil))
 
 ;; as explained by pmai on openprojects #lisp IRC 2002-07-30: #x80000000
 ;; is bigger than any possible nonEQ hash value, and thus indicates an