X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdyncount.lisp;h=befac9fc4f8b0fce032f908a1901596d14f1fdec;hb=ba39d165a0bb6fabba6d6feb9b6fb88ae4d544ff;hp=c9270dc1baa5a39bafd0b8fbb5091bfbe2336dea;hpb=b9a1b17b079d315c1eec194eb4f93f7d058b24cf;p=sbcl.git

diff --git a/src/code/dyncount.lisp b/src/code/dyncount.lisp
index c9270dc..befac9f 100644
--- a/src/code/dyncount.lisp
+++ b/src/code/dyncount.lisp
@@ -37,7 +37,7 @@ comments from CMU CL:
   "Return a hash-table containing only the entries in Table1 whose key is not
    also a key in Table2." (declare (type hash-table table1 table2))
   (let ((res (make-hash-table-like table1)))
-    (with-locked-hash-table (table2)
+    (with-locked-system-table (table2)
       (dohash ((k v) table1 :locked t)
         (unless (nth-value 1 (gethash k table2))
           (setf (gethash k res) v))))